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

Вниз

Помогите вызвать функцию из dll. Входных параметров нет.   Найти похожие ветки 

← →
Layner   (2003-08-04 13:15) [0]

Ф-я возвращает число, ругается на 5й строке:
type
TForm1 = class(TForm)
Button1: TButton;
( Sender: TObject) Ф-я возвращает число, ругается на 5й строке:
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
function get_qarxivs: integer; stdcall; external "dll_data.dll";
private
{ Private declarations }
public
{ Public declarations }
end;

---

← →
Skier   (2003-08-04 13:18) [1]

>Layner (04.08.03 13:15)
Мда уж !
Вызывай функцию из DLL внутри метода function get_qarxivs: integer;

TForm1 = class(TForm)
Button1: TButton;
( Sender: TObject) >Layner (04.08.03 13:15)
Мда уж !
Вызывай функцию из DLL внутри метода function get_qarxivs: integer;

TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
function get_qarxivs: integer;

---

← →
Layner   (2003-08-04 13:45) [2]

>Skier © (04.08.03 13:18) спасибо, что то разобраьться не могу, ну что не правильнно делаю, dll в этом же каталоге:

unit main;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
function get_qarxivs: integer;
private
{ Private declarations }
public
( Sender: TObject) >Skier © (04.08.03 13:18) спасибо, что то разобраьться не могу, ну что не правильнно делаю, dll в этом же каталоге:

unit main;

interface

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

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


var
Form1: TForm1;

implementation

// function get_qarxivs: Integer; external "dll_data.dll";

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(IntToStr(get_qarxivs; external "dll_data.dll"));
end;

end.


---

← →
Skier   (2003-08-04 13:55) [3]

http://www.delphimaster.ru/articles/usedll/index.html

---

← →
Layner   (2003-08-04 13:58) [4]

Мастера, помогите! Ф-я только возвращает цифру. Находится в dll. Как подключить ее к программе? Заранее спасибо.


unit main;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
function get_qarxivs: integer;
private
{ Private declarations }
public
( Sender: TObject) Мастера, помогите! Ф-я только возвращает цифру. Находится в dll. Как подключить ее к программе? Заранее спасибо.


unit main;

interface

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

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


var
Form1: TForm1;

implementation

function get_qarxivs: Integer; external "dll_data.dll";

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(IntToStr(get_qarxivs));
end;

end.


---

← →
Layner   (2003-08-04 14:01) [5]

Спапсибо за ссылку, получилось.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.002 c