hi
bin noob auf dem proggengebiet und beschäftige mich grade mit kleinen server/client verbindungen. hab mir da ein tutorial angeguggt, was auch fast fehlerfrei funktioniert.
aber um ebend diese fehler zu beseitiegen brauch ich etwas mehr kommunikation zwischen server und client.
server quellcode
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
label2.caption:=(Socket.ReceiveText);
ServerSocket1.Socket.Connections[0].SendText(label2.caption);
end; |
client quellcode zum senden
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.NachrichtanServersenden1Click(Sender: TObject);
begin
if ClientSocket1.Active then
ClientSocket1.Socket.SendText('Hallo Server');
end; |
client quellcode zum empfangen
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientSocket1.Socket.SendText(strtoint(x));
x:=x+1;
end; |
der client löst mit HALLO SERVER die prozedur auf dem server aus, welche als antwort den wert eines labels ausgibt. das label hat nur einen zahlenwert!!
der client soll diese label nun einen integer wert umrechnen.
da fängt schon das erste problem an. der client kann das nicht auslesen. warum nicht?
thx 4 help
jocom1029
Moderiert von 
UGrohne: Delphi-Tags hinzugefügt.
