ich möchte gerne die PORT.DLL in mein Projekt einbinden und hab mir dazu im Internert auch was angelesen. Das ist ja eigentlich extrem einfach. Ich demonstriere mal, wie das bei mir aussieht.
Code: Alles auswählen
{...}
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
ProgressBar1: TProgressBar;
Timer1: TTimer;
Function OPENCOM(S:PCHAR):Integer; stdcall; external 'PORT.dll'; //Das hier ist das Entscheidende!
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
F: TextFile;
{ private declarations }
private
public
{ public declarations }
end;
Dann kommen wir jetzt zum Problem: Kaum auf F9 gedrückt und schon:
Code: Alles auswählen
unit1.pas(23,49) Error: Fields cannot appear after a method or property definition, start a new visibility section first

PORT.dll liegt übrigens im Anwendungsverzeichnis, also im gleichen Ordner, wie die exe und alles andere auch.
Danke für die Hilfe!