nonVCL Fehler mit OnRead von clientsocket

[gandime]

Hi,
ich versuche die OnRead property von Tclientsocket zum laufen zu bringen mein bisheriger versucht:

Delphi-Quellcode:

type
  clsocket = class
      procedure onread(Sender: TObject; Socket: TCustomWinSocket);
   end;

var
  cl:tclientsocket;

procedure onread(Sender: TObject; Socket: TCustomWinSocket);
var
  s_temp:string;
begin

end;

procedure clsocket.onread(Sender: TObject; Socket: TCustomWinSocket);
begin
  onread(Sender,Socket);
end;

begin
  clsocket.create;
  cl.OnRead:=clsocket.onread;// Fehlermeldung: Inkompatible Typen: 'TSocketNotifyEvent' und 'Procedure'
end.

was mache ich falsch?

mfg
gandime

[Die Muhkuh]

Hi,

1. Fehler ist, dass man Objekte nicht mit <varname>.Create erzeugt, sondern mit <varname> := <Klassenname>.Create, also bei Dir:

cl := clsocket.Create 2. Schau Dir in den Sourcen mal die OnRead-Procedure an, genau so muss Du diese auch implementieren.

[gandime]

also das funktioniert auch nicht:
cl := clsocket.Create fehlermeldung:

Zitat:

Inkompatible Typen: 'TClientSocket' und 'clsocket'

im source bin ich dann auf folgenden gestoßen und wie baue ich das jetzt richtig ein?
TSocketNotifyEvent = procedure (Sender: TObject; Socket: TCustomWinSocket) of object;

[Muetze1]

Zitat von gandime:

also das funktioniert auch nicht:
cl := clsocket.Create fehlermeldung:

Zitat:

Inkompatible Typen: 'TClientSocket' und 'clsocket'

Ist doch vollkommen richtig. Du hast 2 Klassen: TClientSocket und clsocket. Du brauchst von beiden die Instanz und die willst du beide in eine Variable packen?

Also: Wo legst du die Instanz von TClientSocket ab? Grundlegend würde sich ja die Variable cl eignen, da sie schon den richtigen Typ hat. Dann bleibt noch die Frage wo du die Instanz von clsocket ablegen willst.

[sirius]

1. Wieso nonVCL?

2. Wenn ich das richtig verstehe, willst du einfach nur das Ereignis OnRead einer Methode zuweisen.
Dazu brauchst du irgendeine Klasse (die sicherlich noch mehr machen wird als nur OnRead) und setzt die property von onRead auf eine Methode mit der entspr. Deklaration:

Delphi-Quellcode:

type TSampleClass=class
        constructor create;
        destructor destroy; override;
        procedure DoOnread(Sender: TObject; Socket: TCustomWinSocket);
       private
        clientSocket:Tclientsocket;
end;

//...
constructor TSampleClass.create;
begin
  inherited;
  clientsocket:=Tclientsocket.create;
  clientsocket.OnRead:=DoOnRead;
end;
destructor TSampleClass.Destroy;
begin
  clientsocket.free;
end;

procedure TSampleClass.Doonread(Sender: TObject; Socket: TCustomWinSocket);
begin
   // hier kannst du jetzt das Ereignis handhaben
end;

[gandime]

danke