Streams: existierende Daten entfernen / einfügen

[mytar]

Ich hantiere gerade bei Streams herum.
Nun tauchen bei mir folgende Probleme auf:

• Wie entferne ich Daten aus einem Stream welcher auf existierende Daten zugreift?
• Wie füge ich Daten in einen Stream ein, welcher auf existierende Daten zugreift?

mfg
mytar

[edit=sakura] [Klammern entfernt] Mfg, sakura[/edit]

[mytar]

Kann mir hier niemand weiterhelfen?

Hier nochmals:

Ich hab eine Datei, und öffne sie via Stream, nun möchte ich mit Seek() die entsprechende Position suchen, und dann was in den Stream einfügen, oder herauslöschen. Die Datei hab ich zuvor selbst erzeugt, ich kenne also die Dateistruktur.


mytar

[Luckie]

Wenn du mitten reinschreiben willst, dann wird dir nichts anderes übrigbleiben, als ab der Stelle den Rest in einem memoryStream zwischenzuspeichern, deinen Datensatz reinschreiben und dann den gesicherten Rest wieder dranzuhängen.

[mytar]

Danke! Eine gute Lösung, ich bin natürlich nicht draufgekommen!

mytar

[F.W.]

Aber wenn ich nach der Position suche und der Stream 4 MB groß ist, dauert das bei mir schon länger, ich glaube ich mach es nicht richtig:

Ich möchte ein Prog schreiben, was ein Bild und text in eine Datei speichert, erst soll es ein paar Memolines in den TFileStream schreiben und dann das Bild. Da der Text des Memos keine Begrenzung haben soll, würde ich beim Datei schreiben einfach ein '[END]' in den Stream schreiben.

Suchen würde ich das Ende des Memos/den Anfang des Bildes mit der folgenden Funktion (hab ich mir ausgedacht, aber sie ist so langsam. Wie sucht man nach einem "Wort" in einem Stream ("professionell")?)

Delphi-Quellcode:

//Aufruf
 Position := GetOffsetOf(FS, '[END]')-1;
 FS.Position

//Funktion
function GetOffsetOf(FS: TFileStream; S: String): Integer;
var
 C: Char;
 B, I: integer;
begin
 I := 0;
 Result := 0;
 While I < FS.Size-1 do begin
     FS.ReadBuffer(C, SizeOf(C));
     Inc(I);
     if UpCase(C) = UpCase(S[1]) then begin
        Result := I;
        for B := 2 to Length(S) do begin
            FS.ReadBuffer(C, SizeOf(C));
            Inc(I);
            if UpCase(C) <> UpCase(S[B]) then begin
               Result := 0;
               Break;
            end;
            if B = Length(S) then Exit;
        end;
     end;
 end;
end;

Also nochmal meine frage: Wie sucht man nach einer Zeichenfolge in einem Stream?

Danke schonmal!

[dizzy]

Zitat:

Zitat von F.W.

Also nochmal meine frage: Wie sucht man nach einer Zeichenfolge in einem Stream?

Eine Variante:

Delphi-Quellcode:

var
  str: string[5];
.
.
.
Stream.Read(str, 5);
while str <> 'hallo' do
  Stream.Seek(-4, soFromCurrent);
  Stream.Read(str, 5);
end;

Prinzip: Auf gut Glück einfach nen Block einlesen, und vergleichen. Wenn's nicht passt, dann Blockgröße-1 zurückspringen, und nochmals lesen... usw.usf.
Ist evtl. nicht so performant, aber anders hab ich das bisher auch noch nicht gemacht ;)


gruss,
dizzy

[F.W.]

Das ist ja schonmal ein Anfang.

Mir ist gerade was aufgefallen: Wenn ich jedes Zeichen einzeln schreibe (von 'Hallo') wird die Datei 5 Bytes groß und es steht richtig "Hallo" drin (wenn man sie mit HexEditor öffnet). Mach ich es mit

Delphi-Quellcode:

 S := 'Hallo';
 WriteBuffer(S, SizeOf(S));

Dann ist die Datei nurnoch 4 Bytes groß :gruebel: und mit HE kann man Hallo nicht lesen.
Ich habs aber noch nicht geschafft das wieder richtig herzustellen, darum meine (2.) Frage: Für das Beispiel "Hallo" -> Wie schreibt und ließt man richtig in und aus Streams? :pale:

[Edit]@dizzy: Wieso um 4 zurück? Da könntest du doch was verpassen, einmal liest du bsw. 'lo...' und nach dem zurückspringen '..Hal'!? (Wenn ich das richtig sehe).[/Edit]

[Muetze1]

Moin!

S ist ein AnsiString und daher nur ein Zeiger auf den String. Daher ergibt SizeOf() auch eine 4, weil es ein Pointer ist. Somit folgendes:

1. Nutze anstatt SizeOf() die Funktion Length() um die Länge des Strings zu ermitteln.
2. Gebe der Schreibroutine das erste Zeichen an.

Delphi-Quellcode:

 S := 'Hallo';
 WriteBuffer(S[1], Length(S));

MfG
Muetze1

[F.W.]

:thumb: Das funktioniert! :thumb:

:idea: Stelle fest: Auslesen funktioniert dann folgender Maßen

Delphi-Quellcode:

const
 L: Integer = 5; //Länge
var
 S: Array[0..MAX_PATH-1] of Char;
//oder  S: Array[0..L-1] of Char;
 FS: TFileStream;
    { ... }
 FS.ReadBuffer(S, L);

Soweit hätten wirs damit schonmal :!:

[F.W.]

Da gibt's doch noch was besseres (meine Methode geht zwar auch, aber das hab ich in nem Tut gelesen):

Delphi-Quellcode:

var
 S: String;
begin
   { ... }
 SetLength(S, Len);
 FS.ReadBuffer(S[1], Len);
   { ... }
end;

:dancer2: Soviel dazu!