[delphi 6] events afvangen in een component

[THIJZEL]

hey,

Ik ben een eigen component aan het schrijven gebaseerd op tclientsocket, Nu wil ik de onread procedure afvangen om de component te laten reageren op bepaalde strings die hij received.

dus als bv

code:

if socket.receivetext = 'next' then dosomething;

ik heb uit de help inmiddels ong begrepen dat ik de onread property moet overriden, maar dit wil me niet echt lukken..

ik heb nu

code:

  protected
    procedure onRead; override;
    { Protected declarations }

..

procedure Ttransferclient.onread;
begin
        inherited onread;
        if socket.receivetext = 'next' then
        begin
                sendnext;
        end;
end;

alleen hij kent onread niet zegt hij,


volgens de help heeft tclientsocket wel een onread event..

[ Voor 38% gewijzigd door THIJZEL op 22-04-2003 15:28 ]

[Kool]

De OnRead moet wel exact dezelfde definitie hebben. En even uit m'n hoofd is deze dat niet. Je mist de parameters volgens mij.

[LordLarry]

OnRead is een event property, niet een methode die je kan overriden. Meestal is er bij elke OnXxxx event ook een DoXxxx virtuele methode die je kan overriden. Deze zoek je. Je event blijft dan nogsteeds beschikbaar voor de buitenwereld en toch kan de afgeleide reageren op het event.

Als je veel veranderingen wilt aanbrengen in je eigen afgeleide is het ook niet een gek idee om dan geen afgeleide te maken, maar een nieuwe wrapper om het component heen.

[THIJZEL]

hmz, doread bestaat ook niet,

hoe kan ik er achter komen hoe deze dan heet?

[Creepy]

THIJZEL schreef op 22 April 2003 @ 21:47:
hmz, doread bestaat ook niet,

hoe kan ik er achter komen hoe deze dan heet?

In de source kijken van het object
Wat mij meestal opvalt is dat bij de standaard objecten die bij Delphi worden meegeleverd er bij een onXXX er een method genaamd XXX is (dus zonder de do).

[THIJZEL]

da's ook vaag, in de source ( ..\dephi6\source\internet\sockets.pas) staat nergens een onread ( text search niet te vinden..) terwijl als ik in mijn app kijk bij de property's van mijn component dan zie ik wel onread enz staan

dit zie ik wel in die source:

code:

    property SockType: TSocketType read FSockType write SetSockType default stStream;
    property OnCreateHandle: TSocketNotifyEvent read FOnCreateHandle write FOnCreateHandle;
    property OnDestroyHandle: TSocketNotifyEvent read FOnDestroyHandle write FOnDestroyHandle;
    property OnError: TSocketErrorEvent read FOnError write FOnError;
    [b]property OnReceive: TSocketDataEvent read FOnReceive write FOnReceive;[/b]
    property OnSend: TSocketDataEvent read FOnSend write FOnSend;
  end;

maar op onreceive of fonreceive reageerd hij ook niet.....

[ Voor 7% gewijzigd door THIJZEL op 22-04-2003 22:35 ]

[Tomatoman]

Als je OnRead in Delphi Help had ingetypt, had je in een seconde geweten dat het een event is van TCustomSocket en gedefinieerd is als

Delphi:

property OnRead: TSocketNotifyEvent;

type
  TSocketNotifyEvent = procedure(Sender: TObject;
    Socket: TCustomWinSocket) of object;

[THIJZEL]

maar nu snap ik nog niet hoe ik nou de onread event van die tcustomwinsocket kan afvangen, deze is toch de basis van de tclientsocket?

[ Voor 4% gewijzigd door THIJZEL op 22-04-2003 23:34 ]

[CyeZ]

Als je die OnRead wilt overriden in een afgeleide component moet je even kijken naar de Event procedure in TCustomSocket. Hierin worden alles events van het TCustomSocket event in 1 functie afgevangen.

Delphi:

procedure TCustomSocket.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent);
begin
  case SocketEvent of
    seLookup: if Assigned(FOnLookup) then FOnLookup(Self, Socket);
    seConnecting: if Assigned(FOnConnecting) then FOnConnecting(Self, Socket);
    seConnect:
      begin
        FActive := True;
        if Assigned(FOnConnect) then FOnConnect(Self, Socket);
      end;
    seListen:
      begin
        FActive := True;
        if Assigned(FOnListen) then FOnListen(Self, Socket);
      end;
    seDisconnect:
      begin
        FActive := False;
        if Assigned(FOnDisconnect) then FOnDisconnect(Self, Socket);
      end;
    seAccept: if Assigned(FOnAccept) then FOnAccept(Self, Socket);
    seRead: if Assigned(FOnRead) then FOnRead(Self, Socket);
    seWrite: if Assigned(FOnWrite) then FOnWrite(Self, Socket);
  end;
