Forum: Programmieren allgemein
by lagalex,
19. Feb 2013
:wall: Meine Güte! Ein typischer Fall von "Wald vor lauter Bäumen" nicht sehen... :pale:
es war das repeat .. until, hab wohl übers Ziel hinausgeschossen...
Dank an alle!!
Forum: Programmieren allgemein
by lagalex,
19. Feb 2013
Ja das weiß ich, deswegen auch der Befehl SwapBytes für die BigEndians.
TStream.Position zeigt mir 100 bevor ich den ominösen RecordHeader einlese. Das was ich dann bekomme ist weder Big noch Little, hab alles probiert, mit und ohne SwapBytes.
Kann vielleicht der Fehler bei den Packed Records liegen?
Oder ist das in der Dokumentation beschriebene Integer evtl unsigned, habs aber auch mit...
Forum: Programmieren allgemein
by lagalex,
19. Feb 2013
Danke für den Hinweis, bin neu im Forum und wusste noch nicht, dass das geht --- sieht doch gleich besser aus :)
Glaube in der Zwischenzeit, dass bei mir irgendwo was verschoben sein muss, die ersten 100 Byte Fileheader passen ja auch, dann wirds haarig:
ab Offset 100 steht in der Datei:
00 00 00 01 - ist Integer Big Endian, Wert sollte 1 sein da erster Record, danach kommt
00 00 00 48 -...
Forum: Programmieren allgemein
by lagalex,
19. Feb 2013
RecordHeader.Nummer passt auch schon nicht sehe ich gerdae :?
Forum: Programmieren allgemein
by lagalex,
19. Feb 2013
Hallo,
Vielen Dank für all die Hilfestellungen und Denkanregungen, hab zwar das Problem noch immer nicht durchschaut, bin aber so glaube ich zumindest mal einen Schritt weiter...
- Hab den Vorschlag mit ReadBuffer() umgesetzt
- Beim Ausführen bekomme ich einen RunError 203, also einen Heap Overflow
Anbei ist die shp-Datei als zip im Anhang, die ich versuche, einzulesen.
Es handelt sich...
Forum: Programmieren allgemein
by lagalex,
18. Feb 2013
Hallo allerseits,
Ich steh vor einem Problem und weiß nicht, wie ich es lösen könnte, da immer beim Dimensionieren ein Fehler auftritt, vielleicht kann mir wer weiterhelfen:
Ich möchte ein File als stream einlesen, das zuerst aus einem statischen Header besteht, dann aber je nach Inhalt dynamisch wird:
type TFileHeader = packed record
FileCode :LongInt;
end; // ist 100...