Ok also ich habe jetzt mal einfach mal eine TcpServer - Komponente und eine
Tcp Client Komponente eingebaut, hier mal der Source Code(dann ist es leichter zu erklären was ich will):
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TCPServer1.localport:='5000';
TCPServer1.active:=true;
end;
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var s:string;
begin
s:= Clientsocket.Receiveln;
Showmessage(s);
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
var who:string;
begin
If radiogroup1.itemindex=0 then who:='Gelb';
If radiogroup1.itemindex=1 then who:='Rot';
TCPClient1.RemoteHost:=edit1.Text;
TCPClient1.RemotePort:='5000';
if TCPClient1.connect then
begin
TCPClient1.Sendln(who) ;
TCPClient1.Disconnect ;
drawgrid1.Enabled :=false;
end;
end;
Nun ja ich möchte jetzt im OnAccept-Event des Servers dem Programm irgendwie klar machen wer die rote Farbe hat und wer die Gelbe. Wie kann ich erörtern wer wer ist um eben zu sagen der nimmt die rote Farbe und der andere die Gelbe? das is mir einfach nicht klar...
Mfg Entropie