mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added 'retry' if saving rendered image failed

Browse Source
This commit is contained in:
zueuk 2008-09-05 03:05:40 +00:00
parent 1973ec62cb
commit 065eb175a2
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
2.10/Source/FormRender.pas
View File

@ -199,6 +199,8 @@ begin
end; end;
procedure TRenderForm.HandleThreadCompletion(var Message: TMessage); procedure TRenderForm.HandleThreadCompletion(var Message: TMessage);
var
tryAgain: boolean;
begin begin
Trace2(MsgComplete + IntToStr(message.LParam)); Trace2(MsgComplete + IntToStr(message.LParam));
if not assigned(Renderer) then begin if not assigned(Renderer) then begin
@ -212,11 +214,18 @@ begin
EndTime := Now; EndTime := Now;
try repeat
Renderer.SaveImage(FileName); tryAgain := false;
except try
Output.Lines.Add(TimeToStr(Now) + ' : Error saving image!'); Renderer.SaveImage(FileName);
end; except
on e: Exception do begin
Output.Lines.Add(TimeToStr(Now) + ' : Error saving image!');
tryAgain := (Application.MessageBox(PChar('An error occured while saving the image:' + #13#10 + e.Message +
#13#10 + 'Check your free disk space and try again.'), 'Error', MB_RETRYCANCEL or MB_ICONERROR) = IDRETRY);
end;
end;
until tryAgain = false;
if PlaySoundOnRenderComplete then if PlaySoundOnRenderComplete then
if RenderCompleteSoundFile <> '' then if RenderCompleteSoundFile <> '' then