idhttp上传文件的问题?
var
response: TStringStream;
MMPFDS: TIdMultiPartFormDataStream;
idhttp1: TIDhttp;
begin
if OpenDialog1.Execute then
begin
MMPFDS := TIdMultiPartFormDataStream.Create;
response := TStringStream.Create('');
idhttp1 := TIDhttp.Create(nil);
MMPFDS.AddFile('file1', OpenDialog1.FileName, 'multipart/form-data'); //
idhttp1.Request.ContentType := MMPFDS.RequestContentType;
MMPFDS.Position := 0;
try
idhttp1.Post('http://119.119.119.69/upload/upload.asp', MMPFDS, response);
finally
showMessage(response.DataString);
MMPFDS.Free;
response.Free;
idhttp1.Disconnect;
idhttp1.Free;
end;
end;
end;
在上传文件的第一行总是加了"ntent-Transfer-Encoding: binary" 导致文件打不开