From: CynicRus
Well, I run that as you say:
Compiled successfully in 328 ms.
function(AnsiString):AnsiString ("Hello"::0x780D610)
function():Int32 ("DoSomething"::0x780D624)
function():AnsiString ("HelloWorld"::0x780D634)
Successfully executed.
Of course In Lazarus I do not have any problem, but as I said - I try to use unicode version of Delphi. It is not clear why it is possible to write a plugin in C/C++, but cannot in Delphi. I think, code in Delphi 7 also will work without any problem.
UPD: Same results in Delphi2010.
Upd1: In Delphi 2006 working only Hello and DoSomething procedure:)
Compiled version of dll in the attachment.
There is something wrong with your compiler or plugins.. NOTHING works in C or C++.. Don't have to print anything. Just calling the functions alone crashes.
Test code:
#include <windows.h>
#include <iostream>
std::string ErrorMessage(std::uint32_t Error)
{
LPTSTR lpMsgBuf = nullptr;
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, nullptr, Error, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), reinterpret_cast<LPTSTR>(&lpMsgBuf), 0, nullptr);
std::string res(lpMsgBuf);
LocalFree(lpMsgBuf);
return res;
}
typedef struct
{
int32_t ref;
int32_t length;
char data[1];
} delphi_string;
int main()
{
HMODULE mod = LoadLibrary("test.dll");
if (mod)
{
int (__cdecl *GetFunctionCount)() = (int (__cdecl *)())GetProcAddress(mod, "GetFunctionCount");
int (__cdecl *GetFunctionInfo)(int, void*&, char*&) = (int (__cdecl *)(int, void*&, char*&))GetProcAddress(mod, "GetFunctionInfo");
std::cout<<"Function count: "<<GetFunctionCount()<<"\n";
const char* (__cdecl *hello)(const char*) = NULL;
int (__cdecl *DoSomething)() = NULL;
char* (__cdecl *HelloWorld)() = NULL;
char* dummy = new char[256];
GetFunctionInfo(0, (void*&)hello, dummy);
std::cout<<dummy<<"\n";
GetFunctionInfo(1, (void*&)DoSomething, dummy);
std::cout<<dummy<<"\n";
GetFunctionInfo(2, (void*&)HelloWorld, dummy);
std::cout<<dummy<<"\n";
delete[] dummy;
DoSomething(); //ERROR.. Crashes with a segfault. Hello crashes. HelloWorld crashes too.
/*char* foo = new char[256];
delphi_string* str = (delphi_string*)&foo[0];
strcpy(str->data, "hello");
str->ref = 0xFF;
str->length = strlen(str->data);
str->data[str->length + 1] = 0;
hello(foo);
delete[] foo;*/
FreeLibrary(mod);
}
else
{
std::cout<<ErrorMessage(GetLastError());
std::cout<<"Failed to load module.";
}
return 0;
}
Results (before it crashes):
Function count: 3
function Hello(S: String):String; native;
function DoSomething(): Integer; native;
function HelloWorld(): String; native;
Process returned -1073741819 (0xC0000005)
0xC0000005 = Access Violation.
You might have to export the above functions. I tried it in Simba and I tried it in C & C++. The first function works in Simba but after that, you're out of luck.
I checked your functions' assembly.. Everything is fine.. Though, it's not in Unicode as you said.. It's exactly how you coded it (using AnsiString). The assembly is perfectly fine so there's something else wrong. Perhaps it HAS to be in the export table which is the only logical conclusion I can come up with.
The ASM is below:
;This is your HELLO Function.
;------------------------------------------------------------------------------
L004CD610:
push ebp
mov ebp,esp
mov eax,[ebp+0Ch]
mov edx,[ebp+08h]
mov edx,[edx]
mov edx,[edx]
call SUB_L00408F04
pop ebp
retn
;This is your DO_SOMETHING Function.
;------------------------------------------------------------------------------
L004CD624:
push ebp
mov ebp,esp
mov eax,[ebp+08h]
mov dword ptr [eax],00000033h ;10*5+1 = 51-dec => 0x33h
pop ebp
retn
;This is your HELLO_WORLD Function.
;------------------------------------------------------------------------------
Align 4
L004CD634:
push ebp
mov ebp,esp
mov eax,[ebp+08h]
mov edx,SLP004CD654_hello_world
call SUB_L00408F04
pop ebp
retn
;The .data/.text section that contains global variables..
;It shows that it contains your 'hello world' string as an array of bytes..
;NOT wide-chars (aka Unicode-UTF16).
;It is encoded in ANSI string format (ASCII aka Windows-1252 on Windows.. UTF-8 on Linux).
;------------------------------------------------------------------------------
db 00h;
db 00h;
db E3h; '£'
db 04h;
db 01h;
db 00h;
dd FFFFFFFFh
dd 0000000Bh
SLP004CD654_hello_world:
db 'hello world'
Align 4
;------------------------------------------------------------------------------
GetPluginABIVersion:
mov eax,00000002h ;Return CDECL abi($2)
retn
;------------------------------------------------------------------------------
Align 4
SetPluginMemManager:
push ebp
mov ebp,esp
cmp byte ptr [L004D56FC],00h
jnz L004CD68D
mov eax,L004DB008
call SUB_L00406428
lea eax,[ebp+08h]
call SUB_L00406444
mov byte ptr [L004D56FC],01h
L004CD68D:
pop ebp
retn
;------------------------------------------------------------------------------
Align 4
OnDetach:
mov eax,L004DB008
call SUB_L00406444
retn
;------------------------------------------------------------------------------
Align 4
GetFunctionCount:
mov eax,00000003h
retn
;In the below:
;call SUB_L0041E50C ;is a call to StrPCopy.
;jmp L004CD70A ;is to "return". Aka "result := x".
;------------------------------------------------------------------------------
Align 4
GetFunctionInfo:
push ebp
mov ebp,esp
push ebx
mov ebx,[ebp+08h]
mov eax,ebx
sub eax,00000001h
jc L004CD6B9
jz L004CD6D3
dec eax
jz L004CD6ED
jmp L004CD707
L004CD6B9:
mov eax,[ebp+0Ch]
mov dword ptr [eax],L004CD610
mov eax,[ebp+10h]
mov eax,[eax]
mov edx,SLP004CD71C_function_Hello_S__String__String
call SUB_L0041E50C
jmp L004CD70A
L004CD6D3:
mov eax,[ebp+0Ch]
mov dword ptr [eax],L004CD624
mov eax,[ebp+10h]
mov eax,[eax]
mov edx,SLP004CD754_function_DoSomething____Integer_
call SUB_L0041E50C
jmp L004CD70A
L004CD6ED:
mov eax,[ebp+0Ch]
mov dword ptr [eax],L004CD634
mov eax,[ebp+10h]
mov eax,[eax]
mov edx,SLP004CD78C_function_HelloWorld____String__n
call SUB_L0041E50C
jmp L004CD70A
L004CD707:
or ebx,FFFFFFFFh
L004CD70A:
mov eax,ebx
pop ebx
pop ebp
retn
;The .data/.text section containing your strings that are used within the GetFunctionInfo function.
;Nothing to see here. It's plain text. No Unicode (UTF-16) here.
;------------------------------------------------------------------------------
db 00h;
db E3h; '£'
db 04h;
db 01h;
db 00h;
dd FFFFFFFFh
dd 00000029h
SLP004CD71C_function_Hello_S__String__String:
db 'function Hello(S: String):String; native;'
db 00h;
db 00h;
db 00h;
db E3h; '£'
db 04h;
db 01h;
db 00h;
dd FFFFFFFFh
dd 00000028h
SLP004CD754_function_DoSomething____Integer_:
db 'function DoSomething(): Integer; native;'
db 00h;
db 00h;
db 00h;
db 00h;
db E3h; '£'
db 04h;
db 01h;
db 00h;
dd FFFFFFFFh
dd 00000026h
SLP004CD78C_function_HelloWorld____String__n:
db 'function HelloWorld(): String; native;'
Align 4
unit00000028.Finalization:
retn
If it cannot load in C, I highly doubt it's going to load anywhere else. Once you do that and compile it, I'd look it over and see how things go if you want.
