| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как разместить мои процедуры в dll? [D7, XP]

fast2 ©   (2006-07-21 12:36:00) 

---

Amoeba   (2006-07-21 13:58:00) [1]

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

---

Amoeba   (2006-07-21 13:55:00) [2]

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

---

Шпиён   (2006-07-21 13:13:00) [3]

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.


---

PSPF2003   (2006-07-21 13:10:00) [4]

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

---

Jeer   (2006-07-21 13:03:00) [5]

Help.
Writing dynamically loadable libraries

---

Desdechado   (2006-07-21 13:01:00) [6]

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

---

fast2   (2006-07-21 12:49:00) [7]

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

---

PSPF2003   (2006-07-21 12:39:00) [8]

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

---

Desdechado   (2006-07-21 12:39:00) [9]

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

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

---

Наверх