dll in Delphi verwenden

[MorrisF]

Was soll/kann ich denn übergeben?

[hoika]

Hallo,
var
Error: DWORD;

, @Error);


Wenn dir das LPDWORD nicht gefällt,
kannst du auch
; var Error: DWORD als Parameter nehmen

Der Aufruf sieht dann so aus
, Error);

[MorrisF]

Habe das mit dem Error jetzt so gemacht, wie du gesagt hast. Bekomme leider den selben Fehler wie vorher

[MorrisF]

Zitat:

Sollte halt nicht <(=)32 sein.

ist es nicht

[hoika]

Hallo,
stdcall genommen?
BOOL genommen?

Wenn ja, poste mal danach noch mal den ganzen Code.

[MorrisF]

Den Code vom dynamischen oder vom statischen dll Aufrufprogramm?

[hoika]

Hallo,
dynamisch

Hier ist übrigens noch eine interessante Seite zu Datentypen-Übersetzung
http://docwiki.embarcadero.com/RADSt..._C%2B%2B-Typen

Aber Achtung:
BOOL kann <> bool sein
siehe auch hier
https://www.delphipraxis.net/86285-c...einbinden.html

Die Typen mit großen Buchstaben sind meistens Windows-Typen (winapi).
Also muss das darüber gehen.

Einpaar Infos zur Calling Conventing
http://rvelthuis.de/articles/articles-convert.html
dort nach stdcall suchen
stdcall und cdecl sind also mitnichten das gleiche ...

[MorrisF]

Folgende Version verursacht keine Fehler mehr:

Delphi-Quellcode:

unit D_Scannen;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

const
  //DLL´s
  ct_nativeDLL = '98x_API.dll';

type
  TDialog_Scannen = class(TForm)
  
  FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Dialog_Scannen: TDialog_Scannen;

  Error: DWORD;

  //DLL Methoden
  function Init(Attempts, Timeout: DWORD; Error: LPDWORD): BOOL;
    stdcall; external ct_nativeDLL name 'Scanner98x_Init';

implementation

{$R *.dfm}


procedure TDialog_Scannen.FormCreate(Sender: TObject);
begin
  try
    Init(1, 1000, @Error);
  except
    on e: Exception do
    begin
      ShowMessage('Fehler in FormCreate(): ' + e.Message);
    end;
  end;
end;

end.

Allerdings habe ich nun das Selbe Problem, wie vorher mit anderen Methoden aus der dll(ich habe auch da das "@Error" beim Aufruf eingefügt).
Aber bis hier hin: Danke an alle, die geholfen haben!!!
Ich denke ich werde es jetzt hinbekommen.

[hoika]

Hallo,
bitte die Error-Variable nicht global in der Unit definieren, lokale reicht doch.

Zitat:

das Selbe Problem, wie vorher mit anderen Methoden aus der dl

Welche denn?

Du musst aus den vorgegebene Structs jetzt Records machen, das Alignment beachten und los geht's

[MorrisF]

lib hat ne ganz lange Zahl und @Scanner98x_Init hat $ und ne ganz lange Zahl als Wert.
... is das richtig?