Где ошибка при вызове ф-ции DLL?

← →
siriusP (2004-01-22 10:23) [0]

Тривиальная DLL на Delphi7:
library Calculus;
uses
SysUtils,
Classes,
UCalculus in "UCalculus.pas";

exports
StrReturn name "StrReturn";

begin
end.

Вызов в CBuilder5:
typedef AnsiString (__stdcall *StrReturn)();

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HINSTANCE hinsLib;
StrReturn FuncStrReturn;

LPVOID lpMsgBuf;
AnsiString str;
hinsLib = LoadLibrary("Calculus.dll");
if (!hinsLib)
{
ShowMessage("LoadLibrary Failed.");
}else{
ShowMessage("LoadLibrary Ok.");
FuncStrReturn = (StrReturn)GetProcAddress(hinsLib, "StrReturn");
if (!FuncStrReturn) {
ShowMessage("FuncStrReturn Failed.");
} else {
ShowMessage("FuncStrReturn Ok.");
str = FuncStrReturn();
ShowMessage(str);
FuncStrReturn = NULL;
}

FreeLibrary(hinsLib);
hinsLib = NULL;
}
} // при выходе из процедуры происходит Access violation.

В чем ошибка не могу понять?
Спасибо.

← →
Digitman (2004-01-22 10:28) [1]

а где декрарация и реализация собственно ф-ции StrReturn ?

← →
siriusP (2004-01-22 10:34) [2]

Забыл привести:

unit UCalculus;

interface

function StrReturn : AnsiString; export; stdcall;

implementation
uses Sysutils;

function StrReturn : AnsiString;
begin
result:= "Тест";
end;

end.

← →
Digitman (2004-01-22 10:40) [3]

library Calculus;
uses
ShareMem, //!!!!!
SysUtils,
Classes,
UCalculus in "UCalculus.pas";
...

тоже самое (т.е. объявление ShareMem-юнита ПЕРВЫМ в списке используемых модулей проекта) ты должен сделать в BCB-проекте, который вызывает эту ф-цию

вот это вот

{ Important note about DLL memory management: ShareMem must be the
first unit in your library"s USES clause AND your project"s (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

среда Делфи при создании нового библиотечного проекта пишет не для Пушкина, а для тебя) ... чтобы ты читал это ! и вникал !

← →
siriusP (2004-01-22 10:50) [4]

Да верно, я забыл это прописать. Но Access violation не исчез.

← →
Digitman (2004-01-22 11:03) [5]

> Но Access violation не исчез

проверь и убедись, что в обоих проектах используются именно длинные строки

займись отладкой наконец

← →
siriusP (2004-01-22 11:06) [6]

В общем, если все строки передавать через PChar, то проходит на Ура.Спасибо за помощь.

← →
Digitman (2004-01-22 11:14) [7]

> если все строки передавать через PChar, то проходит на Ура

далеко не всегда.

если ты возвращаешь/получаешь результат в виде PChar-указателя. то, в отличие от вышеописанного метода, ты полностью ответственен за распределение/освобождение памяти под размещение результата ... если ты это делаешь корректно и с полным пониманием, где. в какой момент времени и как все это происходит, то - вопросов нет ... иначе рано или поздно - грабли

← →
alex_*** (2004-01-22 11:19) [8]

собери DLL с динамическими пакетами - можно будет AnsiString использовать.

← →
Digitman (2004-01-22 11:24) [9]

> alex_***

а почему тогда не заостряешь внимание на использование ран-тайм пакетов в вызывающем BCB-приложении ? Это же не менее важно !

← →
siriusP (2004-01-22 11:34) [10]

> alex_***
> Digitman
Не могли бы Вы по-подробнее (с примерчиком).Спасибою

← →
alex_*** (2004-01-22 11:34) [11]

ну забыл.

← →
alex_*** (2004-01-22 11:37) [12]

да какой там примерчик... в свойствах проекта ставишь галочку "Build with run-time packages". Правда к DLL придется тащить как минимум штук 5 bpl для Д7 и еще к exe bpl-ки для BCB5

← →
Digitman (2004-01-22 11:52) [13]

> Не могли бы Вы по-подробнее (с примерчиком).

конкретно на какую тему ? мы тут о разных методиках говорили

← →
siriusP (2004-01-22 12:33) [14]

Про сборку с DLL с дин.пакетами я понял. Хотелось про использование ран-тайм пакетов в вызывающем приложении.

← →
alex_*** (2004-01-22 13:16) [15]

они сами используются )) Твое дело обеспечить их наличие.

← →
Digitman (2004-01-22 13:29) [16]

а нет никаких примеров

эта фича не программного уровня, а уровня сборки проекта линкером на этапе построения проекта

в Делфи эта опция переключается в закладке Packages диал.окна настройки опций проекта

в BCB я не в курсе, но, вероятно, где-то примерно там же и так же выглядящее

Где ошибка при вызове ф-ции DLL? Найти похожие ветки