dcef3 Chromium html Datei Vorschau

[zagota]

Zitat von MarcoGöli:

Hallo Zusammen

Timer2 Procedure:

Code:

procedure TForm1.BrowserAktualisieren(Sender: TObject);   //Browservorschau  neu laden
var
  URL: String;
begin
  Chromium1.Browser.MainFrame.LoadUrl(URL);        // html Datei anzeigen
end;

Der Inhalt von URL ist in diesem Fall leer/undefiniert!

cu

[MarcoGöli]

Zitat:

Der Inhalt von URL ist in diesem Fall leer/undefiniert!

klappt leider auch dann nicht, wenn ich "URL := 'file:\\\'+Edit3.Text+'Vorschau\index.html';" hinzufüge!

[mkinzler]

Zitat:

Ich setzte im OnClose der Hauptform den Timer2 auf False.

Es kann aber trotzdem Passieren, das die Prozedur noch einmal aufgerufen wird.

[MarcoGöli]

Zitat:

Es kann aber trotzdem Passieren, das die Prozedur noch einmal aufgerufen wird.

Das glaube ich nicht, wenn ich das Ganze ins OnCloseQuery lege? Wenn man ein ganz einfaches Programm macht, wo nur die TChromium Komponente geladen wird die eine Webseite anzeigen soll dann besteht das selbe Problem. Somit liegt es nicht am Timer.

Code:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cefvcl;

type
  TForm1 = class(TForm)
    Chromium1: TChromium;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chromium1.Browser.MainFrame.LoadUrl('http://www.delphipraxis.net');
end;

end.

[MarcoGöli]

Hallo Zusammen

So nach Stunden langem googlen und Demos von dcef3 durchforsten, bin ich nun zum Ziel gekommen und es funktioniert mit meiner html Vorschau. Hier die Lösung:

Die .dpr Datei des Projektes öffnen und bei "uses" an erster Stelle folgendes hinzufügen:

Code:

ceflib,

Dann nach "begin" die ersten Zeilen:

Code:

  CefCache := 'cache';
  CefSingleProcess := False;
  if not CefLoadLibDefault then
    Exit;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

Nun bei der Hauptform beim Ereigniss "OnShow":

Code:

var
  Webseite: String;
begin
    Webseite := 'file:///'+Edit3.Text+'Vorschau/index.html';
    Chromium1.Browser.MainFrame.LoadUrl(Webseite);
end;

Auch das aktualisieren des html Vorschau klappt in einer eigenen procedure einwandfrei:

Code:

Chromium1.Browser.Reload;