В потоках не рекомендуется напрямую обращатся к VCL , можно доигратся до краха проги, имхо.

а как тогда быть?

Почитай это
http://forum.vingrad.ru/index.php?showtopic=60076
там много описано по потокам,
и здесь тоже есть
http://www.drkb.ru/

не рекомендуется ( хотя я таких "нерекомендаций" не слышал ) но и не запрещается
можно Synchronize() использовать

http://forum.vingrad.ru/index.php?showtopic=60076 я это уже читал, но ещё раз перечитал! и ещё больше мне стало непонятно!

с синхронизацией вообще не понимаю... она вообще мне нафига нужна? у меня на форму из потока ничего не передаётся, тока - Form1.StringList.Items.Add есть. туда из TZipTV7 инфа передаётся.... а так, у меня с формы берутся настройки. нужна мне синхронизация?

я вот думаю, я запускаю в потоке процедуру, которая проверяет условие, если условие выполняется, то из этого потока, из этой процедуры запускается ещё одна процедура, в которой берутся все настройки с формы, идёт работа с Windows и запускается создание архива с помощью TZipTV7. а ведь он свои потоки ещё создаёт вроде или FileStream или что-то такое.

тоесть у меня вообще непонятно что с этими потоками! да? так ведь не делают? я всю неправильно сделал? такие алгоритмы как у меня вообще не должны работать, или пофигу что так намешано - всё должно и так работать?

вообщем как быть?

Цитата(_hunter @ 28.10.2005, 13:43)

не запрещается

А не кто и не говорил чтозапрещается

Цитата(h2o @ 28.10.2005, 14:13)

нужна мне синхронизация?

Можно и без... но имхо самый безопасный способ использовать поток от борланда (т.е. класс тред) , и использовать синхронизацию при вызове

Цитата(h2o @ 28.10.2005, 14:13)

Form1.StringList.Items.Add

хотя наверное в синхро... было бы неплохо засунуть все где есть обращение к VCL

ЗЫ а вообще наааамного проще сделать таймер и засунуть в него все что хошь, никаких синхронизаций и др. вещей связаных с потоками, плюс прямой доступ безопасный к VCL и гемору меньше, хотя это твое личное дело....

а при таймере мне ведь будет главная моя форма недоступна? у меня в таймере будут цыклы, цыклы и т.д. и к главной форме будет не обратиться, она на вермя действия таймера повиснет?

Нет .... из таймера можно обращатся к любой форме, только правильно прописать обращение, и при таймере как раз и убирается загрузка проца, если конечно твои действия в таймере не долгоиграющие( забирают много времени и ресурсов машины) , тогда без потоков точно не обойтись
А так таймер лучшая альтернатива, чем поток ИМХО.

Цитата(Romikgy @ 28.10.2005, 15:39)

В потоках не рекомендуется напрямую обращатся к VCL , можно доигратся до краха проги, имхо.

Примерчик не сложный можно, интересно посмотреть как грохается прога %)

Цитата(Romikgy @ 28.10.2005, 18:51)

и при таймере как раз и убирается загрузка проца

А что, поток загружает процессор больше чем таймер?

Цитата(RideX @ 28.10.2005, 21:22)

Примерчик не сложный можно, интересно посмотреть как грохается прога

Примерчика нет, но подумай сам , существуют 2 и более потока , и если каждый попытается поменять заголовок у формы, че будет?

Цитата(RideX @ 28.10.2005, 21:22)

что, поток загружает процессор больше чем таймер?

Смотря что в потоке .... ожидание какого либо события будет постоянно есть ресурс проца в потоке, в таймере будет только на момент срабатывания его.

Цитата(Romikgy @ 31.10.2005, 12:54)

Примерчика нет, но подумай сам , существуют 2 и более потока , и если каждый попытается поменять заголовок у формы, че будет?

