« ライセンスを | トップページ | xyzzy-0.2.2.235 »

2005年11月27日 (日)

WinHTTPで

お手軽にhttpsアクセスできそうな気がしたので、試してみた。
Windows HTTP Services (WinHTTP)

(defun user::test (url)
  (interactive "sUrl: ")
  (let ((obj (ed:ole-create-object "WinHttp.WinHttpRequest.5.1")))
    #{obj.Open["GET"][url][nil]}
    #{obj.Send}
    #{obj.WaitForResponse}
    (msgbox "~S ~S~%~S~%~%~S"
        #{obj.Status}
        #{obj.StatusText}
        #{obj.GetAllResponseHeaders}
        #{obj.ResponseText}
        )))

アクセスはできるんだけど、ResponseHeaderに文字コードの指定がない場合に、文字化けが起こるみたい。勝手に判別・変換しようとして失敗してるのか?
すでに投げ出し気味・・・。

|

« ライセンスを | トップページ | xyzzy-0.2.2.235 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/144798/7338826

この記事へのトラックバック一覧です: WinHTTPで:

« ライセンスを | トップページ | xyzzy-0.2.2.235 »