Функция в DLL

← →
Larry Laffer (2004-06-06 14:03) [0]

Я не пойму свою ошибку:

Я используй в своей программе DLL, где лежит только одна функция, присваивающая
строковой переменной определенный текст. Но почему-то при запуске программы
появляется ошибка "Invalid pointer operation".

Вот исходник DLL:

library Project1;

function ShowVersion(Text: String): String;
begin
if Text="test1" then Result:="Hello! I"m a Test1";
if Text="test2" then Result:="Hello! I"m a Test2";
if Text="test3" then Result:="Hello! I"m a Test2";
if not (Text="test1") and not (Text="test2") and not (Text="test3") then Result:="";
end;

exports
ShowVersion index 10;

begin
end.

А вот исходник программы (кусочками):

unit Unit1;

uses ...
function ShowVersion(Text: String): String;
type ...
var ...
function ShowVersion; external "testdll.dll" index 10;

procedure TMainForm.FormShow(Sender: TObject);
var
m: string;
begin
m:=ShowVersion("test1");
end;

Подскажите, пожалуйста, где я ошибся!!!

← →
Mim1 © (2004-06-06 14:16) [1]

Коментирий при создании библиотеки читали?

← →
_ALEXey_ (2004-06-07 10:29) [2]

В комментарии написано, что если используются строки String в библиотеке, то в файле проекта приложения (dpr) и в самой библиотеке первым модулем в предложении USES должен быть ShareMem.

> Larry Laffer (06.06.04 14:03)

Надо читать то, что пишет Delphi, а не пропускать это мимо. Тогда и на грабли наступать не будешь.

Функция в DLL Найти похожие ветки