paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Indy >= 10.5.x compatibility fix.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3087 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2014-05-24 13:02:54 +00:00
parent 3afe6477ca
commit 5f2609c39b
1 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
wst/trunk/indy_http_protocol.pas
View File

@ -20,7 +20,12 @@ interface
uses
Classes, SysUtils,
service_intf, imp_utils, base_service_intf, wst_types,
client_utils, IdHTTP, IdCookie;
client_utils, IdGlobal, IdHTTP, IdCookie;
{$UNDEF COOKIE_NAME_FIRST}
{$IF Declared(gsIdVersionMajor)}
{$DEFINE COOKIE_NAME_FIRST}
{$IFEND}
Const
sTRANSPORT_NAME = 'HTTP';
@ -263,8 +268,12 @@ end;
function TIndyCookieManager.GetValue(const AName : string) : string;
var
i : Integer;
begin
begin
{$IFDEF COOKIE_NAME_FIRST}
i := ReferencedObject.GetCookieIndex(AName,0);
{$ELSE COOKIE_NAME_FIRST}
i := ReferencedObject.GetCookieIndex(0,AName);
{$ENDIF COOKIE_NAME_FIRST}
if (i >= 0) then
Result := ReferencedObject[i].Value
else
@ -279,15 +288,26 @@ begin
ReferencedObject[AIndex].Value := AValue;
end;
type
TLocalCookie =
{$IFDEF COOKIE_NAME_FIRST}
TIdCookie;
{$ELSE COOKIE_NAME_FIRST}
TIdNetscapeCookie;
{$ENDIF COOKIE_NAME_FIRST}
procedure TIndyCookieManager.SetValue(
const AName : string;
const AName : string;
const AValue : string
);
);
var
i : Integer;
locItem : TIdNetscapeCookie;
locItem : TLocalCookie;
begin
i := ReferencedObject.GetCookieIndex(0,AName);
{$IFDEF COOKIE_NAME_FIRST}
i := ReferencedObject.GetCookieIndex(AName,0);
{$ELSE COOKIE_NAME_FIRST}
i := ReferencedObject.GetCookieIndex(0,AName);
{$ENDIF COOKIE_NAME_FIRST}
if (i >= 0) then begin
ReferencedObject[i].Value := AValue;
end else begin