Автоматическая обработка ошибок
Автоматический обработчик ошибок
Автоматическая обработка ошибок //Назначаем общий обработчик ошибок приложения Application.OnException := Screen.ActiveForm.GetFormImage; //Полученный скриншот запишем в файл с уникальным именем Fn := ExtractFilename(Application.ExeName)+'_'+ Screen.ActiveForm.Name+ FormatDateTime('_ddmmyyyy_hhnnss',now)+ '_debug'; bmp.SaveToFile(fn+'.bmp'); Лучше, конечно, записать не громоздкий BMP, а JPEG: procedure TgsCatcher.DoGenerateScreenshot; var bmp: TBitmap; jpg: TJPEGImage; begin bmp := Screen.ActiveForm.GetFormImage; begin jpg := TJPEGImage.Create; jpg.CompressionQuality := 100; jpg.Assign(bmp); jpg.SaveToFile(fn+'.jpg'); FreeAndNil(jpg); end; FreeAndNil(bmp); end;
