Methodenzeiger Deklarieren, wenn keine Form vorhanden ist?

[magicshadow]

Jop, schon klar aber bei mir heißt dieser Parameter nicht self sondern Sender (Wie std. in Delphi 5) hab jetzt übrigens raus wie's funktioniert!

erst:

Delphi-Quellcode:

TMSWSocket = class(TWSocket)
procedure WSDataAvailable(Sender: TObject; Error: Word);
private
rcvtext  : Ansistring;
end;

function GetURL(URL:Ansistring):ansistring;

implementation

procedure TMSWSocket.WSDataAvailable(Sender: TObject; Error: Word);
var a:AnsiString;
    ws1:TMSWSocket;
begin
ws1:=TMSWSocket(Pointer(sender));
a:=ws1.ReceiveStr;
if a<>'' then ws1.rcvtext:=ws1.rcvtext+a else
end;

und dann aufrufen mit:

Delphi-Quellcode:

function GetURL(URL:Ansistring):ansistring;
var WS:TMSWSocket;
begin
ws:=TMSWSocket.Create(nil);
ws.OnDataAvailable:=ws.WSDataAvailable;
//...
end;

Trotzdem ein großes Danke!

MfG
magicshadow

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[Motzi]

Ja, diese Methode hab ich in meinem ersten Posting auch schon erwähnt :

Zitat:

Ansonsten kannst du dir ja eine eigene Klasse schreiben, die die entsprechenden Methoden für die Event-Handler hat...

Zur "Nicht-Methoden-Variante": der Parameter "Sender" bleibt auch ganz normal erhalten, das einzige das dazukommt ist der zusätzliche Parameter "Self" der VOR dem Parameter "Sender" deklariert sein muss... Aber egal, hast es jetzt ja eh mit einer Methode gemacht

[magicshadow]

sorry, wußte nicht was du damit meinst, na ja, learning by doing!

Also kommt doch noch was dazu, na werd ich in meinem Gehirn für später verbuchen