paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Turbopower IPro: Fix compilation with FPC 2.6.4. Issue #29483, patch from Silvio Clécio.

Browse Source 
git-svn-id: trunk@51434 -
This commit is contained in:
juha 2016-01-28 11:41:03 +00:00
parent b36d8209aa
commit b3bc124f4d
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/examples/sumabfrm.pas
View File

@ -44,7 +44,7 @@ var
begin begin
A := FindNodeByElemId(Html.HtmlNode, 'a') as TIpHtmlNodeINPUT; A := FindNodeByElemId(Html.HtmlNode, 'a') as TIpHtmlNodeINPUT;
B := FindNodeByElemId(Html.HtmlNode, 'b') as TIpHtmlNodeINPUT; B := FindNodeByElemId(Html.HtmlNode, 'b') as TIpHtmlNodeINPUT;
ShowMessageFmt('Sum: %d', [A.Value.ToInteger + B.Value.ToInteger]); ShowMessageFmt('Sum: %d', [StrToInt(A.Value) + StrToInt(B.Value)]);
end; end;
end. end.

6
components/turbopower_ipro/iphttpbroker.pas
View File

@ -83,8 +83,10 @@ begin
FDocumment := TMemoryStream.Create; FDocumment := TMemoryStream.Create;
HandledProtocols.Add('HTTP'); HandledProtocols.Add('HTTP');
FClient.ResponseHeaders.NameValueSeparator := ':'; FClient.ResponseHeaders.NameValueSeparator := ':';
{$IF FPC_FULLVERSION > 30000}
FClient.AllowRedirect := True; FClient.AllowRedirect := True;
FClient.MaxRedirects := High(Byte); FClient.MaxRedirects := High(Byte);
{$ENDIF}
end; end;
destructor TIpHttpDataProvider.Destroy; destructor TIpHttpDataProvider.Destroy;
@ -126,8 +128,8 @@ begin
IpParseURL(AUrl, VAddrRec); IpParseURL(AUrl, VAddrRec);
FDocumment.Clear; FDocumment.Clear;
FClient.Get(AUrl, FDocumment); FClient.Get(AUrl, FDocumment);
Result := (FClient.ResponseStatusCode = 200) or Result := (FClient.ResponseStatusCode = 200)
FClient.IsRedirect(FClient.ResponseStatusCode); {$IF FPC_FULLVERSION > 30000}or FClient.IsRedirect(FClient.ResponseStatusCode){$ENDIF};
if Result then if Result then
begin begin
FContentType := FClient.ResponseHeaders.Values['Content-Type']; FContentType := FClient.ResponseHeaders.Values['Content-Type'];