himXML (gesprochen himix ML)

[franktron]

Habt ihr das mit XE2 64Bit hingekrigt ?

Bei mir Kompiliert er aber stürzt dann beim erstellen von XML:=TXMLFile.Create(nil); mit Stack overflow ab.

[RWarnecke]

Zitat von franktron:

Habt ihr das mit XE2 64Bit hingekrigt ?

Bei mir Kompiliert er aber stürzt dann beim erstellen von XML:=TXMLFile.Create(nil); mit Stack overflow ab.

Du musst doch nur die eine Position wo der Assemblercode die Position des Strings zurückgibt ändern in eine ganz normale Pos-Funktion. Dann hat es bei mir zumindest funktioniert.

[franktron]

Das habe ich auch gemacht aber er hat noch 2 stellen mit Linke Seite kann nicht zugewiesen werden angezeigt die habe ich ausgeremt

[daywalker9]

Evtl ein Inc(Integer(..)) ?

Dort muss dann anstatt Integer, NativeInt bzw NativeUInt stehen.

[himitsu]

Natürlich wurde überall mit Integer gecastet.

Eigentlich sollte Integer ja mal dynamisch sein, womit das dann gepaßt hätte.
hab noch kein XE2, aber wenn, dann wird sich hier ja eh Einiges intern ändern (bzw. ist schon dabei ... bin aber mit einem anderem Projekt ausgelastet und dann wird ja nun auch noch zusätzlich beruflich geproggt)

[franktron]

Diese Zeilen habe ich ausgremt

Delphi-Quellcode:

{rtArray:              Begin
                                    P2 := P;
                                    For i2 := RecInfo._Data[i].Elements - 1 downto 0 do Begin
                                      Serialize_Record(Node2.Nodes.Add('Element'), P2^, RecInfo._Data[i].SubInfo);
                                      Inc(Integer(P2), RecInfo._Data[i].SubInfo._Size);
                                    End;
                                  End;
            rtDynArray:           Begin
                                    P2 := PPointer(P)^;
                                    If Assigned(P2) Then
                                      For i2 := PInteger(Integer(P2) - 4)^ - 1 downto 0 do Begin
                                        Serialize_Record(Node2.Nodes.Add('Element'), P2^, RecInfo._Data[i].SubInfo);
                                        Inc(Integer(P2), RecInfo._Data[i].SubInfo._Size);
                                      End;
                                  End;  }

gibt es 2 mal im Code

[himitsu]

Solnge man keine Serialisierung nutzt, isses nicht schlimm ... hab eh vor, daß durch die neue RTTI auszutauschen.