有的。
USES
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
IdMultipartFormData,IdGlobal;
function TfraMfFillCL.PostFileToURL(AURL:string;AFile:string):Boolean;
var
ss:TStringStream;
HttpClient :TIdHttp;
MutPartForm :TIdMultiPartFormDataStream;
ls:String;
begin
SS := TStringStream.Create('');
HttpClient := TIdHttp.Create(Self);
MutPartForm := TIdMultiPartFormDataStream.Create;
try
MutPartForm.AddFormField('cu_no', 'my888');
ls := ExtractFileName(AFile);
MutPartForm.AddFormField('filename',ls);
MutPartForm.AddFile('data', AFile,GetMIMETypeFromFile(ls));
HttpClient.Post(AURL, MutPartForm, SS);
ls := SS.DataString;
finally
SS.Free;
HttpClient.Free;
MutPartForm.Free;
end;
end;