Сохранение текста ошибки в блокноте

[Ernest027]

Приветствую, товарищи!
Подскажите, можно ли это как-нибудь сделать?
Спасибо.

[Serge_Bliznykov]

Какой именно ошибки?
Что значит "в блокноте"?
Вы в своей программе хотите сохранить какой-то текст?
Для этого можно записать нужную информацию в текстовый файл.
если я Вас правильно понял, конечно.

[kropotkina-alice]

Сообщение от Ernest027

Сохранение текста ошибки в блокноте
Подскажите, можно ли это как-нибудь сделать?
Спасибо.

Запросто
Например:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: extended;
begin
a:=3;
b:=0;
try
c:=a/b;
except
  on E: Exception do
  ListBox1.Items.Add('Точка проверки №1 '+DateTimeToStr(Now)+' '+E.Message);
  //вместо стандартного текста ошибки E.Message можете написать свое сообщение на русском языке
  //  ShowMessage(E.Message); // это тоже можно делать для информирования юзера
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var wnd: HWND;
begin
ListBox1.Items.SaveToFile('C:\errors.txt');
wnd := FindWindow('notepad', nil);
ShellExecute(wnd, nil, 'C:\errors.txt', nil, nil, sw_shownormal);
end;

Или вас интересует прямая передача в открытое окно "Блокнота" по мере обнаружения ошибок?

[Вадим Мошев]

Думаю, надо было начать с самого простого. Скопировать текст можно, нажав CTRL+C (окно с сообщением должно быть активным, фокус на нём должен быть).
_____

Итак, я попытался в делфи получить квадратный корень от минус единицы, получил Access Violation:
exeption.jpg
Нажал CTRL+C и получил вот что:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInvalidOp with message 'Invalid floating point operation'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[min@y™]

316.png

[kropotkina-alice]

Сообщение от Вадим Мошев

Думаю, надо было начать с самого простого. Скопировать текст можно, нажав CTRL+C (окно с сообщением должно быть активным, фокус на нём должен быть).
_____

Итак, я попытался в делфи получить квадратный корень от минус единицы, получил Access Violation:
Вложение 79857
Нажал CTRL+C и получил вот что:

А если запускать не в среде дельфи?

[Вадим Мошев]

Сообщение от kropotkina-alice

А если запускать не в среде дельфи?

Приготовил скринкаст для вас. Вы об этом?
https://youtu.be/eZwWWcGxPWA



Там поставьте качество 720p

[DIONISKA]

Экстрасенс из меня конечно фиговый, но это нужно чтобы вести лог ошибок?
Тогда можно воспользоваться свойством OnException у TApplication, только стоит помнить что оно глобально и при его использовании необходимо показывать ошибки своими силами.
К примеру в public главной формы допишем такую процедуру:

  public
{ Public declarations }
procedure myexcept(Sender: TObject; E: Exception);

сама процедура:

procedure TFrmMain.myexcept(Sender: TObject; E: Exception);
var ef:textfile;
begin
//cначала пишем ошибку в лог
AssignFile(ef,'Errors.log');
if FileExists('Errors.log') then
 System.Append(ef) else System.Rewrite(ef);
 writeln(ef,'');
 write(ef,'Sender: ['+sender.ClassName+'] Classname:'+e.ClassName +' | Message: '+ e.Message+ ' Stack: ['+e.StackTrace+'] ');
 CloseFile(ef);
 // затем показываем своё сообщение об ошибке
  winapi.Windows.MessageBox(0,PChar(e.ClassName+' : '+e.Message),pchar('Error!'),MB_ICONERROR);
end;

и к примеру после инициализации в файле проекта присвоим нашу процедуру (не забыть добавить Sysutils в Uses):

  Application.Initialize;
  Application.OnException:=TFrmMain.myexcept;

В итоге все ошибки будут сохранятся в файле Errors.log
к примеру запись от AV будет выглядеть так:

Sender: [TFrmMain] Classname:EAccessViolation | MessageAccess violation at address 005C6C24 in module 'Project1.exe'. Read of address 00000000 Stack: []

[northener]

Сообщение от DIONISKA

Тогда можно воспользоваться свойством OnException у TApplication, только стоит помнить что оно глобально и при его использовании необходимо показывать ошибки своими силами.

Достаточно в конце обработчика OnException написать

Application.ShowException;