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;