Hallo Michael,
das klingt an sich nicht schlecht aber...
ich erstelle momentan die Datei aus einem Stream:
Code:
procedure TfrmSearch.lvSearchDblClick(Sender: TObject);
begin
Stream := TMemoryStream.Create;
try
IdHTTP.HandleRedirects := True;
IdHTTP.Get(Host + '/restapi/index.php/document/' + String(lvSearch.Items.Item[i].Data) + '/content', Stream);
Stream.SaveToFile(GetSpecialFolder(CSIDL_APPDATA) + '\' + ResponseFileName);
except
on E:
Exception do begin
ShowMessage('Fehler: ' + E.Message);
end;
end;
Stream.Free;
end;
CreateFile jedoch erstellt die Datei ja auch und ich kann da ja nur einen Dateinamen übergeben, jedoch keinen Stream oder habe ich was übersehen?