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

名前

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

本文 魔界の仮面弁士様 早速のご回答誠にありがとう御座います。 >今回の LZH なバイナリは、Unicodeの文字列データではありませんから、 >StrConv を書けるとデータが破壊されていまいます。 > >バイナリをそのまま送信するようにしてみてください。 そうだったのですね。 他の方のソースを見よう見まねで作ったので、分かりませんでした。(>_<)> ただ、InetSpyで確認を行うと、ファイルの情報は正しく送られているのですが、 sendの最初の情報とsendの最後の情報は、stringのデータを格納したVariant型変数の為、 バイナリ画像(Byte配列)とは繋げません。 その為、それらの情報が送れなくなってしまいました。 以下に作成しているソースを記述致します。 Dim varSendStert Dim varSendEnd 'sendの最初の情報 varSendStert = "--" & "---------------------------7d510a25c203b6" & vbCrLf varSendStert = varSendStert & "Content-Disposition: form-data; name=""file"";" varSendStert = varSendStert & " filename=""C:\test.lzh""" & vbCrLf varSendStert = varSendStert & "Content-Type: " & "application/octet-stream""" & vbCrLf & vbCrLf 'sendの最後の情報 varSendEnd = vbCrLf & "--" & "---------------------------7d510a25c203b6" & vbCrLf varSendEnd = varSendEnd & "Content-Disposition: form-data; name=""submit""" & vbCrLf & vbCrLf varSendEnd = varSendEnd & "アップロード" & vbCrLf varSendEnd = varSendEnd & "--" & "---------------------------7d510a25c203b6" & "--" 'sendの最初の情報 + バイナリデータ +sendの最後の情報 LineBuffer = varSendStert & LineBuffer & varSendEnd ↑ここで、型変換できずに処理がエラーとなります。 sendに「sendの最初の情報 + バイナリデータ(Byte配列) +sendの最後の情報」を送る方法はあるのでしょうか？ それとも別の方法で送れるのでしょうか？ 以上、よろしくお願い致します。