TFileStream öffnen und lesen!

[Die Muhkuh]

hi ich erzeuge mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Datei: TFileStream;
    T: String;
    Count: Integer;
begin
  T := Edit1.Text;
  Count := Length(T);
  try
    T := T;
    Datei := TFileStream.Create('d:\Test.txt',fmcreate);
    Datei.WriteBuffer(T, Count);
  finally
    Datei.Free;
end;
end;

eine TXT mittels FileStream!

Wie kann ich diese datei durch klicken eines anderen Buttons (Button2)in einem anderen Edit(Edit2)anzeigen lassen?

[Christian Seehase]

Moin Spider,

ich vermute mal, dass Du es schon versucht hast, und kein Text angezeigt wurde.

Da der Buffer nicht typisiert ist, musst Du bei einem String (oder auch anderen Arrays) angeben ab welcher Stelle geschrieben werden soll.

Delphi-Quellcode:

Datei.WriteBuffer(T[1], Count);

Dass muss auch beim Lesen gemacht werden. Wichtig ist, dass der Buffer vorher auf die erforderliche Länge initialisiert werden muss (z.B. mit StringOfChar, Länge FileStream.Size).

Zum lesen dann statt fmCreate dann fmOpenRead.

[Die Muhkuh]

und beim öffnen dann

Code:

Datei.ReadBuffer(T[1], Count);

statt

Code:

Datei.WriteBuffer(T[1], Count);

oder?

Oder kannst du mir mal ein Beispiel code machen? Hab mit sowas noch nie gearbeitet :oops:

[Christian Seehase]

Moin Spider,

Du hast es doch eigentlich schon:

Delphi-Quellcode:

// schreiben
procedure TForm1.Button1Click(Sender: TObject); 
var Datei: TFileStream; 
    T: String; 
    Count: Integer; 
begin 
  T := Edit1.Text; 
  Count := Length(T); 
  try 
    Datei := TFileStream.Create('d:\Test.txt',fmcreate); 
    Datei.Write(T[1], Count); 
  finally 
    Datei.Free; 
  end; 
end;

// Lesen
procedure TForm1.Button2Click(Sender: TObject); 
var Datei: TFileStream; 
    T: String; 
begin 
  try 
    Datei := TFileStream.Create('d:\Test.txt',fmOpenRead); 
    T     := StringOfChar(#00,Datei.Size);
    Datei.Read(T[1], Datei.Size); 
  finally 
    Datei.Free; 
  end; 
end;

ungetestet, sollte aber stimmen.
BTW: Ich hab' nur noch mal die Methoden xxxBuffer gegen die ohne ausgetauscht.

[Die Muhkuh]

THX Chris!

Sachmal kann man das auch noch ganz,ganz,ganz,ganz einfach Verschlüsselen?

[Christian Seehase]

Moin Spider,

Du weisst doch:
Neue Frage - Neuer Thread ;-)

[Die Muhkuh]

OK aber... in meinem Anderen Thread sie "Sehr einfaceh Verschlüsselung" hat keine geantwortet ich glaub sogar das der Thread gar nicht mehr existiert! Gut dann mach ich nen Neuen auf!