WebSVN – fastphp – Diff – /trunk/EditorMain.pas

-unit Unit1;
+unit EditorMain;
 (*
   This program requires
   - Microsoft Internet Controls (TWebBrowser)
     If you are using Delphi 10.1 Starter Edition, please import the ActiveX TLB
 // - Open/Save real files
 // - multiple scraps?
 // - verschiedene php versionen?
 // - webbrowser1 nur laden, wenn man den tab anwählt?
 // - doppelklick auf tab soll diesen schließen
-// - Strg+S
 // - Onlinehelp (www) aufrufen
 interface
 uses
     TabSheet3: TTabSheet;
     HelpTabsheet: TTabSheet;
     WebBrowser2: TWebBrowser;
     OpenDialog1: TOpenDialog;
     Panel1: TPanel;
-    OpenDialog2: TOpenDialog;
     OpenDialog3: TOpenDialog;
     SynEdit1: TSynEdit;
     SynPHPSyn1: TSynPHPSyn;
     Panel2: TPanel;
     SynEditFocusTimer: TTimer;
     HlpPrevPageIndex: integer;
     procedure Help;
     procedure ApplicationOnMessage(var Msg: tagMSG; var Handled: Boolean);
     function MarkUpLineReference(cont: string): string;
   protected
-    FastPHPConfig: TMemIniFile;
     ChmIndex: TMemIniFile;
     procedure GotoLineNo(LineNo:integer);
     function GetScrapFile: string;
   end;
 implementation
 {$R *.dfm}
 uses
-  Functions, StrUtils;
+  Functions, StrUtils, WebBrowserUtils, FastPHPUtils;
 procedure TForm1.ApplicationOnMessage(var Msg: tagMSG; var Handled: Boolean);
 var
   val: string;
   lineno: integer;
             HelpTabsheet.TabVisible := false;
           end;
         end;
         {$ENDREGION}
-        {$REGION 'Ctrl+G : Go to line'}
+        {$REGION 'Ctrl+G (Go to line)'}
         ord('G'):
         begin
           // TODO: VK_LMENU does not work! only works with AltGr but not Alt
           // http://stackoverflow.com/questions/16828250/delphi-xe2-how-to-prevent-the-alt-key-stealing-focus ?
           if (GetKeyState(VK_CONTROL) < 0) then
             GotoLineNo(lineno);
           end;
         end;
         {$ENDREGION}
+        {$REGION 'Ctrl+S (Save)'}
+        ord('S'):
+        begin
+          if (GetKeyState(VK_CONTROL) < 0) and (SynEdit1.Focused) then
+          begin
+            Handled := true;
+            SynEdit1.Lines.SaveToFile(GetScrapFile);
+          end;
+        end;
+        {$ENDREGION}
+        {$REGION 'F1 (Help)'}
         VK_F1:
         begin
           if SynEdit1.Focused then
           begin
             Handled := true;
             Help;
           end;
         end;
+        {$ENDREGION}
+        {$REGION 'F5 (Run)'}
         VK_F5:
         begin
           Run(Self);
         end;
+        {$ENDREGION}
+        {$REGION 'F9 (Run)'}
         VK_F9:
         begin
           Run(Self);
         end;
+        {$ENDREGION}
       end;
     end;
   end;
 end;
 procedure TForm1.Run(Sender: TObject);
-var
-  phpExe: string;
 begin
   memo2.Lines.Text := '';
-  BrowseContent(Webbrowser1, memo2.Lines.Text);
+  Webbrowser1.Clear;
   Screen.Cursor := crHourGlass;
   Application.ProcessMessages;
   try
-    phpExe := FastPHPConfig.ReadString('Paths', 'PHPInterpreter', '');
-    if not FileExists(phpExe) then
-    begin
-      if not OpenDialog2.Execute then exit;
-      if not FileExists(OpenDialog2.FileName) then exit;
-      phpExe := OpenDialog2.FileName;
-      if not IsValidPHPExe(phpExe) then
-      begin
-        ShowMessage('This is not a valid PHP executable.');
-        exit;
-      end;
-      FastPHPConfig.WriteString('Paths', 'PHPInterpreter', phpExe);
-      FastPHPConfig.UpdateFile;
-    end;
     SynEdit1.Lines.SaveToFile(GetScrapFile);
-    memo2.Lines.Text := GetDosOutput('"'+phpExe+'" "'+GetScrapFile+'"', ExtractFileDir(Application.ExeName));
+    memo2.Lines.Text := RunPHPScript(GetScrapFile);
-    BrowseContent(Webbrowser1, MarkUpLineReference(memo2.Lines.Text));
+    Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile);
     if IsTextHTML(memo2.lines.text) then
       PageControl1.ActivePage := HtmlTabSheet
     else
       PageControl1.ActivePage := PlaintextTabSheet;
 end;
 procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
   const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
   Headers: OleVariant; var Cancel: WordBool);
-const
-  MAG_BEGIN = 'fastphp://gotoline/';
 var
-  s, myURL, phpExe, scrapDir: string;
+  s, myURL: string;
   lineno: integer;
   p: integer;
 begin
   {$REGION 'Line number references (PHP errors and warnings)'}
-  if Copy(URL, 1, length(MAG_BEGIN)) = MAG_BEGIN then
+  if Copy(URL, 1, length(FASTPHP_GOTO_URI_PREFIX)) = FASTPHP_GOTO_URI_PREFIX then
   begin
     try
-      s := copy(URL, length(MAG_BEGIN)+1, 99);
+      s := copy(URL, length(FASTPHP_GOTO_URI_PREFIX)+1, 99);
       if not TryStrToInt(s, lineno) then exit;
       GotoLineNo(lineno);
       SynEditFocusTimer.Enabled := true;
     finally
       Cancel := true;
     end;
