|
@@ -1993,7 +1993,7 @@ end;
|
|
|
|
|
|
|
|
procedure THttpRequest.SetStrProp(Index: integer; const Value: string);
|
|
procedure THttpRequest.SetStrProp(Index: integer; const Value: string);
|
|
|
var
|
|
var
|
|
|
- i: integer;
|
|
|
|
|
|
|
+ i: int64;
|
|
|
begin
|
|
begin
|
|
|
if (Index >= 0) and (Index <= High(StrPropNames)) then
|
|
if (Index >= 0) and (Index <= High(StrPropNames)) then
|
|
|
case Index of
|
|
case Index of
|
|
@@ -2011,7 +2011,7 @@ begin
|
|
|
18:
|
|
18:
|
|
|
begin
|
|
begin
|
|
|
i := 0;
|
|
i := 0;
|
|
|
- if TryStrToInt(Value, i) and (i > 0) then
|
|
|
|
|
|
|
+ if TryStrToInt64(Value, i) and (i > 0) then
|
|
|
Headers[StrPropNames[Index]] := Value;
|
|
Headers[StrPropNames[Index]] := Value;
|
|
|
end
|
|
end
|
|
|
else
|
|
else
|
DmBel