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

[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;