Chat with IdIrc

[dangerduck]

Ich deutch nicht verstehe and schprahe good
So please write posts in english
I have an program in delphi who has to connect to an irc channel and chat with him my problem is how to recive message from channel and how to recognize recived messages. I know to send messages and connect on irc but reciving is a problem...
I try to download indy 10 but it give me an error
please if you have it send me
my msn is : [e-mail]

and code :

Delphi-Quellcode:

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 IdIRC1DCCChat(ASender: TIdContext; ANickname, AHost: string;
      APort: Integer);
    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.AltNickname := 'DDbot3';
     idIRC1.AltNickname := 'DDbot4';
       idIRC1.AltNickname := 'DDbot5';
         idIRC1.AltNickname := 'DDbot6';
           idIRC1.AltNickname := 'DDbot7';
             idIRC1.AltNickname := 'DDbot8';
               idIRC1.AltNickname := 'DDbot9';
                 idIRC1.AltNickname := 'DDbot10';
  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;





end.

Bitte helfen
und einen schönen Gruß aus Slowenien

[monXii]

1. You only set 1 Alternate Nickname he cant handle so much.. the last nick will be used if ddbot is not free..
2. theres a procedure called like onMessage or onPrivatemessage.. do you use indy9 or 10?
i have read in some posts that indy 9 is more stable..

[dangerduck]

ok i wil set one altnick i didnt know that
i use RAD studio 2007 so i think is delphi 9 in
yes i try with onPrivateMessage but i dont know how to write code for it

Delphi-Quellcode:

procedure TForm5.IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
  AHost, ANicknameTo, AMessage: string);
begin
Memo1.lines.Add();
end;

what i must insert betwen () ??

[beelze000]

if you only need the message is it memo1.lines.add(AMessage);
greetz beelze

[Larsi]

What's the Error Message?

[monXii]

theres no error cause he didnt knew how to do it

[dangerduck]

no the Memo1.lines.Add(AMessage); wont help code :

Delphi-Quellcode:

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.

[dangerduck]

video :
http://rapidshare.de/files/41137040/Film.wmv.html

[Valle]

Zitat von dangerduck:

video :
http://rapidshare.de/files/41137040/Film.wmv.html

This video is 14MB big! I need around 20 minutes to download it. I think nobody wants to download such a big video. Please just tell us, why it doesn't work. Do you get an error? Which error? This is the fastest way to get help.

[Die Muhkuh]

Zitat von Valle:

This video is 14MB big! I need around 20 minutes to download it.

Bad luck guy, bad luck. I don't need a minute to download it...