moin!
habs jetzt mal mit einer klasse versucht, aber irgendwie funktionierts nicht.
Delphi-Quellcode:
unit UnitTBot;
interface
uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdIRC, IrcBlowfish, UnitTChannel,
Windows, Forms;
type
TBot =
class (TObject)
private
FIRCConn : TIdIRC;
public
procedure Connect();
constructor Create();
destructor Destroy;
end;
implementation
procedure Delay(Milliseconds: Integer);
//.... kennt ihr sicher ;)
Constructor TBot.Create;
begin
//nochnix
end;
procedure FOnMessage(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; Content:
String);
var text :
String;
begin
text := Content;
end;
procedure TBot.Connect;
begin
FIRCConn := TIdIRC.Create(
nil);
FIRCConn.OnMessage := FOnMessage;
FIRCConn.Username := '
hust';
FIRCConn.Nick := '
checkkx';
FIRCConn.Host := '
localhost';
FIRCConn.Port := 6667;
FIRCConn.Connect;
Delay(5000);
FIRCConn.Join('
#test');
end;
destructor TPreBot.Destroy;
begin
if FIRCConn.Connected
then
FIRCConn.Quit('
');
FIRCConn.Free;
inherited Destroy;
end;
end.
das blöde ist, in der zeile mit der zuweisung, "FIRCConn.OnMessage := FOnMessage;" gibts beim compilieren nen fehler:
"[Pascal Error] UnitTBot.pas(57): E2009 Incompatible types: 'method pointer and regular procedure'"
kann mir da jemand weiterhelfen?
danke