on client read

[Karg]

hi @ all,
ich bin neu hier und muss sagen, dass board gefällt mir überaus gut.

Jetzt aber zu meinem problem:
ich hab einen server und einen client erstellt und der client sendet dem server einen text zu.

Der server liest den text dann mit onclientread aus und zeigt ihn per showmessage.

Das funktioniert auch prima, nur kommt nicht nur der gesendete text, sondern es öffnen sich noch mehrere fenster, in denen einzelne buchstaben oder ziffern stehen.

Wie kommen die zustande und wie krieg ich das weg.

hier mal der code:

server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
//application.showmainform:=false;
clientsocket1.port:=2000;
clientsocket1.host:='mille.no-ip.info';
clientsocket1.active:=true;
timer1.enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (clientsocket1.Socket.Connected=false)
   then clientsocket1.active:=true
   else timer1.enabled:=false;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
errorcode:=0;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
clientsocket1.Socket.SendText('test');
end;

client:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.port:=2000;
serversocket1.active:=true;
end;



procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
errorcode:=0;
showmessage('fehler');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
showmessage(socket.receivetext);
end;

[edit=SirThornberry]Programmiersprache und Titel korrigiert - Mfg, SirThornberry[/edit]