+    Exit;
   end;
   {$ENDREGION}
-  {$REGION 'Intelligent browser'}
+  {$REGION 'Intelligent browser (executes PHP scripts)'}
   if URL <> 'about:blank' then
   begin
-    p := Pos('?', URL);
     myUrl := URL;
+    p := Pos('?', myUrl);
-    myURL := StringReplace(myURL, 'about:', '', []); // TODO: ??? wenn ich von about:blank komme, dann ist ein link about:xyz.php !
+    if p >= 1 then myURL := copy(myURL, 1, p-1);
-    // TODO: unabhängig vom scrap verzeichnis machen!
+    // TODO: myURL urldecode
-    scrapDir := FastPHPConfig.ReadString('Paths', 'ScrapFile', '');
+    // TODO: maybe we could even open that file in the editor!
-    myURL := ExtractFileDir({Application.ExeName}scrapDir) + '\' + myURL;
-    if p >= 1 then myURL := copy(myURL, 1, p-1);
+    if FileExists(myURL) and (EndsText('.php', myURL) or EndsText('.php3', myURL) or EndsText('.php4', myURL) or EndsText('.php5', myURL) or EndsText('.phps', myURL)) then
-    if FileExists(myURL) then
     begin
-      phpExe := FastPHPConfig.ReadString('Paths', 'PHPInterpreter', ''); // TODO: check if available (auslagern)
-      BrowseContent(WebBrowser1, GetDosOutput('"'+phpExe+'" "'+myURL+'"', ExtractFileDir(Application.ExeName)));
+      WebBrowser1.LoadHTML(GetDosOutput('"'+GetPHPExe+'" "'+myURL+'"', ExtractFileDir(Application.ExeName)), myUrl);
       Cancel := true;
     end;
   end;
   {$ENDREGION}
 end;
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   HlpPrevPageIndex := -1;
   CurSearchTerm := '';
   Application.OnMessage := ApplicationOnMessage;
-  FastPHPConfig := TMemIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
 end;
 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   if Assigned(ChmIndex) then
   begin
     FreeAndNil(ChmIndex);
   end;
-  FastPHPConfig.UpdateFile;
-  FreeAndNil(FastPHPConfig);
 end;
 procedure TForm1.FormShow(Sender: TObject);
 var
   ScrapFile: string;
     ChmIndex := TMemIniFile.Create(IndexFile);
   end;
   w := GetWordUnderCaret(SynEdit1);
   if w = '' then exit;
-  if w[1] in ['0'..'9'] then exit;
+  if CharInSet(w[1], ['0'..'9']) then exit;
   w := StringReplace(w, '_', '-', [rfReplaceAll]);
   w := LowerCase(w);
   CurSearchTerm := w;
   internalHtmlFile := ChmIndex.ReadString('_HelpWords_', CurSearchTerm, '');
   url := 'mk:@MSITStore:'+ChmFile+'::'+internalHtmlFile;
   HlpPrevPageIndex := PageControl2.ActivePageIndex; // Return by pressing ESC
   HelpTabsheet.TabVisible := true;
   PageControl2.ActivePage := HelpTabsheet;
+  WebBrowser2.Navigate(url);
-  BrowseURL(WebBrowser2, url);
+  WebBrowser2.Wait;
 end;
 procedure TForm1.GotoLineNo(LineNo:integer);
 var
   line: string;
   // Skip indent
   line := SynEdit1.Lines[SynEdit1.CaretY];
   for i := 1 to Length(line) do
   begin
-    if not (line[i] in [' ', #9]) then
+    if not CharInSet(line[i], [' ', #9]) then
     begin
       SynEdit1.CaretX := i-1;
       break;
     end;
   end;
   PageControl2.ActivePage := TabSheet3{Scrap};
   if SynEdit1.CanFocus then SynEdit1.SetFocus;
 end;
+procedure TForm1.PageControl2Changing(Sender: TObject;
+  var AllowChange: Boolean);
+begin
+  if PageControl2.ActivePage = HelpTabsheet then
+    HlpPrevPageIndex := -1
+  else
+    HlpPrevPageIndex := PageControl2.ActivePageIndex;
+  AllowChange := true;
+end;
 procedure TForm1.Memo2DblClick(Sender: TObject);
 var
   line: string;
   p, lineno: integer;
 begin
   line := copy(line, p+length(' on line '), 99);
   if not TryStrToInt(line, lineno) then exit;
   GotoLineNo(lineno);
 end;
-procedure TForm1.PageControl2Changing(Sender: TObject;
-  var AllowChange: Boolean);
-begin
-  if PageControl2.ActivePage = HelpTabsheet then
-    HlpPrevPageIndex := -1
-  else
-    HlpPrevPageIndex := PageControl2.ActivePageIndex;
-  AllowChange := true;
-end;
 function TForm1.MarkUpLineReference(cont: string): string;
 var
   p, a, b: integer;
   num: integer;
   insert_a, insert_b: string;
   while p >= 1 do
   begin
     a := p+1;
     b := p+length(' on line ');
     num := 0;
-    while cont[b] in ['0'..'9'] do
+    while CharInSet(cont[b], ['0'..'9']) do
     begin
       num := num*10 + StrToInt(cont[b]);
       inc(b);
     end;
     insert_b := '</a>';
-    insert_a := '<a href="fastphp://gotoline/'+IntToStr(num)+'">';
+    insert_a := '<a href="'+FASTPHP_GOTO_URI_PREFIX+IntToStr(num)+'">';
     insert(insert_b, cont, b);
     insert(insert_a, cont, a);
     p := b + Length(insert_a) + Length(insert_b);

Subversion Repositories fastphp

fastphp/trunk/EditorMain.pas – Rev 7 → 8