Как послать файлы или сообщения средствами Delphi 7 на сервер(Internet)!!!

[AT_X]

Помогите пожалуйста, как осуществить средствами Delphi7 отправку и получения файлов и сообщений на(и от) сервер(Internet).

 

[van4ello]

1. Использовать стандартный компонент TcpClient (Sockets) вкладка Internet:
   • a. SendStream;
   • b. SendTo;
   • c. SendBuf.
   Я думаю проще всего будет использовать вариант а:
   

   var file2host:TMemoryStream;
   begin
     file2host := TMemoryStream.Create;
     file2host.LoadFromFile('project1.exe');
     TcpClient1.SendStream(file2host);
     file2host.Free;
   end;

2. Использовать компонент Indy -> вкладка Indy Clients компонент IdTCPClient (IdTCPClient). Работать с ним тоже легко и просто, он аналогичен первому.

 

[AT_X]

А есть возможность, ответа сервера клиенту. И что бы не загружать сервер.

 

[van4ello]

Надо посмотреть свойства,методы и события компонента,просто пишешь имя компонента сокета-клиента и жмешь Ctrl+F1 - откроется контекстная справка по этому компоненту.
Также можно просмотреть список доступных свойств и параметров поставив точку после имени.
Подробней сказать не могу,не сталкивался

 

[FractalizeR]

www.indyproject.org - лучше Indy воспользоваться. Там и справка и примеры отличные.

//Building POST server request
HTTP := TIdHTTP.Create(Application);
Data := TIdMultiPartFormDataStream.Create;

//Adding file field
Data.AddFile('filefield', 'file.txt', 'multipart/form-data');
try
RequestResult := HTTP.Post(MainINIFile.ReadString('Main',
'HandlingScriptURL', ''), Data);
except
on E: Exception do
begin
ProcessError('Stream data send error: ' + E.Message, etCritical);
Exit;
end;
end;