отправка файла synapse

[Slimshaddy]

Доброго времени суток всем)

Есть вопрос: подскажите, пожалуйста, как можно средствами Synapse, организовать отправку файла на сервер. Раньше использовал инди (TIdMultipartFormDataStream+Post), решил отказаться, перейти на синапс. Все просто освоилось, только это. Как это реализовать в синапсе?

[Slimshaddy]

ну или подскажите альтернативные компоненты или способы отправки файла

[ingushmen]

var
FormData : TIdMultiPartFormDataStream;
Response,url,server,r,hash,rhash:string;
data:tstringlist;
begin
FormData := TIdMultiPartFormDataStream.Create;
FormData.AddFile('file1', '3.jpg', 'multipart/form-data');
Response := IdHTTP1.Post(url, FormData);
FormData.Free;
end;

конечно поздно, но я сюда попал через гугл и надеюсь кому-то пригодится...

[Человек_Борща]

1. Это не повод подымть древние темы.
2. Автор отказался от Indy, и просит реализацию на Synapse.
3. Коли я тут отписался, то подкину солюшен:
Используя THTTPSendEx файл можно отправить так же просто как и в Indy:

var
 HTTP:THTTPSendEx;
 Data:TMultipartFormDataStream;
 sHTML:string; //Recived HTML code from web
begin
 HTTP:=THTTPSEndEx.Create;
 Data:=TMultipartFormDataStream.Create;
 try
  Data.AddFile('myFile','Path to the local file(No UNC paths)');
  Data.DataEnd;
  if HTTP.Post('',Data,sHTML) then
  begin
  //Connection established
  //Check HTTP response
  if HTTP.IsSuccessfull then  //HTTP returns "200 OK" code.
  begin
    ShowMessage('File successfully posted to the server.');
  end;
  end else
  begin
   ShowMessage('Can not establish a connection to the server...'+#13+'Network is not avaliable or server socket does not exist.');
  end;
 finally
   FreeAndNil(HTTP);
   FreeAndNil(Data);
 end;
end;