HTTP: another D2009+ fix
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@131 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
@ -1,5 +1,5 @@
|
|||||||
{==============================================================================|
|
{==============================================================================|
|
||||||
| Project : Ararat Synapse | 003.012.004 |
|
| Project : Ararat Synapse | 003.012.005 |
|
||||||
|==============================================================================|
|
|==============================================================================|
|
||||||
| Content: HTTP client |
|
| Content: HTTP client |
|
||||||
|==============================================================================|
|
|==============================================================================|
|
||||||
@ -670,7 +670,7 @@ end;
|
|||||||
|
|
||||||
function THTTPSend.ReadUnknown: Boolean;
|
function THTTPSend.ReadUnknown: Boolean;
|
||||||
var
|
var
|
||||||
s: string;
|
s: ansistring;
|
||||||
begin
|
begin
|
||||||
Result := false;
|
Result := false;
|
||||||
repeat
|
repeat
|
||||||
@ -700,7 +700,7 @@ end;
|
|||||||
|
|
||||||
function THTTPSend.ReadChunked: Boolean;
|
function THTTPSend.ReadChunked: Boolean;
|
||||||
var
|
var
|
||||||
s: string;
|
s: ansistring;
|
||||||
Size: Integer;
|
Size: Integer;
|
||||||
begin
|
begin
|
||||||
repeat
|
repeat
|
||||||
|
Reference in New Issue
Block a user