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

Вниз

про dll совсем элементарное %)   Найти похожие ветки 

← →
td   (2004-04-27 19:12) [0]

Почему после вызова процедуры происходит ошибка Access Violation (бипер срабатывает)?
Что я делаю не так?

Текст тестовой программы для вызова dll

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 procedure PlantDetails(ReadOnly: boolean); far; external "../dll/dllPlant";

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
PlantDetails(true);
end;

end.

текст dll

library dllPlant;

uses
 SysUtils,
 Classes,

{$R *.RES}

procedure PlantDetails(ReadOnly: boolean); export; stdcall;
begin
beep;
end;

exports
PlantDetails;

end.

---

← →
Тимохов ©   (2004-04-27 19:16) [1]

на фиг far - заменить на stdcall

---

← →
Mim1 ©   (2004-04-27 22:02) [2]

> procedure PlantDetails(ReadOnly: boolean); export; stdcall;

export; можно убрать

---

← →
td   (2004-04-27 22:45) [3]

> Тимохов ©   (27.04.04 19:16) [1]


прям из книжки Архангельского пример

черт, нет возможности до утра проверить

---

← →
td   (2004-04-27 22:45) [4]

> Mim1 ©   (27.04.04 22:02) [2]


но разве это ошибка?

---

← →
Игорь Шевченко ©   (2004-04-27 23:32) [5]

> прям из книжки Архангельского пример


АРХАНГЕЛЬСКОГО В ПЕЧКУ!

---

← →
DrPass ©   (2004-04-27 23:32) [6]

> прям из книжки Архангельского пример

Потому и не работает. Архангельский - чмо :)
Хотя, возможно, у тебя книжка еще со времен Win 3.11... но все равно stdcall нужно указывать и в программе, и в dll (или не указывать ни там, ни там)

---

← →
td   (2004-04-27 23:46) [7]

спасибо!

---

← →
Rouse_ ©   (2004-04-28 00:33) [8]

> [5] Игорь Шевченко ©   (27.04.04 23:32)
;))))

---

← →
Goida ©   (2004-04-28 09:39) [9]

> Игорь Шевченко ©   (27.04.04 23:32) [5]
>
> > прям из книжки Архангельского пример
>
>
> АРХАНГЕЛЬСКОГО В ПЕЧКУ!


Солидарен, хотя помогает. Но все же разлагают такие книги программиста...

---

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

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

Наверх

Память: 0.46 MB
Время: 0.034 c