lazarus-IDE：LCL 嵌入 fpwebview 组件，做一个简单浏览器

belldeep

已于 2024-03-23 10:54:50 修改

阅读量1.2k

点赞数 6

于 2024-02-16 15:11:09 首次发布

本文链接：https://blog.csdn.net/belldeep/article/details/136128908

版权

从 https://github.com/PierceNg/fpwebview 下载 fpwebview-master.zip 简单易用。

先请看 \fpwebview-master\README.md

cd \lazarus\projects\fpwebview-master\demo\lclembed

修改 lclembed.lpr 如下，将 fphttpapp. 注释掉，因为我用不上 a simple webserver。

program lclembed;

{$mode objfpc}{$H+}
{$ifdef darwin}{$linklib libwebview}{$endif}
{$ifdef mswindows}{$linklib libwebview}{$endif}

uses
  {$IFDEF UNIX}cmem, cthreads,{$ENDIF}
  Interfaces, Forms, math,
  classes, fphttpapp, fpwebfile,
  guiform;

{$R *.res}

type
  TWebServerThread = class(TThread)
    protected
      procedure Execute; override;
    public
      constructor Create(CreateSuspended: boolean);
  end;

constructor TWebServerThread.Create(CreateSuspended: boolean);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate := true;
end;

procedure TWebServerThread.Execute;
begin
//fphttpapp.Application.Run;
end;

var
  currDir: String;

begin
  { Set math masks. l