Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.27;
Скачать: CL | DM;

Вниз

Использование FormatMessage   Найти похожие ветки 

 
RDS ©   (2006-05-03 11:39) [0]

Нужно получить не код ошибки, а расшифровку этого кода. Делаю следующим образом :
  err:dword; perr:pchar;
................
  err:=GetLastError;
  //showmessage(IntToStr(err));
  formatmessage(FORMAT_MESSAGE_FROM_SYSTEM,
               nil,err,LANG_ENGLISH,perr,1024,nil);
  showmessage(widestring(perr));

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


 
Плохиш ©   (2006-05-03 11:58) [1]

Память для perr распределяешь?


 
RDS ©   (2006-05-03 12:27) [2]

Я так понял, что FormatMessage это сам делает. Получается нужно сделать getmem(perr,1024), так?


 
fellix   (2006-05-03 12:31) [3]


> RDS ©   (03.05.06 11:39)  

1. Создай буфер perr^ или используй FORMAT_MESSAGE_ALLOCATE_BUFFER и LocalFree.
2. Зачем там widestring?


 
Плохиш ©   (2006-05-03 12:31) [4]


lpBuffer

Points to a buffer for the formatted (and null-terminated) message. If dwFlags includes FORMAT_MESSAGE_ALLOCATE_BUFFER, the function allocates a buffer using the LocalAlloc function, and places the address of the buffer at the address specified in lpBuffer.


> Получается нужно сделать getmem(perr,1024), так?

да или добавить "or FORMAT_MESSAGE_ALLOCATE_BUFFER" в первый параметр.


 
begin...end ©   (2006-05-03 12:34) [5]

> RDS

Посмотрите реализацию SysUtils.SysErrorMessage.


 
RDS ©   (2006-05-03 13:07) [6]

Спасибо, все работает



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

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

Наверх




Память: 0.47 MB
Время: 0.061 c
2-1155058563
koha
2006-08-08 21:36
2006.08.27
Зацените прогу


2-1154771914
Ильдар
2006-08-05 13:58
2006.08.27
Обучение DerectX


15-1153942920
Andy BitOff
2006-07-26 23:42
2006.08.27
Встреча с пришельцами. О чём говорить и чего попросить.


4-1146644214
Zhekacoder
2006-05-03 12:16
2006.08.27
Как из Делфи узнать, что к компу подключена флэшка?


4-1146600197
DimaDukat
2006-05-03 00:03
2006.08.27
параметры команды ExitWindowsEx