TFileStream, Buffer, kA einlesen / auslesen

[Morbid]

Ok, danke, hat super geklappt

Hab allerdings noch ne kleine Frage, will ich diese Datei jetzt Einlesen, über Socket senden, muss ich ja als erstes die gFileSize und den Sring (gUebergabe) übertragen.
Dann wieder Auslesen? Müsste ja auch so mit dem SendText des Sockets funktionieren, verstehe den SendBuf oder SendStream nämlich nicht ganz...

Global:

Delphi-Quellcode:

var gUebergabe: string;
    gFileSize: integer;

Einlesen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  DateiFS: TFileStream;
begin
  DateiFS := TFileStream.Create('C:\Delphi_Test.doc', fmOpenRead);
  gFileSize := DateiFS.Size;
  SetLength(gUebergabe,gFileSize);
  try
    DateiFS.ReadBuffer(gUebergabe[1], gFileSize);
  finally
    DateiFS.Free;
  end;
end;

Auslesen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var I: integer;
    DateiFS: TFileStream;
begin
  DateiFS := TFileStream.Create('C:\Delphi_Test_Blup.doc', fmCreate);
  try
    DateiFS.WriteBuffer(gUebergabe[1], gFileSize);
  finally
    DateiFS.Free;
  end;
end;