Unit ACBrBase
function THttpHeader.AddHeader(const AHeader, AValue: string): Integer;
var
I: Integer;
LinhaHeader: String;
begin
LinhaHeader := AHeader + ': ' + AValue;
I := GetHeaderIndex(AHeader);
if I < 0 then
Add(LinhaHeader)
else
Strings := LinhaHeader;
end;
E em unit ACBrWinINetReqResp está acusando result nao usado, realmente, alguem deixou-a com 2 possiveis retornos.
function TACBrWinINetReqResp.InternalOpenRequest: Boolean;
var
RequestFlags: DWORD;
begin
Result := inherited InternalOpenRequest;
if (UseSSL) then
begin
RequestFlags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE;
RequestFlags := RequestFlags or INTERNET_FLAG_SECURE;
if (UseCertificate) then
RequestFlags := RequestFlags or
( INTERNET_FLAG_IGNORE_CERT_CN_INVALID or
INTERNET_FLAG_IGNORE_CERT_DATE_INVALID );
end
else
RequestFlags := INTERNET_SERVICE_HTTP;
FpRequest := HttpOpenRequest( FpConnection,
PChar(Method), PChar(URI),
nil, nil, nil, RequestFlags, 0);
Result:= Assigned(FpRequest);
end;