Witam, próbuje napisac prostego klienta irc w delphi xe 5 używam Indy 10, juz od kilku dni walcze z tym szukajac na rónych forach i nic nie moge wywalczyc.
Wygląda jak gdyby się łączył z serverem irc ale nie może wejść na kanał.
poniżej podaje kod, może któryś z kolegów naprowadzi mnie na to co jest nie tak.
procedure TForm1.Button1Click(Sender: TObject);
begin
// IdIRC1.Host := 'efnet.xs4all.nl';
//IdIRC1.Port := 6667;
IdIRC1.Nickname := 'test';
IdIRC1.Username:='test2';
IdIRC1.AltNickname:='test____';
try
idIRC1.Connect; // timeout 60 seconds
except
if not idIRC1.Connected then
begin
MessageDlg('Error connectiing to ' + idIRC1.Host, mtError, [mbOK], 0);
Exit;
end;
end;
MessageDlg('Connected to ' + idIRC1.Host, mtInformation, [mbOK], 0);
//idIRC1.Join(edit3.text);
button1.Enabled:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
idirc1.Join('#test232');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
idIRC1.Say('#test232',' ooooo');
end;
procedure TForm1.IdIRC1Connected(Sender: TObject);
begin
memo1.Lines.Add('connected');
end;