[delphi6] component gebaseerd op tserversocket

[THIJZEL]

Ik ben 2 componenten aan het schrijven om files te verzenden ( 1 client gebaseerd op tclientsocket én een server gebaseerd op tserversocket).

Nu wil ik in de server op het moment dat er data binnenkomt natuurlijk laten reageren.

nu heb ik het volgende stukje code geschreven:

Delphi:

  public
    constructor Create(AOwner: TComponent); override;
    Procedure Clientread(Sender: TObject;

..

constructor ttransferserver.Create(AOwner: TComponent);
begin
        inherited create(AOwner);
        socket.OnClientRead := clientread;
end;


Procedure ttransferserver.Clientread(Sender: TObject; Socket: TCustomWinSocket);
begin
        showmessage('YEESSSS!!');
end;

alleen nu word ttransferclient.clientread niet aangeroepen als ik data zend..
terwijl het event onclientread in mijn hoofdprogramma wel aangeroepen word..

kan iemand me hiermee helpen?

[Verwijderd]

Ik vraag me af of je showmessage zo wel kan gebruiken, als je nu eens een error op laat komen als hij daar komt?

[THIJZEL]

hoezo? ik gebruik showmessage al tijden zo, als ik er een breakpoint op zet komt hij er ook niet.

Hij doet het nu trouwens wel, ik heb het al gevonden!!

iig bedankt