Взаимодействие объектов

← →
Николай В. (2003-01-31 14:06) [0]

Уважаемые Мастера!
Подскажите, пожалуйста как реализовать следующее.
Есть MainForm из нее вызывается некая функция из подключенной моей DLL.
Как на MainForms показать прогресс выполнения этой функции (как передать значение из DLL в MainForms.ProgressBar)?
Зарание благодарен.

← →
malkolinge © (2003-01-31 14:33) [1]

Говорят есть функции обратного вызова !

← →
Николай В. (2003-01-31 15:50) [2]

Как можно обратиться к компоненту через указатель?
Или как иначе?

← →
malkolinge © (2003-01-31 16:06) [3]

> Как можно обратиться к компоненту через указатель?

Запрсто :) просто если передавать указатель в длл будет много беды :
надо либо БПЛ использовать, либо ШареМем включать.....короче сам не знаю толком :)

← →
Набережных С. (2003-01-31 18:23) [4]

Описываешь прототип функции обратного вызова:

TProgressCallback = function(Percent: DWORD; Value: Pointer): bool; stdcall;

Из DLL экспортируешь процедуру:

procedure SomeProcedure(Param1, Param2: DWORD; CallbackPrc, Value: Pointer); stdcall;
var
Percent: DWORD;
begin
Percent:=0;
//Что-то делаешь
Percent:=//Вычисляешь процент
if not TProgressCallback(CallbackPrc)(Percent,Value) then Exit;

//Что-то делаешь
Percent:=//Вычисляешь процент
if not TProgressCallback(CallbackPrc)(Percent,Value) then Exit;

// и т.д.
end;

В приложении пишешь функцию:

function MyCallback(Percent: DWORD; Value: TProgressBar): bool; stdcall;
begin
Value.Position:=Percent;
Application.ProcessMessages;
Result:=not Application.Terminated;
end;

И вызываешь процедуру из DLL:

begin
ProgressBar.Position:=0;
SomeProcedure(Mydata1,Mydata2,@MyCallback,ProgressBar);
end;

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

Взаимодействие объектов Найти похожие ветки