TClientSocket Socket wird nicht freigegeben

[Einhorn]

Hi,

sorry.... die Codeschnipsel habe ich vergessen.

Prinzipiell relativ einfach:

Erzeugen des Clients:

DrClient := TClientSocket.Create(nil);
[..]
DrClient.Address := sDrucker_IP ;
DrClient.Port := iServer_Port;
DrClient.ClientType := ctNonBlocking;
[..]
// Lokale Proceduren zuordnen
DrClient.OnError := DrClientError ;
DrClient.OnConnect := DrClientConnect ;
DrClient.OnDisconnect := DrClientDisconnect ;
DrClient.OnRead := DrClientRead ;
DrClient.OnWrite := DrClientWrite ;
DrClient.OnConnecting := DrClientConnecting ;


[..]

Öffnen der Verbindung:

DrClient.Open;

Schließen der Verbindung:

DrClient.Close;





Die Verbindungen stehen im Status WARTEN bzw. WAIT

Hoffe, ich konnte mich verständlicher ausdrücken.

MFG

Ingo