end;

Je zou dus in je child functie zoiets kunnen maken:

Delphi:

procedure TThijzelSocket.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent);
begin
  case SocketEvent of
    seRead: <doe maar wat geks>
    else begin 
      inherited Event(Socket,SocketEvent);
    end;
  end;
end;

[THIJZEL]

het werkt,


ik snap het nog niet helemaal, maar het werkt dus ik vind het nu wel uit..


iig iedereen bedankt!

[THIJZEL]

waar kan ik precies de sources vinden van die tcustom socket en de tcustom serversocket?

[LordLarry]

Je kan toch zien in de help of in je eigen unit welke unit de code staat?

[THIJZEL]

Nu heb ik een volgend probleem:

Ik heb een andere component gebaseerd op tserversocket, welke ook afstamt van tcustomwinsocket ..

Deze gebruikt ook de procedure event, en als ik connect dan word deze procedure ook gestart. SocketEvent heeft dan ook bv de waarde selookup.

alleen als ik van een andere socket naar deze serversocket schrijf dan word de procedure event niet gestart, terwijl die gestart zou moeten worden en dan socketevent de waarde SEread zou moeten meegeven...

Weet iemand hoe dat kan, bij de clientsocket werkt dit namelijk wel.

[ Voor 20% gewijzigd door THIJZEL op 23-04-2003 13:27 ]

[LordLarry]

Weet je wat polymorphisme is? Ik denk namelijk dat je de functie niet geoverride hebt, maar gewoon overschreven.

[THIJZEL]

de volgende code heb ik:

code:

 protected
    //procedure doclientread; override;
    procedure read(Socket: TCustomWinSocket; SocketEvent: TSocketEvent); override;
    { Protected declarations }

..

procedure Ttransferserver.event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent);
begin
  case SocketEvent of
    seRead: readdata(socket);
     else begin
      inherited Event(Socket,SocketEvent);
    end;
  end;
end;

ik weet alleen niet om eerlijk te zeggen waar voor die inherited dient als socketevent geen SEread is..

[LordLarry]

Das bestwel essentieel en misschien moet je maar eens een boek lezen of klassen en polymorphisme. Ik zou persoonlijk wel altijd de inhertied in dit geval aanroepen, maar het is niet de oorzaal van dit probleem wat je hebt.

Het kan zijn dat iemand een nieuwe server socket creeerd en daarbij niet jouw afgeleide gebruikt.

[THIJZEL]

ik zit te bladeren in de source van die customwinsocket en die customwinserversocket maar ik snap het niet helemaal,

wat doet hij hier nou??

code:

procedure TServerClientThread.DoRead;
begin
  ClientSocket.ServerWinSocket.Event(ClientSocket, seRead);
end;

[THIJZEL]

CyeZ schreef op 22 april 2003 @ 23:33:
Als je die OnRead wilt overriden in een afgeleide component moet je even kijken naar de Event procedure in TCustomSocket. Hierin worden alles events van het TCustomSocket event in 1 functie afgevangen.

Delphi:

procedure TCustomSocket.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent);
begin
  case SocketEvent of
    seLookup: if Assigned(FOnLookup) then FOnLookup(Self, Socket);
    seConnecting: if Assigned(FOnConnecting) then FOnConnecting(Self, Socket);
    seConnect:
      begin
        FActive := True;
        if Assigned(FOnConnect) then FOnConnect(Self, Socket);
      end;
    seListen:
      begin
        FActive := True;
        if Assigned(FOnListen) then FOnListen(Self, Socket);
      end;
    seDisconnect:
      begin
        FActive := False;
        if Assigned(FOnDisconnect) then FOnDisconnect(Self, Socket);
      end;
    seAccept: if Assigned(FOnAccept) then FOnAccept(Self, Socket);
    seRead: if Assigned(FOnRead) then FOnRead(Self, Socket);
    seWrite: if Assigned(FOnWrite) then FOnWrite(Self, Socket);
  end;
end;

maar waarom zou Event niet angeroepen worden wanneer een Tserversocket data ontvangt? deze is toch ook gebaseerd op tcustomwinsocket..