[es] - IdIRC komponenta i slanje na javni chat...

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

IdIRC komponenta i slanje na javni chat...

^{20.08.2005. u 16:01 - pre 239 meseci}

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!

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: IdIRC komponenta i slanje na javni chat...

^{20.08.2005. u 18:49 - pre 239 meseci}

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

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: IdIRC komponenta i slanje na javni chat...

^{20.08.2005. u 19:45 - pre 239 meseci}

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...

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4392
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: IdIRC komponenta i slanje na javni chat...

^{20.08.2005. u 19:45 - pre 239 meseci}

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

Laravel Srbija.

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

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: IdIRC komponenta i slanje na javni chat...

^{20.08.2005. u 19:49 - pre 239 meseci}

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!

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: IdIRC komponenta i slanje na javni chat...

^{20.08.2005. u 20:25 - pre 239 meseci}

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!

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: IdIRC komponenta i slanje na javni chat...

^{20.08.2005. u 21:39 - pre 239 meseci}

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.

Odgovor na temu