Comparing functions

[Razor]

Muetze can you test this please!

Delphi-Quellcode:

//omcdrv.tGetPCIRDWord(0,24,03,$E4 ,pdata) ; //Compile


omcdrv.tGetPCIRDWord(0,24,03,$E4 ,pdata) ; //WONT Compile [Fatal Error]Internal L1333

[Razor]

Can somebody test this please.Becouse only then i will know that it isnt my delphi that is wrong and currupted.

[Razor]

*push*

[Razor]

For crying out loud,cant nobody test this?

[Muetze1]

Oh, sorry. I've tested it some days ago and it works without any problems. Even due the fact of an internal error, I would suggest to reinstall Delphi or install the updates.

Works on D5 Ent UP 2 and D7 Ent UP1...

[Razor]

Thank you!!!!!!!!


Now i know my delphi is currupted

[Razor]

No sadly this still won't work i have tried every possilbe combo but no,and yea my delphi dosent need update and its not curruped.

So help still needed.

[Razor]

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;

[dominikkv]

1.

Zitat von Phoenix:

What did we say about double-posting?
You're doing it again, so take this (again) as a warning to NOT double post.

2. These two Methods are private, so you can call them only in the class, but not from outside.

[Razor]

I know but how exactly...i know becouse they are private only inside and not outside.

But i call it via

Delphi-Quellcode:

procedure tform1.load;
var
omc:tomcdrv;
begin

{omc.>what goes here to have > procedure GetPCIRDWord(dwBus, dwDev, dwFunc, offs: Byte; var pdata: DWord); 

with pdata:dword and not pdata:cardinal becouse it wont work}

end;