Thema: Delphi Comparing functions

Einzelnen Beitrag anzeigen

Razor
(Gast)

n/a Beiträge
 
#28

Re: Comparing functions

  Alt 4. Nov 2007, 19:00
i know its basics but how to call this

tPCIIO = class(TInterfacedObject, IPCIIO)
private
FIPortIORef: IPortIO;
procedure GetPCIRDWord(dwBus, dwDev, dwFunc, offs: Byte; var pdata: DWord); <<<<<< +This
procedure SetPCIRDWord(dwBus, dwDev, dwFunc, offs: Byte; pdata: DWord); <<<<<<< This
procedure GetPCIRWord(dwBus, dwDev, dwFunc, offs: Byte; var pdata: Word);
procedure GetPCIRByte(dwBus, dwDev, dwFunc, offs: Byte; var pdata: Byte);
procedure SetPCIRByte(dwBus, dwDev, dwFunc, offs, pdata: Byte);
function ProbeDevice(dwBus, dwDev: Byte): boolean;
procedure FindDevice(VendorID, DeviceID: DWord; var fPCIDevice: tPCIDevice);
public
constructor Create(const IPortIORef: IPortIO);
destructor Destroy; override;
end;
  Mit Zitat antworten Zitat