TÉMA:
inpout32.dll win10 alatt nem megy... van-e alternatíva 2023 dec. 23 21:44 #2666
|
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 aug. 01 18:10 #2070
|
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 aug. 01 17:54 #2069
|
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 aug. 01 08:11 #2068
|
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 júl. 31 20:08 #2067
|
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 júl. 31 17:31 #2066
|
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 júl. 31 15:29 #2065
|
Üdv !
Egy annyi érdekesség van, hogy egyik kollégám mondta, hogy ő C++ - t használva hibátlanúl működteti az inpout32.dll -t használó programját.... Lehet akkor a Lazarusnak van nehézsége nem is a librarynak? 1.2.0 Lazarust használok, mert 1.6-ra nem ment fel egy fontos komponensem (Cport) , vajon érdemes lehet megpróbálni 1.6.0.-val is? vagy nem sok esély van rá hogy műkd,üdik? Egyébként nem próbáltam az IO.dll-t, de az a félelmem, hogy nem ennyire egyszerű, erre csakis az inpout32.dll használata közötti különbségek miatt következtetek: Lazaarusban pl: form.create-nél is vannak teendők, így: " uses ....dynlibs... type TMyForm = class(TForm) TInp32 = function(Address: SmallInt): SmallInt; stdcall; TOut32 = procedure(Address: SmallInt; Data: SmallInt); stdcall; ......... 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. " amíg Delphi esetén valóban lényegesen egyszerűbb az inicializálás, csak a függvényt kell megadni: " function Inp32(wAddr:word):byte; stdcall; external 'inpout32.dll'; " Ezért félek, hogy nem fogom tudni megcsinálni.... vagy talán a {$MODE DELPHI} direktíva valóban megoldja minden gondomat?  |
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 júl. 31 14:49 #2064
|
Nagyjából így kell kinéznie az IO.DLL hívásaihoz készítendő pascal unit-nak:
{$MODE DELPHI}
unit IODLL;
interface
procedure PortOut(Port : Word; Data : Byte);
procedure PortWordOut(Port : Word; Data : Word);
procedure PortDWordOut(Port : Word; Data : DWord);
function PortIn(Port : Word) : Byte;
function PortWordIn(Port : Word) : Word;
function PortDWordIn(Port : Word) : DWord;
procedure SetPortBit(Port : Word; Bit : Byte);
procedure ClrPortBit(Port : Word; Bit : Byte);
procedure NotPortBit(Port : Word; Bit : Byte);
function GetPortBit(Port : Word; Bit : Byte) : WordBool;
function RightPortShift(Port : Word; Val : WordBool) : WordBool;
function LeftPortShift(Port : Word; Val : WordBool) : WordBool;
function IsDriverInstalled : Boolean;
implementation
procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
procedure PortWordOut(Port : Word; Data : Word); stdcall; external 'io.dll';
procedure PortDWordOut(Port : Word; Data : DWord); stdcall; external 'io.dll';
function PortIn(Port : Word) : Byte; stdcall; external 'io.dll';
function PortWordIn(Port : Word) : Word; stdcall; external 'io.dll';
function PortDWordIn(Port : Word) : DWord; stdcall; external 'io.dll';
procedure SetPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
procedure ClrPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
procedure NotPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
function GetPortBit(Port : Word; Bit : Byte) : WordBool; stdcall; external 'io.dll';
function RightPortShift(Port : Word; Val : WordBool) : WordBool; stdcall; external 'io.dll';
function LeftPortShift(Port : Word; Val : WordBool) : WordBool; stdcall; external 'io.dll';
function IsDriverInstalled : Boolean; stdcall; external 'io.dll';
end.
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
|
inpout32.dll win10 alatt nem megy... van-e alternatíva 2016 júl. 30 18:17 #2063
|