Текущий архив: 2006.08.06;
Скачать: CL | DM;

Вниз

Как разместить мои процедуры в dll?   Найти похожие ветки 

← →
fast2   (2006-07-21 12:36) [0]

---

← →
PSPF2003 ©   (2006-07-21 12:39) [1]

Хмык.. Размещай да вызывай :)

---

← →
Desdechado ©   (2006-07-21 12:39) [2]

создаешь новый проект library
пишешь процедуры
делаешь им export

не забывая читать книжки и справку по поводу

---

← →
fast2   (2006-07-21 12:49) [3]

А можна к-нить сылку?

---

← →
Desdechado ©   (2006-07-21 13:01) [4]

Delphi Help - Programmong with delphi - Building applications, conponents, libraries - creating packages and DLLs

---

← →
Jeer ©   (2006-07-21 13:03) [5]

Help.
Writing dynamically loadable libraries

---

← →
PSPF2003 ©   (2006-07-21 13:10) [6]

Оригинально… Интересно автор понял о чем речь? :)

---

← →
Шпиён   (2006-07-21 13:13) [7]

DLL:

library First;

function AddValues(iArg1:integer;iArg2:integer):integer;stdcall;export;
begin
Result:=(iArg1+iArg2);
end;
function GetStrChar(sVal:ShortString;iIndex:integer):char;stdcall;export;
begin
  result:=char(sVal[iIndex]);
end;
exports AddValues,GetStrChar;

begin
end.


Статическая загрузка:

unit AutoU12;

interface

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

type
 TFormAutoLoad = class(TForm)
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
function imp_AddValues(iArg1:integer;iArg2:integer):integer;stdcall;
function GetStrChar(sVal:ShortString;iIndex:integer):char;stdcall;
var
 FormAutoLoad: TFormAutoLoad;

implementation
{$R *.dfm}
const FirstDll="FIRST.DLL";
function imp_AddValues;external FirstDll name "AddValues";
function GetStrChar;external FirstDll;

procedure TFormAutoLoad.Button1Click(Sender: TObject);
begin
 ShowMessage(IntToStr(imp_AddValues(5,5)));
end;

procedure TFormAutoLoad.Button2Click(Sender: TObject);
begin
 ShowMessage(GetStrChar("Hello World",5));
end;

end.


---

← →
Amoeba ©   (2006-07-21 13:55) [8]

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

---

← →
Amoeba ©   (2006-07-21 13:58) [9]

И еще: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=499

---

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

Текущий архив: 2006.08.06;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.071 c