TIdMultiPartFormDataStream 这个D7(indy10)、XE5中都没有,十万火急请高人指教！！

Question

var
stream: TIdMultiPartFormDataStream;
IdHTTP1: TIdHTTP;
begin
stream := TIdMultiPartFormDataStream.Create;
stream.AddFile(tag_name, filename,GetMIMETypeFromFile(filename));
IdHTTP1.Post(URL,stream)
end;

上述功能有什么方法 可替代的吗（本人菜鸟）？？？或是这个
TIdMultiPartFormDataStream 有什么可替代的吗？？

Answer 1

有的。
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;