Comparing functions

[Razor]

Maybe someone can write an example how to use PortIO (getpcrd,setpcrd) with omcdrv (GetPCIRDWord,SetPCIRDWord).

I dont understand what Muetze ment.

[Phoenix]

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

Muetze confused a word. He did not mean device but decide.
You have to decide what driver is needed to be called and then you have to call the function of the correct driver.

[Razor]

He said both offer same functionality so i have to decide wich one to use but its impossible to use 2 becouse i get BSOD(BLUE SCREEN OF DEATH)if i use it,get it?


As i said an example would be perfect just how to make this compilable


omcdrv.GetPCIRDWord(0,24,$03,$E4,pdata);

[Muetze1]

Zitat von Phoenix:

Muetze confused a word. He did not mean device but decide.
You have to decide what driver is needed to be called and then you have to call the function of the correct driver.

Ups, sorry. Phoenix is right - the word was wrong - decide is what i mean.

Zitat von Razor:

He said both offer same functionality so i have to decide wich one to use but its impossible to use 2 becouse i get BSOD(BLUE SCREEN OF DEATH)if i use it,get it?

Yes, we all understand this. And I said you have to decide which one you want to use and then transform all your code using the other driver to use the new selected one. So, do you get it?

That you can't use both is completly logical and so you have to decide which one to use. So decide and then change the sources to use onyl the selected one...

[Razor]

[delphi]Alright alright and thanks buuut


[pre]procedure GetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; var pdata: Cardinal);
procedure SetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; pdata: Cardinal);


omcdrv.GetPCIRDWord(0,24,$03,$E4,pdata); [/pre]



[pre]var
dwresult:dword;

function GetPCRD(Bus, Dev, Func, Reg : byte): dword;
procedure SetPCRD(Bus, Dev, Func, Reg : byte; value : dword);


dwResult:=GetPCRD(0,24,$03,$E4); [/pre]


Now how in heaven can i change this this arent theh same functions...

[Muetze1]

Delphi-Quellcode:

procedure GetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; var pdata: Cardinal); 
function GetPCRD(Bus, Dev, Func, Reg : byte): dword;

dwBus = Bus
dwDev = Dev
dwFunc = Func
offs = Reg div 4
pData = result

Delphi-Quellcode:

procedure SetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; pdata: Cardinal);
procedure SetPCRD(Bus, Dev, Func, Reg : byte; value : dword);

dwBus = Bus
dwDev = Dev
dwFunc = Func
offs = Reg div 4
pData = value

[Razor]

Zitat von Muetze1:

Delphi-Quellcode:

procedure GetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; var pdata: Cardinal); 
function GetPCRD(Bus, Dev, Func, Reg : byte): dword;

dwBus = Bus
dwDev = Dev
dwFunc = Func
offs = Reg div 4
pData = result

Delphi-Quellcode:

procedure SetPCIRDWord(dwBus, dwDev, dwFunc, offs: byte; pdata: Cardinal);
procedure SetPCRD(Bus, Dev, Func, Reg : byte; value : dword);

dwBus = Bus
dwDev = Dev
dwFunc = Func
offs = Reg div 4
pData = value

Well so it goes like this then

Delphi-Quellcode:

var
pdata:cardinal;
begin
GetPCIRDWord(0,24,$03,$E4,pdata)
form1.caption:=pdata //???

[Muetze1]

Basicly it is ok so, but I think you have to divide the given offset by four. The code is ok, but the line with the question-marks are Delphi basics and not hw specific.

[Razor]

I don't know what i am doing wrong

http://img172.imagevenue.com/img.php..._122_419lo.JPG

[Muetze1]

http://www.elists.org/pipermail/delp...il/026837.html

other search result says clear all DCU's and build again