DLL в Delphi

[RuVarez]

Привет всем! Есть такая проблемка:
работая с fpl.dll (DLL для работы с фискальным регистратором).
Так вот, указую функции из DLL для импорта. И такое вот условие:
если криейтить форму с функциями то при запуске приложение сразу же
закрывается. Убираю создание формы - все работает! Подскажите кто может((

[Stilet]

если криейтить форму с функциями

А если динамически подгружать?

[RuVarez]

Смысли LoadLibrary?

[Stilet]

Ага. И указатель на процедуры получат через GetProcAddress

[RuVarez]

Ты думаеш поможет! Можеш код-пример написать?

[Stilet]

Посмотри тут примеры динзагрузки:
http://www.programmersforum.ru/showthread.php?t=58263
http://www.programmersforum.ru/showt...5008#post95008

[RuVarez]

А чем лучше динамическая от статической?

[GunSmoker]

Сообщение от RuVarez

Так вот, указую функции из DLL для импорта.
...
если криейтить форму с функциями то при запуске приложение сразу же
закрывается. Убираю создание формы - все работает!

Неправильно записали импорт.

[RuVarez]

Вот код:

unit frmFPC;

interface

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

type
  TFPC = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    Button2: TButton;
    NX_In: TNxCalcEdit;
    FF: TGroupBox;
    Button3: TButton;
    NX_Out: TNxCalcEdit;
    Button4: TButton;
    Button5: TButton;
    function Reg_OpenKey : Integer;
    procedure Reg_WriteKey;
    procedure Reg_NullKey;
    function FPC_ArticleCut(N : Integer) : String;

    procedure Print_FiscalRec_FP3530;
    procedure InOutMoney_FP3530(Sum : Real);
    procedure X_Rep_FP3530;
    procedure Z_Rep_FP3530;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPC: TFPC;
  Reg : TRegistry;
  F : Integer;
  G : THandle;

function InitFPort(Port,Baud : Integer) : Integer ; stdcall ; external 'fpl.dll' name 'InitFPort';
function CloseFPort : Integer;stdcall;external 'fpl.dll' name 'CloseFPort';
function ProgrammingArticle(Window:HWND;V : Integer;par:LPARAM; nal:char; cod:integer; gr:integer; Sena:double; pass:LPSTR; name:LPSTR):integer;stdcall;external 'fpl.dll' name 'ProgrammingArticle';
function    DeleteArticle(hWin:HWND; fun:Integer; par:LPARAM; cod:integer; pass:LPSTR):integer; stdcall  ;external 'fpl.dll' name 'DeleteArticle';
function    ServiceInputOutput(hWin:HWND; fun:Integer; par:LPARAM ; sum:Double) :integer; stdcall	;external 'fpl.dll' name 'ServiceInputOutput';
function    GetStatus(hWin:HWND; fun:Integer; par:LPARAM; int1: BOOL):integer; stdcall	;external 'fpl.dll' name 'GetStatus';
function    OpenFiscalReceipt(hWin:HWND; fun:Integer; par:LPARAM;i1: DWORD;i2: LPSTR;i3: DWORD;i4: BOOL):integer;stdcall;external 'fpl.dll' name 'OpenFiscalReceipt';
function    CloseFiscalReceipt(hWin:HWND; fun:Integer; par:LPARAM):integer; stdcall	;external 'fpl.dll' name 'CloseFiscalReceipt';
function    SaleArticleAndDisplay(hWin:HWND; fun:Integer; par:LPARAM; sign: Boolean;  numart:integer; qwant,perc,dc:double ):integer; stdcall  ;external 'fpl.dll' name 'SaleArticleAndDisplay';
function  FiscalClosure(H : HWND; fun : Integer;C : LPARAM;TypeReport : Char) : Integer;stdcall;external 'fpl.dll' name 'FiscalClosure';

implementation

{$R *.dfm}

и т.д\

[RuVarez]

Кстати попробовал динам. загрузку тоже не работает((