[nicht-Profi] Datentyp auf bestimmte Weise darstellen

[Nelphin]

Hallo,

ich möchte gerne einen bestimmten Datentyp aus einer Datei einlesen und entsprechend einer vorliegenden Spezifikation sichtbar machen:

Hier der Teil der Spezifikation, der mir Rätsel aufgibt:

Zitat:

The type is a 16 byte (128-bit) number. It is stored/written to the file using a four-byte word (U32), 2 two-byte words (U16), and 8 one-byte words (U8) such as:
{3F2504E0-4F89-11D3-9A-0C-03-05-E8-2C-33-01}
In the given format types are used as unique identifiers (e.g. Data Segment ID, Object Type ID, etc.)

Also mein Ansatz wäre an die Stelle im File zu springen (die ist mir bekannt) wo dieser Datentyp steht und ihn dann in entsprechenden Variablen einzulesen...

also etwa so:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
fs: TFilestream;
EntryCount:integer;
w32:longword;
w16a,w16b:word;
w8a,w8b,w8c,w8d,w8e,w8f,w8g,w8h:byte;
begin
fs:=TFilestream.Create(edit1.Text,fmopenread);
fs.Position:=89;
fs.ReadBuffer(w32,4);
fs.ReadBuffer(w16a,2);
fs.ReadBuffer(w16b,2);
fs.ReadBuffer(w8a,1);
fs.ReadBuffer(w8b,1);
fs.ReadBuffer(w8c,1);
fs.ReadBuffer(w8d,1);
fs.ReadBuffer(w8e,1);
fs.ReadBuffer(w8f,1);
fs.ReadBuffer(w8g,1);
fs.ReadBuffer(w8h,1);
fs.free;
end;

was mir nicht klar ist, wie ich das jetzt mal auf den bildschirm bekomme damit es so aussieht:

Zitat:

{3F2504E0-4F89-11D3-9A-0C-03-05-E8-2C-33-01}

Für Tipps wäre ich dankbar!

[Klaus01]

Guten Abend,

schau Dir mal die Routine IntToHex an.

added:

Für das Daten auslesen eventuell einen Record definieren.

Delphi-Quellcode:

type 
  TData = record
    firstSegment  : LongWord;
    next2Segments : Array[0..1] of Word;
    leftOver      : Array[0..7] of Byte;
  end;

Grüße
Klaus

[himitsu]

zur Anzeige:
Format

Einfach einen Formatstring definieren, welcher der Vorgabe entspricht und dann alle Zahlen/Variablen übergeben.
Ist bestimmt schöner, als den string komplett manuell zusammenzusetzen und jeden wert einzeln mit HexToStr umzuwandeln.



Und das mit Record hat den Vorteil, daß du diesen Record nur einmal auslesen mußt und da gleich alle Werte auf einmal aus der datei rausbekommst
anstatt jeden Wert einzeln auszulesen.

PS: besser einen packed Record verwenden > TData = packed record ...

[Nelphin]

Vielen Dank für die Antworten!

leider erziele ich nach wie vor nicht das erwartete Ergebnis.
ich habe zum testen das ganze file durchwandert und immer um 1 byte versetzt ein 4 byte langes DWord ausgelesen.
dieses dann mit inttohex() in einer listbox ausgegeben und dann nach diesen eindeutigen identifizierern gesucht... ohne erfolg.

[Nelphin]

Ich bin durch zufall darauf gekommen das es für diesen Typ eine delphi komponente TGUID zu geben scheint.

zusätzlich habe ich diese Klasse gefunden: http://delphi.about.com/library/weekly/aa022205a.htm

jetzt habe ich meinen code umgebaut:

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject);
var
MyGUID:TGuid;
fs: TFilestream;
MyGuidStr:string;
begin
fs:=TFilestream.Create(edit1.Text,fmopenread);

fs.Position:=89;
fs.Readbuffer(MyGUID,16);                 //leider bekomme ich jetzt hier einen fehler
MyGuidStr:=TGuidex.ToString(MyGuid);
Listbox1.items.add(MyGuidStr);

fs.free;
end;

bekomme aber einen

Zitat:

stream lesefehler

kann mir jemand weiterhelfen?

[himitsu]

Zitat von Nelphin:

Ich bin durch zufall darauf gekommen das es für diesen Typ eine delphi komponente TGUID zu geben scheint.

Fällt dir was auf?

Code:

deins {3F2504E0-4F89-11D3-9A-0C-03-05-E8-2C-33-01}
GUID   {3F2504E0-4F89-11D3-9A0C-0305E82C3301}

(gut, man könnte jetzt einfach noch die zusätzlichen "-" da reinschieben)

Zitat von Nelphin:

//leider bekomme ich jetzt hier einen fehler

Ist die Datei groß genug? (mindestens 105 Byte)


PS: auf BigEndian/LittleEndian müßte man auch mal schauen
(z.B. könnte da auch das mit dem "-" reinschieben schwer werden, wenn die Reihenfolge nicht stimmt)