Header Übersetzung -> Delphi

[Johnny_W]

Hallo,

nun versuche ich mich gerade an einer Header Übersetzung und benötige Hilfe dabei.

Delphi-Quellcode:

typedef struct _tag_HIIDC* HIIDC;
....
HIIDC   IIDCAPI   iidc_open( long index );

Wie definiere ich so etwas denn in Delphi?
_tag_HIIDC ist nur in dieser Zeile zu finden.


viele Grüße

[Tyrael Y.]

Musst noch suchen was HIIDC für ein record sein soll und wo es definiert ist.

Delphi-Quellcode:

type TTag_HIIDC = ^HIIDC;

function IIDC_OPEN(AIndex: Cardinal): HIIDC

[Johnny_W]

Danke für den Tip, hat mir weitergeholfen !

[Johnny_W]

Hallo nochmal,

Eine weitere Frage habe ich

Code:

typedef struct{
   long      total_frame;      
   long      newest_frameindex;   
} IIDC_TRANSFERINFO;

Code:

long   IIDCAPI   iidc_gettransferinfo( long h, IIDC_TRANSFERINFO* info, long infobytes );

Mein Ansatz sieht so aus :

Delphi-Quellcode:

type
  IIDC_TRANSFERINFO = record
    total_frame : LongInt;  //Longint da -1 gesetzt werden könnte
    newest_frameindex : LongInt; //Longint da -1 gesetzt werden könnte
  end;

function iidc_gettransferinfo(h: Cardinal;var Info : IIDC_TRANSFERINFO;InfoBytes : Cardinal) : Cardinal;stdcall;

Da die Werte der Struktur nicht so sind wie Sie sein sollten frage ich sicherheitshalber nach, ob das so stimmt...

viele Grüße!

[edit=SirThornberry]delphi-tags durch c-tags ersetzt - Mfg, SirThornberry[/edit]

[Tyrael Y.]

Die exakte Darstellung des C-Codes wäre folgendes...

Delphi-Quellcode:

type
  IIDC_TRANSFERINFO_P = ^IIDC_TRANSFERINFO;
  IIDC_TRANSFERINFO = record
    total_frame : LongInt;  //Longint da -1 gesetzt werden könnte
    newest_frameindex : LongInt; //Longint da -1 gesetzt werden könnte
  end;

function iidc_gettransferinfo(h: Cardinal;Info : IIDC_TRANSFERINFO_P;InfoBytes : Cardinal) : Cardinal;stdcall;

das übergebene ist ein Pointer auf einen Record

[Johnny_W]

Danke dir Tyrael Y.!

viele Grüße!

[Remko]

var Info: IIDC_TRANSFERINFO is the same as Info: IIDC_TRANSFERINFO_P.
In Jedi translations we always use var instead of pointer unless nil is a valid value in which case type must be a pointer

[Johnny_W]

Hallo da bin ich schon wieder....

Code:

typedef    struct
{
    BOOL              StdMode_Flag;
    struct
    {         
        DWORD         Buffer;               
    } Image;

    struct
    {
        WORD          UnitPos;
    } Ext;
} GETIMAGEINFO, *pGETIMAGEINFO;

Wie sieht denn das Delphi Konstrukt dazu aus?
Manchmal ist ein solches Konstrukt auch in einem Union.

Code:

typedef    struct
{
   union
   {
    struct
    {         
        DWORD         Buffer;               
    } Image;

    struct
    {
        WORD          UnitPos;
    } Ext;
   }u;
} GETIMAGEINFO, *pGETIMAGEINFO;

Ich sehe hier den Wald vor lauter Bäumen nicht...Hoffe mir kann jamand helfen.

Viele Grüße!

[edit=SirThornberry]Delphi-Tags durch c-Tags ersetzt - Mfg, SirThornberry[/edit]

[Remko]

Delphi-Quellcode:

type
  GETIMAGEINFO = record
    StdMode_Flag: Boolean;
    Image: record
      Buffer: Cardinal;
    end;
    Ext: record
      UnitPos: WORD;
    end;
  end;
  TGetImageInfo = GETIMAGEINFO;
  PGetImageInfo = ^GETIMAGEINFO;

/edit: forgot ; after and of image and ext record

[Johnny_W]

Thank you Remko the first struct example works!

So much stuff i did not do yet..wohoo.

best regardz