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

Создаю поток по методу сабжа, все работает но если есть связь с формой , допустим , 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;

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

Цитата(Romikgy @ 28.7.2005, 15:24)

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

Дафай.

Цитата(Romikgy @ 28.7.2005, 15:24)

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

Конечно не столь важно, если не столь важен результат .

Цитата(Romikgy @ 28.7.2005, 15:24)

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

Ну тогда, в ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttostr(dword(buf))); последний inttostr "хапнет" лишних три байта. Хороше если они там будут, а то и AV схлопотать не долго.
А в ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttohex(pbyte(p+8)^,1)+' '+strpas(pc));, как ты думаешь, куда ссылается pbyte(p+8)? Какому процессу принадлежит память на которую ты таким образом получаешь указатель? И что будет когда произойет обращение к pbyte(p+8)^?

Цитата(Romikgy @ 28.7.2005, 15:24)

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

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

Цитата(Romikgy @ 28.7.2005, 15:24)

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

А вот кстати и пример .
Какая версия Delphi у тебя?
Могу тебя поздравить . Если в итеме твоего списка окажется строка длиннее 4095 символов, то поведение твоей программы, использующей такой TListBoxStrings, может легко оказаться не предсказуемым!
Вот текст TListBoxStrings.Get из Delphi 6:

Код

function TListBoxStrings.Get(Index: Integer): string; var   Len: Integer; begin   if ListBox.Style in [lbVirtual, lbVirtualOwnerDraw] then     Result := ListBox.DoGetData(Index)   else   begin     Len := SendMessage(ListBox.Handle, LB_GETTEXTLEN, Index, 0);     if Len = LB_ERR then Error(SListIndexError, Index);     SetLength(Result, Len);     if Len <> 0 then     begin       Len := SendMessage(ListBox.Handle, LB_GETTEXT, Index, Longint(PChar(Result)));       SetLength(Result, Len);  // LB_GETTEXTLEN isn't guaranteed to be accurate     end;    end; end;

Вот именно так и должно быть, поскольку размер строки, которая будет возвращена SendMessage(..., LB_GETTEXT,...), заранее неизвестен, а соответственно, заранее и неизвестен размер необходимого буфера.
Кстати, а у тебя может сломаться уже на строках длинной более 254 символа (pc: array [byte] of char).

Цитата(Romikgy @ 28.7.2005, 15:24)

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

Ну... Трудно предположить что при выпуске релиза программист будет скорпулезно проходиться по всему тексту и расставлять обработку ошибок. По крайней мере я такого не видел. Лично я, сразу-же прописываю обработку ошибок. Особенно, учитывая то, что это часто влияет на построение текста программы.
Да и при отладке, частенько можно получить ошибку там где ее не получаешь в уже отлаженной программе. В этом случае гораздо приятнее узнать о ней сразу, а не выискивать "почему программа ведет себя не правильно?".

Цитата

Дафай.

Аналогично

Цитата

Конечно не столь важно, если не столь важен результат

К словам дафай не будем цеплятся , а !?

Цитата

Ну тогда, в ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttostr(dword(buf))); последний inttostr "хапнет" лишних три байта. Хороше если они там будут, а то и AV схлопотать не долго.

dword(buf) - это не захват 4 байт, это преобразование захваченного байта в переменную типа дворд , так что ничего я хватать лишнего не буду !!!

Цитата

А в ListBox1.Items.Add('Stroka ' + inttostr(j)+' = '+inttohex(pbyte(p+8)^,1)+' '+strpas(pc));, как ты думаешь, куда ссылается pbyte(p+8)? Какому процессу принадлежит память на которую ты таким образом получаешь указатель? И что будет когда произойет обращение к pbyte(p+8)^?

Здеся признаю , лажанулся , эта часть кода осталась от экспериментов со своим компонентом, так что сорри!

Цитата

А вот кстати и пример smile. Какая версия Delphi у тебя? Могу тебя поздравить smile. Если в итеме твоего списка окажется строка длиннее 4095 символов, то поведение твоей программы, использующей такой TListBoxStrings, может легко оказаться не предсказуемым! Вот текст TListBoxStrings.Get из Delphi 6:

Да у меня стоит третья дельфя, есть разница сначала берется длинна текста
а вот это что:

Цитата

if ListBox.Style in [lbVirtual, lbVirtualOwnerDraw] then     Result := ListBox.DoGetData(Index)

