Вниз
Скачать: CL | DM;

Applet в другом потоке   Найти похожие ветки 

 
Vladimyr ©   (2005-04-28 13:30) [0]

Добрый день, нужно запускать Апплет в отдельном потоке несколько раз.
Первый запуск проходит нормально, а вот второй и последующие - нет.
Вот код:


// запуск треда
   hThread:= CreateThread (nil, 0, @PrThread, nil, 0, ThID);
   WaitForSingleObject (hThread, INFINITE);  // ждём, пока тред не завершится
   CloseHandle (hThread);
   hThread := 0;


.............................


// собственно тред
function PrThread (P: Pointer): DWORD; stdcall;
begin                                      
 try
    if Applet = nil then Applet := NewApplet ("Applet");
    NewSettForm (SettForm, Pointer (Applet));
    Applet.AllBtnReturnClick;
    run (Applet);                  
 finally
    result:= GetLastError;
 end;      
end;


Результат - invalid handle. Что же здесь не так?..


 
Vladimyr ©   (2005-04-29 00:12) [1]

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

Я идиот !!!!!!!!!!!!!  :-|  :-(  :-C  :-@

         AppletRunning := true;
         AppletTerminated := false;

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA


 
thaddy   (2005-04-29 00:34) [2]

You can have only one applet! it is the application object!!!!
You have to write separate objects for what you want.
Look at the threads demo on my site on how to solve the problem


 
Vladimyr ©   (2005-04-29 03:35) [3]

Thanks, thaddy, all right now.
I just was an idiot :)
But I have really one Applet,
just need to run it several times.


 
thaddy   (2005-04-29 09:04) [4]

Do you mean you have one defined task that you have to run several times? in that case put the task in threads.
Do you mean you have to run a full application several times?
Use createprocess from a controller application instead of Thread. Createprocess also gives you a handle you can use in the synchro primitives


 
Vladimyr ©   (2005-04-29 21:31) [5]

I need to start Applet more and more from inside itself :)
This trick is now working, thanks.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c
2-1134344998
The X
2005-12-12 02:49
2005.12.25
Перекидывание данных между таблицами разной структуры


2-1133684536
VadimSpb
2005-12-04 11:22
2005.12.25
Проблема с памятью


2-1134121057
De
2005-12-09 12:37
2005.12.25
Почему Incompatible types: Integer and Pointer ?


6-1126878898
BVV
2005-09-16 17:54
2005.12.25
Проблемы с кирилицей в функции "gethostbyname"


2-1133759989
Gem
2005-12-05 08:19
2005.12.25
Определение реального текущего номера записи таблицы




   Наверх