バイナリデータをエンコードするには？ (ID:88647)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 現在、HTTP通信で圧縮画像をアップロードする為、 プログラムを作成しているのですがうまくいきません。 開発環境は、 クライアント VB6.0 サーバ WebSphere Studio Application Developer5.0です。 開発方法と致しましては、 Set HttpRequest = CreateObject("MSXML2.XMLHTTP.4.0") HttpRequest.open "POST", "http://〜/fileupload/upload.do", False HttpRequest.setRequestHeader "Content-Type", "multipart/form-data; boundary=---------------------------7d510a25c203b6" HttpRequest.send CVar(LineBuffer) の手順でアップロードを行おうとしております。 InetSpyを使用し、ブラウザでの通信内容を見ましたので、 ヘッダー情報には食い違いがないように設定できたとは思うのですが、 ただ、バイナリデータの画像にかなりの食い違いが生じていました。 InetSpyで取得したデータの一部を記述致しますと、下記の様になっております。 サーバのデータ X-lh0-ヲBヲBィ・ test.bmpBMヲBヲ(@・・JRkJZsBJZBJcJRcBRkJJcJRsRZ{RZsZk・JZ{Rc・BRcRc{JJZZc・JZkJc{RRkBBRBJRRRsZc・Jc・9BR))9BZs!)1BRsZk・Rk・9JZ!)9BBZRk・)1BBJkRZk)19ZZ{JJkBZk))1RRcZc{19J9BZRc・ZZsRZ・9BJJcs9Jc99J11BJJRRJcBBJRcsBRZ9JRJZ・JBR!!)9RcJRZ19R1BR9Rk19BJk・!!1BZ{ck・Jk・JR{99BZk・Zs・Zs・)9BRJZZZ・99RRk・Zcscc{cc・ZRkRR{!19Bc{11JRs・Rs・)1JZZkRJk1199ZsZRcBc・cs・1BJ!))Jc・ZRsJBZcZs)9Jck・1119Rsk{・B9Jcs・c{・ks・1BZRk{9JkZs・Zk{ck・BJJcs・Z{・R{・Bk・kk・Rs・BBcBcs!1BcZ{1JcBZckZsRBZZJcJs・BZ・Z{・cRs)!1RRZ91B))BRZ・9BcR{・c├9Z{BJscZ・ 作成したデータ 禺ソ・ゆц帥シ[ソ・先I堺持禺帥漆 また、現在のバイナリデータ取得方法について記述致します。 Dim File As ADODB.Stream Set File = New ADODB.Stream File.open File.Type = adTypeBinary File.LoadFromFile "C:\test.lzh" Dim LineBuffer LineBuffer = "" LineBuffer = StrConv(File.Read, vbFromUnicode) ですので、バイナリデータのエンコード方法を変えたいのですが、その為に (1)サーバの文字コードは何なのか (2)サーバの文字コードをVB側で送れるようにする為にはどのようにエンコードを行えばよいのか が分かりません。 以上、何卒ご教授のほどよろしくお願い致します。