110,499
社区成员
发帖
与我相关
我的任务
分享
byte[] Docbuffer = Request.BinaryRead(Request.TotalBytes);
FileStream objFS = new FileStream(Server.MapPath("1.txt"), FileMode.Create);
BinaryWriter objBW = new BinaryWriter(objFS);
objBW.Write(Docbuffer);
objBW.Close();
objFS.Close();
procedure SendPostData;stdcall;
Const
CRLF = #13#10;
var
Source: TMemoryStream;
Source1: TMemoryStream;
Response: TStringStream;
S,s1: String;
begin
Screen.Cursor := crHourGlass;
try
form1.HTTP.Request.Username := '';
form1.HTTP.Request.Password := '';
//HTTP.Request.ProxyServer := '';
form1.http.Port:=80;
form1.HTTP.Request.ContentType := 'multipart/form-data';
//form1.HTTP.Intercept := form1.LogDebug;
//http.InterceptEnabled
//HTTP.InterceptEnabled := true;
Response := TStringStream.Create('');
try
S := '-----------------------------7cf1d6c47c' + CRLF +
'Content-Disposition: form-data; name="file1"; filename="'+filename+'"'+CRLF +
'Content-Type: application/octet-stream' + CRLF + CRLF;
//上传文件内容
s1:='file one content. Contant-Type can be application/octet-stream or if'+
'you want you can ask your OS fot the exact type.' + CRLF +
'-----------------------------7cf1d6c47c' + CRLF + //分界符,用于分隔表单(Form)中的各个域
'Content-Disposition: form-data; name="text1"' + CRLF + CRLF +
'hello2' + CRLF +
'-----------------------------7cf1d6c47c--';
//提交的下一个表单内容域的内容
s1:=CRLF +'-----------------------------7cf1d6c47c' + CRLF +
'Content-Disposition: form-data; name="text1"' + CRLF + CRLF +
'hello2' + CRLF +
'-----------------------------7cf1d6c47c--';
Source := TMemoryStream.Create;
Source1 := TMemoryStream.Create;
Source1.LoadFromFile(filename);
Response:=TStringStream.Create('') ;
Response.CopyFrom(source1,source1.Size);
s:=s+Response.DataString;//因为只能传字符串
Source.Position :=0;
Source.Write(s[1],length(s));
Source.Position :=source.Size ;
Source.Write(s1[1],length(s1));
Response.Position :=0;
try
form1.HTTP.Post(form1.cbURL.Text, Source, Response);
finally
Source.Free;
end;
finally
Response.Free;
end;
finally
Screen.Cursor := crDefault;
end;
end;