Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.052 c
6-1143034305
Kacnep
2006-03-22 16:31
2006.08.06
Виснет при TidServerSocket.Active:=false; Инди 10


2-1152957810
Лыган
2006-07-15 14:03
2006.08.06
Помогите с MaskEdit !


2-1153483846
logslava
2006-07-21 16:10
2006.08.06
Как отловить движение мыши


3-1149247881
Iehbr
2006-06-02 15:31
2006.08.06
Не происходит удаление в базе данных ACCESS


15-1152677702
DimonS
2006-07-12 08:15
2006.08.06
Тут есть электронщики? Или может кто так подскажет?