Ramblings

I wanted to find a way to use JQuery from Delphi on a page in a TWebBrowser, without requiring downloading over the internet, nor from the filesystem.

Download the Delphi 2009 project.

It turns out you can just execute the whole contents of the JQuery javascript file.

To test out the Delphi project, you should press the “1. Load HTML” button, then the “2. Inject JQuery” button. Clicking the two links in the html should perform that action (don’t click them before injecting JQuery, it will cause errors). You can also use the buttons to call JavaScript from Delphi. You can also write your own JavaScript or JQuery into the combobox and press enter, and it will be executed.

The zip file contains a Delphi2009 project and source code, but it should not be too hard to convert it for Delphi 2006 or 2007. (Probably just something like changing the {$R *.dres} to {$R TWebBrowserJQueryTest2.res ‘TWebBrowserJQueryTest.rc’}, and removing some things like MainFormOnTaskBar for D2006). This is a demo program, and it certainly lacks polish and error handling.

The jquery javascript file is stored as a resource, then a TStringStream loads it, and finally the string is executed as JavaScript in the TWebBrowser.

procedure TForm1.btnInjectJQueryClick(Sender: TObject);
begin
   ExecJS(RetrieveJQueryFromResource, false);
end;

function TForm1.RetrieveJQueryFromResource: String;
var
   rs: TResourceStream;
   ss: TStringStream;
begin
   rs := TResourceStream.Create(HInstance, 'JQUERY', RT_RCDATA);
   try
      ss := TStringStream.Create;
      try
         ss.LoadFromStream(rs);

         ss.Position := 0;
         Result := ss.DataString;
      finally
         ss.Free;
      end;
   finally
      rs.Free;
   end;
end;