Ich versuche momentan (bisher leider ohne Erfolg) die parallele Schnittstelle mit Delphi 7 auszulesen.
Mein Code sieht bis jetzt so aus:
Delphi-Quellcode:
unit uLPTTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
procedure PortOut(Port : Word; Data : Byte);
stdcall;
external '
io.dll';
function Portin(Port : Word): Byte;
stdcall;
external '
io.dll';
type
TForm1 =
class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Edit1.Text:=inttostr(Portin($378));
end;
end.
Die
DLL habe ich
hier her. Sie befindet sich im selben Ordner, wie die Projektdateien.
Aber irgendwie scheint das ganze nicht zu funktionieren.
Ich erhalte jedesmal den selben Fehler (siehe unten).
Kann mir bitte jemand einen Tipp geben, woran das liegen könnte? Ich komme da nicht weiter.