Salve sto ceracndo di usare la funzione ShowMessage in remoto, ho cosi scritto il codice ma quando invio un msg non succede nulla.
Codice:
procedure TForm1.serverExecute(AThread: TIdContext);
var listaclient:tlist; i:integer;
messaggioprelevato:string;
begin
messaggioprelevato:=AThread.Connection.IOHandler.ReadLn;
memo1.lines.add(messaggioprelevato);
Listaclient := Server.Contexts.LockList;;
try
for i:=0 to connessi-1 do
try
TIdContext(Listaclient.Items[i]).Connection.IOHandler.WriteLn(messaggioprelevato);
showmessage (messaggioprelevato);
except
end;
finally
end;
Server.Contexts.UnlockList;
end;