Cpp DLL и Delphi App...

← →
Landgraph (2002-08-30 09:50) [0]

На C++ написана библиотека со следующей функцией:
extern "C" char __export *asd( char *text)
{
MessageBox(0, text, "tst", 0);
return "asd";
}

Библиотека динамически загружается программой:
procedure TForm1.Button1Click(Sender: TObject); var dll:HWND; asd: function(text:PChar):PChar; begin @asd:=nil; dll:=LoadLibrary("dll.dll"); if(dll>=32) then begin asd:=GetProcAddress(dll, "_asd"); if(@asd=nil) then MessageBox(Handle, "NO FUNC!", "damn!", 0) else begin Memo1.Lines.Add(asd("TEST MSG")); end; end; FreeLibrary(dll); end;
В результате работы получается, что функция возвращает "asd", но MessageBox выдает отнюдь не "TEST MSG", а какие-то отвлеченные символы.
Вопрос: Что не так? И вообще, какие типы надо использовать в качестве параметров функции?

Заранее спасибо.

← →
c0pYc@t (2002-08-30 09:57) [1]

там как я заметил

> asd(char *text)

стоит указатель, когда выводишь, ты его разименовываешь?

← →
Странный Прохожий (2002-08-30 10:41) [2]

type
asdfunct = function(text:PChar):PChar; cdecl; // !!!
// <...>

procedure TForm1.Button1Click(Sender: TObject);
var
dll:HWND;
asd: asdfunct
// <...>

т.е. забыли cdecl.

← →
Zelius (2002-08-30 11:16) [3]

код в корне не правильный! Потому что возвращая таким образом строку ты обретешь проблемы, например подвисшей памяти или нарушения доступа! Советую выделять буфер перед вызовом ф-ии!

← →
Suntechnic (2002-08-30 17:58) [4]

Пересмотри логику программы. То, что ты пытаешься делать, либо абсурд, либо приведёт к memory leak.

Cpp DLL и Delphi App... Найти похожие ветки