Форум — Ответы     (  К темам )

?	Андрей: Окна как процессы (02-02-2003 19:43:10)
Необходимо сделать чтобы окна работали как отдельные процессы. Т.е. моя программа создает несколько одинаковых (от моего класса TSendFileForm потомка TForm) окон и каждое из них должно работать как отдельный процесс. Дело в том, что в каждом из окон может происходить очень длинный цикл (отправка и получение файлов). И поэтому надо чтобы они работали параллельно.
Devnvd (03-02-2003 10:04:52)
Создавайте и удаляйте форму в самом потоке. Сам же поток можете создавать разными способами: 1. CreateThread 2. _beginthread 3. TThread Например так: =========================== #include #pragma hdrstop #include #include "Unit1.h" #include "Unit2.h" //----------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; AnsiString caption; //Поток созданный через CreateThread DWORD WINAPI ThreadProc(void *P) { MSG msg; TForm2 *Form=new TForm2(0); Form->Name=(char *)P; Form->Caption=(char *)P; Form->Show(); while(1) { BOOL bRet=GetMessage(&msg,(HWND)0,0,0); if(bRet==0 || bRet==-1)break; TranslateMessage(&msg); DispatchMessage(&msg); } if(Form)delete Form; Form=NULL; return 0; } //----------------------------------------- //Поток созданный через _beginthread void ThreadProc2(void *P) { MSG msg; TForm2 *Form=new TForm2(0); Form->Name=(char *)P; Form->Caption=(char *)P; Form->Show(); while(1) { BOOL bRet=GetMessage(&msg,(HWND)0,0,0); if(bRet==0 || bRet==-1)break; TranslateMessage(&msg); DispatchMessage(&msg); } if(Form)delete Form; Form=NULL; } //-------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //---------------------------------------------------- //Создаём поток через CreateThread void __fastcall TForm1::Button1Click(TObject *Sender) { static int i=0; caption="ThreadForm"+IntToStr(i+1); i++; DWORD ThreadID; HANDLE hThread=::CreateThread(0,0,ThreadProc,caption.c_str(),0,&ThreadID); ::SetThreadPriority(hThread,THREAD_PRIORITY_NORMAL); ::CloseHandle(hThread); //Больше не нужен } //------------------------------------------------- //Создаём поток через _beginthread void __fastcall TForm1::Button2Click(TObject *Sender) { static int i=0; caption="ThreadForm"+IntToStr(i+1); i++; HANDLE thread = (HANDLE)_beginthread(ThreadProc2,0,caption.c_str()); if(::SetThreadPriority(thread,THREAD_PRIORITY_NORMAL)==false) ShowMessage("Error SetThreadPriority"); } ======================= Форма которую вы создаёте в потоке должна при своём закрытии послать сообщение о закрытии потока. Это делается с помощью PostQuitMessage(0): void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action) { PostQuitMessage(0); }