Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Вниз

Работа с DLL... 


Serd   (2002-02-14 08:29) [0]

Уважаемые мастера, плз. помогите, почему-то при завершении работы вылетает ошибка: "Программа выполнила недопустимую.....", а потом "Run time Error" :(...... Всё это стало появляться после того, как я добавил в программу DLL.

Вот текст в проекте:


implemination

{$R RES}

function KeyGen(Key:string):boolean;stdcall;external "SetUp.dll";
function Coding(Text:string):string;stdcall;external "SetUp.dll";
function Decoding(Text:string):string; stdcall; external "SetUp.dll";

....



А вот текст в DLL

library SetUp;

function KeyGen(Text:string):boolean;stdcall;
begin
Result:=.....
end;

function Decoding(Text:string):string;stdcall;
begin
Result:=.....
end;

function Coding(Text:string):string;stdcall;
begin
.....
Result:=....
end;

exports
KeyGen,
Decoding,
Coding;
begin
end.

ПЛЗ. ПОМОГИТЕ!!!!!



Alx2   (2002-02-14 09:07) [1]

sharemem в uses есть?
Если нет, добавь на первое место в списке uses и в dll и в голову проекта.



Serd   (2002-02-14 09:27) [2]

Спасибо.!!!



Serd   (2002-02-14 09:31) [3]

Теперь у меня в шесть раз больше ошибок......:(
Неизвестное исключение пишет.....



Alx2   (2002-02-14 09:37) [4]

пока слишком мало информации о том, что у тебя происходит.
На всякий случай - описание sharemem:
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.



Serd   (2002-02-14 09:47) [5]

У меня в этих функциях только строки преобразуються, больше ничего..... Сам ничё понять не могу....:(



Serd   (2002-02-14 09:48) [6]

Вот полный текст DLL,а текст Prject"a очень большой.

library SetUp;

uses sharemem;

const
MAX=120;
DeCode:array[1..MAX] of Char=
("



Serd   (2002-02-14 09:54) [7]

А вот всё, что используеться в Проекте:

{$R .RES}

function KeyGen(Key:string):boolean;stdcall;external "SetUp.dll";
function Coding(Text:string):string;stdcall;external "SetUp.dll";
function Decoding(Text:string):string; stdcall; external "SetUp.dll";

......

function TForm1.Code(str:string):string;
begin
Result:=Coding(str);
end;

function TForm1.DeCode(str:string):string;
begin
Result:=DeCoding(str);
end;

function TForm1.Ident(Key:string):boolean;
begin
if KeyGen(key)=true then
begin
Form1.Caption:="&&&&&&&&&&&&&&&&&&&&&&&&&&";
N8.Enabled:=true;
N12.Enabled:=true;
N17.Enabled:=false;
Result:=true;
end
else
Result:=false;
end;



Serd   (2002-02-14 09:54) [8]

А вот всё, что используеться в Проекте:

{$R .RES}

function KeyGen(Key:string):boolean;stdcall;external "SetUp.dll";
function Coding(Text:string):string;stdcall;external "SetUp.dll";
function Decoding(Text:string):string;stdcall;external "SetUp.dll";

......

function TForm1.Code(str:string):string;
begin
Result:=Coding(str);
end;

function TForm1.DeCode(str:string):string;
begin
Result:=DeCoding(str);
end;

function TForm1.Ident(Key:string):boolean;
begin
if KeyGen(key)=true then
begin
Form1.Caption:="&&&&&&&&&&&&&&&&&&&&&&&&&&";
N8.Enabled:=true;
N12.Enabled:=true;
N17.Enabled:=false;
Result:=true;
end
else
Result:=false;
end;



Serd   (2002-02-14 10:07) [9]

Не знаю почему, но она заработала, я даже ничего не исправлял...
?8-(



Alx2   (2002-02-14 10:14) [10]

Дух святой, не иначе :))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.052 c
1-9180            who                   2002-02-14 10:05  2002.03.04  
Передача параметров из exe в exe


14-9285           Геннадий              2002-01-18 07:51  2002.03.04  
Ребята, подскажите где можно скачать бесплатную версию InterBase


1-9183            USAtyj                2002-02-12 18:21  2002.03.04  
Про массивы и про High() (+)


3-9091            ava                   2002-02-06 16:53  2002.03.04  
Помогите срочно надо


3-9077            dimich                2002-02-06 11:34  2002.03.04  
InterBase Server