Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 145419
29.09.2008, 14:51
0.00 руб.
0 0 0
Компьютеры Программирование
Здравствуйте эксперты!
Есть некое приложение написанное на Delphi.. с этого приложения запускаю форму, форма находится в библиотеке dll, на этой форме есть компонент TImage...Как мне рисунок который я загружаю в этот компонент при закрытии формы передать на главную форму (там тоже есть компонент TImage)? У меня не работает следующий код...



Приложение:
вызываю форму из dll:
Код:

procedure TVideoForm.Button1Click(Sender: TObject);
var
  LibHandle   : THandle;
  SHowCapture      : TSHowCapture;
  b: Tbitmap;
begin

  LibHandle := LoadLibrary('prCapture.DLL');
  try
    if LibHandle = 0 then raise EDLLLoadError.Create('Unable to Load DLL');
      @SHowCapture := GetProcAddress(LibHandle, 'ShowCapture');
     if not (@SHowCapture = nil) then

      Image1.Picture.Bitmap := TBitmap(SHowCapture(Handle, nil))
     else
      RaiseLastWin32Error;
  finally
    FreeLibrary(LibHandle); // Unload the DLL.
  end;


end;




внутри dll следующий код:
Код:

function ShowCapture(AHandle: THandle; AImage: Pointer): Pointer;
var
  fCapture: TfCapture;
begin
Result := nil;
Application.Handle := AHandle;
fCapture:= TfCapture.Create(Application);

  try
   fCapture.ShowModal;
   Result := Pointer(fCapture.Image.Picture.Bitmap);
  finally
   fCapture.Free;
  end;
end;


Обсуждение

Форма ответа