Einzelnen Beitrag anzeigen

tester6

Registriert seit: 26. Okt 2006
2 Beiträge
 
Delphi 2006 Enterprise
 
#1

Header von c++ nach delphi

  Alt 13. Apr 2008, 09:10
hallo,
ich muss ein usb-messgerät auslesen und sitze hier schon eine weile an dem header und komme nicht recht weiter.
vielleicht wäre einer so nett mir zu helfen.

C++
Delphi-Quellcode:
struct product_info
{
  uint32t serial
  uint32t fw_version
  char model[32]
  uint8_t res[256]
}

int32_t
get_product_info (int32_t driver_handle, int id, struct product_info *info, int32_t size);
habe ich folgendermasen umgesetzt

Delphi
Delphi-Quellcode:
type
  prod_info = record
    serial :cardinal
    version:cardinal
    model :array[0..31] as char
    res :array [0..255] as Byte
  end;

Function get_product_info (driver_handle:THandle; id:integer; const size:cardinal):prod_info; cdcel; external'test.dll'

aufruf
var
  handle:thandle;
  z:prod_info;
  :
begin
  handle:=open('Testgeraet'); // liefert den handle, ist ok
  z:=get_prod_info(handle,0,size of (prod_info)); // 0=ist das gerät am bus
ich bekomme so keine verwertbaren ergebnisse

besten dank
  Mit Zitat antworten Zitat