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

名前

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

本文 こんな感じで如何でしょう。 Dim F As ADODB.Stream Dim S As ADODB.Stream Dim P As Long Dim V As Variant 'バイナリのロード Set F = New ADODB.Stream F.Type = adTypeBinary F.Open F.LoadFromFile "C:\test.lzh" F.Position = 0 '送信データの受け皿を作成 Set S = New ADODB.Stream S.Type = adTypeText S.Charset = "ASCII" S.LineSeparator = adCRLF S.Open '前半のテキスト部を出力 S.WriteText "-----------------------------7d510a25c203b6", adWriteLine S.WriteText "Content-Disposition: form-data; name=""file.lzh"";", adWriteLine (中略) '中間のバイナリ部 P = S.Position S.Position = 0 S.Type = adTypeBinary S.Position = P S.Write F.Read(adReadAll) F.Close '後半のテキスト部 P = S.Position S.Position = 0 S.Type = adTypeText S.Position = P S.WriteText "-----------------------------7d510a25c203b6", adWriteLine (中略) 'Byte配列として受け取る S.Position = 0 S.Type = adTypeBinary V = S.Read(adReadAll) S.Close