Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

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.



 
Digitman   (2002-08-01 10:39) [5]

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


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

На PostIt виснет



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
3-7818
romannorth
2002-09-12 09:50
2002.10.03
ADODataSet.Locate


14-8137
Adder
2002-09-07 13:11
2002.10.03
8)


1-8019
Yegor Derevenets
2002-09-21 19:26
2002.10.03
Программное встраивание


8-8068
ork
2002-06-05 00:14
2002.10.03
Как сделать Delphi DFX из Delphi 5


1-7998
[BAD]Angel
2002-09-21 13:10
2002.10.03
Помогите с сетевым окружением!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский