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]