作者TKyo (暗黑贵公子)
看板Programming
标题Re: [问题] Http file upload 问题
时间Thu Jun 5 17:17:50 2008
※ 引述《ffrr (冰色太阳)》之铭言：
: 附上原始码
: http://rafb.net/p/rBFYPm71.html
: 暂时是用免空做上传测试
: 目前上传纯文字档都OK
: 但是上传其他格式的档案後,下载後都无法成功开启
: 肯定是SOMETHING WRONG
: 不知道是HEADER 或是 POSTDATA 格式出错
: 还是根本就用错方法 ○|￣|＿
: 请高手指点一下吧
用错方法
传送 Binary 档案, 就是
有什麽就读什麽, 不需要使用 StrConv() 做 Unicode 转换
而且
不可以用 String 来存放, 请用 Byte 阵列或是 Variant 存放
所以, 底下我只改一半, 剩下另一半你自己改
Dim sFormData() as Byte, d As Variant
GetFile(sFormData, FileName)
Function GetFile(ByRef FileContents() As Byte, FileName As String)
Dim FileNumber As Integer
ReDim FileContents(FileLen(FileName) - 1)
Open FileName For Binary As FileNumber
Get FileNumber, , FileContents
Close FileNumber
End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 58.86.136.1