DLL einbinden, in Klasse oder global

[alf.stefan]

Hallo zusammen

ich habe eine DLL bekommen und ein beispiel code für delphi der auch gut funktioniert.
In der .pas datei wird die Funktionalität der DLL bereitgestellt.
in etwas so

delphi7!

Delphi-Quellcode:

unit SpsIo;

interface
uses Classes;

const
  spsDll = 'IPS7LNK.DLL';

function IPS7Open (IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord) : LongInt; stdcall;


implementation

function IPS7Open;       external spsDll name 'IPS7Open';

end.

wie gesagt so funktioniert es wunderbar

wenn ich diese funktionen in eine klasse einbinden will hab ich mir das in etwa so vorgestellt

Delphi-Quellcode:

unit SpsIo;

interface
uses Classes;

const
  spsDll = 'IPS7LNK.DLL';

type TspsIo = class
  Address : string;
  handle : longInt;
  constructor create(Addr : String);
private
  function IPS7Open (IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord) : LongInt; stdcall;
end;
  

implementation

function TspsIo.IPS7Open;       external spsDll name 'IPS7Open';


constructor TSpsIo.create(Addr: String);
begin
     handle := -1;
     handle := IPS7Open(pChar(Addr),0,2,0,0,0);
     Address := Addr;
end;

.end

so gekapselt gibt es bei genau dieser funktion eine Access Violation bei andren funktionen auch mal ein EPrivilege error.

wo ist da der Unterschied beim Aufrufen der Funktion IPS7Open. Meiner Meinug nach habe ich die Funktionen doch nur in der Klasse gekapselt! Oder bin ich da falsch gewickelt?

Wäre schön wenn da mal jemand ein Auge draufwerfen könnte.
Im vorraus schon mal vielen Dank

Gruß
Stefan

[sirius]

Schau dir mal den Unterschied von Funktion und Methode an!

Du hast nix gekapselt, und warum willst du es überhaupt so machen? Das bringt doch gar nix. Wo willst du hin?

[alf.stefan]

hm ich wollte die code Vervollständigung nutzen. also dass ich bei Programm schreiben die klasse+'.' schreibe und das pullup menu mit den ganzen Klassen member aufgeht.

Aber du hast recht mir ist der Unterschied zwischen Methoden und Funktionen nicht so richtig klar!

[sirius]

Dieses Menu bekommst du auch, wenn du die Unit hinschreibst:
SpsIo. //--> jetzt kommt dieses Pulldown-Menu Was du halt amchen kannst, ist den Aufruf in einer Klasse kapseln (also eine Methode nehmen und intern dann die Funktion aufrufen), und die Parameter mittels property setzen. Hilft aber im Programm nur, wenn du den Aufruf mehrmals (an verschiedenen Stellen) benötigst, oder noch andere DLL Aufrufe stattfinden. Oder bei dynamischen einbinden der DLL.
Ganz abwegig ist die Kapselung nicht, aber eben anders machen.

[uligerhardt]

Zitat von alf.stefan:

hm ich wollte die code Vervollständigung nutzen. also dass ich bei Programm schreiben die klasse+'.' schreibe und das pullup menu mit den ganzen Klassen member aufgeht.

Du kannst z.B. 'IP' + Strg-Leertaste drücken, dann musst du den Funktionsnamen auch nicht ausschreiben.

Uli.

[Neutral General]

Hi,

Du kannst das Kapseln, aber dann nicht so, sondern:

Delphi-Quellcode:

TspsIo = class 
public 
  constructor create(Addr : String); 
  function IPSOpen(IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord): LongInt;
end; 

implementation

const 
  spsDll = 'IPS7LNK.DLL'; 

function IPS7Open (IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord) : LongInt; stdcall; external spsDll name 'IPS7Open'; 


function TSPSIO.IPSOpen(IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord): LongInt;
begin
  Result := IPS7Open(IPAdr,Rack,Slot,RxTimeout,TxTimeout,ConnectTimeout);
end;

[himitsu]

Das ganze hat nur ein paar Probleme/Hindernisse.

1. geht es witziger Weise teilweise, daß man Methoden so ex-/importieren kann,
aber beim Erstellen und der Speicherverwaltung der Klasse kann man sich super leicht gravierende Probleme einfangen.
(aber zum Glück willst du hier ja eine Funktion in eine Methode umwandeln und nicht eine Klassen-Methode ex- und importieren)

Du kannst dir ja gern mal von meinem himXML die DLL-Version ansehn.
- diese ist zwar offiziell nicht wirklich freigegeben, da sie einige kleine Macken hat, aber im Download isse mit drinnen.
Alleine an dem Code siehst du schon, daß da so einiges an Drumrum gibt, damit es überhaupt geht.


Abgesehn davon ist eine Methode keine Prozedur/Funktion,
denn deine Methode hat einen "unsichtbaren" Parameter, welcher in der importierten Funktion fehlt.
siehe #10 > http://www.delphipraxis.net/internal...ht=self+object

[MyRealName]

TspsIo.IPS7Open

Wenn Du das so machst, ist das ein 8-Byte Pointer, nicht 4 byte, wie erwartet.
Der Grund ist ein einfacher : Delphi braucht 4 Byte für die funktion (die nur einmal im Peicher ist und von allen erstellten Objekten diesen Typs verwendet wird und 4 Byte sind für das "Datensegment" deines Objekts, da der Code ja nicht weiss, wo deine Variablen sind für jede Instanz des Objektes.

Solche 8-Byte pointer kann man afaik nicht exportieren. Dies ist ja auch sehr Delphi spezifisch und DLL sind dazu gedacht, mit allen Programmiersprachen zu funktionieren

[uligerhardt]

So was ähnliches wie Stefans Versuch geht tatsächlich:

Delphi-Quellcode:

unit WindowsX;

interface

uses
  Windows;

function MessageBoxX(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

type
  TWindowsX = class
    class function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall; static;
  end;

implementation

function MessageBoxX; external user32 name 'MessageBoxA';
class function TWindowsX.MessageBox; external user32 name 'MessageBoxA';

end.

Aufruf:

Delphi-Quellcode:

begin
  MessageBoxX(0, 'Direkt', 'Direkt', 0);
  TWindowsX.MessageBox(0, 'Per Klasse', 'Per Klasse', 0);
end.

Ist natürlich nicht wirklich OO, aber man könnte die importierten Routinen zumindest gruppieren und privat machen.

Edit: Das static hinterm stdcall ist wichtig - es beseitigt den Self-Pointer aus himitsus Post.

[Neutral General]

Ist eine class function nicht sowieso immer statisch?