Ну, это уж у кого как Вот мой примерчик по твоему вопросу, здесь абсолютно не к чему придраться, не так ли?

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} const   szFmtTime: PChar = '%02hu:%02hu:%02hu';   szFmtDate: PChar = '%02hu.%02hu.%04hu'; var   hMainWnd     : HWND;   hThreadTime  : THandle;   ThreadTimeID : DWORD;   hThreadDate  : THandle;   ThreadDateID : DWORD;   StopThreads  : Boolean = False;   CriticalSection: RTL_CRITICAL_SECTION;   szCaption: array[0..11] of Char;   stm: SYSTEMTIME; procedure MyProc01; asm   pushad   push offset CriticalSection   call EnterCriticalSection   push offset stm   call GetLocalTime   xor eax,eax   mov ax,stm.wSecond   push eax   mov ax,stm.wMinute   push eax   mov ax,stm.wHour   push eax   push dword ptr[szFmtTime]   push offset szCaption   call wsprintf   add esp,5*4   push offset szCaption   push 0   push WM_SETTEXT   push hMainWnd   call SendMessage   push offset CriticalSection   call LeaveCriticalSection   popad end; procedure MyProc02; asm   pushad   push offset CriticalSection   call EnterCriticalSection   push offset stm   call GetLocalTime   xor eax,eax   mov ax,stm.wYear   push eax   mov ax,stm.wMonth   push eax   mov ax,stm.wDay   push eax   push dword ptr[szFmtDate]   push offset szCaption   call wsprintf   add esp,5*4   push offset szCaption   push 0   push WM_SETTEXT   push hMainWnd   call SendMessage   push offset CriticalSection   call LeaveCriticalSection   popad end; procedure ThreadTimeProc;stdcall; asm @m0:   push 500   call Sleep   call MyProc01   cmp byte ptr[StopThreads],True   jne @m0   push 0   call ExitThread end; procedure ThreadDateProc;stdcall; asm @m0:   push 500   call Sleep   call MyProc02   cmp byte ptr[StopThreads],True   jne @m0   push 0   call ExitThread end; procedure TForm1.FormCreate(Sender: TObject); begin   InitializeCriticalSectionAndSpinCount(CriticalSection, $00001000);   hMainWnd := Handle;   hThreadTime := CreateThread(nil, 0, @ThreadTimeProc, nil, 0, ThreadTimeID);   if hThreadTime = 0 then begin     MessageBox(Handle, PChar(SysErrorMessage(GetLastError)), nil, MB_ICONERROR);     Exit;   end;   SetThreadPriority(hThreadTime, THREAD_PRIORITY_LOWEST);   hThreadDate := CreateThread(nil, 0, @ThreadDateProc, nil, 0, ThreadDateID);   if hThreadDate = 0 then begin     MessageBox(Handle, PChar(SysErrorMessage(GetLastError)), nil, MB_ICONERROR);     Exit;   end;   SetThreadPriority(hThreadDate, THREAD_PRIORITY_LOWEST); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var   dwExitCode: DWORD; begin   StopThreads := True;   SetWindowText(hMainWnd, 'Threads finalization, waiting...');   Sleep(1000);   GetExitCodeThread(hThreadTime, dwExitCode);   if dwExitCode <> 0 then     TerminateThread(hThreadTime, DWORD(-1));   CloseHandle(hThreadTime);   GetExitCodeThread(hThreadDate, dwExitCode);   if dwExitCode <> 0 then     TerminateThread(hThreadDate, DWORD(-1));   CloseHandle(hThreadDate);   DeleteCriticalSection(CriticalSection); end; end.

Цитата(Romikgy @ 31.10.2005, 12:54)

ожидание какого либо события будет постоянно есть ресурс проца в потоке, в таймере будет только на момент срабатывания его.

В потоках будет тоже только на "момент срабатывания".

Цитата(RideX @ 1.11.2005, 19:11)

EnterCriticalSection

Естественно если это использовать то проблем нет, а я говорил о прямом доступе без критических секций, почему я и советовал почитать по потокам!!!!!!!!

Цитата(RideX @ 1.11.2005, 19:11)

В потоках будет тоже только на "момент срабатывания".

Еще раз повторюсь ВСЁ зависит от внутриностей потока

ЗЫ и давай завязывать, не продуктивный спор стал!

Код

while true do begin Application.ProcessMessages; ... end;

цикл будет выполняться параллельно с другими потоками и пока прога не вырубится.

Это сообщение отредактировал(а) ФЫГ - 3.11.2005, 09:35