Текущий архив: 2006.08.20;
Скачать: CL | DM;

Вниз

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.08.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.035 c