getlasterror

← →
kvi (2006-07-06 17:39) [0]

Как получить таблицу расшифровки кодов
к ошибкам для getlasterror ?
Заранее благодарен
KVI.

← →
BiN © (2006-07-06 17:44) [1]

{ System error messages }

function SysErrorMessage(ErrorCode: Integer): string;
var
Buffer: array[0..255] of Char;
{$IFDEF MSWINDOWS}
var
Len: Integer;
begin
Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_IGNORE_INSERTS or
FORMAT_MESSAGE_ARGUMENT_ARRAY, nil, ErrorCode, 0, Buffer,
SizeOf(Buffer), nil);
while (Len > 0) and (Buffer[Len - 1] in [ #0..#32, "."]) do Dec(Len);
SetString(Result, Buffer, Len);
end;
{$ENDIF}
{$IFDEF LINUX}
begin
//Result := Format("System error: %4x",[ErrorCode]);
Result := strerror_r(ErrorCode, Buffer, sizeof(Buffer));
end;
{$ENDIF}

(c) Sysutils

getlasterror Найти похожие ветки