Скачать: CL | DM;

Проблема с dll в KOL ! Помогите плиз!!!   Найти похожие ветки 

← →
KisaNetik   (2004-02-26 03:06) [0]

Доброго времени суток!
Существует такая проблема! создал dll в KOL в котором храню и вызываю форму
function PassEditor(User:string):integer;
var
Form1:PControl;
begin
Applet:=NewApplet("");
Form1:=NewForm(Applet,"..."+User);
Form1.ShowModal;
Result:=5;
end;

Exports
PassEditor index 1 name "PassEditor";

Потом вызываю эту форму в главной программе:

procedure TForm1.PMAdminN7Menu(Sender: PMenu; Item: Integer);
var
Handle:Cardinal;
PassEditor:function(User:string):integer;stdcall;
begin
Handle:=LoadLibrary("Utils.dll");
if Handle=0 then
 begin
  MsgBox("Error 54875",MB_OK);
  exit;
 end;
PassEditor:=GetProcAddress(Handle,"PassEditor");
if @PassEditor<>nil then MsgOK(Int2Str(PassEditor("1")));
FreeLibrary(Handle);
end;

Проблема 1 - Не передаются параметры! Загружается форма сразу при PassEditor:=GetProcAddress(Handle,"PassEditor");
Проблема 2 - При строчке if @PassEditor<>nil then MsgOK(Int2Str(PassEditor("1"))); возникает ошибка!!! В чём проблема? помогите...!!!! Утопаю в расстерянности!
Если делаю на VCL  и просто функцию без формы в dll? то всё работает!

---

← →
KisaNetik   (2004-02-26 03:13) [1]

с передачей параметра разобрался! Только-что осенило!!! Надо убрать просто в описании функции stdcall!!!!!! Но возникает другая ошибка - "Память не может быть read"!!! Что делать???

---

← →
mdw ©   (2004-02-26 10:25) [2]

А  FAQ читать не пытался? И у Кладова на сайте, по моему, какой-то проимер был.

---

← →
SPeller ©   (2004-02-26 11:30) [3]

Form1: PForm1, а не PControl. А далее Form1.Form.XXX

---

← →
savva ©   (2004-02-26 11:35) [4]

http://bonanzas.rinet.ru/DemoModalVCL2KOLDLL.zip

---

← →
KisaNetik   (2004-02-27 00:00) [5]

Пасибо!!!! Помогли разобратся!!!!!!! Всё типерь пашет!

---

← →
Gandalf ©   (2004-02-27 19:15) [6]

Мда еще - строки в dll это опастно...

---

← →
KisaNetik   (2004-02-28 12:12) [7]

> Gandalf ©   (27.02.04 19:15) [6]
> Мда еще - строки в dll это опастно...

Какие строки ???

---

← →
марсианин ©   (2004-02-28 13:39) [8]

2KisaNetik

читай warning в pas-файле свежесозданной DLL

---

← →
Gandalf ©   (2004-02-28 16:30) [9]

Народ его обычно игнорирует и удаляет ни разу не прочитав, а потом кричат - чей-то моя прога вылетает... Это корень зла - будь бдителен.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c