![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
C++ Builder DLL + Delphi App [D5]
Landgraph © (2002-10-12 13:07:00)Как надо объявлять функции в DLL, написанной на С++(Borland C++ Builder), чтобы их можно было бы потом вызывать из приложения, написанного под Delphi?
Желательно динамическая загрузка.
Ф-ция:
extern "C" char* __export func (char *a)
{
return a;
}
При загрузке и вызове которой:
procedure TForm1.Button1Click(Sender: TObject);
var
dll:HWND;
asd: function(text:PChar):PChar;
txt: PChar;
begin
@asd:=nil;
dll:=LoadLibrary("dll.dll");
txt:="asd";
if(dll>=32) then
begin
asd:=GetProcAddress(dll, "_func");
if(@asd=nil) then MessageBox(Handle, "NO FUNC!", "Error!", 0)
else
begin
txt:=asd(txt);
ShowMessage(txt);
end;
end;
FreeLibrary(dll);
end;
Возвращается фигня, а не переданная строка =(
Что же делать, как же быть?
Landgraph (2002-10-13 22:14:00) [1]В смысле?
TTCustomDelphiMaster (2002-10-13 11:07:00) [2]stdcall применяете?
Landgraph (2002-10-13 09:55:00) [3]Эй! Мастера! Ну помогите же! Уже с месяц долблюсь! Очень надо! =(
Landgraph (2002-10-12 17:43:00) [4]Никто не знает чтоли?