#URLからmp3をダウンロードする方法ってありますでしょうか。Drakmaを利用したいとおもっているのですが。。。
#(defun download-file (url file)
(with-open-file (fp file :direction :output :if-exists :overwrite :if-does-not-exist :create)
(format fp "~A~%"
(http-request url))))#これでhtmlとかはダウンロード可能になったのですがmp3でやるとなにやらメモリ不足とかのエラーでデバッガに落ちたりするので。。
#format が pretty print しようとしているのかな?
#print系の関数の変えてみれば良いんですかね？
#mp3はバイナリデータなので write-sequence とかを使えばいいのだと思います。
#なるほど。ちょっとためしてみます。
#あと with-open-file で開くストリームもバイナリストリームを開く必要があるような気がします。
#なるほど。
#上手くいったとおもいます。
#http-requestのかえり値のsequenceが延々とプリントされてしまっているw
#よかったです。使ったことがなかったので、間違ってたら...と思ってました。
#いえいえ、ありがとうございます。
#mp3くらいなら平気かと思うけどでかいファイルをダウンロードしようとすると一旦メモリに展開しようとする方針はあまり良くないよ。サイズ的にタカがくくれないようなものに対応する場合http-requestの :want-stream tにしてファイルに書き出しながらループを回すの良いかな。
#なるほど
#その場合はどのように書きだせば良いのでしょうか。サンプルコード情報などありましたらよろしくおねがいします。binary-fileのあつかいはあまりやったことがないので...
#えーと…なんかダミーでいいのでuriください
#わかりました。
#ちょっとさがしてみます。
#ダミーじゃまずいね…
#まyahooでもgoogleでもでちょっとかいてみる
##適当に素材サイトからコピーしてきたのですが...
#ありがとうございます
#(defun download-file (filename uri)
(with-open-file (out filename
:direction :output
:if-exists :supersede
:element-type '(unsigned-byte 8))
(let ((v (make-array 4096 :element-type '(unsigned-byte 8)))
(input (drakma:http-request uri :want-stream t)))
(loop :for size := (read-sequence v input)
:until (zerop size)
:do (write-sequence v out :end size)))))#10分…酷い。
#20分か
#いちおうaclでは動いてる気がする。
#なるほど
#make-arrayの4096というのはどういう値でしょうか？
#え?
#char buf[4096];みたいな?
#あ、なるほど、もうしわけありません。
#いえ、どうこたえようかわかんね…とおもっただけなので恐縮されると困ります。
#いえいえ、なにかそのサイズにする必要があるのかとおもったので、（magic number的な)
#4000だったら良かったのか。キリが良いし打ちなれているんすよ個人的に。
#キリが良いかどうか…自信がなくなってきた…
#普通のファイルについてはelement-typeは指定しなくて良いんですかね？
##x1000 == 4096 なのでキリがいいんじゃ
#普通のファイルというのは?>Pocketさん
#htmlとかですtxtとか
#ありがとうございます>NANRIさん
#binary以外というか..
#うーん…ダウンロードに関していえばバイナリを選択しない理由は知らないですねー。
#ダウンロードtoファイルの場合?
#ファイルのエンコードが自動判定された場合は処理系のネイティブな文字コードに変換されて保存されますが
#なるほど、僕の無知のようですね。mp3と普通のtxtファイルのurlの時って別に区別しなくて良いんですね！
#問題無いと言いきれる状況なら良いんじゃないでしょうか。
#ダウンロードはテキストファイルもバイナリとして扱ったほうがよいかと。
#日本語とかありますし
#なるほど
#途中で処理するなら別ですけど
#abclは少なくとも昔のバージョンではosがunixかwindowsかで保存されるファイルの文字コードが変わりますよ
#今は違うかもですけど。
#あとdrakmaはflexi-streamsが文字コードを処理できない場合はバイナリで結果決ますよ
#きます。
#なるほど
#ありがとうございます。
#あと初歩的な質問になるかとおもうのですが、ダウンローダーとかでプログレスバーが出たりするのですが、あれってダウンロード先のファイルサイズを取得しているんだとおもうのですが、
#ですが<-を連発してしまった...
#drakmaだとどういう風に実装できますかね？
#http-headerのContent-Lengthがダウンロードするファイルのサイズにあたります。
#ただ、必ず返してもらえるものじゃなかったような(うろ覚え)＞Content-Length
#なるほど、
#wgetのソースを読んでいるのですが...良くわかりませんね..
#最初に帰ってくる多値にヘッダがあるのでそれっぽい値があればそれでやれる場合はやれます。やれない場合はwgetでもやれません。
#なるほど
#帰ってくるというのはhttp-requestからですか？
#はいな
#それだとstreamから読みこむときはどのように取得すれば良いのでしょうか...
#2番目とかですか？
#すいません、自分でたしかめます。
#あ、なるほどmultiple~で取得すれば良いんですね
#あーはい。drakmaのマニュアルはちゃんとしているので、httpの用途の学習を含めてマニュアル読むと良いですよ。
#なるほどheader-valueっていうので取得できそうですね。
#無事プログレスバー出力できました！
#テストのためにさっきのURLを酷使してしまった..
COMMON LISP JP > Archives > 2010/12/27