Dateien Kommen nur teilweise an!

[Dr0mFr34K]

Sorry for doppelpost aber hatte oben noch was vergessen und zwar den empfang von der datei im server

das geschieht hiermit

Delphi-Quellcode:

procedure TFilesForm.SetFileData(const FileData: string);
var
   fs : TFileStream;
begin
   SaveDialog1.FileName := CurFile;
   if SaveDialog1.Execute then begin
      fs := TFileStream.Create(SaveDialog1.FileName, fmCreate);
      fs.Write(FileData[1], Length(FileData));
      fs.Free;
   end;
end;