Delphi dll function import under QT

[Gep]

Hi!

I heave a delphi dll, this exported function:

function GetAdminSID: String;

function GetAdminSID: String;

To copy to clipboard, switch view to plain text mode 

How to import this function in QT?

I use QLibrary to import but when I call the function GetAdminSID(); my application stopped with this message: "exited with code -1073741819"

extern "C" { typedef char*(__stdcall * PGetAdminSID)(); }
PGetAdminSID GetAdminSID;

extern "C" { typedef char*(__stdcall * PGetAdminSID)(); }
PGetAdminSID GetAdminSID;

To copy to clipboard, switch view to plain text mode 

QLibrary lib;
lib.setFileName("delphidll");
 
if (!lib.load())
{
   qDebug("mainwindow: Can not load library!");
   return false;
}
 
GetAdminSID = (PGetAdminSID)lib.resolve("GetAdminSID");
 
if (!GetMachineID)
{
   lib.unload();
   qDebug("mainwindow: 'GetAdminSID' not found in library!");
   return false;
}
 
return true;

QLibrary lib;
lib.setFileName("delphidll");

if (!lib.load())
{
   qDebug("mainwindow: Can not load library!");
   return false;
}

GetAdminSID = (PGetAdminSID)lib.resolve("GetAdminSID");

if (!GetMachineID)
{
   lib.unload();
   qDebug("mainwindow: 'GetAdminSID' not found in library!");
   return false;
}

return true;

To copy to clipboard, switch view to plain text mode 

Thanks!
Hi!

[high_flyer]

The third code section you posted: does it return true or false?

[Gep]

Return true but when i call the imported function (GetAdminSID) the application terminated this message: "exited with code -1073741819"

[wysota]

Search our forums and/or msdn for C0000005. If I were to guess, I'd say you were passing an invalid parameter to the function or expecting an invalid return type. Or possibly the function requires some environment that is missing outside a Delphi program.

[Gep]

Function parameter is the problem:

function GetAdminSID: String;

function GetAdminSID: String;

To copy to clipboard, switch view to plain text mode 

becouse I changed:

function GetAdminSID: PChar;

function GetAdminSID: PChar;

To copy to clipboard, switch view to plain text mode 

Everything works fine.

but unfortunately, this DLL is already in use. So I would not change. This version should I use:

function GetAdminSID: String;

function GetAdminSID: String;

To copy to clipboard, switch view to plain text mode 

Is idea someones of the declaration I how to change?

extern "C" { typedef char*(__stdcall * PGetAdminSID)(); }

extern "C" { typedef char*(__stdcall * PGetAdminSID)(); }

To copy to clipboard, switch view to plain text mode 

Thanks!
Hi!

[wysota]

You need to check what is the C representation for Delphi's String class. You can always work around the problem by using another dll that will contain a delphi function returning a PChar that will call your original function to serve as an adapter.

[Gep]

Yes, if other is not so feasible. Although not very elegant solution. Still I look around

Thanks for everything!
Hi!