david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
564 lines
22 KiB
ObjectPascal
564 lines
22 KiB
ObjectPascal
unit uRODXHTTPHeaderTools;
|
|
|
|
interface
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// Component: TDXHTTPHeaderTools
|
|
// Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
|
|
// ========================================================================
|
|
// Source Owner: DX, Inc. 1995-2002
|
|
// Copyright: All code is the property of DX, Inc. Licensed for
|
|
// resell by Brain Patchwork DX (tm) and part of the
|
|
// DX (r) product lines, which are (c) 1999-2002
|
|
// DX, Inc. Source may not be distributed without
|
|
// written permission from both Brain Patchwork DX,
|
|
// and DX, Inc.
|
|
// License: (Reminder), None of this code can be added to other
|
|
// developer products without permission. This includes
|
|
// but not limited to DCU's, DCP's, DLL's, OCX's, or
|
|
// any other form of merging our technologies. All of
|
|
// your products released to a public consumer be it
|
|
// shareware, freeware, commercial, etc. must contain a
|
|
// license notification somewhere visible in the
|
|
// application.
|
|
// Example is Internet Explorer - Help->About screen
|
|
// shows the licensed code contained in the application.
|
|
// Code Version: (3rd Generation Code)
|
|
// ========================================================================
|
|
// Description:
|
|
// ========================================================================
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
{$I uRODXSock.def}
|
|
uses
|
|
uRODXString,
|
|
Classes;
|
|
|
|
Type
|
|
PHeaderInfo=^THeaderInfo;
|
|
THeaderInfo=Record
|
|
ContentLength:Integer;
|
|
Raw:String; // Original Header Request
|
|
Protocol:String;
|
|
Method:String; //GET, HEAD, etc. All caps!!!
|
|
URI:String;
|
|
PhysPath:String;
|
|
Allow:String;
|
|
AuthType:String; // BASIC
|
|
AuthName:String;
|
|
AuthPass:String;
|
|
Date:String;
|
|
Pragma:String;
|
|
CacheControl:String;
|
|
Connection:String;
|
|
TransferEncoding:String;
|
|
Upgrade:String;
|
|
Via:String;
|
|
Host:String; // multiple domains on single IP!
|
|
From:String;
|
|
IfModSince:String;
|
|
IfMatch:String;
|
|
IfNoneMatch:String;
|
|
IfRange:String;
|
|
IfUnModSince:String;
|
|
MaxForwards:String;
|
|
ProxyAuthorization:String;
|
|
KeepAlive:String;
|
|
PublicCache:String; // 2.3 renamed field!
|
|
Range:String;
|
|
Referer:String;
|
|
UserAgent:String;
|
|
ContentType:String;
|
|
Accept:String;
|
|
AcceptCharset:String;
|
|
AcceptEncoding:String;
|
|
AcceptLanguage:String;
|
|
ClientName:String;
|
|
ClientAddr:String;
|
|
ClientHost:String;
|
|
Cookie:String;
|
|
QueryString:String;
|
|
Weferer:String;
|
|
WserAgent:String;
|
|
Forwarded:String;
|
|
ForwardedFor:String;
|
|
ProxyConnection:String;
|
|
CacheInfo:String;
|
|
PostData:String; // 3.0
|
|
HostRootPath:String; // needed for SSI+ Banner routines and ISAPI Variables
|
|
All_RAW:String; // needed for trace, and ISAPIs!
|
|
All_HTTP:String;
|
|
Unknown:String;
|
|
end;
|
|
|
|
TDXHTTPHeaderTools = class(TDXComponent)
|
|
private
|
|
fSessionHeader:PHeaderInfo;
|
|
protected
|
|
Function FindUnknownHeader(ServerVariable:String):String;
|
|
Procedure ReplaceUnknownHeader(ServerVariable, VariableValue:String);
|
|
Function UnknownHeaderExists(ServerVariable:String):Boolean;
|
|
public
|
|
constructor Create(AOwner:TComponent); {$IFNDEF OBJECTS_ONLY} override; {$ENDIF}
|
|
Destructor Destroy; override;
|
|
Procedure Init(HTTPHeader:PHeaderInfo);
|
|
// 2.0.12
|
|
Function HeaderGetString(ServerVariable:String):String;
|
|
Function HeaderGetInteger(ServerVariable:String):Integer;
|
|
Function HeaderDataExists(ServerVariable:String):Boolean;
|
|
Function QueryGetString(ServerVariable:String):String;
|
|
Function QueryGetInteger(ServerVariable:String):Integer;
|
|
Function QueryDataExists(ServerVariable:String):Boolean;
|
|
|
|
Function AddHeader(ServerVariable, VariableValue:String):Boolean;
|
|
Function SetHeader(ServerVariable, VariableValue:String):Boolean;
|
|
Function ToStrings:TStrings;
|
|
|
|
published
|
|
end;
|
|
|
|
implementation
|
|
|
|
Uses
|
|
SysUtils;
|
|
|
|
constructor TDXHTTPHeaderTools.Create(AOwner:TComponent);
|
|
Begin
|
|
Inherited Create(AOwner);
|
|
end;
|
|
|
|
Destructor TDXHTTPHeaderTools.Destroy;
|
|
Begin
|
|
Inherited Destroy;
|
|
end;
|
|
|
|
Procedure TDXHTTPHeaderTools.Init(HTTPHeader:PHeaderInfo);
|
|
Begin
|
|
fSessionHeader:=HTTPHeader;
|
|
fSessionHeader^.ContentLength:=0;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.HeaderGetString(ServerVariable:String):String;
|
|
Var
|
|
Ch:Char;
|
|
Ws:String;
|
|
URI2:String;
|
|
|
|
Begin
|
|
Result:='';
|
|
Ws:=Uppercase(ServerVariable);
|
|
If Ws='' then Exit; //2.0.11
|
|
If (Copy(Ws,1,5)='HTTP_') then Begin
|
|
Delete(Ws,1,5); // 3.0
|
|
End;
|
|
Ch:=Ws[1];
|
|
With fSessionHeader^ do
|
|
Case Ch of
|
|
'A':If (Ws='ALLOW') then Result:=Allow
|
|
Else If (Ws='ALL_RAW') then Result:=All_Raw // .9k & 2.3b
|
|
Else If (Ws='ALL_HTTP') then Result:=All_HTTP // 3.0
|
|
Else If (Ws='AUTHTYPE') or (Ws='AUTH_TYPE') then Result:=AuthType
|
|
Else If (Ws='AUTHNAME') or (Ws='AUTH_NAME') or (Ws='AUTH_USER') then Result:=AuthName
|
|
Else If (Ws='AUTHPASS') or (Ws='AUTH_PASS') or (Ws='AUTH_PASSWORD') then Result:=AuthPass
|
|
Else If (Ws='ACCEPT') then Result:=Accept
|
|
Else If (Ws='ACCEPT_CHARSET') or (Ws='ACCEPTCHARSET') then Result:=AcceptCharset
|
|
Else If (Ws='ACCEPT_ENCODING') or (Ws='ACCEPTENCODING') then Result:=AcceptEncoding
|
|
Else If (Ws='ACCEPT_LANGUAGE') or (Ws='ACCEPTLANGUAGE') then Result:=AcceptLanguage
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'C':If (Ws='CONTENT_LENGTH') or (Ws='CONTENTLENGTH') then Result:=IntToStr(ContentLength)
|
|
Else If (Ws='CACHECONTROL') or (Ws='CACHE_CONTROL') then Result:=CacheControl
|
|
Else If (Ws='CACHE_INFO') then Result:=CacheInfo
|
|
Else If (Ws='CONNECTION') then Result:=Connection
|
|
Else If (Ws='CONTENT_TYPE') or (Ws='CONTENTTYPE') then Result:=ContentType
|
|
Else If (Ws='CLIENTNAME') or (Ws='CLIENT_NAME') then Result:=ClientName
|
|
Else If (Ws='CLIENTADDR') or (Ws='CLIENT_ADDR') then Result:=ClientAddr
|
|
Else If (Ws='COOKIE') then Result:=Cookie
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'D':If (Ws='DATE') then Result:=Date
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'F':If (Ws='FROM') then Result:=From
|
|
Else If (Ws='FORWARDED') then Result:=Forwarded
|
|
Else If (Ws='FORWARDED_FOR') then Result:=ForwardedFor
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'H':If (Ws='HOST') then Begin
|
|
Result:=Host;
|
|
If CharPos('@',Result)>0 then Delete(Result,1,CharPos(':',Result));
|
|
If CharPos(':',Result)>0 then Delete(Result,CharPos(':',Result),Length(Result));
|
|
End
|
|
Else If (Ws='HTTPS') then Result:='off'
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'I':If (Ws='IFMODSINCE') or (Ws='IF_MODSINCE') or (Ws='IF_MOD_SINCE') then Result:=IfModSince
|
|
Else If (Ws='IFMATCH') or (Ws='IF_MATCH') then Result:=IfMatch
|
|
Else If (Ws='IFNONEMATCH') or (Ws='IF_NONEMATCH') or (Ws='IF_NONE_MATCH') then Result:=IfNoneMatch
|
|
Else If (Ws='IFRANGE') or (Ws='IF_RANGE') then Result:=IfRange
|
|
Else If (Ws='IFUNMODSINCE') or (Ws='IF_UNMODSINCE') or (Ws='IF_UNMOD_SINCE') then Result:=IfUnModSince
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'K':If (Ws='KEEPALIVE') or (Ws='KEEP_ALIVE') then Result:=KeepAlive
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'M':If (Ws='METHOD') then Result:=Method
|
|
Else If (Ws='MAXFORWARDS') or (Ws='MAX_FORWARDS') then Result:=MaxForwards
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'P':If (Ws='PROTOCOL') then Result:=Protocol
|
|
Else If (Ws='PRAGMA') then Result:=Pragma
|
|
Else if (Ws='PROXYAUTHORIZATION') or (Ws='PROXY_AUTHORIZATION') then Result:=ProxyAuthorization
|
|
Else if (Ws='PUBLIC') then Result:=PublicCache
|
|
Else if (Ws='PROXY_CONNECTION') then Result:=ProxyConnection
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'Q':If (Ws='QUERYSTRING') or (Ws='QUERY_STRING') then Result:=QueryString
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'R':If (Ws='RANGE') then Result:=Range
|
|
Else If (Ws='REFERER') or (Ws='REFERRER') or (Ws='REFFERER') then Result:=Referer
|
|
Else If (Ws='REQUEST_METHOD') then Result:=Method
|
|
Else If (Ws='REMOTE_NAME') or (Ws='REMOTE_HOST') then Result:=ClientName
|
|
Else If (Ws='REMOTE_ADDR') then Result:=ClientAddr
|
|
Else If (Ws='REQUEST_URI') then Begin
|
|
URI2:=ToUnixSlashes(URI);
|
|
If CharPos('/',URI2)=0 then Result:='/'+URI2
|
|
Else Begin
|
|
If Copy(URI2,1,1)<>'/' then URI2:='/'+URI2;
|
|
Result:=URI2; // 4/2/2002 Copy(URI2,1,PosLastChar('/',URI2));
|
|
End;
|
|
End
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'S':If (Ws='SERVER_PROTOCOL') then Result:=Protocol
|
|
Else If (Ws='SERVER_NAME') then Begin
|
|
Result:=Host;
|
|
If CharPos('@',Result)>0 then Delete(Result,1,CharPos(':',Result));
|
|
If CharPos(':',Result)>0 then Delete(Result,CharPos(':',Result),Length(Result));
|
|
End
|
|
Else If (Ws='SERVER_PORT_SECURE') then Result:='0'
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'T':If (Ws='TRANSFERENCODING') or (Ws='TRANSFER_ENCODING') then Result:=TransferEncoding
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'U':If (Ws='URI') then Begin
|
|
URI2:=ToUnixSlashes(URI);
|
|
If CharPos('/',URI2)=0 then Result:='/'+URI2
|
|
Else Begin
|
|
If Copy(URI2,1,1)<>'/' then URI2:='/'+URI2;
|
|
Result:=URI2; // 4/2/2002 Copy(URI2,1,PosLastChar('/',URI2));
|
|
End;
|
|
End
|
|
Else If (Ws='URL') then Begin
|
|
URI2:=ToUnixSlashes(URI);
|
|
If Copy(URI2,1,1)='/' then Result:=URI2
|
|
Else Result:='/'+URI2;
|
|
End
|
|
Else If (Ws='UPGRADE') then Result:=Upgrade
|
|
Else if (Ws='USERAGENT') or (Ws='USER_AGENT') then Result:=UserAgent
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'V':If (Ws='VIA') then Result:=Via
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
'W':If (Ws='WEFERER') then Result:=Weferer
|
|
Else If (Ws='WSER_AGENT') then Result:=WserAgent
|
|
Else Result := FindUnknownHeader(ServerVariable);
|
|
Else
|
|
Result := FindUnknownHeader(ServerVariable);
|
|
End;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.HeaderGetInteger(ServerVariable:String):Integer;
|
|
Var
|
|
Ch:Char;
|
|
Ws:String;
|
|
|
|
Begin
|
|
Result:=0;
|
|
Ws:=Uppercase(ServerVariable);
|
|
If Ws='' then Exit; // 2.0.11
|
|
Ch:=Ws[1];
|
|
With fSessionHeader^ do
|
|
Case Ch of
|
|
'C':If (Ws='CONTENT_LENGTH') or (Ws='CONTENTLENGTH') then Result:=ContentLength;
|
|
End;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.HeaderDataExists(ServerVariable:String):Boolean;
|
|
Begin
|
|
Result:=HeaderGetString(ServerVariable)<>'';
|
|
End;
|
|
|
|
// 2.0.12
|
|
Function TDXHTTPHeaderTools.QueryGetString(ServerVariable:String):String;
|
|
Var
|
|
Ws:String;
|
|
Tmp:String;
|
|
Value:String;
|
|
|
|
Begin
|
|
Result:='';
|
|
Tmp:=fSessionHeader^.QueryString+'&';
|
|
While (CharPos('&',Tmp)>0) do Begin
|
|
Ws:=Copy(Tmp,1,CharPos('&',Tmp)-1);
|
|
Delete(Tmp,1,CharPos('&',Tmp));
|
|
Value:=Copy(Ws,1,CharPos('=',Ws)-1);
|
|
Delete(Ws,1,CharPos('=',Ws));
|
|
If Uppercase(Value)=Uppercase(ServerVariable) then Begin
|
|
If Result<>'' then Result:=Result+#13#10+Ws
|
|
Else Result:=Ws;
|
|
End;
|
|
End;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.QueryGetInteger(ServerVariable:String):Integer;
|
|
Var
|
|
Ws:String;
|
|
|
|
Begin
|
|
Ws:=QueryGetString(ServerVariable);
|
|
If (Ws<>'') and (IsNumericString(Ws)) then Result:=StrToInt(Ws)
|
|
Else Result:=-1;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.QueryDataExists(ServerVariable:String):Boolean;
|
|
Begin
|
|
Result:=QueryGetString(ServerVariable)<>'';
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.AddHeader(ServerVariable, VariableValue:String):Boolean;
|
|
Var
|
|
Ch:Char;
|
|
Ws:String;
|
|
|
|
Procedure AddToUnknown; // 7-27
|
|
Begin
|
|
If fSessionHeader^.Unknown='' then fSessionHeader^.Unknown:=ServerVariable+': '+VariableValue
|
|
Else fSessionHeader^.Unknown:=fSessionHeader^.Unknown+#13#10+ServerVariable+': '+VariableValue;
|
|
End;
|
|
|
|
Begin
|
|
Result:=False;
|
|
Ws:=Uppercase(ServerVariable);
|
|
If Ws='' then Exit;
|
|
// 7-27
|
|
Ws:=StringReplace(Ws,'-','_',[rfReplaceAll]);
|
|
Ch:=Ws[1];
|
|
With fSessionHeader^ do
|
|
Case Ch of
|
|
'A':If (Ws='ALLOW') then Allow:=VariableValue
|
|
Else If (Ws='AUTHTYPE') or (Ws='AUTH_TYPE') then AuthType:=VariableValue
|
|
Else If (Ws='AUTHNAME') or (Ws='AUTH_NAME') then AuthName:=VariableValue
|
|
Else If (Ws='AUTHPASS') or (Ws='AUTH_PASS') then AuthPass:=VariableValue
|
|
Else If (Ws='ACCEPT') then Accept:=VariableValue
|
|
Else If (Ws='ACCEPT_CHARSET') or (Ws='ACCEPTCHARSET') then AcceptCharset:=VariableValue
|
|
Else If (Ws='ACCEPT_ENCODING') or (Ws='ACCEPTENCODING') then AcceptEncoding:=VariableValue
|
|
Else If (Ws='ACCEPT_LANGUAGE') or (Ws='ACCEPTLANGUAGE') then AcceptLanguage:=VariableValue
|
|
Else AddToUnknown;
|
|
'C':If (Ws='CONTENT_LENGTH') or (Ws='CONTENTLENGTH') then ContentLength:=StrToInt(VariableValue)
|
|
Else If (Ws='CACHECONTROL') or (Ws='CACHE_CONTROL') then CacheControl:=VariableValue
|
|
Else If (Ws='CACHE_INFO') then CacheInfo:=VariableValue
|
|
Else If (Ws='CONNECTION') then Connection:=VariableValue
|
|
Else If (Ws='CONTENT_TYPE') or (Ws='CONTENTTYPE') then ContentType:=VariableValue
|
|
Else If (Ws='CLIENTNAME') or (Ws='CLIENT_NAME') then ClientName:=VariableValue
|
|
Else If (Ws='CLIENTADDR') or (Ws='CLIENT_ADDR') then ClientAddr:=VariableValue
|
|
Else If (Ws='COOKIE') then Cookie:=VariableValue
|
|
Else AddToUnknown;
|
|
'D':If (Ws='DATE') then Date:=VariableValue
|
|
Else AddToUnknown;
|
|
'F':If (Ws='FROM') then From:=VariableValue
|
|
Else If (Ws='FORWARDED') then Forwarded:=VariableValue
|
|
Else If (Ws='FORWARDED_FOR') then ForwardedFor:=VariableValue
|
|
Else AddToUnknown;
|
|
'H':If (Ws='HOST') then Host:=VariableValue
|
|
Else AddToUnknown;
|
|
'I':If (Ws='IFMODSINCE') or (Ws='IF_MODSINCE') or (Ws='IF_MOD_SINCE') then IfModSince:=VariableValue
|
|
Else If (Ws='IFMATCH') or (Ws='IF_MATCH') then IfMatch:=VariableValue
|
|
Else If (Ws='IFNONEMATCH') or (Ws='IF_NONEMATCH') or (Ws='IF_NONE_MATCH') then IfNoneMatch:=VariableValue
|
|
Else If (Ws='IFRANGE') or (Ws='IF_RANGE') then IfRange:=VariableValue
|
|
Else If (Ws='IFUNMODSINCE') or (Ws='IF_UNMODSINCE') or (Ws='IF_UNMOD_SINCE') then IfUnModSince:=VariableValue
|
|
Else AddToUnknown;
|
|
'K':If (Ws='KEEPALIVE') or (Ws='KEEP_ALIVE') then KeepAlive:=VariableValue
|
|
Else AddToUnknown;
|
|
'M':If (Ws='METHOD') then Method:=VariableValue
|
|
Else If (Ws='MAXFORWARDS') or (Ws='MAX_FORWARDS') then MaxForwards:=VariableValue
|
|
Else AddToUnknown;
|
|
'P':If (Ws='PROTOCOL') then Protocol:=VariableValue
|
|
Else If (Ws='PRAGMA') then Pragma:=VariableValue
|
|
Else if (Ws='PROXYAUTHORIZATION') or (Ws='PROXY_AUTHORIZATION') then ProxyAuthorization:=VariableValue
|
|
Else if (Ws='PUBLIC') then PublicCache:=VariableValue
|
|
Else if (Ws='PROXY_CONNECTION') then ProxyConnection:=VariableValue
|
|
Else AddToUnknown;
|
|
'Q':If (Ws='QUERYSTRING') or (Ws='QUERY_STRING') then QueryString:=VariableValue
|
|
Else AddToUnknown;
|
|
'R':If (Ws='RANGE') then Range:=VariableValue
|
|
Else If (Ws='REFERER') or (Ws='REFERRER') or (Ws='REFFERER') then Referer:=VariableValue
|
|
Else AddToUnknown;
|
|
'U':If (Ws='URI') then URI:=VariableValue
|
|
Else If (Ws='UPGRADE') then Upgrade:=VariableValue
|
|
Else if (Ws='USERAGENT') or (Ws='USER_AGENT') then UserAgent:=VariableValue
|
|
Else AddToUnknown;
|
|
'T':If (Ws='TRANSFERENCODING') or (Ws='TRANSFER_ENCODING') then TransferEncoding:=VariableValue
|
|
Else AddToUnknown;
|
|
'V':If (Ws='VIA') then Via:=VariableValue // 7-27
|
|
Else AddToUnknown;
|
|
'W':If (Ws='WEFERER') then Weferer:=VariableValue // 7-27
|
|
Else If (Ws='WSER_AGENT') then WserAgent:=VariableValue // 7-27
|
|
Else AddToUnknown;
|
|
Else
|
|
AddToUnknown;
|
|
End;//case
|
|
Result:=True;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.SetHeader(ServerVariable, VariableValue:String):Boolean;
|
|
Begin
|
|
Result:=AddHeader(ServerVariable, VariableValue);
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.FindUnknownHeader(ServerVariable:String):String;
|
|
var
|
|
line, buf:String;
|
|
i : Integer;
|
|
|
|
Begin
|
|
line:=fSessionHeader^.Unknown;
|
|
i := QuickPos(ServerVariable, line);
|
|
if i <> 0 then
|
|
Begin
|
|
buf := Copy(line, i, Length(line));
|
|
i := QuickPos(#13#10, buf);
|
|
buf := Copy(buf, 0, i-1);
|
|
i := CharPos(#32, buf);
|
|
Result := Copy(buf, i, Length(buf));
|
|
End; //IF
|
|
End;
|
|
|
|
Procedure TDXHTTPHeaderTools.ReplaceUnknownHeader(ServerVariable, VariableValue:String);
|
|
var line:PString;
|
|
str, buf:String;
|
|
i, k, m:Integer;
|
|
Begin
|
|
if Not UnknownHeaderExists(ServerVariable) then Exit;
|
|
line:=@fSessionHeader^.Unknown;
|
|
k := QuickPos(ServerVariable, line^);
|
|
if k <> 0 then
|
|
Begin
|
|
str := Copy(line^, k, Length(line^));
|
|
m := QuickPos(#13#10, str);
|
|
buf := Copy(str, 0, k-1);
|
|
i := CharPos(#32, buf);
|
|
k := k + i;
|
|
Delete(line^, k, m);
|
|
Insert(VariableValue, line^, k);
|
|
End;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.UnknownHeaderExists(ServerVariable:String):Boolean;
|
|
Begin
|
|
if ServerVariable = '' then Result:=False
|
|
Else if fSessionHeader^.Unknown = '' then Result:=False
|
|
Else if QuickPos(ServerVariable, fSessionHeader^.Unknown) = 0 then Result:=False
|
|
Else Result:=True;
|
|
End;
|
|
|
|
Function TDXHTTPHeaderTools.ToStrings:TStrings;
|
|
var res:TStrings;
|
|
endch:String;
|
|
split :String;
|
|
// CleanLoop:Integer;
|
|
|
|
Begin
|
|
split:=': ';
|
|
endch :='';// 7-27 #13#10;
|
|
res := TStringList.Create;
|
|
With fSessionHeader^ do
|
|
Begin
|
|
if Allow <> '' then
|
|
res.Add('ALLOW'+split+Allow+endch);
|
|
if AuthType <> '' then
|
|
res.Add('AUTHTYPE'+split+AuthType+endch);
|
|
if AuthName <> '' then
|
|
res.Add('AUTHNAME'+split+AuthName+endch);
|
|
if AuthPass <> '' then
|
|
res.Add('AUTHPASS'+split+AuthPass+endch);
|
|
if Accept <> '' then
|
|
res.Add('ACCEPT'+split+Accept+endch);
|
|
if AcceptCharset <> '' then
|
|
res.Add('ACCEPT-CHARSET'+split+AcceptCharset+endch);
|
|
if AcceptEncoding <> '' then
|
|
res.Add('ACCEPT-ENCODING'+split+AcceptEncoding+endch);
|
|
if AcceptLanguage <> '' then
|
|
res.Add('ACCEPT-LANGUAGE'+split+AcceptLanguage+endch);
|
|
if ContentLength <> 0 then
|
|
res.Add('CONTENT-LENGTH'+split+IntToStr(ContentLength)+endch);
|
|
if CacheControl <> '' then // 7-27
|
|
res.Add('CACHE-CONTROL'+split+CacheControl+endch);
|
|
if CacheInfo <> '' then // 7-27
|
|
res.Add('CACHE-INFO'+split+CacheInfo+endch);
|
|
if Connection <> '' then
|
|
res.Add('CONNECTION'+split+Connection+endch);
|
|
if ContentType <> '' then
|
|
res.Add('CONTENT-TYPE'+split+ContentType+endch);
|
|
if ClientName <> '' then
|
|
res.Add('CLIENTNAME'+split+ClientName+endch);
|
|
if ClientAddr <> '' then
|
|
res.Add('CLIENTADDR'+split+ClientAddr+endch);
|
|
if Cookie <> '' then
|
|
res.Add('COOKIE'+split+Cookie+endch);
|
|
if Date <> '' then
|
|
res.Add('DATE'+split+Date+endch);
|
|
if From <> '' then
|
|
res.Add('FROM'+split+From+endch);
|
|
if Forwarded <> '' then
|
|
res.Add('FORWARDED'+split+Forwarded+endch);
|
|
if ForwardedFor <> '' then
|
|
res.Add('FORWARDED-FOR'+split+ForwardedFor+endch);
|
|
if Host <> '' then
|
|
res.Add('HOST'+split+Host+endch);
|
|
if IfModSince <> '' then
|
|
res.Add('IFMODSINCE'+split+IfModSince+endch);
|
|
if IfMatch <> '' then
|
|
res.Add('IFMATCH'+split+IfMatch+endch);
|
|
if IfNoneMatch <> '' then
|
|
res.Add('IFNONEMATCH'+split+IfNoneMatch+endch);
|
|
if IfRange <> '' then
|
|
res.Add('IFRANGE'+split+IfRange+endch);
|
|
if IfUnModSince <> '' then
|
|
res.Add('IFUNMODSINCE'+split+IfUnModSince+endch);
|
|
if KeepAlive <> '' then
|
|
res.Add('KEEPALIVE'+split+KeepAlive+endch);
|
|
if Method <> '' then
|
|
res.Add('METHOD'+split+Method+endch);
|
|
if MaxForwards <> '' then
|
|
res.Add('MAXFORWARDS'+split+MaxForwards+endch);
|
|
if Protocol <> '' then
|
|
res.Add('PROTOCOL'+split+Protocol+endch);
|
|
if ProxyConnection <> '' then
|
|
res.Add('PROXY-CONNECTION'+split+ProxyConnection+endch);
|
|
if Pragma <> '' then
|
|
res.Add('PRAGMA'+split+Pragma+endch);
|
|
if ProxyAuthorization <> '' then
|
|
res.Add('PROXYAUTHORIZATION'+split+ProxyAuthorization+endch);
|
|
if PublicCache <> '' then
|
|
res.Add('PUBLIC'+split+PublicCache+endch);
|
|
if QueryString <> '' then
|
|
res.Add('QUERYSTRING'+split+QueryString+endch);
|
|
if Range <> '' then
|
|
res.Add('RANGE'+split+Range+endch);
|
|
if Referer <> '' then
|
|
res.Add('REFERER'+split+Referer+endch);
|
|
if URI <> '' then
|
|
res.Add('URI'+split+URI+endch);
|
|
if Upgrade <> '' then
|
|
res.Add('UPGRADE'+split+Upgrade+endch);
|
|
if UserAgent <> '' then
|
|
res.Add('USERAGENT'+split+UserAgent+endch);
|
|
if TransferEncoding <> '' then
|
|
res.Add('TRANSFERENCODING'+split+TransferEncoding+endch);
|
|
if Via <> '' then
|
|
res.Add('VIA'+split+Via+endch);
|
|
if Weferer <> '' then
|
|
res.Add('WEFERER'+split+Weferer+endch);
|
|
if WserAgent <> '' then
|
|
res.Add('WSER-AGENT'+split+WserAgent+endch);
|
|
if Unknown <> '' then
|
|
res.Add(Unknown+endch);
|
|
End; //With
|
|
{ CleanLoop:=res.Count;
|
|
While CleanLoop>0 do Begin
|
|
if res[CleanLoop-1]='' then res.delete(CleanLoop-1);
|
|
Dec(CleanLoop);
|
|
End;}
|
|
Result:=res;
|
|
End;
|
|
|
|
end.
|