Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / qt / 2009-11

QWebKit and loading pages

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Marcin Dębicki

I use to load pages with QWebView:

  if (Pos('://', URL)=0) and (not FileExists(URL)) then
    w:='http://'+URL else
    w:=URL;
  fUrl:=QUrl_create(@w, QUrlTolerantMode);
  QWebView_setUrl(Handle,fUrl);
  QUrl_Destroy(fUrl);

object constructor:

constructor TWebView.Create(Parent : TWinControl; URL: string;
  aNetworkAccessManager: QNetworkAccessManagerH; SetEditable: boolean =
false);
var
  W : WideString;
begin
  Handle := QWebView_create(L2Qt(Parent));
  QWebPage:=QLCLWebPage_create(TQtWidget(Parent).Widget);
  QWebView_setPage(Handle,QWebPage);
  QWebPage_setContentEditable(QWebPage, SetEditable);
  NetworkAccessManager:=aNetworkAccessManager;//QWebPage_networkAccessManager(QWebPage);
  QWebPage_setNetworkAccessManager(QWebPage,aNetworkAccessManager);
  QLCLWebPage_override_userAgentForUrl(QWebPage,
@UserAgentForUrl);//TMethod(QLCLWebPage_UserAgentForUrl_Override(@UserAgentForUrl)));
  Settings:=QWebPage_settings(QWebPage);
  QWebSettings_setAttribute(Settings,QWebSettingsJavascriptEnabled,true);
  QWebSettings_setAttribute(Settings,QWebSettingsPluginsEnabled,true);
  QWebSettings_setAttribute(Settings,QWebSettingsPrivateBrowsingEnabled,false);
  QWebSettings_setAttribute(Settings,QWebSettingsJavascriptCanOpenWindows,true);
  w:=URL;
  fUrl:=QUrl_create(@w, QUrlTolerantMode);
  QWebView_setUrl(Handle,fUrl);
  QWidget_resize(Handle, 500, 500);
  QUrl_Destroy(fUrl);
  QWidget_Show(Handle);
  pURL:=URL;
end;

Whenever I call procedure TWebView.LoadURL(URL: string); (first listing) memory usage of my application increases by more less 5-6 MB, sometimes even more. With QWebView_load it is the same.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/qt/attachments/20091109/a379371f/attachment.html>