Sources
Delphi Russian Knowledge Base
DRKB - база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Перевести коды ошибок Winsock в текстовый вид

01.01.2007
jack128

Вариант 1:

Author: jack128

Source: https://forum.sources.ru

Вот функция, аналогичная SysErrorMessage, принемает на вход код ошибки socket'a, возвращает строковое сообщение об ошибке..

function WSAErrorMessage(ErrorCode: Integer): string;
var
  Buffer: array[0..255] of Char;
var
  Len: Integer;
begin
  Len := FormatMessage(FORMAT_MESSAGE_FROM_HMODULE or FORMAT_MESSAGE_IGNORE_INSERTS or
    FORMAT_MESSAGE_ARGUMENT_ARRAY, Pointer(GetModuleHandle('wsock32.dll')),
    ErrorCode, 0, Buffer,
    SizeOf(Buffer), nil);
  while (Len > 0) and (Buffer[Len - 1] in [#0..#32, '.']) do Dec(Len);
  SetString(Result, Buffer, Len);
end;

Вариант 2:

Author: Miscђka

Source: https://forum.sources.ru

Некоторые коды сразу на русском:

Previous page:
Где найти TServerSocket и TClientSocket в Delphi 7?
Top:
DRKB
Next page:
Сетевая библиотека Winsock