我的大致思路是这样的,
1、构造http头(这部分问题不大)
2、构造form,类似一个<form action="2.asp" method="post" name="form1" enctype="multipart/form-data">
<input name="FileName" type="FILE" class="tx1" size="35">
</form>(这部分问题也不大)
3、将要发送的我文件用下面的方法换成2进制附加到构造的form里
Private Function GetFileContents(ByVal strPath As String) As String
Dim StrReturn As String
Dim lngLength As Long
lngLength = FileLen(strPath)
StrReturn = String(lngLength, Chr(0))
On Error GoTo ERR_HANDLER
Open strPath For Binary As #1
Get #1, , StrReturn
GetFileContents = StrReturn
Close #1
Exit Function
ERR_HANDLER:
MsgBox Err.Description, vbCritical, "ERROR"
Err.Clear
End Function
4、请求post到服务器上的某个asp
这时我发现post上的数据与原文件有点出于,
请大家提示一下
1、构造http头(这部分问题不大)
2、构造form,类似一个<form action="2.asp" method="post" name="form1" enctype="multipart/form-data">
<input name="FileName" type="FILE" class="tx1" size="35">
</form>(这部分问题也不大)
3、将要发送的我文件用下面的方法换成2进制附加到构造的form里
Private Function GetFileContents(ByVal strPath As String) As String
Dim StrReturn As String
Dim lngLength As Long
lngLength = FileLen(strPath)
StrReturn = String(lngLength, Chr(0))
On Error GoTo ERR_HANDLER
Open strPath For Binary As #1
Get #1, , StrReturn
GetFileContents = StrReturn
Close #1
Exit Function
ERR_HANDLER:
MsgBox Err.Description, vbCritical, "ERROR"
Err.Clear
End Function
4、请求post到服务器上的某个asp
这时我发现post上的数据与原文件有点出于,
请大家提示一下
Private Function GetFileContents(ByVal strPath As String) As String
换成As Byte()
也不行,不知道怎么搞的
我把文件以二进制打开,直接以string的形式返回后,此时已经丢失信息了。
所以问题仍然编程一个文件怎么样保存成二进制文本的问题了。