Вниз
Скачать: 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.029 c
14-1133306290
Piter
2005-11-30 02:18
2005.12.25
знатокам MPlayer


6-1126708955
AK704
2005-09-14 18:42
2005.12.25
Удаленная работа с MySQL


14-1133268089
КаПиБаРа
2005-11-29 15:41
2005.12.25
Недопонимание - главный бич человечества. (restore)


4-1130414953
Rentgen
2005-10-27 16:09
2005.12.25
Как можно сменить программно пароль учетной записи (текущей)


2-1133955788
_Lucifer_
2005-12-07 14:43
2005.12.25
Передача процедуры как параметра процедуры




   Наверх