Entwickler-Ecke
Internet / Netzwerk - Problem bei Client/Server-Anwendung mit Client/ServerSockets
juelin - Mo 24.12.07 15:28
Titel: Problem bei Client/Server-Anwendung mit Client/ServerSockets
hallo,
ich arbeite mit DELPHI 7.
Ich habe ein Clientprogramm IP:192.168.1.253 Port: 1212 PC 2
und ein Serverprogramm IP:192.168.1.254 Port: 1212 PC 1 geschrieben.
Die beiden Programme sollen miteinander kommuniziern und zwar asynchron.
Aber weder das Clientprogramm noch das Serverprogramm kommen jemals in
die Routine OnRead/OnClientRead obwohl der Client sendet.
Das Serverprogramm macht nur ein "ServerSocket1.Open;"
Das Clientprogramm macht "ClientSocket1.Open;" und "ClientSocket1.Socket.SendText('irgendwas');"
Hier die Logfiles:
Server:
Listen 2007-12-24 13:46:58
Get Socket 2007-12-24 13:47:37
Connect 2007-12-24 13:47:37
Open TCP 192.168.1.253
Accept 192.168
Client:
Lookup 2007-12-24 14:01:34
Connecting 2007-12-24 14:01:34
Connect 2007-12-24 14:01:50
Open TCP 192.168.1.254
Transmit 2007-12-24 14:01:50
Disconnect 2007-12-24 14:02:10
Close TCP 192.168.1.254
Was mache ich falsch?????
Am liebsten wäre mir ein Beispielprogramm.
Oder soll ich eine andere Komponete benutzen????
Danke und Gruss
Jürgen
Jerk - Mo 24.12.07 15:52
kleiner tipp wenn du 15 felder in einem Array den gleichen wert zuweist kannst du das auch so machen:
Delphi-Quelltext
1:
| for i :=1 to 15 do array[i]:='' |
Du musst auch nich vor jede Variable ein var schreiben, das geht auch so:
Delphi-Quelltext
1:
2:
3:
| var
a,b,c,d,e,f:Integer;
g,h,j,k,l : String; |
bei den ganzen Errorevent= dingern kann man auch case benutzen, das ganze auch bei den Mediaplayer teilen.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| case Errorevent of
eeGeneral:
begin
end;
eeSend:
begin
end;
...
end; |
Für nur eine Anweisung braucht man auch kein Begin
Delphi-Quelltext
1:
| if zeichen='a' then m:=1; |
Bei TForm.Nummer kannste auch einfach das machen:
Delphi-Quelltext
1:
| if (strtoint(zeichen) > -1) and (strtoint(Zeichen) < 10) then m:=1; |
Also ich blicke derzeit überhaupt nicht durch was da überhaupt passieren soll.
LorenzS - Mo 24.12.07 22:42
Narses wie ist das kennwort für deinen link?
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!
juelin hat folgendes geschrieben: