DLL Call using Delphi Library

[Enforcer]

Hi everybody, got a little problem...

Lets say i have Delphi library something like this:

library KPOT;

uses
  SysUtils,
  Dialogs,
  Classes;

{$R *.res}

function GO(hz: string): integer;
begin
ShowMessage('DLL CALLED !!!! YO-'+hz);
Result := 2;
end;

exports
   GO;

begin
end.

and got autoit3.au3 test script:

$lol = DllCall("KPOT.dll", "int", "GO","str","TEEEEEEEST FINE !!!")

But when I'm runing it - it returns Fatal Error - can't read memory at adress... What I'm doing wrong ? Please help.

[Enforcer]

any help ? still need to solve this problem...

[smartee]

hi Enforcer,

The problem might be memory management using strings in Delphi, here is an article with details.

The Solution?

Long story short, use Pchar or the likes to handle strings, here is with example Delphi Dll code and the corresponding AutoIt.

Hope this helps

-smartee

[funkey]

Hi enforcer:

Please upload the test dll, so that I can test it.

[GHOSTSKIKDA]

library KPOT;

uses
  SysUtils,
  Dialogs,
  Classes;

// {$R *.res} ===== for delete

function GO(hz: string): integer;
begin
ShowMessage('DLL CALLED !!!! YO-'+hz);
Result := 2;
end;

exports
   GO;

begin
end.