Einzelnen Beitrag anzeigen

Unplugged

Registriert seit: 14. Apr 2004
Ort: Leipzig
125 Beiträge
 
Delphi 6 Enterprise
 
#1

IdIRC.OnReceive-Methode verknüpfen

  Alt 28. Dez 2004, 11:31
Delphi-Quellcode:
{$APPTYPE CONSOLE}

uses
  SysUtils,
// ...
  Classes;

type
  TServer=class(TIdIRC)
    Procedure logging(ACommand: String);
  end;
  Tirc = class(TThread)
  public
    procedure Execute; override;
  private
    IdIRC1 : TServer;
  end;

Var
  term_sign : Boolean = False;

procedure TServer.logging(ACommand: String);
Begin
  WriteLn(ACommand);
end;

procedure Tirc.Execute;
Var
  ACommand: String;
Begin
  IdIRC1 := TServer.Create(nil);
// IdIRC1.OnReceive := IdIRC1.logging; <<< der Fehler bzw. das Problem ;)
  IdIRC1.Host := '211.114.181.163';
  IdIRC1.Port := 8667;
  IdIRC1.Nick := 'test';
  IdIRC1.AltNick := 'test_';
  IdIRC1.RealName := 'B0t';
  IdIRC1.Username := 'B0t';
  try
    IdIRC1.Connect;
  except
    term_sign := true;
    WriteLn('Unknown error');
  end;

  repeat
    sleep(200);
  until term_sign;
end;

//....
Weiß jemand, wie ich die Methoden verknüpfen kann?

Derzeit kommt die Fehlermeldung, dass TObject und String nicht verknüpft werden können.
  Mit Zitat antworten Zitat