Вопрос о dll

[Altera]

Вот скачал Базу данных вопросов и ответов по Делфи, специально для
http:\\programmersForum.ru\ от Михалыча

Открыл разнел DLL => Использование и создание DLL в Дельфи...
Там предлагаеться код для DLL

uses
  SysUtils,
  Classes;

{$R *.res}
function getsimpletext(langrus: boolean): pchar; stdcall; 
begin 
   if langrus then result := pchar('Здравствуй мир')
   else result := pchar('hello, world!');
end;

exports getsimpletext;
begin 
end.

И для EXE

var
  test_form2: Ttest_form2;
  getsimpletext: function(langrus: boolean): pchar;
  libhandle: thandle;
implementation

{$R *.dfm}

{ Ttest_form2 }

procedure Ttest_form2.Button1Click(Sender: TObject);
begin
   @getsimpletext := nil;
   libhandle := loadlibrary('mydll.dll');
   if libhandle >= 32 then
   begin
      @getsimpletext := getprocaddress(libhandle,'getsimpletext');
      if @getsimpletext <> nil then
      showmessage(strpas(getsimpletext(false)));
   end;
   freelibrary(libhandle);
end;

Но не имеет значение, указываю я getsimpletext(false) или getsimpletext(true) возвращаеться "Здравствуй мир" и после этого сообщение об ошибке...
=================================
А вот так сообщение об ошибке не выходит, но message 11111

var
  test_form2: Ttest_form2;
  func: function(value: boolean): integer;
  libPoint: thandle;
implementation

{$R *.dfm}

{ Ttest_form2 }

procedure Ttest_form2.Button1Click(Sender: TObject);
begin
   @func := nil;
   libPoint := loadlibrary(pChar(extractFilePath(application.exeName)+'..\dllka\dllka.dll'));
   if libPoint >= 32 then
   begin
      @func := getprocaddress(libPoint, 'procedure');
      if @func <> nil then
      showmessage(intToStr(func(false)));
   end;
   freelibrary(libPoint);
end;

uses
  SysUtils,
  Classes;

{$R *.res}
function testFunc(value: boolean): integer; stdcall;
begin
   if value then result := 11111
   else result := 22222;
end;

exports testFunc name 'procedure';
begin 
end.

[N!ckeL]

Там предлагаеться код для DLL

uses   
  SysUtils,   
  Classes;   
  
{$R *.res}   
function getsimpletext(langrus: boolean): pchar; stdcall;    
begin    
   if langrus then result := pchar('Здравствуй мир')   
   else result := pchar('hello, world!');   
end;   
  
exports getsimpletext;   
begin    
end.

Попробуй так:

uses   
  SysUtils,   
  Classes;   
  
{$R *.res}   
function getsimpletext(langrus: boolean): pchar; stdcall;    
begin    
   if langrus=true then 
     result := pchar('Здравствуй мир');   
   if  langrus=false then
     result := pchar('hello, world!');   
end;   
  
exports getsimpletext;   
begin    
end.

[Air]

"N!ckeL" а разница?
относительно логики - никакой.

[Altera]

Разница есть, только не та, что нужна... Выдаёт 2013016172 в обоих случаях...
Меня интересует, почему тот код не пашет, из http://programmersclub.ru/dfaq/

[Air]

Я делал как то так.

type
TDLLBol_Str = function(Bol:Boolean):pchar;
end;
....

function CallDLLBol_Str(WayDll,NameFunc:String; Bol:Boolean):pchar;
var
 DLLHandle: THandle;
 Info: TDLLBol_Str;
begin
result:='';
 try
  DLLHandle := loadLibrary (pchar(WayDll));
   if DLLHandle <> 0 then
    begin
     @Info := getProcAddress ( DLLHandle, pchar(NameFunc) );
     if addr ( Info ) <> nil then
      begin
       result:=Info(Bol);
      end
     else
      showMessage ('Точка входа в библиотеку "'+ WayDll +'" не найдена');
    end
   else
    showMessage ('Модуль "'+WayDll+'" не найден');
 finally
  freeLibrary (DLLHandle);
 end;
end;
...


label1.Caption:=CallDLLBol_Str('Mydll.dll','getsimpletext' true);

попробуй.

[B_N]

Altera, если функция в библиотеке объявлена как stdcall, так же она и должна объявляться в приложении, использующем библиотеку.

[alexBlack]

2Altera

Обратите внимание - в dll stdcall, в exe нет
Объявите так

getsimpletext: function(langrus: boolean): pchar; stdcall;

и ошибки не будет. Разные модели вызова, проблемы со стеком ...

[Altera]

Ничерта не помогает!

Неужели никто не знает, как это сделать, чтоб 100% работало б....

Почти во всех приложениях юзаеться этот способ...!

Почему-то проге всё равно, там true, или false...

p.s. Где mihali4?

[mihali4]

Отвечаю.
Вам бы чуть-чуть побольше внимания - цены б вам не было!
Пример не мой, но тем не менее.
При объявлении функции из DLL необходимо указывать способ передачи аргументов: stdcall;
Таким образом, "организованную" вами ошибку нужно устранить простым добавлением в строке программы:
getsimpletext: function(langrus: boolean): pchar; stdcall;

Вот и все...

З.Ы. А по поводу вашего последнего вопля () - какой входной параметр вы функции отослали, такой результат она вам и вернет. А вы все время посылаете ей параметр FALSE.

[Altera]

З.Ы. А по поводу вашего последнего вопля () - какой входной параметр вы функции отослали, такой результат она вам и вернет. А вы все время посылаете ей параметр FALSE.

....
Ладно! Вроди пашет! Но в примере указанно

Пример 2. Динамическая загрузка dll
{... Здесь идет заголовок файла и определение формы tform1 и ее экземпляра form1} 
var form1: tform1; getsimpletext: function(langrus: boolean): pchar; 
libhandle: thandle; 
procedure button1click(sender: tobject); 
begin 
{"Чистим" адрес функции от "грязи"} 
@getsimpletext := nil; 
{Пытаемся загрузить библиотеку} 
libhandle := loadlibrary('mydll.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;

Без stdCall...

Но всёравно, СПАСИБО!