RAD Server - Download einer Datei über die RAD Server komponenten

[fisipjm]

Zitat von TiGü:

Delphi-Quellcode:

    if Response.ContentLength > 0 then // oder Response.HasResponseContent wenn Response ein Interface vom Typ IRESTResponseJSON sein sollte/gecastet worden ist!
    begin
      try
        System.IOUtils.TFile.WriteAllBytes(SaveDialog1.FileName, Response.RawBytes);
      except
        // reagieren auf die möglichen Exceptions überbleibt dem geneigten Leser als Hausaufgabe!
        on E: ENotSupportedException do
        begin

        end;
        on E: EArgumentException do
        begin

        end;
        on E: EDirectoryNotFoundException do
        begin

        end;
        on E: EFileNotFoundException do
        begin

        end;
      end;
    end;

Ist ein Großteil der Meldungen nicht durch die Verwendung von Savedialog schon ausgeschlossen?

[TiGü]

Gewiss, aber in dreieinhalb Monaten refaktorist du das oder jemand anderes so, dass es eine eigene Methode wird.
Mit reiner Übergabe des Dateinamens als String damit keine Koppelung zwischen SaveDialog und abspeichern besteht und dann geht's wieder von vorne los.

[fisipjm]

Zitat von TiGü:

Gewiss, aber in dreieinhalb Monaten refaktorist du das oder jemand anderes so, dass es eine eigene Methode wird.
Mit reiner Übergabe des Dateinamens als String damit keine Koppelung zwischen SaveDialog und abspeichern besteht und dann geht's wieder von vorne los.

na dann zieh ich das doch einfach mal in die Zukunft und mach direkt eine eigene Methode draus, besser ist das

Danke für die Hinweise, hast ja absolut recht

[himitsu]

Jupp, wollte quasi sagen:

* wenn vorhanden, dann kannst das auch gleich binär speichern (wenn es z.B. als TByte vorliegt)

* und wenn es ein String oder TArray<String> oder TBytes bzw. TArray<Byte> ist, dann kannst das über TFile auch direkt als Einzeiler speichern, anstatt erst eine Klasse zu erstellen (die oben, in deinem BeispielCode, auch noch vergessen wurde wieder freizugeben)