Új hozzászólás Aktív témák

• #1465 P.H. senior tag csewe #1461

  Új Válasz 2007-01-27 17:36:14 #1465

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  P.H.

  senior tag

  válasz csewe #1461 üzenetére

  Az API portkezelő általános portkezelésre van kihegyezve, a kódod valahogy így nézne ki legegyszerűbben, NT alapú Windows-okban (9x alatt már a CreateFile első paramétere):
  
  var
  ..Data: byte;
  ..Moved: DWORD;
  ..hPort: THANDLE;
  begin
  ..hport:=createfile('LPT1',
  ......(GENERIC_READ or GENERIC_WRITE),
  ......0,
  ......nil,
  ......OPEN_EXISTING,
  ......FILE_ATTRIBUTE_NORMAL,
  ......0);
  ..if hport <> INVALID_HANDLE_VALUE then begin
  ....writefile(hport,data,sizeof(data),moved,nil);
  ....closehandle(hport); end;
  end;
  
  Ez megnyitja az LPT1 portot írásra-olvasásra, kizárólagos használattal. Ha a kapott handle érvényes (= a megnyitás sikeres), akkor a Data változó tartalmát kiírja a portra, majd lezárja a handle-t.
  Ehhez csak uses Windows; kell a program vagy unit elejére, bár az alapból ott van.

Új hozzászólás Aktív témák