function TBlockSocket.RecvChar(Timeout: Integer): Char;
begin
Result := Char(RecvByte(Timeout));
end;
function TBlockSocket.RecvCardinal(Timeout: Integer): Cardinal;
var
s: AnsiString;
begin
Result := 0;
s := RecvBufferStr(4, Timeout);
if FLastError = 0 then
Result := (ord(s[4]) + ord(s[3]) * 256) + (ord(s[2]) + ord(s[1]) *
256) * 65536;
end;
These functions make it easier to port form Indy. It avoids hints and
warnings.
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
