Page 1 of 1
How create Browser in hands
Posted: Tue Aug 24, 2021 2:10 pm
by Uefi1
Hello, please tell me how to create a browser dynamically the window cefwindowparent1 is empty
also can not get url
memo1.Lines.Add(chrom.Browser.MainFrame.Url);
Error Access Violation
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
chrom:tchromium;
begin
Chrom:=Tchromium.Create(cefwindowparent1);
GlobalCEFApp := TCefApplication.Create;
chrom.Initialized;
GlobalCEFApp.UserAgent:='Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:47.0) Gecko/20100101 Firefox/47.0';
chrom.CreateBrowser(cefwindowparent1);
chrom.Initialized;
GlobalCEFApp.WindowlessRenderingEnabled:=True;
PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
chrom.LoadURL('https://yandex.ru');
memo1.Lines.Add(chrom.Browser.MainFrame.Url); //Access Violation
end;
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 7:05 am
by salvadordf
If you need a child form with a browser then you can use the code from the ToolBoxBrowser demo.
If your application is MDI then you can take a look at the code from the MDIBrowser demo.
If you prefer to have multiple tabs then use the TabbedBrowser or TabbedBrowser2 demos.
All those demos create browsers dynamically at runtime.
Please, read the code comments of those demos because you need to follow some steps to close the application correctly.
There's a lot of information about CEF4Delphi here :
https://www.briskbard.com/index.php?lang=en&pageid=cef
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 7:40 am
by Uefi1
I need to use a browser in a multithreaded application, so I just need to create the load page every time get the current url to destroy the component.
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 7:51 am
by salvadordf
If you want to create and destroy browsers in a thread context then you have to use a browser in OSR mode.
Use the code from the WebpageSnapshot demo.
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 8:03 am
by Uefi1
Uses
uCEFBrowserThread;
src := @PByte(buffer)[TempSrcOffset];
[Error] uCEFBrowserThread.pas(446): Array type required
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 8:32 am
by salvadordf
I'm sorry but I only have a Delphi 10.4.2 license and that demo works with the latest version of Delphi.
If you have an older version of Delphi then you have to modify the code for yourself.
You can also install Lazarus to run this equivalent demo : CEF4Delphi/demos/Lazarus_Windows/WebpageSnapshot
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 8:52 am
by Uefi1
Then I will return to the first question how to do?
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 9:34 am
by Uefi1
Why does it work that
Code: Select all
var
chrom:Tchromium;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Chrom.CreateBrowser(CEFWindowParent1)and (Chrom.Initialized) then
timer1.Enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Chrom:=Tchromium.Create(cefwindowparent1);
timer1.Enabled:=true;
chrom.LoadURL('https://yandex.ru');
end;
But it doesn't work ???????
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
chrom:Tchromium;
begin
Chrom:=Tchromium.Create(cefwindowparent1);
Chrom.CreateBrowser(CEFWindowParent1;
Chrom.Initialized;
chrom.LoadURL('https://yandex.ru');
end;
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 2:31 pm
by Uefi1
Okey i am changed
Code: Select all
src := @PByte(buffer)[TempSrcOffset];
dst := @PByte(TempBufferBits)[TempDstOffset];
From
src := @PByteArray(buffer)[TempSrcOffset];
dst := @PByteArray(TempBufferBits)[TempDstOffset];
The project is now compiling how can i get the source code of the page or the current url ?
Code: Select all
GlobalCEFApp := TCefApplication.Create;
FThread:= TCEFBrowserThread.Create(AddressEdt.Text, 1024, 768);
FThread.LoadUrl(AddressEdt.Text);
Fthread.Browser.MainFrame.url ??? - none
Fthread.Browser.MainFrame.gesorcecode ????? - none
Re: How create Browser in hands
Posted: Wed Aug 25, 2021 3:12 pm
by Uefi1
Oh yes I conquered it
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
chrom:Tchromium;
begin
chrom:=Tchromium.Create(cefwindowparent1);
chrom.DefaultUrl:='https://yandex.ru';
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.UserAgent:='Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:47.0) Gecko/20100101 Firefox/47.0';
if not Chrom.Initialized then Chrom.CreateBrowser(cefwindowparent1);
end;