Форум АНТИЧАТ - Сервер и клиент [Delphi]

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Сервер и клиент [Delphi]

20.04.2010, 08:25

iGlass

Познающий

Регистрация: 14.05.2009

Сообщений: 92

Провел на форуме:
299447

Репутация: 5

Сервер и клиент [Delphi]

Нужно реализовать клиент-серверное приложение на Delphi с использование Winsock

Функционал очень прост

Вот кусок из клиента:

Код:

{...}
var
SendData:String;

Procedure SendData
 var
hSock:TSocket;
WSA:WSADATA
addr:TSockAddrIn; //Сомнения ведь столько всяких Addr'ов
 begin
 {...}
 send(hSock,@buf,0) 
end;

В буфер записываем какую нибудь строку и функции сенд отправляем буфер серверу, тот в свою очередь принимает строчку и сохраняет её в файл.

Вот кусок из сервера(он консольный)

Код:

program WServer;

{$APPTYPE CONSOLE}

uses
  Winsock,
  Windows,
  SysUtils;
type
  TWinsockServer = class(TObject)
  Private
    hSocket:  TSocket;
    Addr:     TSockAddrIn;
    wsaData:  TWSAData;
  Public
    procedure Connect;
    procedure ReceiveData(Sock: TSocket; Buffer:Char);

Подскажите как правильно сделать продцедуру получения данных?

Заранее всем спасибо!