Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Работа с dll [D5, Win2k]

FireWorks © (2002-07-01 16:34:00)
Приветствую -
все таки до сих пор не понял как работать с ДЛЛ технологией - что - то у меня не получается никак.
Делал примеры ихз книг - все не так получается - есть какой нить готовый пример - где программа рабоает с внутренними ресурсами - например формами

FireWorks (2002-07-02 12:02:00) [1]
Вообще у меня длл не хотит работать - проверит думпером -пишет что ресурс для экспорта не выделен,
странно - все делал как в книге

alco (2002-07-01 22:49:00) [2]
напиши на fastiv@yandex.ru

Sasha9 (2002-07-01 16:56:00) [3]
а чё у тебя два unit UfrmMain?

Sasha9 (2002-07-01 16:54:00) [4]
а какую ошибку выдаёт?

Skier (2002-07-01 16:49:00) [5]
>FireWorks
Это что пример из книги ??????????????????

FireWorks (2002-07-01 16:42:00) [6]
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.

FireWorks (2002-07-01 16:41:00) [7]
Обычные книги по Делфи...

Skier (2002-07-01 16:40:00) [8]
>FireWorks
Можешь привести код который ты пробовал и который
не работал ?

[NIKEL] (2002-07-01 16:38:00) [9]
классно звучит "DLL технология" :)

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

с уважением.

Наверх

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