Автор: MartS Среда, 28 Марта 2007, 0:28
на 1 зверька я написал портмэп....а как сделать чтобы для каждого нового зврея заводилась чтото типа сессии...(Delphi)
Код
public
tempsocket:tcustomwinsocket;
procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket1.Active :=true;
tempsocket:=socket;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket2.Socket.Sendtext(socket.ReceiveText );
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
tempsocket.SendText(socket.ReceiveText);
end;