Возник такой вопросец к гуру местмым

Создаю поток по методу сабжа, все работает но если есть связь с формой , допустим , Form1 то временами зависание , временами аксесс виалейшн, а временами работает, ... а временами работает но не так как хотелось бы

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

PS плюс если еще кто-то пояснит как работать с формой из потока созданного с помощью
CreateRemoteThread вообще ОГРОМНЕЙШИЙ сенкс

при работе c формой из потока, необходимо использовать Synchronize
при использовании нескольких потоков необходимо использовать CriticalSection

Цитата(z @ 20.7.2005, 15:10)

при работе c формой из потока, необходимо использовать Synchronize

Насколько мне известно этот метод для дельфийского класса TThread, а я полmpe.cm API

Цитата(z @ 20.7.2005, 15:10)

CriticalSection

А это посмотрю спасибо

Цитата(Romikgy @ 20.7.2005, 16:53)

Насколько мне известно этот метод для дельфийского класса TThread, а я полmpe.cm API

Ну, если сам на API, то и обеспечивай сам взаимоисключающий доступ к VCL.
Дело в том что VCL не реентерабельна.

Цитата

Дело в том что VCL не реентерабельна.

В смысле?

Нельзя использовать большинство компонентов VCL в потоках.
Для этого ты должен унаследовать унаследовать класс от TTheard, написать какую-отдельную процедуру run с обращением к форме. Потом в методе Execute, ты пишешь процедуру потока
где и используешь Synhronize(Run).

еще вариант - обеспечивать связь с формой не операциями с VCL компонентами, а посылкой сообщений, если, конечно, ситуация позволяет...

С классом ТТрид это понятно , но мне немного для другого, для работы с чужими компанентами на чужих формах поэтому делаю через апи и через CreateRemoteThread

Цитата(maxim1000 @ 26.7.2005, 10:47)

еще вариант - обеспечивать связь с формой не операциями с VCL компонентами, а посылкой сообщений, если, конечно, ситуация позволяет...

Можно конечно , если в своем приложении , однак см. выше

Цитата(Romikgy @ 26.7.2005, 14:28)

но мне немного для другого, для работы с чужими компанентами на чужих формах

Т.е. имеется ввиду компонентами и формами принадлежащими другому процессу?
Добавлено @ 14:13
И еще, почитай темку Вывести в memo от 00000000 до 11111111. Там есть для тебя кое что интересное .

Цитата

Т.е. имеется ввиду компонентами и формами принадлежащими другому процессу?

Ага

Цитата

И еще, почитай темку Вывести в memo от 00000000 до 11111111. Там есть для тебя кое что интересное

Ага поучительно Спасибо.
Только возникает вопрос чем лучше beginthread , чем createthread?

Цитата(Romikgy @ 26.7.2005, 15:35)

Только возникает вопрос чем лучше beginthread , чем createthread?

В beginthread предусмотрены некоторые действия связанные с обработкой Exception возникающего в процедуре реализующей поток, и еще кое чего. В общем, читай хелп по beginthread

Цитата(Romikgy @ 26.7.2005, 15:25)

Цитата (Петрович @ 26.7.2005, 14:11) Т.е. имеется ввиду компонентами и формами принадлежащими другому процессу? Ага

Странно, предполагаю что у тебя проблемы в чем-то другом.
А вообще, как ты работаешь "с чужими компанентами на чужих формах"? Приведи-ка пример.

С Checklistbox я уже разобрался

Код

hproc:=OpenProcess(PROCESS_ALL_ACCESS,false,276); // здеся вводится пид процесса if hproc<>0 then  begin  ListBox1.Clear;  hw:= 12054; //здеся хендл нужного чеклистбокса  GetWindowRect(hw,rc);  ListBox1.Items.Add('top ' + inttostr(rc.Top ));  ListBox1.Items.Add('left ' + inttostr(rc.Left));  ListBox1.Items.Add('right ' + inttostr(rc.Right));  ListBox1.Items.Add('bottom ' + inttostr(rc.Bottom));   p:=SendMessage(hw,LB_GETCOUNT,0,0);   ListBox1.Items.Add('klvo ' + inttostr(p));   for j:=0 to p-1 do   begin  p:=SendMessage(hw,LB_GETITEMDATA,j,0);  if p<>0 then   begin  SendMessage(hw,LB_GETTEXT,j,dword(@pc)); ReadProcessMemory(hproc,pointer(p+8),(@buf),1,br); // здеся читаю память ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttostr(dword(buf)));  ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttohex(pbyte(p+8)^,1)+' '+strpas(pc)); // а здеся выводится если 1 чекбокс выбран, если ноль значит сброшен :)  end;  end;  end; /CloseHandle(hproc);

Это тестовый вариант но он работает

Это сообщение отредактировал(а) Girder - 27.7.2005, 16:20

Цитата(Romikgy @ 27.7.2005, 13:25)

... Это тестовый вариант но он работает

Вот это как раз странно.

1. Использование переменной p участвующей в выражении границ цикла в теле цикла это не есть хорошо.
2. Не вижу как определены переменные pc и buf, но у меня большие сомнения что ты правильно используешь сообщение LB_GETTEXT.
3. Ну а вот это:

Код

ReadProcessMemory(hproc,pointer(p+8),(@buf),1,br); // здеся читаю память ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttostr(dword(buf)));  ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttohex(pbyte(p+8)^,1)+' '+strpas(pc)); // а здеся выводится если 1 чекбокс выбран, если ноль значит сброшен :)

мне вообще кажется чрезмерно смелым способом работы! Особенно, все что касается (p+8).

Если у тебя и все остальное написанно в таком же стиле, то тогда вполне понятно почему это не работает как надо.
Добавлено @ 12:21
Прости если показался слишком резким.
Добавлено @ 12:23
Да, и еще. Можешь посмотреть как правильно работать с LB_GETTEXT в реализации метода TListBoxStrings.Get.

Дафай поочереди :

Цитата

1. Использование переменной p участвующей в выражении границ цикла в теле цикла это не есть хорошо.

Это не столь важно букву можно и поменять (т.е. переменную)

Цитата

2. Не вижу как определены переменные pc и buf,

pc: array [byte] of char;
Buf: byte;

Цитата

мне вообще кажется чрезмерно смелым способом работы! Особенно, все что касается (p+8).

Мож и смело, но это вышло после дизассемблирования участка кода с обычным обращением к компоненте.

Цитата

Прости если показался слишком резким.

Ниче как нибудь сочтемся

Цитата

Да, и еще. Можешь посмотреть как правильно работать с LB_GETTEXT в реализации метода TListBoxStrings.Get.

И в чем разница???

Код

function TListBoxStrings.Get(Index: Integer): string; var   Len: Integer;   Text: array[0..4095] of Char; begin   Len := SendMessage(ListBox.Handle, LB_GETTEXT, Index, Longint(@Text));   if Len < 0 then Error(SListIndexError, Index);   SetString(Result, Text, Len); end;

Вот исходник, в чем у меня отличие??? То что проверок нет??? ну дык это при написании так сказать релиза учтется