- PR -

ファイルアップロード

1
投稿者投稿内容
未記入
会議室デビュー日: 2006/06/19
投稿数: 1
投稿日時: 2006-06-21 13:55
スレッドが違っていたらゴメンなさい
ただ今、HTTP通信(POST)でのファイルアップロード機能を調査中です
HTMLからのアップロードを実現するには
FORMタグにmultipart/form-dataを指定&<INPUT type="file" name="FILE1">
という手法になるかとは思いますが・・・
これと同等の機能をVB6で実現できないかと考えております
既にアップロード用の機能は稼動しておりサーバ側PHPのプログラムはイジれないのが前提です
サーバ側PHPではリクエストを受信しているようなのですがアップロードデータが取得できません

以下はこれまでに書いたVBのソースの抜粋です
ご存知の方、是非ご教授下さいませ


Dim URL As String
Dim HttpRequest As Object
Dim FileDirPath As String
Dim SendValue As Variant

URL = "http://127.0.0.1/test/upload.php"
FileDirPath = "C:\test.csv"

Set HttpRequest = CreateObject("MSXML2.XMLHTTP")
If HttpRequest Is Nothing Then
Set HttpRequest = CreateObject("Microsoft.XMLHTTP")
End If
If HttpRequest Is Nothing Then
Set HttpRequest = Nothing
End If

HttpRequest.open "POST", URL, False

SendValue = ""
SendValue = SendValue & "Content-Type: multipart/form-data; boundary=---------------------------boundary" & vbCrLf & vbCrLf
SendValue = SendValue & "-----------------------------boundary" & vbCrLf
SendValue = SendValue & "Content-Disposition: form-data; name=""FILE1""; filename=""" & FileDirPath & """" & vbCrLf
SendValue = SendValue & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf
SendValue = SendValue & "2,00001,0000000002,00000, ,2006-03-18 13:15:45,00000, , ,02,2006-03-18 13:15:45" & vbCrLf & vbCrLf & vbCrLf
SendValue = SendValue & "-----------------------------boundary--" & vbCrLf

HttpRequest.send (SendValue)
1

スキルアップ/キャリアアップ(JOB@IT)