Проблема с вызовом динамической DLL

[SkAndrew]

Добрый вечер!

Delphi 2007. Использую довольно распространенный пример создания динамической DLL:

код dll:

uses
  SysUtils,
  Classes;

{$R *.res}

{ определяем функцию как stdcall }
function GetSimpleText(LangRus: Boolean): PChar; stdcall;
begin
  {В зависимости от LangRus возвращаем русскую (True) либо английскую (False) фразу}
  if LangRus then
    Result := PChar('Здравствуй, мир!')
  else
    Result := PChar('Hello, world!');
end;

{ директива exports указывает, какие функции будут экспортированы этой DLL }
exports GetSimpleText;

begin
end.

код программы:

var
  Form1: TForm1;
  GetSimpleText : function(LangRus: Boolean): PChar;
  LibHandle: THandle;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  {"Чистим" адрес функции от "грязи"}
  @GetSimpleText := nil;
  {Пытаемся загрузить библиотеку}
  LibHandle := LoadLibrary('abbr.DLL');
  {Если все OK}
  if LibHandle >= 32 then begin
    {...то пытаемся получить адрес функции в библиотеке}
    @GetSimpleText := GetProcAddress(LibHandle,'GetSimpleText');
    {Если и здесь все OK}
    if @GetSimpleText <> nil then
      {...то вызываем эту функцию и показываем результат}
      ShowMessage(StrPas(GetSimpleText(True)));
  end;
  {И не забываем освободить память и выгрузить DLL}
  FreeLibrary(LibHandle);
end;

Но при клике по кнопке ShowMessage прекрасно показывает надпись, но потом закрывая ShowMessage получаю ошибку компиллирования. Мастера подскажите в чем причина? Спасибо.

мастера, ну может кто-нибудь может подсказать почему при закрытии окна сообщения компилятор выдает ошибку? что не так прописано в вызове или закрытии или объявлении DLL? Всем спасибо!

Может, не будем "апить", а следовать правилам и пользоваться кнопкой "Правка" ?

[0nni]

function GetSimpleText(LangRus: Boolean): PChar; stdcall;

Ошибка в том, что ты возвращаешь указатель на на локальную переменную.

Если ты внимательно читал комментарий, который был вставлен сразу после строчки library project1, заботливыми разработчиками дельфи, то знал бы что так делать нельзя.

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

А для решения проблемы, рекомендуют подключить в uses и программы и библиотеки ShareMem (самым первым).

Если не хочешь всюду таскать за собой BORLNDMM.DLL (расплата за ShareMem) рекомендую переделать функцию к такому виду:

function GetSimpleText(LangRus: Boolean; Buffer : PChar; BufferSize) : integer;

[SkAndrew]

Спасибо, только это не мой пример, а выложен он в интернете.

А как будет полностью выглядеть функция если ее переделать как Вы предлагаете?

function GetSimpleText(LangRus: Boolean; Buffer : PChar; BufferSize) : integer;
begin
  ???????????????????????
end;

Спасибо.

[0nni]

ну, вот функция в dll

function GetSimpleText(LangRus: Boolean; Buffer : PChar; BufferSize : Integer) : integer;
var
  MyString : string;
  CopyLength : Integer;
begin
   //предварительно формируем строку
   if LangRus then
    MyString :='Здравствуй, мир!'
  else
    MyString := 'Hello, world!';
  //Узнаем ее длинну
  CopyLength := Length(MyString);
  //если длинна больше длинны буфера то уменьшаем ее
  if CopyLength > BufferSize then CopyLength := BufferSize;
  //копируем в буфер то что полученную часть строки
  CopyMemory(Buffer, Pchar(MyString), CopyLength * sizeof(char));
  //Ну и можно вернуть число скопированных строк
  Result := CopyLength;
end;

А вот ее вызов

var
  //формируешь буфер, будем считать что 256 символов хватит
  buff : array[0..255] of char;
begin
  //заполняем весь буфер нулями
  ZeroMemory(@buff, sizeof(buff));
  //вызываем функцию - передавая ей указатель на буфер и его размер (последний символ под #0 оставим)
  GetSimpleText(true, @buff, 255);
  //выведем результат
  writeln(buff);
  Readln;
end.

[NervniiJ]

В данном случае ошибка всеголишь в том, что не указана директива обратного вызова у прототипа функции GetSimpleText.

SkAndrew, вот здесь

var
  Form1: TForm1;
  GetSimpleText : function(LangRus: Boolean): PChar; stdcall; // должна быть!

0nni, пиши есче, сила с тобой.

[0nni]

На*соглашение о вызове не обратил внимание, это тоже ошибка. Однако возвращать таким образом строки можно только*при*соглашении cdecl но ни как не при pascal и stdcall;

[NervniiJ]

Однако возвращать таким образом строки можно только*при*соглашении cdecl но ни как не при pascal и stdcall;

Где, ты тут, увидел "строки"?

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

На*соглашение о вызове не обратил внимание, это тоже ошибка. Однако возвращать таким образом строки можно только*при*соглашении cdecl но ни как не при pascal и stdcall;

не вижу связи.

Ошибка в том, что ты возвращаешь указатель на на локальную переменную.

нет в этом ошибки.
это указатель на строку символов являющейся константой.
и в стеке она не хранится.

ошибка вылетала изза того что при смещении указателя стека при возврате из процедуры, было произведенно смещение, а Делфи этого не ожидала от ДЛЛ(по fastcall на один параметр стек не используется) и потому нарушался стек, вот вам и вылет.

а про локальную переменную вот пример

function bla:Pinteger;
var i:integer;
begin
 i:=random(500);
 Result:=@i;
end;

вот это уже указатель на локальную переменную.

[uberchel]

Да уж легче загрузить статически и не париться )

[0nni]

Строка, на которую указывает PChar хранится не в стеке, это верно, а в куче, только кучи это разные. Почему же GetWindowText имеет вид не
*char GetWindowText (HWND handle) или программисты MS решили сделать жизнь программистам веселее?
Как вариант, можно вернуть указатель на массив символов, выделенный через LocalAlloc(), и освободить через LocalFree() уже после вызова.