unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdCmdTCPClient, IdIRC, IdContext, ExtCtrls, shellapi, GIFImg;
type
TForm5 =
class(TForm)
IdIRC1: TIdIRC;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure IdIRC1Join(ASender: TIdContext; ANickname, AHost,
AChannel:
string);
procedure IdIRC1PrivateMessage(ASender: TIdContext;
const ANicknameFrom,
AHost, ANicknameTo, AMessage:
string);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
x:integer;
implementation
{$R *.dfm}
procedure TForm5.FormCreate(Sender: TObject);
begin
IdIRC1 := TIdIRC.Create(
nil);
IdIRC1.Host := '
irc.darkmyst.org';
IdIRC1.Port := 6667;
IdIRC1.Nickname := '
DDbot';
idIRC1.AltNickname := '
DDbot2';
IdIRC1.Username := '
DDbot';
IdIRC1.RealName := '
DDbot';
While not IdIRC1.Connected=true
Do
Begin
IdIRC1.Connect;
If not IdIRC1.Connected=true
Then
sleep(500);
End;
x:=0;
repeat
inc(x);
IdIRC1.Join('
#DDbot','
');
sleep(5000);
until x=3;
end;
procedure TForm5.IdIRC1Join(ASender: TIdContext; ANickname, AHost,
AChannel:
string);
begin
IdIRC1.Say('
#DDbot', '
Zdravo');
end;
procedure TForm5.IdIRC1PrivateMessage(ASender: TIdContext;
const ANicknameFrom,
AHost, ANicknameTo, AMessage:
string);
begin
Memo1.lines.Add(AMessage);
end;
end.