hi @ all,
ich hab eine frage und zwar hab eine reverse connection gebaut.
Dem server sag ich dann, dass er einen text dem client zuschicken soll, sobald die verbindung steht.
Den text lass ich dann anzeigen mit (showmessage). Das funktioniert auch, nur kommt leider nicht nur der text, sondern öffnen sich mehrere messagefelder in denen einzelne zahlen oder zeichen stehen.
Ich versteh nicht warum!!!!
kann mir da jemand helfen????
hier mal der code
client:
server:Code: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;
Code: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;
