про 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]

спасибо!

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

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

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