Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

IdIRC komponenta i slanje na javni chat...

[es] :: Pascal / Delphi / Kylix :: IdIRC komponenta i slanje na javni chat...

[ Pregleda: 3775 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

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

icon IdIRC komponenta i slanje na javni chat...20.08.2005. u 16:01 - pre 226 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!
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: IdIRC komponenta i slanje na javni chat...20.08.2005. u 18:49 - pre 226 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

icon Re: IdIRC komponenta i slanje na javni chat...20.08.2005. u 19:45 - pre 226 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...
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

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

Sajt: https://avramovic.info


+46 Profil

icon Re: IdIRC komponenta i slanje na javni chat...20.08.2005. u 19:45 - pre 226 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

icon Re: IdIRC komponenta i slanje na javni chat...20.08.2005. u 19:49 - pre 226 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!
 
Odgovor na temu

Passwd

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



Profil

icon Re: IdIRC komponenta i slanje na javni chat...20.08.2005. u 20:25 - pre 226 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

icon Re: IdIRC komponenta i slanje na javni chat...20.08.2005. u 21:39 - pre 226 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

[es] :: Pascal / Delphi / Kylix :: IdIRC komponenta i slanje na javni chat...

[ Pregleda: 3775 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.