И последнее

Цитата

Вот именно так и должно быть, поскольку размер строки, которая будет возвращена SendMessage(..., LB_GETTEXT,...), заранее неизвестен, а соответственно, заранее и неизвестен размер необходимого буфера. Кстати, а у тебя может сломаться уже на строках длинной более 254 символа (pc: array [byte] of char).

Я на 100 процентов уверен , что длинны у меня не будут превышать даже 50 символов, так что все окей

Цитата(Romikgy @ 29.7.2005, 09:22)

Цитата (Петрович @ 28.7.2005, 15:56) Конечно не столь важно, если не столь важен результат К словам дафай не будем цеплятся , а !?

Дык не к словам. У тебя так в программе написано.

Цитата(Romikgy @ 29.7.2005, 09:22)

dword(buf) - это не захват 4 байт, это преобразование захваченного байта в переменную типа дворд , так что ничего я хватать лишнего не буду !!!

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

Цитата(Romikgy @ 29.7.2005, 09:22)

а вот это что: Цитата (Петрович @ 28.7.2005, 15:56) if ListBox.Style in [lbVirtual, lbVirtualOwnerDraw] then     Result := ListBox.DoGetData(Index)

Просто существуют ListBox'ы для которых текст вообще не хранится. Он прорисовывается программой по событию.

Цитата(Romikgy @ 29.7.2005, 09:22)

Я на 100 процентов уверен , что длинны у меня не будут превышать даже 50 символов, так что все окей

Хозяин барин. Я лично в своей жизни никогда ни в чем на все 100% не уверен .


Ну и в конце концов, так я понял у тебя теперь все нормально работает?

Цитата

Дык не к словам. У тебя так в программе написано.

Дык это только переменная

Цитата

Просто существуют ListBox'ы для которых текст вообще не хранится. Он прорисовывается программой по событию.

Оригинально , не встречал .

Цитата

Хозяин барин. Я лично в своей жизни никогда ни в чем на все 100% не уверен

Угу

Цитата

Ну и в конце концов, так я понял у тебя теперь все нормально работает?

На н-ное кол-во процентов,
с Checklistbox я разобрался,
с TreeView разбираюсь (никак не пойму как программно к детю обратится/выделить , апи или мессагой?)
с DBGrid вооще мрак, здеся подсказали ридонли параметр подравить и можно в принципе , через энтер или двойной щелчек мыши , к данным добратся , но как подправить? еслиб тоже через апи или мессаги, былоб гуд

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

На н-ное кол-во процентов, с Checklistbox я разобрался, с TreeView разбираюсь (никак не пойму как программно к детю обратится/выделить , апи или мессагой?) с DBGrid вооще мрак, здеся подсказали ридонли параметр подравить и можно в принципе , через энтер или двойной щелчек мыши , к данным добратся , но как подправить? еслиб тоже через апи или мессаги, былоб гуд

Не, ну если тебя интересует конкретное приложение, с конкретными компонентами. И если тебе известна версия Delphi которой оно было создано, то можно сделать наверное проще.

М	Не отвлекаемся :) PS: Один топик - один вопрос!

Цитата

Не, ну если тебя интересует конкретное приложение, с конкретными компонентами. И если тебе известна версия Delphi которой оно было создано, то можно сделать наверное проще.

Конкретное приложение мне известно, а вот версия дельфи ...

Обнаружил одну особенность. После вызова CreateThread в теле функции-задачи пытаюсь оператором cin ввести целое число(scanf тоже не помогает), но у меня первая цифра "пропадает", т.е. если я ввожу 430, то в переменную записывается 30, 12 - 2, 1999 - 999 и т.д. С чем это связано? Я решил эту проблему, передавая в качестве четвертого параметра CreateThread это самое число(приведенное к типу LPVOID, естественно), которое ввожу с консоли еще до вызова CreateThread, т.е. в функции main. Но все-таки хочу разобраться с этой особенностью. 

Предлагаю код(тот, что проблемный):


Все в обычной консоли Win32. Может, у кого-то по-другому?

скорее всего стандартным потоком ввода-вывода владеет основной поток, поэтому он первый символ съедает,
имхо не красиво работать с такими потоками из программных потоков, вся работа должна оставаться в основном потоке , а обработка данных , там где хочешь .....
PS сорри за тавтологию