pliki dll

[-=silkroad=-]

http://4programmers.net/Delphi/Kompendium/Rozdzia%C5%82_10


mam taki problem
po dopisaniu
procedure About; stdcall external 'SimpleDLL.dll' name 'About';
pod interface
mam błąd w uses
miał ktoś taki problem
prosze o pomoc

 

[0wn3r]

Podaj treść tego błędu.

 

[-=silkroad=-]

 

[0wn3r]

Ma być tak :

unit Unit1;

interface

tu usesy

procedure about

Na końcu masz tam potem źródło :

unit MainFrm;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TMainForm = class(TForm)

    btnStaticLoad: TButton;

    btnDynamicLoad: TButton;

    procedure btnStaticLoadClick(Sender: TObject);

    procedure btnDynamicLoadClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  MainForm: TMainForm;



  { ładowanie statyczne }

  procedure About; stdcall external 'SimpleDLL.dll' name 'About';



implementation



{$R *.dfm}



procedure TMainForm.btnStaticLoadClick(Sender: TObject);

begin

  About; // wywołanie procedury

end;



procedure TMainForm.btnDynamicLoadClick(Sender: TObject);

var

  DLL : THandle;

  About : procedure;

begin

  DLL := LoadLibrary('SimpleDLL.dll'); // załadowanie pliku

  try

    @About := GetProcAddress(DLL, 'About');  // pobranie wskaźnika do procedury

    if @About = nil then raise Exception.Create('Nie można załadować procedury');

    About; // wykonanie procedury

  finally

    FreeLibrary(DLL);

  end;

end;



end.

 

[-=silkroad=-]

unit MainFrm;

interface

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

type
TMainForm = class(TForm)
btnStaticLoad: TButton;
btnDynamicLoad: TButton;
procedure btnStaticLoadClick(Sender: TObject);
procedure btnDynamicLoadClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

{ ładowanie statyczne }
procedure About; stdcall external 'SimpleDLL.dll' name 'About';

implementation

{$R *.dfm}

procedure TMainForm.btnStaticLoadClick(Sender: TObject);
begin
About; // wywołanie procedury
end;

procedure TMainForm.btnDynamicLoadClick(Sender: TObject);
var
DLL : THandle;
About : procedure;
begin
DLL := LoadLibrary('SimpleDLL.dll'); // załadowanie pliku
try
@About := GetProcAddress(DLL, 'About'); // pobranie wskaźnika do procedury
if @About = nil then raise Exception.Create('Nie można załadować procedury');
About; // wykonanie procedury
finally
FreeLibrary(DLL);
end;
end;

end.[/b]

czyli jak to wkleję będzie ok mówisz ?

 

[0wn3r]

Tak.

 

[djmentos]

ja bym stawiał na:

unit MainFrm;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TMainForm = class(TForm)

    btnStaticLoad: TButton;

    btnDynamicLoad: TButton;

    procedure btnStaticLoadClick(Sender: TObject);

    procedure btnDynamicLoadClick(Sender: TObject);



    procedure About; stdcall external 'SimpleDLL.dll' name 'About'; 

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  MainForm: TMainForm;

alem może się mylę ;p

 

[T$cr!pt3r]

A czemu chcesz ładować dynamicznie?
Wystarczy, że dasz pod Uses:

 procedure About; stdcall external 'SimpleDLL.dll' name 'About';

A potem gdzieś w programie:

About;

 

[-=silkroad=-]

procedure About; stdcall external 'SimpleDLL.dll' name 'About';[/b]

to wiem ale błąd wyskakuje w uses


chyba pod interface

THx jednak masz racje klikam pomógł

 

[0wn3r]

-=silkroad=-, nie zrozumiałem twojej wypowiedzi.

To tak jakbyś jeszcze nie rozumiał.
Ten procedure about, ma być pod uses, a interface powyżej uses. Wtedy wszystko zadziała. A jak zechcesz w dll'u wywołać procedurę About, to wpisujesz po prostu gdzieś About; i już procedura sama się wykona, bo została wcześniej zadeklarowana

 

[-=silkroad=-]

wie już źle zrozumiałem wcześniej i już działa