посылка сообщений между экземплярами классов.

[vsrmis]

Free Pascal , Lasarus;

Нужно чтоб екземпляры классов могли посылать другу другу сообщения(Сигналы).

Причём не ждать ответа а продолжать выполнение кода тоесть гдето так

//работает код
SendSignal(UserList[i],'строка или более сложная конструкция');
// снова работает код не дожидаясь ответа

В этоже время у этого самого UserList[i] должен вызватся метод
getSignal(User:TUser;Signa:'строка или более сложная конструкция');

раньше вызывал на прямую getSignal
но пока эта getSignal не закончит работу Код вызвавший её выполнятся не будет.

Как орказизовать такую посылку сообщений.
(Должно быть кросплатформенно)

[vsrmis]

Думаю сделать через потоки.

Вот пытаюсь реализовать упрощённый пример, который не хочет работать.

 TUser = class(TThread)
  FM:string;
  cs: TRTLCriticalSection;
  Inbox:string;
  FFriend:TUser;
  FMemo:TMemo;
  procedure UpDateMemo;
  procedure SendMesege(User:TUser;M:string);
  procedure GetMesege(User:TUser;M:string);

   constructor Create(Friend:TUser;memo:TMemo);
   procedure Execute; override;
 end;

procedure TUser.UpDateMemo;
begin
  Form1.Memo1.Append(Inbox);
end;

procedure TUser.SendMesege(User: TUser; M: string);
begin
   EnterCriticalsection(cs);
   User.GetMesege(self,M);
   LeaveCriticalsection(cs);
end;

procedure TUser.GetMesege(User: TUser; M: string);
var i:Integer;
begin
   EnterCriticalsection(cs);
   Inbox:=M;
   Synchronize(@UpDateMemo);
   LeaveCriticalsection(cs);
end;

constructor TUser.Create(Friend:TUser;memo:TMemo);
begin
    FFriend:=Friend;
    Fmemo :=memo;
    Inbox := 'some text';
    M:= 'some text';
end;

procedure TUser.Execute;
var
i:Integer;
begin

  for i:=0  to 10000 do begin
      SendMesege(FFriend,Fm);
  end;
 //inherited Execute;
end;

Вылетает вообще на смешном Inbox:= M;

[veniside]

cs не создали, не говоря уже про вызов inherited Create().

[vsrmis]

А если серьёздно? Create не существует в преведущем, а cs это Запись.
ввёл функцию InitCriticalSection(cs); результата - 0;

[mss]

Create не существует в преведущем

Каком таком "преведущем" ?
Может все же у предка ?
У предка он есть и вызов его крайне важен. Как крайне важен собственно и вызов конструктора твоего класса TUser, прежде чем обращаться к объекту этого класса.
А у тебя ни того ни другого в коде не наблюдается. Потому и грабли)

[mss]

кр.того с какого перепугу методы TUser.Create и TUser.Execute стали опубликованными ?

Execute был, есть и будет защищенным, а Create - публичным.
Ныне, присно и во веки веков)

[vsrmis]

Изменил, проще кажется уже ну совсем некуда. Вылетает при Create. В чём ошибка?
TSimpleThread= class(TThread)
protected
procedure Execute; override;
public
end;

procedure TSimpleThread.Execute;
begin

end;

procedure TForm1.FormCreate(Sender: TObject);

begin
Some:=TSimpleThread.Create(False);
end;

[mss]

> Вылетает при Create

Каким курсом ?