Скачать: CL | DM;

Работа с 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]

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

---

← →
Sasha9 ©   (2002-07-01 16:56) [7]

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

---

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

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

---

← →
FireWorks ©   (2002-07-02 12:02) [9]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c