Номер ошибки или другой идентификатор...

← →
Ross © (2004-02-11 17:38) [0]

Много работал на MS Visual Basic. Там, есть событие OnError для формы, которая вовзвращала номер ошибки. В базе есть таблица errors, которая содержит номера ошибок и текст сообщения. Я просто делал функцию которая возвращала этот текст по номеру ошибки. Каk в этом случае поступают в Delphi?

← →
VLAD-MAL (2004-02-11 17:40) [1]

try ... except ... on xxx .... ?

← →
Ross © (2004-02-11 18:25) [2]

Как можно получить номер ошибки. Где можно достать список ошибок в Delphi?

← →
Digitman © (2004-02-11 18:30) [3]

> Ross © (11.02.04 18:25) [2]

смотря о каких ошибках речь ведешь

в Делфи фигурирует (в т.ч. и в 1-ю очередь) механизм программных исключений .. понятие "ошибка" и "код ошибки" не всегда применим в механизму исключений ... зато идеально применим для WinAPI ..

← →
Ross © (2004-02-11 18:36) [4]

Мне нужно тексты сообщений перевести на другой язык. Как лучше всего это сделать?

← →
Anatoly Podgoretsky © (2004-02-11 22:53) [5]

Ross © (11.02.04 18:36) [4]
Лучше переписать компилятор и/или ресурсы компилятора

← →
DDA © (2004-02-12 00:18) [6]

Windows.pas line(6546-)

{ Define the severity codes }

{ The operation completed successfully. }
ERROR_SUCCESS = 0;
{$EXTERNALSYM ERROR_SUCCESS}
NO_ERROR = 0; { dderror }
{$EXTERNALSYM NO_ERROR}

{ Incorrect function. }
ERROR_INVALID_FUNCTION = 1; { dderror }
{$EXTERNALSYM ERROR_INVALID_FUNCTION}

{ The system cannot find the file specified. }
ERROR_FILE_NOT_FOUND = 2;
{$EXTERNALSYM ERROR_FILE_NOT_FOUND}

{ The system cannot find the path specified. }
ERROR_PATH_NOT_FOUND = 3;
{$EXTERNALSYM ERROR_PATH_NOT_FOUND}

{ The system cannot open the file. }
ERROR_TOO_MANY_OPEN_FILES = 4;
{$EXTERNALSYM ERROR_TOO_MANY_OPEN_FILES}

{ Access is denied. }
ERROR_ACCESS_DENIED = 5;
{$EXTERNALSYM ERROR_ACCESS_DENIED}

{ The handle is invalid. }
ERROR_INVALID_HANDLE = 6;
{$EXTERNALSYM ERROR_INVALID_HANDLE}

{ The storage control blocks were destroyed. }
ERROR_ARENA_TRASHED = 7;
{$EXTERNALSYM ERROR_ARENA_TRASHED}

ShowMessage(SystemMessageError(ERROR_FILE_NOT_FOUND))
Типа скажет файл не найден

← →
DDA © (2004-02-12 00:20) [7]

> ShowMessage(SystemMessageError(ERROR_FILE_NOT_FOUND))

Вернее так ShowMessage(SysErrorMessage(ERROR_FILE_NOT_FOUND));

← →
Anatoly Podgoretsky © (2004-02-12 00:37) [8]

DDA © (12.02.04 00:18) [6]
Это ты уже запросил Виндоус переписывать, эти сообщения из его недр, может тогда правильнее роставить русский Виндоус и то это не даст полной гарантии.

← →
miwa © (2004-02-12 05:25) [9]

>> Каk в этом случае поступают в Delphi?
ShowMessage(SysErrorMessage(GetLastError)); - у меня всегда срабатывает. Да, зависит от винды - Anatoly Podgoretsky не может быть неправ :о))

← →
Digitman © (2004-02-12 08:25) [10]

> Ross © (11.02.04 18:36) [4]
> Мне нужно тексты сообщений перевести на другой язык

приведи пример кода, в рез-те выполнения которого ты получаешь некое сообщение об ошибке, требующее перевода

В связке Delphi + MSSQL Server (ADO) может возникнуть EOleException в случае, допустим, дублирования индексной записи,
здесь можно обработать EOleException.Create("Запись дублируется"). Но та же EOleException возникает при редактировании этой же записи другим пользователем. Я мог бы вывести общее сообщение типа "Ошибка", но это не то. Я не собираюсь "Виндоус переписывать", я просто хочу заменить эти сообщения на свои. Как Вы поступаете в аналогичных случаях? Как можно "разделить" эти два исключения?

класс EOleException имеет св-во ErrorCode, значение которого (в определ.диапазоне) предст.собой специфический для конкретного олей-сервера код ошибки

Еще один момент: после EOleException срабатывает EdatabaseError, а как с ним? В принципе я обрабатываю EdatabaseError а не EOleException. Смотрел в свойствах, но не нашел ничего похожего на какой-нибудь ID.
А может, я пытаюсь решить этот вопрос не напрямую. Я так и не знаю ответа. Помогите!

Имхо самое простое использовать Resource DLL

Номер ошибки или другой идентификатор... Найти похожие ветки