Fórum Enviando dados via HTTP #514903

var
 params: TIdMultipartFormDataStream;
 ss: TStringStream;
 begin
 try
 //criando os parametros
 params := TIdMultiPartFormDataStream.Create;
 //enviando
 params.AddFormField('nome', 'Ricardo');
 params.AddFormField('sobrenome', 'Gavira');
 
//vc pode enviar uma imagem via Stream usando o AddObject, onde
 DataStream é o AnsiString da Imagem
 
DataStream := 'BM>......';
 ss := TStringStream.Create(DataStream);
 params.AddObject('minhaImagem', 'image/bmp', ss);
 
//ou então enviar qualquer arquivo usando o AddFile, inclusive uma
 imagem. Não esqueça de informar o
 //encType correto
 params.AddFile('ass', 'c:\temp\imagem.bmp', 'image/bmp');
 
IdHTTP.Request.CustomHeaders.Clear;
 IdHTTP.Request.Clear;
 IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
 IdHTTP.Request.ContentEncoding := 'multipart/form-data';
 //aqui no caso estou mandando para uma servlet, mais pode ser para
 qualquer servidor (php, asp, delphi, etc)
 IdHTTP.Post('<a href="http://www.google.com/url?sa=D&q=http://192.168.10.100:8080/MinhaServlet%27" rel="nofollow" target="_blank">http://192.168.10.100:8080/MinhaServlet'</a>, params));
 except
 end;
 
FreeAndNil(params);
 FreeAndNil(ss);