Delphi 7 Indy 10 ioHandler

Question

Trying to make a simple IRC client for personal use so I installed Delphi 7 and Indy 10, note that I haven't done any work in delphi for 10 (?) years and even then it wasn't that advanced. Just for playing around.

procedure TForm1.IRCPrivateMessage(ASender: TIdContext; const ANickname,
  AHost, ATarget, AMessage: String);
begin
  if ATarget = '#channel' then
  begin
    Memo1.Lines.Add('[' + TimeToStr(Time) + '] <' + ANickname + '> ' + Amessage);
  end;
  if ATarget = '#channel2' then
  begin
    Memo2.Lines.Add('[' + TimeToStr(Time) + '] <' + ANickname + '> ' + Amessage);
  end;
end;

This will freeze the program because of two uses of Amessage?

Would be great if anyone could show me a working example of getting time, nick and message added to a memo on the privatemessage event :)

Answer 1

As described in the answer to the question (Delphi 2009) idIRC, MDI, and problems with hanging , IRCPrivateMessage runs in the same thread as the blocking socket. Accessing the GUI from this event handler without proper protection is not allowed.

You need to use Synchronize , Queue or other techniques like posting messages to the main thread.