NMStrm+клиент/сервер

← →
kostik78ua (2002-07-31 14:53) [0]

У меня загадка природы!
Есть приложение-клиент и приложение-сервер. Надо переслать с сервера на клиент файл. Использую TNMStrm и TNMStrmServ.
На сервере ставлю кнопку с обработчиком:
var
stm: TMemoryStream;
begin
stm := TMemoryStream.Create;
try
stm.LoadFromFile("c:\somefile.exe");
NMStrm1.PostIt(stm);
finally
stm.Free;
end;
end;

На клиенте все работает классно. Но когда я создаю метод интерфейса:

procedure TRDMServ.SendData;
begin
Form1.Button1.Click;
end;

То на PostIt - подвисает.
То есть когда вручную кликаешь на кнопку - работает, а с клиента вызываешь Click - не работает.
Кто может сказать - ПОЧЕМУ ???

← →
Digitman © (2002-07-31 17:28) [1]

Потому что - скорее всего - в момент выполнения TRDMServ.SendData не выполняется условие GetCurrentThreadId = MainThreadId.

Иными словами - нет синхронизации non-threadsafe-метода Click() с основным потоком

← →
kostik78ua (2002-08-01 09:36) [2]

Действительно, работает в разных Thread-ах.
Извиняюсь за дилетантский вопрос: А как делается эта синхронизация?

← →
Digitman © (2002-08-01 10:08) [3]

А зачем усложнять в данном конкретном случае ?
У тебя само тело процедуры Click() - thread-safe.
Вот и оформи его в виде отдельного процедурного метода, не зависящего от визуальных контролов формы :

procedure TRDMServ.DoPostFile;
var
stm: TMemoryStream;
begin
stm := TMemoryStream.Create;
try
stm.LoadFromFile("c:\somefile.exe");
NMStrm1.PostIt(stm);
finally
stm.Free;
end;
end;

procedure TRDMServ.SendData;
begin
DoPostFile;
end;

Form1.Button1.Click;

procedure TForm1.Button1Click(Sender: TObject);
begin
DoPostFile;
end;

← →
kostik78ua (2002-08-01 10:33) [4]

Все равно не получилось. :(
Очень не хотелось бы Вас грузить, но не могли бы Вы глянуть мой код (все лишнее я уберу)?
Плз, а то я уже 3-й день над этим долбаюсь, и не могу понять в чем заковырка. Вроде бы все "как по учебнику".
Я вышлю Вам на e-mail.

Для начала скажи - что не работает

← →
kostik78ua (2002-08-01 11:25) [6]

На PostIt виснет

NMStrm+клиент/сервер Найти похожие ветки