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

* Get rid of the need to fill the internal table.

Browse Source 
git-svn-id: trunk@12868 -
This commit is contained in:
joost 2009-03-08 15:52:56 +00:00
parent b28dd26e7b
commit 009324f617
2 changed files with 10 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-web/src/fpapache.pp
View File

@ -587,20 +587,8 @@ begin
end;
procedure TApacheRequest.InitFromRequest;
Var
I : Integer;
S : String;
begin
// This fills the internal table. We should try
// to get rid of it.
For I:=0 to NoHTTPFields do
begin
S:=GetFieldValue(i);
If (S<>'') then
SetFieldValue(I,S);
end;
ParseCookies;
end;
Constructor TApacheRequest.CreateReq(App : TCustomApacheApplication; ARequest : PRequest_rec);
@ -609,8 +597,8 @@ begin
FApache:=App;
FRequest:=Arequest;
ReturnedPathInfo:=App.BaseLocation;
InitFromRequest;
Inherited Create;
InitFromRequest;
end;
{ TApacheResponse }

20
packages/fcl-web/src/httpdefs.pp
View File

@ -498,18 +498,18 @@ Var
begin
Result:=0;
For I:=1 to NoHTTPFields do
If (FFields[i]<>'') then
If (GetFieldValue(i)<>'') then
Inc(Result);
end;
function THTTPHeader.GetContentLength: Integer;
begin
Result:=StrToIntDef(FFields[9],0);
Result:=StrToIntDef(GetFieldValue(9),0);
end;
procedure THTTPHeader.SetContentLength(Value: Integer);
begin
FFields[9]:=IntToStr(Value);
SetFieldValue(9,IntToStr(Value));
end;
@ -522,7 +522,7 @@ begin
I:=1;
While (I<=NoHTTPFields) and (AIndex>=0) do
begin
If (FFields[i]<>'') then
If (GetFieldValue(i)<>'') then
Dec(AIndex);
Inc(I);
end;
@ -545,7 +545,7 @@ Var
begin
I:=GetFieldIndex(Index);
If (I<>-1) then
Result:=FFields[I];
Result:=GetFieldValue(I);
end;
function THTTPHeader.GetSetField(AIndex: Integer): String;
@ -555,7 +555,7 @@ var
begin
I:=GetFieldIndex(AIndex);
If (I<>-1) then
Result := HTTPFieldNames[I] + ': ' + FFields[I];
Result := HTTPFieldNames[I] + ': ' + GetFieldValue(I);
end;
function THTTPHeader.GetSetFieldName(AIndex: Integer): String;
@ -588,12 +588,8 @@ begin
else
case Index of
0 : Result:=FHTTPVersion;
25 : Result:=''; // Property PathInfo
26 : Result:=''; // Property PathTranslated
27 : Result:=''; // Property RemoteAddress
28 : Result:=''; // Property RemoteHost
29 : Result:=''; // Property ScriptName
30 : Result:=''; // Property ServerPort
else
Result := '';
end;
end;