15,6 → 15,7 |
TForm2 = class(TForm) |
WebBrowser1: TWebBrowser; |
Timer1: TTimer; |
OpenDialog3: TOpenDialog; |
procedure Timer1Timer(Sender: TObject); |
procedure WebBrowser1BeforeNavigate2(ASender: TObject; |
const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData, |
129,6 → 130,11 |
var |
phpScript: string; |
sl: TStringList; |
resourcestring |
SRunningScriptPleaseWait = 'Running script... please wait...'; |
SPleaseEnterPHPScript = 'Please enter a PHP file to execute.'; |
SFileDoesNotExist = 'File %s does not exist.'; |
SFastPHP = 'ViaThinkSoft FastPHP'; |
begin |
Timer1.Enabled := false; |
phpScript := ParamStr(1); |
136,18 → 142,22 |
// Remove Security |
WebBrowser1.ServiceQuery := EmbeddedWBQueryService; |
|
WebBrowser1.LoadHTML('<h1>FastPHP</h1>Running script... please wait...'); |
WebBrowser1.LoadHTML('<h1>'+SFastPHP+'</h1>'+SRunningScriptPleaseWait); |
|
// TODO: nice HTML error/intro pages (as resource?) |
if phpScript = '' then |
begin |
WebBrowser1.LoadHTML('<h1>FastPHP</h1>Please enter a PHP file to execute.'); |
WebBrowser1.LoadHTML('<h1>'+SFastPHP+'</h1>'+SPleaseEnterPHPScript); |
if not OpenDialog3.Execute then |
begin |
Abort; |
end; |
phpScript := OpenDialog3.FileName; |
end; |
|
if not FileExists(phpScript) then |
begin |
WebBrowser1.LoadHTML(Format('<h1>FastPHP</h1>File %s does not exist.', [phpScript])); |
WebBrowser1.LoadHTML(Format('<h1>'+SFastPHP+'</h1>'+SFileDoesNotExist, [phpScript])); |
Abort; |
end; |
|
177,14 → 187,16 |
p: integer; |
background: boolean; |
ArgGet, ArgPost, ArgHeader: string; |
resourcestring |
SOnlyWorksInEditor = 'This action only works in FastPHP editor.'; |
begin |
background := Pos('background|', URL) >= 1; |
background := Pos('background|', URL) >= 1; // do not translate |
|
{$REGION 'Line number references (PHP errors and warnings)'} |
if Copy(URL, 1, length(FASTPHP_GOTO_URI_PREFIX)) = FASTPHP_GOTO_URI_PREFIX then |
begin |
// TODO: maybe we could even open that file in the editor! |
ShowMessage('This action only works in FastPHP editor.'); |
ShowMessage(SOnlyWorksInEditor); |
Cancel := true; |
Exit; |
end; |
195,7 → 207,7 |
begin |
myUrl := URL; |
|
myurl := StringReplace(myurl, 'background|', '', []); |
myurl := StringReplace(myurl, 'background|', '', []); // do not translate |
|
p := Pos('?', myUrl); |
if p >= 1 then |