[nicht-Profi] Datentyp auf bestimmte Weise darstellen

[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)

[Nelphin]

Zitat von 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)

das mit den zusätzlichen "-" hatte ich gehofft, weil ansonsten doch die spezifikationen gleich sind: 1x4byte 2x2byte und 8x1byte.
in der datei ist das zeugs ja als bytes und die string darstellung ist ja nur zum manuellen vergleich? (oder übersehe ich da etwas?)

Zitat von himitsu:

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

ich habe einige test dateien für das format, keine ist kleiner als 3kbyte.

Zitat von himitsu:

PS: auf BigEndian/LittleEndian müßte man auch mal schauen

in dem format gibt es im header ein byte das 1 oder 0 sein kann, das vorgibt in welcher reihenfolge die bytes gespeichert sind...
ich habe demnach hier eine funktion gefunden und ausprobiert was dann herauskommt... diese macht beispielsweise aus 00000002 dann 02000000
aber auch so habe ich keine ID entdecken können weder an den Stellen, wo sie meiner Meinung nach sein müssten, noch beim byteweisen durchkriechen.
deswegen vermute ich das meine typen falsch sind.

EDIT: Lesefehler ist behoben... es liest das zeugs jetzt ein. aber sie stimmen halt nicht... ich probier mal noch ein wenig herum.

[p80286]

mit D2006 läuft folgender Code:

Delphi-Quellcode:

var
  MyGUID:TGuid;
  fs: TFilestream;
  MyGuidStr:string;
begin
  fs:=TFilestream.Create('c:\temp\mydate.doc',fmopenread);
  fs.Position:=89;
  fs.Readbuffer(MyGUID,16); //leider bekomme ich jetzt hier einen fehler
  MyGuidStr:=GuidToString(MyGuid);

  label4.Caption:=MyGuidStr;

  fs.free;
end;

Gruß
K-H