Mit Delphi 6.0 auf USB zugreifen

[Niek]

[df][dp]
Hi,
ich habe einen Digital-Multimeter mit Usb.Ich möchte die Werte vom Gerät lesen. So habe ich versucht wert:= Rdport(0) und Rdport(1):

Delphi-Quellcode:

 
function RdPort(PortNr: Byte): Byte;
var lIn: _lIn;
    lOut: _lOut;
    DeviceHandle: THandle;
    TemplateHandle: THandle;
    nBytes: DWord;
    bresult: Boolean;
begin
  lIn.bFunction := 20;
  lIn.bValue1 := PortNr;
  DeviceHandle := CreateFile ('\\.\CompuLABusb_0',Generic_write,File_Share_write,nil,open_existing,0,TemplateHandle);
  bResult := DeviceIoControl(DeviceHandle,$04,@lIn,sizeof(lIn),@lOut,sizeof (lOut),nBytes,nil);
  CloseHandle (DeviceHandle);
  Result := lOut.bValue1;
end;

Es funktioniert nicht. kann mir jemand ein Tip geben.
MFG
Niek

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]