MelchaS
asked on
Indy IRC
Hi,
I'm trying to use the indy IRC component to create a simple chat client, but I'm having some weird problems.
I have this code:
procedure TForm1.IRCMessage(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String);
begin
Display1.Lines.Add('--' + PansiChar(AUser) + ': ' + Content); // Display1 is a memo
end;
Using that, this is what I get when some says something on the channel I have it join:
--?G: Test
Every nickname is replaced by something like that. I tried using String(AUser) and AnsiString(AUser) too, but they have the same results. I also looked at the indy demos, and I didn't find any examples for the IRC Component, so any help is appreciated.
Thanks,
- MelchaS
I'm trying to use the indy IRC component to create a simple chat client, but I'm having some weird problems.
I have this code:
procedure TForm1.IRCMessage(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String);
begin
Display1.Lines.Add('--' + PansiChar(AUser) + ': ' + Content); // Display1 is a memo
end;
Using that, this is what I get when some says something on the channel I have it join:
--?G: Test
Every nickname is replaced by something like that. I tried using String(AUser) and AnsiString(AUser) too, but they have the same results. I also looked at the indy demos, and I didn't find any examples for the IRC Component, so any help is appreciated.
Thanks,
- MelchaS
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER