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

AT_X

Member
Joined
May 30, 2006
Messages
26
Reaction score
12
Location
Kazahstan
Помогите пожалуйста, как осуществить средствами Delphi7 отправку и получения файлов и сообщений на(и от) сервер(Internet).:confused:
 

van4ello

Member
Joined
Nov 12, 2005
Messages
69
Reaction score
14
Location
ukraine
  1. Использовать стандартный компонент TcpClient (Sockets) вкладка Internet:
    • a. SendStream;
    • b. SendTo;
    • c. SendBuf.
    Я думаю проще всего будет использовать вариант а:
    Code:
    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

Member
Joined
May 30, 2006
Messages
26
Reaction score
12
Location
Kazahstan
А есть возможность, ответа сервера клиенту. И что бы не загружать сервер.
 

van4ello

Member
Joined
Nov 12, 2005
Messages
69
Reaction score
14
Location
ukraine
Надо посмотреть свойства,методы и события:) компонента,просто пишешь имя компонента сокета-клиента и жмешь Ctrl+F1 - откроется контекстная справка по этому компоненту.
Также можно просмотреть список доступных свойств и параметров поставив точку после имени.
Подробней сказать не могу,не сталкивался;)
 

FractalizeR

Member
Joined
Sep 7, 2007
Messages
31
Reaction score
2
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;
 
Top