Hallo,
Ich habe eine "K8055 USB Interface Board" von Velleman erhalten und versuche, diese in Delphi anzusteuern.
Das Usermanual gibt ein Beispielprogramm (
http://www.velleman.be/downloads/0/u...8055_dll_d.pdf), welches eigentlich funktionieren sollte. Aber auf der Seite von Velleman existiert nur die
DLL "K8055D.dll" und die "Third party Visual #csharp dotNET driver for K8055".
Nun habe ich versucht die Befehle in Delphi entsprechend des Handbuchs einfach aufzurufen:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, STdCtrls, ExtCtrls, ComCtrls;
type
TForm1 =
class(TForm)
//usw...
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Opendevice(CardAdress:Longint):Longint;
stdcall;
external '
K8055d.dll';
procedure CloseDevice;
stdcall;
external '
K8055d.dll';
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
CloseDevice;
end;
procedure TForm1.Button1Click(Sender: TObject);
var h:longint;
begin
//Zugriff auf die einzige angeschlossene Karte
h:=OpenDevice(0);
case h
of
0..3: label1.caption:='
Karte '+inttostr(h)+'
angeschlossen';
-1: label1.Caption:='
Karte 0 nicht gefunden';
end;
end;
end.
Allerdings bricht das Progamm schon bei dem ersten Druck auf F7, also beim "begin" der Projektdatei ab..
Kann es sein, dass die
DLL nicht gefunden wurde? Wenn ja, wo muss ich diese unterbringen?
Ich habe leider keine Ahnung, wie DLLs überhaupt funktionieren.
Ich habe Stunden nach etwas hilfreichem im Netz gesucht, aber ich weiss noch nicht mal genau warum es bei mir nicht funktioniert
