IdIRC komponenta i slanje na javni chat...

IdIRC komponenta i slanje na javni chat... 20.08.2005. u 17:01 · pre 258 meseci #1

Hehe, mozda zvuci glupo, ali me upravo ovo muci u jednom programcetu sto radim

... Naime nikako ne mogu da prosledim neku poruku iz Edit-a na javni chat na nekom kanalu, dok sam sa IdIRC.Say('target', 'message'); uspeo sasvim normalno da prosledim private message bilo kojem korisniku na chatu...

Da li bi neko bio toliko ljubazan da mi objasni kako se salju poruke na javni chat, posto me to muci vec 2-3 sata

...

Hvala unapred!

Potpis

ex Strog

http://www.zeussoftware.rs

Re: IdIRC komponenta i slanje na javni chat... 20.08.2005. u 19:49 · pre 258 meseci #2

?!

Code:
IdIRC.Say('#kanal', 'message');

Re: IdIRC komponenta i slanje na javni chat... 20.08.2005. u 20:45 · pre 258 meseci #3

Da, tako sam ja i mislio da ide, ali kada sam to probao nije mi radilo... Ne znam da li ima razlike mozda od verzije do verzije Indy komponenti, ali ja imam D7 i Indy koji ide uz njega...

Potpis

ex Strog

http://www.zeussoftware.rs

Re: IdIRC komponenta i slanje na javni chat... 20.08.2005. u 20:45 · pre 258 meseci #4

vidi jel ima RAW da shalje, pa poshalji "privmsg #kanal poruka"

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Re: IdIRC komponenta i slanje na javni chat... 20.08.2005. u 20:49 · pre 258 meseci #5

E da me ubijete sada, ali neko je ovde lood

... Evo sada je proradilo...

Code:
IdIRC.Say(IdIRC1.Channels.Items[0].Name, Edit1.Text);

Hvala u svakom slucaju!

Potpis

ex Strog

http://www.zeussoftware.rs

Re: IdIRC komponenta i slanje na javni chat... 20.08.2005. u 21:25 · pre 258 meseci #6

Evo, ako mozete pomoc

Imam delphi 2005+Indy 10 al nece da se konektuje na server, isto me zamara vec danas cijeli dan, pa ako netko zna sta ovaj poseban delphi trazi da se doda/makne/promijeni

Evo koda :

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdCmdTCPClient, IdIRC, ExtCtrls;

type
  TForm1 = class(TForm)
    IdIRC1: TIdIRC;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
IdIRC1.Nickname:='Passwd';
IdIRC1.Connect('irc.balcan.net',6667);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
IdIRC1.Disconnect('nema razloga :D');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.ProcessMessages;
if IdIRC1.Connected  then begin
                     IdIRC1.Join('#test','');
                     Timer1.Enabled:=false;
                     end;
end;

end.

Naravno, probao sam i posebno navest port i host al ista stvar!

Unaprijed zahavalan vasoj pomoci!

Re: IdIRC komponenta i slanje na javni chat... 20.08.2005. u 22:39 · pre 258 meseci #7

Hvala, hvala..problem je rijesen!
@Reiser-trebala mi je ona petlja sto sam vidio u tvom kodu:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdCmdTCPClient, IdIRC, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    IdIRC1: TIdIRC;
    Timer1: TTimer;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdIRC1 := TIdIRC.Create(nil);
  IdIRC1.Host := 'irc.balcan.net';
  IdIRC1.Port := 6667;
  IdIRC1.Nickname := 'Passwd_bot';
  IdIRC1.Username := 'Passwd_bot';
  IdIRC1.RealName := 'Passwd_bot';
  While not IdIRC1.Connected=true Do
  Begin
    IdIRC1.Connect;
    If not IdIRC1.Connected=true Then
    sleep(5000);
  End;
x:=0;
   end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
repeat
inc(x);
IdIRC1.Join('#zeusgames','');
sleep(5000);
until x=3;
timer1.Enabled:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdIRC1.Say('Passwd',memo1.Text);
end;

end.

Forum kao aplikacija na telefonu

Srodne teme