Форум: "Основная";
Поиск по всему сайту: 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.015 c
3-9075            Vks                   2002-02-05 12:19  2002.03.04  
Есть несколько относительно больших баз......


6-9254            Dmitttry              2001-12-18 02:42  2002.03.04  
Как передать файл по FTP протоколу?!


1-9128            f0rm                  2002-02-17 00:00  2002.03.04  
Морской бой и матрица :)


1-9179            yuger                 2002-02-14 12:16  2002.03.04  
Две интересные ситуации с Dll.


3-9070            amamed_3071           2002-01-21 11:41  2002.03.04  
Save Report (Qreport)