Hallo zusammen,
ich werde hier gleich raschelig. Möchte eine
TCP-Verbindung aufbauen und haben erstmal zu Testzwecken ein kleinen Proggi gemacht. Das Serverproggi hat ein TServerSocket und wird schon zur Entwicklungszeit auf Active gesetzt. Einzige Ausführungzeile im OnClientRead:
Socket.SendText('angekommen');
Der Client hat ein TClientSocket und festen Host und festen Port. Er wird beim Programmstart geöffnet und beim Programmende geschlossen. Auf einem Button liegt das Kommando:
ClientSocket.SendText('hallo')
Zusätzlich gibt es für den Client noch ein OnRead:
MessageDlg(Socket.ReceiveText,mtInformation,[mbok],0);
Funktioniert genau 1x! Ich drücke den Button, bekomme die Meldung. Wenn ich den Button nochmal drücke passiert nichts mehr. Habe dann auf dem serverprogramm auf dem OnClientRead einen Breakpoint gesetzt. Beim ersten Mal nach dem Connect durch den Client kommt die Meldung beim Server an - das zweite Hallo läuft nicht mehr auf den Breakpoint.
Hat jemand eine Idee, was ich falsch mache?
cu easywk