Lazarus 3.0 (2023.12.21.)
Letöltés

  • Oldal:
  • 1

TÉMA:

lpt port 2023 dec. 21 17:30 #2665

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

lpt port 2023 dec. 21 15:43 #2664

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
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
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

lpt port 2023 dec. 21 10:16 #2663

  • laza_andras
  • laza_andras profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 27
  • Köszönetek: 0
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
                                       

lpt port 2023 dec. 20 09:14 #2662

  • laza_andras
  • laza_andras profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 27
  • Köszönetek: 0
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.

lpt port 2023 dec. 20 08:27 #2661

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
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.)
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

lpt port 2023 dec. 18 21:11 #2660

  • laza_andras
  • laza_andras profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 27
  • Köszönetek: 0
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;

lpt port 2023 dec. 18 20:21 #2659

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
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.
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

lpt port 2023 dec. 18 18:54 #2658

  • laza_andras
  • laza_andras profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 27
  • Köszönetek: 0
Ezt a kód bemásolva és lefordítva bővelkedik hibaüzenetekben.

lpt port 2023 dec. 16 18:49 #2657

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

lpt port 2023 dec. 16 05:54 #2656

  • laza_andras
  • laza_andras profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 27
  • Köszönetek: 0
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 ?

  • Oldal:
  • 1