Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.12;
Скачать: CL | DM;

Вниз

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.



Страницы: 1 вся ветка

Текущий архив: 2002.09.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-35650
DenKop
2002-08-29 16:17
2002.09.12
Как в WinXP выключить компьютер


1-35645
Starkom
2002-08-30 11:28
2002.09.12
Можно ли использовать в C++ Buildere 5 модули из Delphi 5?


14-35913
Ыукпун
2002-08-20 13:44
2002.09.12
Програмная реализация процесса стыковки, help!!!


1-35793
Егор
2002-08-27 18:19
2002.09.12
Сложение.


7-35930
Pavel_S
2002-07-02 13:57
2002.09.12
Доступ к жесткому диску