Ehhh opet nece :(
Code:
uses
Windows, IdIRC;
type
TB = class
IRC : TIdIRC;
procedure OnVoice(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; ATarget: TIdIRCUser);
procedure Connect;
end;
var
b : TB;
procedure TB.OnVoice(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; ATarget: TIdIRCUser);
begin
MessageBox(0, 'asdasd', nil, mb_OK);
end;
procedure TB.Connect;
begin
IRC := TIdIRC.Create(nil);
IRC.Host := 'irc.balcan.net';
IRC.Port := 6667;
IRC.Nick := 'test_nick';
IRC.Username := '34345';
IRC.RealName := 'asdasdsad';
IRC.Connect;
IRC.Join('#testkanal', '');
IRC.OnVoice := OnVoice;
end;
begin
b := TB.Create;
b.Connect;
repeat
until 1 <> 1;
end.
Evo, to je kod koji sam sklepao na brzinu. Sve se nalazi u klasi i opet nece... Dobro se konektuje na kanal i kad programu dam voice, OnVoice procedura se ne poziva uopste. Gde gresim ? Ako hoces mogu da ti posaljem ove Indy komponente neophodne za ovaj kod, pa testiraj. Hvala jos jednom.