Zuweisen eines Events?!

[Berlinermauer]

Ja hallo Leute,

ich habe ein Problem, und zwar wollte ich einem ClientSocket ein OnRead Event zuweisen.

Das Problem dabei ist, dass ich nicht via GUI auf die kompo zugreifen kann.


Um sicherzugehen, hab ich eine extra Anwendung gemacht _falls_ es an meiner DLL gelegen hätte.

Hier mal der Code, compiled ohne Fehler aber funktionier nicht

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  ScktComp,
  SysUtils;


type
  TMyCLSOCKET = class(TClientSocket)
  public
    procedure CLSockRead(Sender: TObject; Socket: TCustomWinSocket);
end;

var
CLientSocket: TMyClSocket;
ClSock: TClientSocket;

procedure TMyClSocket.ClSockRead(Sender: TObject; Socket: TCustomWinSocket);
var
MSG: String;
begin
  MSG := Socket.ReceiveText;
  WriteLn(MSG);
end;

begin
try
   ClientSocket := TMyClSocket.Create(nil);
   ClSock := TClientSocket.Create(nil);

   CLSock.Port := 6667;
   ClSock.Host := 'irc.quakenet.org'; // Weil IRC schreibt mir was
   ClSock.OnRead := ClientSocket.CLSockRead;

   ClSock.Active := true;

   ClSock.Socket.SendText('USER Testelphi 0 * : Testelphi ' + #13#10);
   ClSock.Socket.SendText('NICK Testelphi ' + #13#10);
   Sleep(50000);
except
    on E:Exception do begin
      Writeln(E.Classname, ': ', E.Message);
      Sleep(20000);
    end;
  end;
end.