Header von c++ nach delphi

[tester6]

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

[jbg]

Beim "record" solltest du noch ein "packed" davorschreiben ("= packed record").

Und dann fehlt noch der Parameter "struct product_info *info" => "var Info: prod_info;"

Wegen Syntaxfehlern nehme ich an, dass du den Aufruf hier einfach per Hand reingeschrieben hast (size of => SizeOf).

[Der.Kaktus]

Hallo,

hier mal ein Tip --> C-to-Pascal Header Converter

[tester6]

hallo jbd,
ja habe ich von hand eingetippt sitze an zwei systemen (war zu umständlich)
packed habe ich eingebaut

Zitat von jbg:

Und dann fehlt noch der Parameter "struct product_info *info" => "var Info: prod_info;"

habe ich nicht verstanden,
in delphi habe ich doch z:prod_info stehen, oder wo muss das rein?
Da ich die Info auslesen will nehme ich nicht an, daß es in den aufruf muss

hallo Der.kaktus
das ding was du meinst ist meiner meinung nach absoluter schrott und zu nichts zu gebrauchen.
hast du selber mal schon eine header-datei durchgejagt?

besten dank

[Der.Kaktus]

Zitat von tester6:

hallo jbd,
ja habe ich von hand eingetippt sitze an zwei systemen (war zu umständlich)
packed habe ich eingebaut

Zitat von jbg:

Und dann fehlt noch der Parameter "struct product_info *info" => "var Info: prod_info;"

habe ich nicht verstanden,
in delphi habe ich doch z:prod_info stehen, oder wo muss das rein?
Da ich die Info auslesen will nehme ich nicht an, daß es in den aufruf muss

hallo Der.kaktus
das ding was du meinst ist meiner meinung nach absoluter schrott und zu nichts zu gebrauchen.
hast du selber mal schon eine header-datei durchgejagt?

besten dank

Jep, habe ich...als ich vor 10 Jahren c Programme konvertiert habe..als Anfang nicht schlecht gewesen.