Teil-Records aus Stream lesen

[Neutral General]

Hi,

Also sagen wir ich hätte sowas:

Delphi-Quellcode:

TTest = packed record
  nein: Byte;
  ja: Word;
end;

Wenn ich jetzt das Record aus nem Stream lesen will dann mach ich das ja so:

Stream.Read(ATest,SizeOf(TTest)); Wie mach ich das aber wenn ich ab dem zweiten Byte lesen will? Also wenn ich das erste Byte des Records nicht einlesen will... also theoretisch sowas:

Stream.Read(ATest+1,SizeOf(TTest)-1); So das in dem Beispiel die Variable "nein" nicht eingelesen wird... ?
Ich hab da schon irgendwas versucht mit Pointern und hin und her aber das war Rumprobiererei und wurde auch nichtmal compiliert..

Gruß
Neutral General

[bitsetter]

Hi,
das müsste doch so gehenstream.Position:= stream.Position+ 1;

[Neutral General]

Hi,

nein so mein ich das nicht.. Im Stream steht das erste Byte nicht drin.

Mein Record:
________
1 | 2 | 3 |


Das erste (rote) Byte will ich nicht auslesen. Sondern erst das zweite und dritte. Nur ich darf halt nicht die Speicherstelle des Records angeben sondern die Speicherstelle eins weiter. Also hinter der Variable "ja".. so das in diesem Beispiel nur "nein" geladen wird.
Ich hoffe das war jetzt verständlich

Gruß
Neutral General

[markusj]

Hmm, da würde ich, sofern es nur ein kleiner Teil ist (hier nur das Word), dieses per Hand auslesen.
Wenn es ein größerer Record ist, würde ich alles Auslesen und danach die unerwünschten Bestandteile resette.

mfG
Markus

Ähem Halt, ich raff gerade deine Grafik ... da hilft wohl nur die "Zu-Fuß-Variante", oder du nimmst einen zweiten Teil-Record, welchen du einliest und dann rüberschiebst in den richtigen.

[Neutral General]

Nein das muss anders gehn.. Da könnt ich wetten.

[Hawkeye219]

Hallo,

hier ist ein eher defensiver Ansatz, der zunächst den Offset des ersten zu lesenden Recordelements berechnet. Aus diesem Wert und der Recordgröße ergibt sich die Anzahl der zu lesenden Bytes:

Delphi-Quellcode:

var
  Test        : TTest;
  FieldOffset : Integer;
  ReadSize    : Integer;
begin
  FieldOffset := Cardinal(@Test.ja) - Cardinal(@Test);
  ReadSize := SizeOf(TTest) - FieldOffset;

  Stream.Read(Test.ja, ReadSize);
end;

Gruß Hawkeye

[Neutral General]

Hi,

Also in Wirklichkeit hab ich sowas:

Delphi-Quellcode:

TGIFHeader = packed record
  Version: String[6];        
  Width: Word;               
  Height: Word;   
  //..  
end;
PGIFHeader = ^TGIFHeader

Ich hab jetzt mal sowas probiert...

Delphi-Quellcode:

var P: Pointer;
begin
  P := @FHeader;
  P := PPointer(Cardinal(P) + 1)^; // Da müsste ich doch beim ersten Zeichen von Version landen oder?
  SetLength(FHeader.Version,6);    // Weil das allererste Byte ist ja das Byte wo die Länge drinsteht vom String
  AStream.Read(P,10);               // Und das darf nicht überschrieben werden.
  FHeader := PGIFHeader(PPointer(Cardinal(P) - 1)^)^;
  ShowMessage(FHeader.Version);
end;

Das wäre meine Logik aber da bekomm ich bei FHeader := ... haue^^

Gruß
Neutral General

[marabu]

Hallo,

was du laut Format-Spezifikation brauchst sieht eher so aus:

Delphi-Quellcode:

type
  TGIF_HEader = packed record
    Signature: array [0..2] of Char;
    Version: array [0..2] of Char;
   end;

  TGIF_LogicalScreenDescriptor = packed record 
    LogicalScreenWidth: Word;
    LogicalScreenHeight: Word;
    Options: Byte;
    BackgroundColorIndex: Byte;
    PixelAspectRatio: Byte;
  end;

// ...

String[6] ist also auf jeden Fall falsch. Wenn du jeden GIF Block-Typ einzeln gemäß Spezifikation definierst, dann fällt dein Problem einfach weg, aber grundsätzlich funktioniert die von Hawkeye vorgestellte Methode.

Grüße vom marabu

[Neutral General]

Hi,

Ja ok danke.. Naja das Problem ist:

Zitat von GIF Dateispezifikation:

Byte Nr. 0 - 5: "GIF87a" Version. Bislang gibt es GIF87a und GIF89a.

Deswegen hab ich nen String[6] definiert...

[marabu]

Hallo Michael,

ich hatte dir unterstellt, dass du den feinen Unterschied zwischen String[6] und array [0..5] of Char nicht kennst - entschuldige.

Dein Problem kannst du viel einfacher lösen:

Delphi-Quellcode:

type
  TGIF_Header = packed record
    Signature: array [0..2] of Char;
    Version: array [0..2] of Char;
  end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  gh: TGIF_Header;
begin
  gh.Signature := 'GIF';
  gh.Version := '89a';
  ShowMessage(Format('<%s> <%s>', [String(gh.Signature), String(gh.Version)]));
end;

Du brauchst kein getürktes Längenbyte.

Freundliche Grüße