TÉMA:

Itt a forumon több téma is foglalkozik a hardver portok használatával:

lazarus.freepascal.hu/forum/tudastar-help/1662-inpout32-dll-win10-alatt-nem-megy-van-e-alternativa
lazarus.freepascal.hu/forum/tudastar-help/887-lpt-port-vezerles

 

Teljesen jogos a hibaüzenet... mert a SysUtils unit nem tartalmaz ilyen azonosítót: se eljárást/függvényt, se változót, se semmit.

www.freepascal.org/docs-html/rtl/sysutils/index-8.html

A ChatGpt ezt a kódot írta
program ReadFromLPT;
{$mode objfpc}{$H+}
uses
  SysUtils
const
  LPT_BASE = $378; // Base address for LPT1
var
  dataByte: Byte;
function ReadLPT: Byte;
begin
  Result := SysUtils.Inp(LPT_BASE); { ez a kérdéses 16.sor ahol elakad a fordító}
end;
begin
  try
    dataByte := ReadLPT;
    WriteLn('Data read from LPT port: ', dataByte);
    ReadLn;
  except
    on E: Exception do
      WriteLn('An error occurred: ', E.Message);
  end;
end.        
A fordító pedig ezt a hibaüzenetet küldte:
"project1.lpr(16,22) Error: Identifier not found "Inp"" expected but ";" found
                                       

Szia!  Ennek majd utána fogok nézni mert szeretném ezt az LPT portot használni .Régen turbo pacsalban simán írtuk olvastuk
a write/read( $378 ,adat); utasitással sajnos már nem emlékszem milyen unit kezelte és milyen fordító direktívát kellett használni.Volt ilyen kis proramom ledeket lehetett vele begyújtani .
Köszönöm a válaszaidat később jelentkezem addig is kellemes ünepeket.

Mik a hibaüzenetek?
Szükséges DLL elérhető helyen van?
stb.

(Ha informatívabb hozzászólásokat írsz, hamarabb lesz megoldás.)

Ez a kód amiről beszéltem
type
TInp32 = function(Address: SmallInt): SmallInt; stdcall;
TOut32 = procedure(Address: SmallInt; Data: SmallInt); stdcall;

uses
....dynlibs...

type
TMyForm = class(TForm)
.........
private
{ private declarations }
Inpout32: THandle;
Inp32: TInp32;
Out32: TOut32;
.........
implementation
.........
procedure TMyForm.FormCreate(Sender: TObject);
begin
{$IFDEF WIN32}
Inpout32 := LoadLibrary('inpout32.dll');
if (Inpout32 <> 0) then
begin
// needs overtyping, plain Delphi's @Inp32 = GetProc... leads to compile errors
Inp32 := TInp32(GetProcAddress(Inpout32, 'Inp32'));
if (@Inp32 = nil) then Caption := 'Error';
Out32 := TOut32(GetProcAddress(Inpout32, 'Out32'));
if (@Out32 = nil) then Caption := 'Error';
end
else Caption := 'Error';
{$ENDIF}
end;

Melyik kód (sok kódrészlet van a cikkben) és főleg mik a hibaüzenetek?

Egyébként valószínűleg a ports unit is jó lenne csak lehet, hogy admin/rendszergazdai jogosultság szükséges a hardvereszközök közvetlen eléréséhez.

Ezt a kód bemásolva és lefordítva bővelkedik hibaüzenetekben.

Vess egy pillantást erre: wiki.lazarus.freepascal.org/index.php/Hardware_Access

Sziasztok!
Melyik unit kezeli az LPT PORTOT ?
Adatokat szeretnék beolvasni és kiirni.
A uses Potrs ; nem jó.

Hol tudom megnézni milyen rendszer unitok vannak ?