Работа с dll

← →
FireWorks © (2002-07-01 16:34) [0]

Приветствую -
все таки до сих пор не понял как работать с ДЛЛ технологией - что - то у меня не получается никак.
Делал примеры ихз книг - все не так получается - есть какой нить готовый пример - где программа рабоает с внутренними ресурсами - например формами

← →
[NIKEL] © (2002-07-01 16:38) [1]

классно звучит "DLL технология" :)

P.S
может ты читаешь не те книги?

с уважением.

← →
Skier © (2002-07-01 16:40) [2]

>FireWorks
Можешь привести код который ты пробовал и который
не работал ?

← →
FireWorks © (2002-07-01 16:41) [3]

Обычные книги по Делфи...

← →
FireWorks © (2002-07-01 16:42) [4]

library ICont;

uses
SysUtils,
Classes,
UfrmMain in "UfrmMain.pas" {frmMain};

{$R *.RES}
procedure ShowMyForm(AOwner : TComponent);
var MyForm : TfrmMain;
begin
MyForm := TfrmMain.Create(AOwner);
MyForm.ShowModal;
MyForm.Free;
end;

exports ShowMyForm;

begin
end.

unit UfrmMain;

interface

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

type
TfrmMain = class(TForm)
cmdSave: TButton;
procedure cmdSaveClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.DFM}

procedure TfrmMain.cmdSaveClick(Sender: TObject);
begin
ShowMessage ("Новый контрагент успешно заведен");
end;

end.

program Proba_dll;

uses
Forms,
UfrmMain in "UfrmMain.pas" {Form1};
type
procedure ShowMyForm(AOwner : TComponent);

external "ICont.dll";

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

end.

unit UfrmMain;

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;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMyForm(Self);
end;

end.

← →
Skier © (2002-07-01 16:49) [5]

>FireWorks
Это что пример из книги ??????????????????

← →
Sasha9 © (2002-07-01 16:54) [6]

а какую ошибку выдаёт?

а чё у тебя два unit UfrmMain?

← →
alco (2002-07-01 22:49) [8]

напиши на fastiv@yandex.ru

Вообще у меня длл не хотит работать - проверит думпером -пишет что ресурс для экспорта не выделен,
странно - все делал как в книге

Работа с dll Найти похожие ветки