VPF::Работа с DLL!? - Форум программистов

Yuriy

Дата 23.12.2004, 20:34 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Проблема следующая:
Необходимо из DLL вызвать процедуру описаную в EXE. как это сделать и как правильно описать процедуру?

FRAGNATIC

Дата 23.12.2004, 21:49 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: нет
Всего: 11

DLL

Код

Uses Windows,Messages, Controls;
............................
const
  WM_MESSAGE_FROM_MY_HOOK = WM_USER + $AA;
.......................
procedure ......
begin
     PostMessage(FindWindow('TMainForm',nil), WM_MESSAGE_FROM_MY_HOOK, Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
...................

ну вообщем PostMessage

Unit

Код


.......................
const
  WM_MESSAGE_FROM_MY_HOOK = WM_USER + $AA;
................................
private
     procedure WM_MSG_FROM_HOOK(var msg: TMessage); message WM_MESSAGE_FROM_MY_HOOK;
.......................
procedure TMainForm.WM_MSG_FROM_HOOK(var msg: TMessage);
begin
//действие
end;
............................

Illusion Dolphin

Дата 24.12.2004, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 4
Всего: 63

Yuriy: раз ты умеешь делать dll, то тогда всё намного проще чем ты думаешь ;). exe-модуль имеет точно такой же формат, что и dll, поэтому он тоже может содержать таблицу экспорта. Так что можешь в своём приложении так же как и в dll описать функцию, вынести её в export и вызывать её из dll.

P.S. Тут есть одни грабли! Разного рода упаковщики, AsPack к примеру, при упарокве exe неправильно упаковывают эту таблицу экспорта, тоэтому после упаковки могут возникнуть проблемы с использовании экспортируемых функций в exe.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Girder

Дата 24.12.2004, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Цитата(Yuriy @ 23.12.2004, 20:34)

Необходимо из DLL вызвать процедуру описаную в EXE. как это сделать и как правильно описать процедуру?

Передать указатель на енту процедуру smile

(или функцию)

Типо так:
-DLL:

Код

library DLL_EXE;

uses SysUtils, Classes;

{$R *.res}

type
 TXXX = procedure(Str:String); stdcall;

function FuncXXX(XXX:TXXX):Boolean; stdcall;
begin
 Result:=false;
 if assigned(XXX) then
  begin
   XXX('Girder');  //Вызываем кролика
   Result:=true;
  end;
end;

exports FuncXXX;

begin
end.

-EXE:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Const
 _Dll='DLL_EXE.dll';

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function FuncXXX(Func_Proc:Pointer):Boolean; stdcall; external _Dll;


implementation

{$R *.dfm}

procedure CaptionXXX(S:string); stdcall; //Подопотный кролик :)
begin
 Form1.Caption:=s;
end;

procedure TForm1.Button1Click(Sender: TObject); //Не забудь на кнопку(OnClick) повесить, вот енту процедуру :)
begin
 FuncXXX(@CaptionXXX); //Передаем указатель
end;

end.

Удачи.

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »