procedure GetSocketErrorMessage(AErrorCode: Integer; AErrorMessage: PChar);
// 说明: 依错误代码取得 Socket 错误讯息
var
Param: DWORD;
begin
try
System.FillChar(AErrorMessage^, 255, 0);
case AErrorCode of
10004: AErrorMessage := @ERRORSTR_10004;
10009: AErrorMessage := @ERRORSTR_10009;
10013: AErrorMessage := @ERRORSTR_10013;
10014: AErrorMessage := @ERRORSTR_10014;
10022: AErrorMessage := @ERRORSTR_10022;
10024: AErrorMessage := @ERRORSTR_10024;
10035: AErrorMessage := @ERRORSTR_10035;
10036: AErrorMessage := @ERRORSTR_10036;
10037: AErrorMessage := @ERRORSTR_10037;
10038: AErrorMessage := @ERRORSTR_10038;
10039: AErrorMessage := @ERRORSTR_10039;
10040: AErrorMessage := @ERRORSTR_10040;
10041: AErrorMessage := @ERRORSTR_10041;
10042: AErrorMessage := @ERRORSTR_10042;
10043: AErrorMessage := @ERRORSTR_10043;
10044: AErrorMessage := @ERRORSTR_10044;
10045: AErrorMessage := @ERRORSTR_10045;
10046: AErrorMessage := @ERRORSTR_10046;
10047: AErrorMessage := @ERRORSTR_10047;
10048: AErrorMessage := @ERRORSTR_10048;
10049: AErrorMessage := @ERRORSTR_10049;
10050: AErrorMessage := @ERRORSTR_10050;
10051: AErrorMessage := @ERRORSTR_10051;
10052: AErrorMessage := @ERRORSTR_10052;
10053: AErrorMessage := @ERRORSTR_10053;
10054: AErrorMessage := @ERRORSTR_10054;
10055: AErrorMessage := @ERRORSTR_10055;
10056: AErrorMessage := @ERRORSTR_10056;
10057: AErrorMessage := @ERRORSTR_10057;
10058: AErrorMessage := @ERRORSTR_10058;
10059: AErrorMessage := @ERRORSTR_10059;
10060: AErrorMessage := @ERRORSTR_10060;
10061: AErrorMessage := @ERRORSTR_10061;
10062: AErrorMessage := @ERRORSTR_10062;
10063: AErrorMessage := @ERRORSTR_10063;
10064: AErrorMessage := @ERRORSTR_10064;
10065: AErrorMessage := @ERRORSTR_10065;
10067: AErrorMessage := @ERRORSTR_10067;
10091: AErrorMessage := @ERRORSTR_10091;
10092: AErrorMessage := @ERRORSTR_10092;
10093: AErrorMessage := @ERRORSTR_10093;
10101: AErrorMessage := @ERRORSTR_10101;
10109: AErrorMessage := @ERRORSTR_10109;
11001: AErrorMessage := @ERRORSTR_11001;
11002: AErrorMessage := @ERRORSTR_11002;
11003: AErrorMessage := @ERRORSTR_11003;
11004: AErrorMessage := @ERRORSTR_11004;
else
Param := AErrorCode;
Windows.wvsprintf(AErrorMessage, '未知 %d', @Param);
end;
except
on E: Exception do
begin
showmessage( E.Message);
end;
end;