Array Problem

[bergamo34]

Hallo,


Das folgende type ist ein Auszug aus dem Twain.pas (DelphiTwain-Component bei sourceforge.net)

Delphi-Quellcode:

TW_EXTIMAGEINFO = packed record
    NumInfos: TW_UINT32;
    Info: array[0..0] of TW_INFO;
  end;

mein Problem:
ich brauche aber mehr als nur ein Info (siehe unten procedure Auszug). Im TW_EXTIMGAINFO-Struct ist das Info als ein Array von der Länge 1 definiert! Wie kann ich das lösen?

Delphi-Quellcode:

procedure Tfrm_main.DelphiTwain1SourceSetupFileXfer(Sender: TObject; const Index: Integer);
var vTWExtImageInfo: TW_EXTIMAGEINFO;
    sBarcodeText: String;
begin
  with vTWExtImageInfo do
  begin
    NumInfos := 4;
    Info[0].InfoID := TWEI_BARCODETYPE;
    Info[0].ItemType := TWTY_UINT32;
    Info[0].NumItems := 0;
    Info[0].CondCode := 0;
    Info[0].Item := 0;

    Info[1].InfoID := TWEI_BARCODETYPE;
    Info[1].ItemType := TWTY_UINT32;
    Info[1].NumItems := 0;
    Info[1].CondCode := 0;
    Info[1].Item := 0;

    Info[2].InfoID := TWEI_BARCODETEXTLENGTH;
    Info[2].ItemType := TWTY_UINT32;
    Info[2].NumItems := 0;
    Info[2].CondCode := 0;
    Info[2].Item := 0;

    Info[3].InfoID := TWEI_BARCODETEXT;
    Info[3].ItemType := 0;
    Info[3].NumItems := 0;
    Info[3].CondCode := 0;
    Info[3].ItemType := 0;

    .....

gruß

bergamo34