>
> Try to call WSAGetLastError after Bind and before SockCheck. Whar you
> got by WSAGetLastError? (if right value, then error is inside
> SockCheck... if not, error is inside windows...)
>
>
function TBlockSocket.SockCheck(SockResult: Integer): Integer;
begin
FLastErrorDesc := '';
if SockResult = integer(SOCKET_ERROR) then
begin
Result := synsock.WSAGetLastError;
writeln('DEBUG sockcheck ', result);
FLastErrorDesc := GetErrorDesc(Result);
end
else
Result := 0;
FLastError := Result;
end;
writeln returns zero..
Windows problem most likely..
But I try WsaGetLastError in the BIND function directly..
And report results in next email
L505
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
