Konvertierung Variante vom Typ (OleStr) in Typ (Integer)

[saschab]

Hallo zusammen,

habe ein Problem beim Auslesen einer XML Datei und beim Zugriff auf die Daten bekomme ich die Fehlermeldung:

Zitat:

Überlauf bei der Konvertierung einer Variante vom Typ (OleStr) in Typ (Integer)

Quellcode:

Delphi-Quellcode:

procedure Tfrm_main.btn_loadClick(Sender: TObject);
var
    daten: IXMLONIXmessageType;
    pro: IXMLONIXmessageType;
    title: IXMLTitleTypeList;
    header: IXMLHeaderType;

begin
  // Datei Laden in data
  daten := LoadONIXmessage('datentest.xml');
  // Datei Header laden in header
  header := daten.Header;
  // Header Daten auslesen und in ed_header
  [b][color=#ff0000]ed_absenderkennung.Text := IntToStr(header.M172);[/color][/b]


  title := daten.Product.Items[2].Title;

  showmessage(inttoStr(daten.Product.Count));
  showmessage(daten.Product.Items[2].A001);
  showmessage(title.Items[0].B203);
end;

Fettgedruckte Rote Zeile erzeugt die Fehlermeldung.

Typendeklaration der XML Header:

Delphi-Quellcode:

{ TXMLHeaderType }

  TXMLHeaderType = class(TXMLNode, IXMLHeaderType)
  protected
    { IXMLHeaderType }
    function Get_M172: Integer;
    function Get_Senderidentifier: IXMLSenderidentifierType;
    function Get_M174: WideString;
    function Get_M175: WideString;
    function Get_M180: Integer;
    function Get_M182: Integer;
    procedure Set_M172(Value: Integer);
    procedure Set_M174(Value: WideString);
    procedure Set_M175(Value: WideString);
    procedure Set_M180(Value: Integer);
    procedure Set_M182(Value: Integer);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLSenderidentifierType }

Weis zufällig jemand wie ich das umkonvertieren muss ?

[marabu]

Hallo Sascha,

aufgrund der Fehlermeldung vermute ich, dass im zugrunde liegenden XML-Element ein zu großer Zahlenwert enthalten ist. Hast du das mal überprüft?

Grüße vom marabu

[saschab]

Hi,

ja habe ich war auch so hab es ungeändert in String dann ging es obwohl der Zahlenwert in einen Longint gepasst hätte.

Danke für die Antwort.