Recent

Author Topic: Chromium error  (Read 1736 times)

Catink123

  • New Member
  • *
  • Posts: 19
  • Not a Lazarus prog. now. Using VS and writing C#
Chromium error
« on: June 21, 2017, 12:19:49 pm »
I was trying to make some sort of Facebook application, which opens facebook page. I added TChromium, made all it says on page, but when i start project this window appears: (pic. 1)
My form code:
Code: Pascal  [Select][+][-]
  1. unit Unit1;
  2.  
  3. {$mode delphi}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, BCPanel,
  9.   BCButton, cef3lcl, EditBtn, cef3intf, cef3types, cef3lib, gettext;
  10.  
  11. { TForm1 }
  12.  
  13. type
  14.   TForm1 = class(TForm)
  15.     Back: TBCButton;
  16.     Chromium: TChromium;
  17.     Forward: TBCButton;
  18.     facebook: TBCPanel;
  19.     Reload: TBCButton;
  20.     procedure FormCreate(Sender: TObject);
  21.   private
  22.     { private declarations }
  23.   public
  24.     { public declarations }
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.   PrjPath: string;
  30.   Lang, FallbackLang: string;
  31.  
  32. implementation
  33.  
  34. {$R *.lfm}
  35.  
  36. { TForm1 }
  37.  
  38. procedure TForm1.FormCreate(Sender: TObject);
  39. begin
  40.   PrjPath := UTF8Decode(GetCurrentDir + PathDelim);
  41.   CefLocalesDirPath := PrjPath + 'locales';
  42.   GetLanguageIDs(Lang, FallbackLang);
  43.   CefLocale := UTF8Decode(FallbackLang);
  44.   Chromium.Load(UTF8Decode('http://www.facebook.com/'));
  45. end;
  46.  
  47. end
Files in project folder: (pic. 2)

 

TinyPortal © 2005-2018