Такая во проблемма ..... DLL еще нет, но собираюсь написать ........

В самой программе есть ProgressBar и надо сделать так чтоб DLL управляла этим ProgressBar'ом .... что мне передать ей и как им управлять из неё (из DLL) .......... при этом именно DLL должна передавать значение ProgressBar'у т.е. управлять им, а не программа.

может это будет выглядеть так?

mov eax, offset ProgressBar.Position
mov PosAddr, eax

а потом это передать DLL'ке ... чтоб она могла изменять значение .... сработает? А какие есть еще предложение? Можно попроще? .... Именно она должна двигать полоску ПрогрессБара! ....... А DLL'ка примерно выполняет копирование файла по блокам (как в примере Дельфи) ... вот и надо сделать чтоб она в этом цикле изменяла значение ПрограссБара

ЗЫ не могу сегодня собраться с мыслями .... уж извените меня

Что бы изменять значение ProgressBar-а из DLL можно, например, использовать сообщения. Используй какое нить значение больше WM_USER. Ну например:

Код

const WM_PROGRESSUPDATE=WM_USER+100; в ДЛЛ: var mHandle:THandle; ProgressValue:integer; {на DLL_PROCESS_ATACH находишь хендл твоего окна} mHandle:=FindWindow('TForm1',nil); for i:=0 to n do begin  {Операции в цикле}  ProgressValue:={Вычисляешь значение ProgressBar-а}  PostMessage(mHandle,WM_PROGRESSUPDATE,0,ProgressValue); end; в твоей программе: TForm1=class(TForm)   public    ...    procedure UpdateProgress(var Msg:TMessage);message WM_PROGRESSUPDATE;    ...   end; procedure UpdateProgress(var Msg:TMessage); begin ProgressBar1.Position:=Msg.lParam; end;

Если же хочется передеть ДЛЛ - ке ссылку на экземпляр твоего ProgressBar-а, то такое не выйдет, разве что использовать Борландовские пэкэйджи.

Это сообщение отредактировал(а) <Spawn> - 17.9.2003, 05:46

А почему нельзя просто хэндл окна(прогрессбара) передать?
Соотв. посылать окошку PBM_SETPOS или PBM_STEPIT
Ну или, если длл на дельфи, то почему нельзя передать (var ProgressBar: TProgressBar)?
А в длл делать с ним чего хочешь...

<Spawn>, зачем изобретать велосипед?
Сообщения для установки позиции в прогрессбаре существуют

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

Это сообщение отредактировал(а) <Spawn> - 17.9.2003, 12:33

Спасибо <Spawn> и Baa .......... теперь все понятно и как всегда все очень просто

ЗЫ Я это буду применять в двух вариантах:
1) EXE (Asm) - DLL (Delphi)
2) EXE (Delphi) - DLL (Любой язык)
Так что идеально подходят сообщения ;)

Возник один нюанс

Цитата

Соотв. посылать окошку PBM_SETPOS или PBM_STEPIT

таких констант в Дельфи просто нет, т.е. в Messages нет таких констант ... может просто скажите ихнии значения?

А кто сказал что они там будут? Все делается просто:
1) Ставишь на форму ProgressBar;
2)Видишь что он юзает модуль ComCtrls;
3)Пытаешься найти в этом модуле нужные константы.
4)Видишь, что их там нет. Тогда смотришь какие модули используют данный модуль, ища что нить близкое по смыслу. Ага вот оно - CommCtrl.
5) Опять поиском ищешь константы. Вот и они:

Код

{$EXTERNALSYM PBM_SETPOS}  PBM_SETPOS              = WM_USER+2;  {$EXTERNALSYM PBM_STEPIT}  PBM_STEPIT              = WM_USER+5;

Это сообщение отредактировал(а) <Spawn> - 22.9.2003, 07:49

Цитата

А кто сказал что они там будут? Все делается просто: 1) Ставишь на форму ProgressBar; 2)Видишь что он юзает модуль ComCtrls; 3)Пытаешься найти в этом модуле нужные константы. 4)Видишь, что их там нет. Тогда смотришь какие модули используют данный модуль, ища что нить близкое по смыслу. Ага вот оно - CommCtrl. 5) Опять поиском ищешь константы. Вот и они: Код  {$EXTERNALSYM PBM_SETPOS}  PBM_SETPOS              = WM_USER+2;  {$EXTERNALSYM PBM_STEPIT}  PBM_STEPIT              = WM_USER+5;

Спасибо ..... не знал .... копался в Messages, но в следующий раз запущю поиск в каталоге дельфи на *.pas и текст нужной константы

Это сообщение отредактировал(а) Monty - 22.9.2003, 19:09