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;