pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@106 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck
2011-08-09 05:08:58 +00:00
parent e0a481375c
commit 27c37729b6
6 changed files with 2668 additions and 6823 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Addons/kolTCPSocket.pas
View File

@ -597,7 +597,9 @@ end;
function TTCPClient.ReceiveLength: Integer;
begin
ioctlsocket(fhandle,FIONREAD,result);
if fhandle<>SOCKET_ERROR then
ioctlsocket(fhandle,FIONREAD,result)
else result:=0;
end;
function TTCPClient.Send(var Buf; const Count: Integer): Integer;