F PIETTE's til LRJ

her kan du få dem:

daejml@post7.tele.dk

Undskyld men jeg ved ikke hvad du tror du svare på, men det er en fortsættelse af et andet spørsmål som "LRJ" - personen - har et svar til... såh...

Hej igen. Følgende er nupset fra support-mailing listen:

This is correct. In your OnClose event [for socket komponenten] you have to post a windows message. In your message handler you can safe destroy the sockets.


const WM_CLOSECLIENT = WM_APP + 1;

//*********

procedure TProxyClient.RemoteClosed(Sender: TObject; Error: Word);
begin
// Sender is RemoteSocket which is needed to be closed
PostMessage(Form1.Handle, WM_CLOSECLIENT, integer(Sender), 0);
end;

/*************
var
  form1= TForm
  ...
  procedure WmCloseClient(var msg: TMessage); message WM_CLOSECLIENT;

...

procedure TForm1.WmCloseClinet(var msg: TMessage);
begin
  TProxyClient(msg.WParam).Free;  //frigiv komponenten - nu er det nemlig sikkert.
end;


Bemærk at eksemplet er fra en proxy-server, men fremgangsmåden er den samme. TProxyClient er nedarvet fra en WSocket, og opfører sig derfor på samme måde som en sådan.

Spørg hvis du har problemer med løsningen ;o)

Jeg siger mange tak :) for nu.. jeg ser forøvrigt vi har noget tilfælles.. jeg er DM studerende 5. sem. i Aalborg :)

Jeg prøver det... later...

Snakkes :)

/Laust
ICQ# 759102

Lrj -

hvis det nu ikke er en visuel component man bruger, og ikke i en Form, men i sin egen klasse.. hvad så med den Form1.Handle - hvad gør man ved den? /hvad skal man bruge der.. :)

Jeg har lige en ting mere... den declaration i "form1" virker ikke helt - den siger ihvertfald error in declaration...