himXML (gesprochen himix ML)

[Dawn87]

Wie steht es um diesen eigentlich wunderbaren XML-Parser?

Ich habe gerade versucht den in meine Anwendung (XE5, 64-Bit) einzubinden, aber er steigt beim Kompilieren aus, da Assemblercode verwendet wurde. Gibt es eine aktuellere Version als über den hier zu findenden Link angeboten oder nimmt man heutzutage besser einen anderen XML-Parser?

Beste Grüße

[sh17]

Nimm OXml.

[RWarnecke]

Zitat von Dawn87:

Wie steht es um diesen eigentlich wunderbaren XML-Parser?

Ich habe gerade versucht den in meine Anwendung (XE5, 64-Bit) einzubinden, aber er steigt beim Kompilieren aus, da Assemblercode verwendet wurde. Gibt es eine aktuellere Version als über den hier zu findenden Link angeboten oder nimmt man heutzutage besser einen anderen XML-Parser?

Beste Grüße

Wenn ich es noch richtig weiß, kannst Du den Assembler Code austauschen gegen ganz normalen Delphi Quelltext. Dann funktioniert himXML mit 64Bit. Ich müsste heute Abend mal nachschauen, vielleicht habe ich noch irgendwo eine 64Bit Version von himXML.

[Dawn87]

Zitat von RWarnecke:

Zitat von Dawn87:

Wie steht es um diesen eigentlich wunderbaren XML-Parser?

Ich habe gerade versucht den in meine Anwendung (XE5, 64-Bit) einzubinden, aber er steigt beim Kompilieren aus, da Assemblercode verwendet wurde. Gibt es eine aktuellere Version als über den hier zu findenden Link angeboten oder nimmt man heutzutage besser einen anderen XML-Parser?

Beste Grüße

Wenn ich es noch richtig weiß, kannst Du den Assembler Code austauschen gegen ganz normalen Delphi Quelltext. Dann funktioniert himXML mit 64Bit. Ich müsste heute Abend mal nachschauen, vielleicht habe ich noch irgendwo eine 64Bit Version von himXML.

Wenn Du Gelegenheit hast zu schauen, ob Du eine angepasste Version hast, wäre ich Dir sehr dankbar. OXml werde ich mir aber auch einmal ansehen.

[RWarnecke]

Ich war damals sehr pragmatisch und habe den Teil mit dem Assembler Code folgendermaßen abgeändert :

Delphi-Quellcode:

  {$IFDEF Win32}
    Class Function TXHelper.Pos(Const Sub, S: TWideString): Integer;
      ASM
        PUSH    EBX
        PUSH    ESI
        PUSH    EDI
        TEST    EDX, EDX
        JE      @@Zero
        TEST    ECX, ECX
        JE      @@Zero
        MOV     ESI, EDX
        MOV     EDI, ECX
        MOV     ECX, [EDI-4]
        {$IFDEF hxDisableUnicodeString}
          SHR   ECX, 1
        {$ENDIF}
        MOV     EDX, [ESI-4]
        {$IFDEF hxDisableUnicodeString}
          SHR   EDX, 1
        {$ENDIF}
        DEC     EDX
        JS      @@Zero
        MOV     AX, [ESI]
        ADD     ESI, 2
        SUB     ECX, EDX
        JLE     @@Zero
        PUSH    EDI

        @@Loop:
        REPNE   SCASW
        JNE     @@Fail
        MOV     EBX, ECX
        PUSH    ESI
        PUSH    EDI
        MOV     ECX, EDX
        REPE    CMPSW
        POP     EDI
        POP     ESI
        JE      @@Found
        MOV     ECX, EBX
        JMP     @@Loop

        @@Fail:
        POP     EDX

        @@Zero:
        XOR     EAX, EAX
        JMP     @@Exit

        @@Found:
        POP     EDX
        MOV     EAX, EDI
        SUB     EAX, EDX
        SHR     EAX, 1

        @@Exit:
        POP     EDI
        POP     ESI
        POP     EBX
      End;
  {$ENDIF}
  {$IFDEF Win64}
    Class Function TXHelper.Pos(Const Sub, S: TWideString): Integer;
      begin
        result := System.Pos(Sub, S);
      end;
  {$ENDIF}

Denn der Assembler-Code ist nur eine schnellere Variante der POS-Funktion aus der System-Unit. Aber wenn Du den Teil so ersetzt, funktioniert es auch mit 64Bit. Die Quelle ist die himxml_164.7z oben aus den Downloads.

[himitsu]

Joar, im Notfall einfach das "normale" Pos verwenden.

In Bezug auf Multiplatform ist das auch einer der Teile, die rausgeflogen sind. (wenn ich's dann mal fertig hab)

[Dawn87]

Ich hatte den Versuch schon gewagt und die Pos-Funktion ersetzt. Leider kamen danach noch andere Fehler, die ich nicht mehr genau im Kopf habe. "Der linken Seite kann nichts zugewiesen werden" in einem Inc()-Aufruf. Da werde ich morgen nochmal nach schauen.