экспорт функций и процедур из exe файла

[Пепел Феникса]

можете, пожалуйста, привести пример?

[JTG]

Точно так же, как и в dll

procedure one(p: pchar);
begin
  MessageBox(0,p,'',0);
end;

function two(foo:integer):integer;
begin
  two:=foo*2;
end;

exports one, two;

[Пепел Феникса]

спасибо за ответ

но я понял что не правильно сформулировал вопрос
нужно чтото типа API к моей программе
то есть получение данных из нее и отправка данных в неё(передача команд и тд...запросы и прочее)

заранее спасибо

[Stilet]

Цитата из Delphi World

В DPR файле совершенно обычного проэкта дельфи можно указать функцию (процедуру) и объявить ее как экспортируемую - синтаксис точно такой-же как при создании стандартной DLL. С таким довеском EXE совершенно нормально компиллируется и работает и как EXE и как DLL (т.е. из нее можно импортировать описанные функции). Зачем это нужно? Была одна задача - делал консоль которая связывала воедино несколько приложений, так экспортные функции позволяли существенно расширять функциональность комплекса. Правда такой EXE все же имеет недостаток - EXE упаковщики сохраняют исполняемую часть и неправильно упаковывают экспортированную...

то есть получение данных из нее и отправка данных в неё

Прикрути к проге СОМ-сервер.

[BaronTreep]

А можно уточняющий пример насчет exe-like-dll? У меня получалось на Си, а тут:

procedure one(p : pchar); export; stdcall; // Кстати cdecl и pascal тоже не спасают
begin
  MessageBox(0, p, '', 0);
end;

exports one name 'one';

В итоге Access Violation по нулевому адресу.

[Stilet]

Неее. там не все так гладко будет...
А чего именно из EXE нужно?

[JTG]

Вот так вроде

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  oneProc: procedure (p: pchar) stdcall;
  twoProc: function (foo:integer):integer stdcall;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var lib:HModule;
begin
 lib := LoadLibraryEx('e:\копия project1.exe', 0, DONT_RESOLVE_DLL_REFERENCES);
 if not Win32Check(longbool(lib)) then exit;

 oneProc := GetProcAddress(lib,'one');
 if not Win32Check(longbool(@oneProc)) then exit;

 twoProc := GetProcAddress(lib,'two');
 if not Win32Check(longbool(@twoProc)) then exit;

 oneProc( pChar(IntToStr(twoProc(1))) );
end;

procedure one(p: pchar); stdcall;
begin
  MessageBox(0,p,'Тест',0);
end;

function two(foo:integer):integer; stdcall;
begin
  two:=foo*2;
end;

exports one, two;

end.

Экзешник с экспортом должен иметь секцию релоков (делфи их везде пихает) и его нельзя грузить статически или через LoadLibrary, т.к. при этом загрузчик ожидает увидеть в точке входа функцию DllMain, которая обязана вернуть ненулевое значение, а её нет.
Использовать модель вызова stdcall вообще-то не обязательно, просто чтоб народ не путать, если кто-то захочет импортировать функцию

[BaronTreep]

Точно, DllMain то нет. Почти работает - создал один прожект:

  oneProc: procedure (p: pchar) stdcall;

procedure TForm1.FormCreate(Sender: TObject);
var
 lib : HModule;
begin
 lib := LoadLibraryEx('Project1.exe', 0, DONT_RESOLVE_DLL_REFERENCES);
 if not Win32Check(longbool(lib)) then exit;
 oneProc := GetProcAddress(lib,'one');
 if not Win32Check(longbool(@oneProc)) then exit;
end;

procedure one(p: pchar); stdcall;
begin
  MessageBox(0, p, 'Wath', 0);
end;

exports one;

И второй:

  oneProc: procedure (p: pchar) stdcall;

procedure TForm1.FormCreate(Sender: TObject);
var lib:HModule;
begin
 lib := LoadLibraryEx('Project1.exe', 0, DONT_RESOLVE_DLL_REFERENCES);
 if not Win32Check(longbool(lib)) then exit;

 oneProc := GetProcAddress(lib,'one');
 if not Win32Check(longbool(@oneProc)) then exit;

 oneProc( '' );
end;

Вызов во втором работает только если в первом есть TForm1.Create с LoadLibraryEx и т.д. - парадокс, опять же в заголовке MessageBox непонятно что.

Вызов процедуры в Project1 из самое себя сработал только так:

type
  oneProc = procedure (p: pchar) stdcall;

var
  onePr : oneProc;
  lib : HModule;

procedure one(p: pchar); stdcall;
begin
  MessageBox(0, p, 'Wath', 0);
end;

exports one;

procedure TForm1.FormCreate(Sender: TObject);
begin
 lib := LoadLibraryEx('Project1.exe', 0, DONT_RESOLVE_DLL_REFERENCES);
 onePr := GetProcAddress(lib, 'one');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 onePr('1');
end;

[BaronTreep]

// needtesting.c

#include <stdio.h>
#include <windows.h>

__declspec(dllexport) void Check(char * Capt, char * Mess)
{
  MessageBox(0, Mess, Capt, SW_SHOW);
}

void main()
{
  HMODULE h;
  void (*fun)();

  if ((h = LoadLibrary("needtesting.exe")) 
    && (fun = (void (*)()) GetProcAddress(h, "Check")))
      fun("English", "Русский");
}

В Си обычная LoadLibrary работает (?)

[JTG]

Короче это всё изврат. При попытке экзешника загрузить самого себя через LoadLibrary, она вернёт дескриптор уже загруженного модуля, это легко проверить, добавив в Button1Click

ShowMessage( format('HInstance 0x%x' + #13 + 'Loaded at 0x%x', [hinstance, lib]));

В этом случае GetProcAddress нормально отработает и фактически вернёт адрес функции в самой программе. Если грузить самого себя через LoadLibraryEx - результат получается непредсказуем, и фиг его знает что там происходит со счётчиком ссылок, работает через раз


Теперь что будет, если экспорт в одном экзешнике, а вызываем его функции из другого:
в МСДН мелким шрифтом написано "If the specified module is an .exe file, static imports are not loaded": при загрузке секция импорта не заполняется и вместо того же MessageBox в экспортируемой функции будут адрес, ведущий в космос. Если в функции чистая арифметика и т.д. - всё ок, обращение к импорту - ошибка. Чтоб подгрузить оттуда другой модуль, видимо придётся "по Рихтеру" находить kernel32.dllи работать через LoadLibrary/GetProcAddress (или же передавать их адреса параметрами функции), или каким-то образом вручную заполнять импорт.