unit FastPHPUtils;
interface
uses
Windows, SysUtils, StrUtils, Dialogs, IniFiles, Classes, Forms, ShellAPI, Functions,
System.UITypes;
const
FASTPHP_GOTO_URI_PREFIX = 'fastphp://editor/gotoline/';
function GetPHPExe: string;
function RunPHPScript(APHPFileName: string; lint: boolean=false; inConsole: boolean=False; ContentCallBack: TContentCallBack=nil): string;
function ParseCHM(const chmFile: TFileName): boolean;
function IsValidPHPExe(const exeFile: TFileName): boolean;
implementation
uses
FastPHPConfig;
function GetPHPExe: string;
var
od: TOpenDialog;
begin
result := TFastPHPConfig.PhpInterpreter;
if not FileExists(result) then
begin
od := TOpenDialog.Create(nil);
try
od.DefaultExt := '.exe';
od.FileName := 'php.exe';
od.Filter := 'Executable file (*.exe)|*.exe';
od.Options := [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing];
od.Title := 'Please choose your PHP interpreter (php.exe)';
if not od.Execute then exit;
if not FileExists(od.FileName) then exit;
result := od.FileName;
finally
od.Free;
end;
if not IsValidPHPExe(result) then
begin
MessageDlg('This is not a valid PHP executable.', mtError, [mbOk], 0);
exit;
end;
TFastPHPConfig.PhpInterpreter := result;
end;
end;
function RunPHPScript(APHPFileName: string; lint: boolean=false; inConsole: boolean=False; ContentCallBack: TContentCallBack=nil): string;
var
phpExe, args, batFile, workdir: string;
slBat: TStringList;
begin
phpExe := GetPHPExe;
if phpExe = '' then Abort;
if lint then
args := '-l "'+APHPFileName+'"'
else
args := '-f "'+APHPFileName+'"';
//workdir := ExtractFileDir(ParamStr(0));
workdir := ExtractFileDir(APHPFileName);
if inConsole then
begin
(*
ShellExecute(0, 'open', PChar(phpExe), PChar(args), PChar(workdir), SW_NORMAL);
*)
batFile := IncludeTrailingPathDelimiter(GetTempDir) + 'RunFastPHP.bat';
slBat := TStringList.Create;
try
slBat.Add('@echo off');
slBat.Add('cd /d "'+workdir+'"');
slBat.Add('"'+phpExe+'" ' + args);
slBat.Add('pause.');
slBat.SaveToFile(batFile);
ShellExecute(0, 'open', PChar(batFile), '', '', SW_NORMAL);
finally
slBat.Free;
end;
result := '';
end
else
begin
result := GetDosOutput('"'+phpExe+'" ' + args, workdir, ContentCallBack);
end;
end;
function ParseCHM(const chmFile: TFileName): boolean;
var
test, candidate, candidate2: string;
p, p2, q: integer;
i: integer;
good: Boolean;
ini: TMemIniFile;
domain: string;
sl: TStringList;
symbolCount: Integer;
sl2: TStrings;
outFile: string;
begin
// TODO: problem: mysqli::commit has /res/mysqli.commit.html -> keyword is NOT commit alone
outFile := ChangeFileExt(chmFile, '.ini');
DeleteFile(outFile);
test := LoadFileToStr(chmFile); // TODO: RawByteString instead of AnsiString?
if Pos('/php_manual_', test) = -1 then
begin
result := false;
exit;
end;
p := 0;
ini := TMemIniFile.Create(outFile);
try
ini.WriteString('_Info_', 'Source', chmFile);
ini.WriteString('_Info_', 'Generated', DateTimeToStr(Now));
ini.WriteString('_Info_', 'GeneratorVer', '1.0');
ini.WriteString('_Info_', 'Signature', '$ViaThinkSoft$');
{$REGION 'Excludes'}
// TODO: more excludes
ini.WriteBool('_HelpExclude_', 'about', true);
ini.WriteBool('_HelpExclude_', 'apache', true);
{$ENDREGION}
while true do
begin
if Assigned(Application) then Application.ProcessMessages;
p := PosEx('/res/', Test, p+1);
if p = 0 then break;
p2 := PosEx('.html', Test, p);
if p = 0 then break;
candidate := copy(Test, p+5, p2-p-5);
if candidate = '' then continue;
if Length(candidate) > 50 then continue;
good := true;
for i := p+5 to p2-1 do
begin
if ord(test[i]) < 32 then
begin
good := false;
break;
end;
{$IFDEF UNICODE}
if not CharInSet(test[i], ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9']) then
{$ELSE}
if not (test[i] in ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9']) then
{$ENDIF}
begin
ini.WriteInteger('_Errors_', 'Contains unexpected character! ' + candidate, ini.ReadInteger('_Errors_', 'Contains unexpected character! ' + candidate, 0)+1);
good := false;
break;
end;
end;
if good then
begin
candidate2 := LowerCase(StringReplace(candidate, '-', '_', [rfReplaceAll]));
q := LastPos('.', candidate2);
domain := copy(candidate2, 1, q-1);
if domain = '' then continue;
candidate2 := copy(candidate2, q+1, Length(candidate2)-q);
ini.WriteInteger('_Category_', domain, ini.ReadInteger('_Category_', domain, 0)+1);
ini.WriteString(domain, candidate2, '/res/'+candidate+'.html');
if not ini.ReadBool('_HelpExclude_', domain, false)
and (candidate2 <> 'configuration')
and (candidate2 <> 'constants')
and (candidate2 <> 'installation')
and (candidate2 <> 'requirements')
and (candidate2 <> 'resources')
and (candidate2 <> 'setup') then
begin
if ini.ReadString('_HelpWords_', candidate2, '') <> '' then
begin
ini.WriteInteger('_Conflicts_', candidate2, ini.ReadInteger('_Conflicts_', candidate2, 0)+1);
end;
ini.WriteString('_HelpWords_', candidate2, '/res/'+candidate+'.html');
end;
end;
end;
sl := TStringList.Create;
sl2 := TStringList.Create;
try
ini.ReadSections(sl);
ini.WriteInteger('_Info_', 'TotalDomains', sl.Count);
symbolCount := 0;
for domain in sl do
begin
ini.ReadSection(domain, sl2);
Inc(symbolCount, sl2.Count)
end;
ini.WriteInteger('_Info_', 'TotalSymbols', symbolCount);
finally
sl.Free;
sl2.Free;
end;
ini.UpdateFile;
result := true;
finally
ini.Free;
end;
end;
function IsValidPHPExe(const exeFile: TFileName): boolean;
var
cont: string;
begin
cont := LoadFileToStr(exeFile); // TODO: RawByteString instead of AnsiString?
result := (Pos('php://stdout', cont) >= 0) or
(Pos('PHP_SELF', cont) >= 0);
end;
end.