-
Здравствуйте. Возникла следующая проблема с фунцией CreateWindow: в основном приложении создается новая форма в одтельном потоке
TProcessForm.Process_Show(self,'test',Image1.Picture.Bitmap);
for I := 0 to 10 do
begin
sleep(100);
end;
TProcessForm.Process_Show(self,'test',Image1.Picture.Bitmap) создает эту форму. код создания формы:
wc.cbSize:=sizeof(wc);
wc.style:=cs_hredraw or cs_vredraw;
wc.lpfnWndProc:=@WindowProc;
wc.cbClsExtra:=0;
wc.cbWndExtra:=0;
wc.hInstance:=HInstance;
wc.hIcon:=LoadIcon(0,idi_application);
wc.hCursor:=LoadCursor(0,idc_arrow);
wc.hbrBackground:=COLOR_BTNFACE+1;
wc.lpszMenuName:=nil;
wc.lpszClassName:='WinMin : Main';
RegisterClassEx(wc);
........
MainWnd:=CreateWindow( 'WinMin : Main',
'Win Min',
wS_POPUP or WS_DLGFRAME,
xPos,
yPos ,
nWidth,
nHeight,
HWNDparent,
0,
Hinstance,
nil
);
........
InvalidateRect(MainWnd,nil,false);
ShowWindow(MainWnd,CmdShow);
UpdateWindow(MainWnd);
Проблема в следующем: если HWNDparent<>0(тоесть создавать дочернюю форму)то при выполнении ShowWindow(MainWnd,CmdShow) управление передается из потока в основное приложение на выполнение цикла и только после завершения цикла поток продолжает работу, выполняет ShowWindow(MainWnd,CmdShow),UpdateWindow(MainWnd) и отображает созданное окно.Если создавать главное окно(HWNDparent=0) все работает нормально, окно создается параллельно работе основного приложения. В чем может быть причина? Мне нужно именно дочернее окно.
-
> В чем может быть причина?
В том что доч.окно создано в другом потоке
-
>
> > В чем может быть причина?
>
>
> В том что доч.окно создано в другом потоке
>
это я понял. а как это победить?
-
> управление передается из потока в основное приложение на
> выполнение цикла
Какого цикла ?
-
> Какого цикла ?
for I := 0 to 10 do
begin
sleep(100);
end;
-
А что это за бестолковый цикл ?
Где он размещен и для каких целей ?
-
> for I := 0 to 10 do
> begin
> sleep(100);
> end;
ну, напиши вместо всего этого sleep(1000), может поможет?)
-
> for I := 0 to 10 do
> begin
> sleep(100);
> end;
напомнило "как индусские программисты узнают завтрашнюю дату:
Sleep(24*60*60*1000);
TomorrowDate := Date;
-
Уважаемые мастера, для самых умных и остроумных поясню. Это фрагмент тестового проекта. Окно ,создаваемое в отдельном потоке, показывает, что приложение выполняет какую-либо процедуру(это может быть обращение к бд на выполнение хранимой процедуры, обработка даных внутри циклов). Цикл,в данном случае эмулирует подобную деятельность. Попробую обьяснить более доходчиво. основное приложении вызывается TProcessForm.Process_Show(self,'test',Image1.Picture.Bitmap); и продолжает свою работу. Process_Show создает новое окно в отдельном потоке, которое показывает,что основное приложение не висит а что-то делает. создание этого окна по-моему показано достаточно полно. Еще раз описываю проблему. Поток нормально начинает работать параллельно с основным приложением, но в момент выполнения ShowWindow(MainWnd,CmdShow); (CmdShow:=WS_SHOWNORMAL) если HWNDparent<>0 управление предается в основное приложение, выполнение потока прерывается, и только после того, как приложение завершит свою работу(в данном случае цикл), поток продолжает выполнение и отображает окно. Есть какие-то конструктивные предложения по этому поводу? P.S.
> напомнило "как индусские программисты узнают завтрашнюю
> дату:
> Sleep(24*60*60*1000);
> TomorrowDate := Date;
с таким остроумием срочно в аншлаг.
-
> Окно ,создаваемое в отдельном потоке, показывает, что приложение
> выполняет какую-либо процедуру(это может быть обращение
> к бд на выполнение хранимой процедуры, обработка даных внутри
> циклов).
Смахивает на бред.
Вот когда доппоток создаётся для выполнения каких-то длительных процессов, а основной поток показывает, что приложение не подвисло, это вполне естественный вариант. А тут всё наоборот?
-
> А тут всё наоборот?
Именно. Все наоборот. На то есть свои причины.
-
> sc0rp (28.03.09 00:38) [10]
>
>
> > А тут всё наоборот?
>
> Именно. Все наоборот. На то есть свои причины.
>
Ну тогда ты первопроходец!
Вперёд с песнями. Если что-то получится, сообщи. Похлопочем о выдвижении твоего решения на нобеля (ну или хотя бы шнобеля :).
P.S. Ну а "свои причины" равно как и собственно задачу скрываем.
Партизаны никогда не выдают свои ноухау! :)
-
Уважаемый Мастер Германн:
во первых вы ошибаетесь
> Ну тогда ты первопроходец!
покопавшись в интернете вы найдете подобное решение для подобной проблемы.
во вторых, если вам объяснение причин поможет ответить на поставленный вопрос, то объясняю. Большой программный комплекс, работает с бд. Много запросов на выполнение хранимых процедур. Изначально это окно было сделано с использованием VCL и при выполнении хранимой процедуры(может занимать много времени) vcl-ная форма подвисала, ожидая ответа от сервера. Обращение к серверу было реализовано на BDE,часть уже переведено на ado c асинхронным выполнением запроса, большинство осталось без изменения. Создание окна в отдельном потоке позволяет решить проблему подвисания.
> Вот когда доппоток создаётся для выполнения каких-то длительных
> процессов, а основной поток показывает, что приложение не
> подвисло, это вполне естественный вариант.
переделывать весь комплекс не вариант.
-
> покопавшись в интернете вы найдете подобное решение для подобной проблемы.
проблема у тебя, а копаться ему? :))) раз решение есть, и ты его видел, то просто его выполни. чего спрашивать то?
> переделывать весь комплекс не вариант.
если в основе извращенная логика (а судя по описанию так и есть), то вариантов то как раз и нет, это единственный верный путь. переделывать.
скажите спасибо тому кто заложил такую основу.
в нормальном варианте за интерфейс отвечает основной поток, а вот работу, длительные операции выносят в потоки. никак не наоборот.
-
для нормального функционирования окна нужно обеспечить обработку мессаджей...
чтото типа
while GetMessage do DispatchMessage
|
Есть новые 
Нет новых [134435 +2][b:0][p:0.002]