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?
