paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Renamed TResponse.SendTemporaryRedirect to SendRedirect for Delphi

Browse Source 
compatibility. Bug #13254

git-svn-id: trunk@13006 -
This commit is contained in:
joost 2009-04-05 21:27:35 +00:00
parent 709fcaa7bd
commit e0c018c8f1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/custweb.pp
View File

@ -155,7 +155,7 @@ begin
if R.ContentSent then exit;
If RedirectOnError and not R.HeadersSent then
begin
R.SendTemporaryRedirect(format(RedirectOnErrorURL,[HTTPEncode(E.Message)]));
R.SendRedirect(format(RedirectOnErrorURL,[HTTPEncode(E.Message)]));
R.SendContent;
Exit;
end;

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

@ -334,7 +334,7 @@ type
Property HeadersSent : Boolean Read FHeadersSent;
Property ContentSent : Boolean Read FContentSent;
property Cookies: TCookies read FCookies;
Procedure SendTemporaryRedirect(const TargetURL:String);
Procedure SendRedirect(const TargetURL:String);
end;
{ TSessionVariable }
@ -1420,7 +1420,7 @@ begin
SendContent;
end;
procedure TResponse.SendTemporaryRedirect(const TargetURL: String);
procedure TResponse.SendRedirect(const TargetURL: String);
begin
Location := TargetURL;
if FHttpVersion = '1.1' then