Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > CreateThread


Автор: Romikgy 20.7.2005, 14:57
Возник такой вопросец к гуру местмым smile

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

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

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

Автор: z-END 20.7.2005, 15:10
при работе c формой из потока, необходимо использовать Synchronize
при использовании нескольких потоков необходимо использовать CriticalSection

Автор: Romikgy 20.7.2005, 15:53
Цитата(z @ 20.7.2005, 15:10)
при работе c формой из потока, необходимо использовать Synchronize

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


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


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

Автор: Петрович 20.7.2005, 22:03
Цитата(Romikgy @ 20.7.2005, 16:53)
Насколько мне известно этот метод для дельфийского класса TThread, а я полmpe.cm API

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

Автор: Romikgy 21.7.2005, 08:13
Цитата
Дело в том что VCL не реентерабельна.

В смысле?

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

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

Автор: Romikgy 26.7.2005, 13:28
С классом ТТрид это понятно , но мне немного для другого, для работы с чужими компанентами на чужих формах smile поэтому делаю через апи и через CreateRemoteThread

Цитата(maxim1000 @ 26.7.2005, 10:47)
еще вариант - обеспечивать связь с формой не операциями с VCL компонентами, а посылкой сообщений, если, конечно, ситуация позволяет...


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

Автор: Петрович 26.7.2005, 14:11
Цитата(Romikgy @ 26.7.2005, 14:28)
но мне немного для другого, для работы с чужими компанентами на чужих формах

Т.е. имеется ввиду компонентами и формами принадлежащими другому процессу?
Добавлено @ 14:13
И еще, почитай темку http://forum.vingrad.ru/index.php?showtopic=59219. Там есть для тебя кое что интересное smile.

Автор: Romikgy 26.7.2005, 14:25
Цитата
Т.е. имеется ввиду компонентами и формами принадлежащими другому процессу?


Ага smile

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


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

Автор: Петрович 26.7.2005, 14:55
Цитата(Romikgy @ 26.7.2005, 15:35)
Только возникает вопрос чем лучше beginthread , чем createthread?

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


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

Ага 

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

Автор: Romikgy 27.7.2005, 12:25
С Checklistbox я уже разобрался smile

Код

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);


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

Автор: Петрович 28.7.2005, 12:21
Цитата(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
Прости если показался слишком резким. smile
Добавлено @ 12:23
Да, и еще. Можешь посмотреть как правильно работать с LB_GETTEXT в реализации метода TListBoxStrings.Get.

Автор: Romikgy 28.7.2005, 14:24
Дафай поочереди :

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


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


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

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

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

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

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

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

Цитата
Да, и еще. Можешь посмотреть как правильно работать с 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;


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

Автор: Петрович 28.7.2005, 15:56
Цитата(Romikgy @ 28.7.2005, 15:24)
Дафай поочереди :

Дафай. smile

Цитата(Romikgy @ 28.7.2005, 15:24)
Это не столь важно букву можно и поменять (т.е. переменную)

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


Цитата(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)
И в чем разница???

А вот кстати и пример smile.
Какая версия Delphi у тебя?
Могу тебя поздравить smile. Если в итеме твоего списка окажется строка длиннее 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)
То что проверок нет??? ну дык это при написании так сказать релиза учтется

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

Автор: Romikgy 29.7.2005, 08:22
Цитата
Дафай.

Аналогично smile

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

К словам дафай не будем цеплятся , а !?
Цитата
Ну тогда, в 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 , эта часть кода осталась от экспериментов со своим компонентом, так что сорри!
Цитата
А вот кстати и пример smile.
Какая версия Delphi у тебя?
Могу тебя поздравить smile. Если в итеме твоего списка окажется строка длиннее 4095 символов, то поведение твоей программы, использующей такой TListBoxStrings, может легко оказаться не предсказуемым!
Вот текст TListBoxStrings.Get из Delphi 6:

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

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

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

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

Автор: Петрович 29.7.2005, 11:02
Цитата(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% не уверен smile.


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

Автор: Romikgy 29.7.2005, 14:39
Цитата
Дык не к словам. У тебя так в программе написано.

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

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

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

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

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

Автор: Петрович 29.7.2005, 17:25
Цитата(Romikgy @ 29.7.2005, 15:39)
На н-ное кол-во процентов,
с Checklistbox я разобрался,
с TreeView разбираюсь (никак не пойму как программно к детю обратится/выделить , апи или мессагой?)
с DBGrid вооще мрак, здеся подсказали ридонли параметр подравить и можно в принципе , через энтер или двойной щелчек мыши , к данным добратся , но как подправить? еслиб тоже через апи или мессаги, былоб гуд 

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

Автор: Girder 30.7.2005, 16:43
М
 
Не отвлекаемся :)
PS: Один топик - один вопрос!

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

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

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

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

#include "stdafx.h"
#include <iostream>
#include <conio.h>
#include <windows.h>
#include <math.h>
using namespace std;


DWORD WINAPI MyThread (LPVOID lpParam){
    HANDLE hSem = CreateSemaphore(NULL,10,10,NULL);
    LONG count = 0;
    int n = 0;
    cout << "Input n: ";
    cin >> n;
        cout << "n: " << n << endl;
    double k = 30;
    double* mas;
    mas = new double [n];
    for (int i = 0; i < n; ++i)
        mas[i]=0;
    CRITICAL_SECTION MyCriticalSection;
    InitializeCriticalSection(&MyCriticalSection);
    EnterCriticalSection(&MyCriticalSection);
    WaitForSingleObject(hSem, INFINITE);
    for (double j = 1.0; j < k; ++j)
        mas[0] += 1/(1.0 + log(5*j) + 8.0);
    double sum = mas[0];
    ReleaseSemaphore(hSem, 1, &count);
    LeaveCriticalSection(&MyCriticalSection);
    for ( int i = 1; i < 10; ++i )
        {WaitForSingleObject(hSem, INFINITE);
        for ( double j = 1.0; j < k; ++j )
            {mas[i] += 1/(double((i+1)*(i+1)) + log(5*j) + 8.0);
            }
        sum += mas[i];
        }

    for ( int i = 10; i < n; ++i )
        {ReleaseSemaphore(hSem, 1, &count);
            for ( double j = 1.0; j < k; ++j )
            {mas[i] += 1/(double((i+1)*(i+1)) + log(5*j) + 8.0);
            }
        WaitForSingleObject(hSem, INFINITE);
        sum += mas[i];
        }
    for (int i = 0; i < 10; ++i)
        {ReleaseSemaphore(hSem, 1, &count);
        }
    cout << "Sum: " << sum << endl;
    CloseHandle(hSem);
    return 0;
}

int _tmain(int argc, _TCHAR* argv[])
{    
    DWORD ThreadId;
    CreateThread(NULL, NULL, MyThread, NULL, NULL, &ThreadId);
    

    cin.get();
    cin.get();
    return 0;
}


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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)