Inhalt eines Streams teilweise in anderen Stream kopieren

[Tyrael Y.]

Hi zusammen,

mittels eines TFileStreams lese ich Daten aus einer Datei.
In dieser Datei sind verschiedene Daten gespeichert.

Das Format ist etwa so ... Länge Wert Länge Wert Länge Wert ... usw.

über

Delphi-Quellcode:

  FileStream.Read(Value, SizeOf(Value))

lese ich einige Werte aus..

dann kommt innerhalb der Datei ein Blob Feld das ich gespeichert habe.

Um dieses BlobFeld zu lesen erstelle ich ein TMemoryStream

Delphi-Quellcode:

  MemStream := TMemoryStream.Create;

dann versuche ich die Daten aus dem FileStream auf das MemoryStream zu übertragen

Delphi-Quellcode:

  FileStream.ReadBuffer(MemStream, Length);

ist das überhaupt bis hierhin ok?

MemStream.CopyFrom() kann ich nicht einsetzen, da nach dem Blob Wert noch andere Werte folgen
und CopyFrom den ganzen Stream kopiert.


Grüße Tyrael

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Tyrael Y.]

Wenn jemand einen Vorschalg hat wie man einen Stream teilweise in einen anderen Kopieren kann

bitte melde dich *grins*

Grüße

[Wormid]

Delphi-Quellcode:

function CopyFrom(Source: TStream; Count: Int64): Int64;

CopyFrom kopiert laut meiner OH nicht den ganzen Stream... sondern nur die in Count angegeben Anzahl an Bytes...

Gruß

Wormid

[Tyrael Y.]

Ja hast recht.
hab mich falsch ausgedrückt.

CopyFrom fängt am Anfang des Streams an zu kopieren und kopiert angegebene Zahl an Bytes.

Der FileStream ist aber an einem bestimmtem Platz innerhalb der Datei und
ich möchte gerne das angegebene Anzahl Bytes ab dieser Position kopiert werden.


Hoffe jetzt ist es verständlicher.

sry nochmal


Gruß Tyrael

[Wormid]

Öhm... das ist nicht ganz korrekt...

Zitat:

Zitat von Delphi's Online Hilfe

Wenn Count 0 enthält, setzt CopyFrom vor dem Lesen die Position in Source auf 0 und kopiert dann den gesamten Inhalt von Source in den Stream. Wenn Count größer oder kleiner als 0 ist, liest CopyFrom ab der aktuellen Position in Source.

[Tyrael Y.]

hab gerade auch mal gelesen du hast Recht, ups :oops:

hm komisch

ich schreib nämlich den stream in eine DB (der Blob ist ein Bild)

Code:

TBlobField(aTable.FieldByName(aFieldName)).LoadFromStream(MemStream);

und wenn ich das Feld auslesen möchte, bekomme ich kein Bild als Ergebnis..

hm..komisch...muss nochmal gucken.....

...danke dir schonmal....


Gruß