TFileStream, Buffer, kA einlesen / auslesen

**Morbid**

Hi,

Ich bin jetzt seit einigen Stunden am suchen, allerdings hab ich leider noch nichts brauchbares gefunden, hoffe wer von euch kann mir weiterhelfen. (Auch nach 4 Jahren Delphi in der Schule haben wir sowas nicht gesehen...)

Also das Problem ist dass ich kA hab wie ich eine Datei (keine .txt-Datei, sondern eine .exe, .doc oder was auch immer) in einen Buffer schreibe.

Säter will ich diese Datei auch wieder herstellen.

Zu Testzwecken wollte ich also probieren eine Datei damit zu Copieren. Allerdings funktionierts nicht.

Global:
var gFileSize: integer; Einlesen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  i: Integer;

  DateiFS: TFileStream;

begin

  DateiFS := TFileStream.Create('C:\Delphi_Test.exe', fmOpenRead);

  gFileSize := DateiFS.Size

  try

    for i := 1 to gFileSize do

      begin

        //kA was hierhin kommt und ob das andere richtig ist?

      end;

  finally

    DateiFS.Free;

  end;

end;

Auslesen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var i: integer;

    DateiFS: TFileStream;

begin

  DateiFS := TFileStream.Create('C:\Delphi_Test_Blup.exe', fmCreate);

  try

    for i := 1 to gFileSize do

      begin

        //kA was hierhin kommt und ob das andere richtig ist?

      end;

  finally

    DateiFS.Free;

  end;

end;

mfG Morbid

TFileStream, Buffer, kA einlesen / auslesen

TFileStream, Buffer, kA einlesen / auslesen

Forumregeln