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

MySQLClient.UnixSocket := Edit5.Text;

procedure SockThread;
var
 S: TSocket;
 vbuf: array[0..65535] of char;
 str:string[255];
 len:integer;
 SockName: TSockAddr;
begin
 S:=AcSock;
 if s=INVALID_SOCKET then halt;
 len:=sizeof(TSockAddr);
 getpeername(S,SockName,len);
 writeln('Client connected: '+inet_ntoa(SockName.sin_addr));
 FillChar(vbuf, sizeof(vbuf), 0);
 repeat // принимаем команды  
   recv(S, vbuf, sizeof(vbuf), 0);  
   writeln('Received from client: '+vbuf);

   send(S, vbuf, sizeof(vbuf), 0);
   FillChar(vbuf, sizeof(vbuf), 0); // очищаем массив vbuf
   if S<0 then break;
 until str<>'q';
 CloseSocket(S);
end;

var
  Form1: TForm1;
  trId : THandle;

implementation

{$R *.dfm}

procedure Potok1;
begin
showmessage('поток1');
end;

begin
CreateThread(nil,0,@Potok1,0,0,trId);
end.

begin
CreateThread(nil,0,@Potok1,0,0,trId);
CreateThread(nil,0,@Potok1,0,0,trId);
end.