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]