Hallo,
vielen Dank für den Input - es ist wahr ich muss mich wirklich mal intensiver um INTERFACE-Prog kümmern ;-(
Die Hinweise von Sirius haben mir insofern geholfen, dass ich nunmehr immerhin schon mal die Funktionen, Properties - rein vom Codevervollständiger - sehen und "nutzen" kann.
Leider gibt es noch eine Fehlermeldung: Klasse nicht registriert! bzw. eine Zugriffsverletzung...!
Hier mal mein Code zum gucken und ausserdem habe ich auch die
DLL-
Unit mit rangehängt:
unit Unit1;
Delphi-Quellcode:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Sts_Db_SiZ_Usb_Com_TLB;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
myIntf1: _SiZUsbCOM; //Interface
myIntf2: ISizUsbCOM; //Interface *
// myIntf3: _SiZUsbCOMDisp; //DispInterface - Warnungshinweis plattformspezifisch
// myIntf4: ISizUsbCOMDisp; //DispInterface - Warnungshinweis plattformspezifisch
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
myIntf1:=coSiZUsbCOM.create; // -> Fehlermeldung Klasse nicht registriert!
end;
procedure TForm1.Button1Click(Sender: TObject);
var
testzahl: integer;
begin
testzahl:= myIntf2.Version_Major; // -> Fehlermeldung Zugriffsverletzung
showmessage(inttostr(testzahl));
if myIntf2.TrueCryptExists then showmessage('JA') else showmessage('Nein'); // -> hier auch Fehlermeldung Zugriffsverletzung
end;
end.
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]