pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Update to CEF 108.4.13

Browse Source
This commit is contained in:
salvadordf
2022-12-16 11:29:15 +01:00
parent a0b2a1a911
commit a20f854950
44 changed files with 1266 additions and 1252 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
demos/Lazarus_Windows/URLRequest/uURLRequest.pas
View File

@ -61,6 +61,7 @@ type
{ TURLRequestFrm }
TURLRequestFrm = class(TForm)
Memo1: TMemo;
StatusBar1: TStatusBar;
SaveDialog1: TSaveDialog;
CEFUrlRequestClientComponent1: TCEFUrlRequestClientComponent;
@ -72,7 +73,6 @@ type
PostURLEdt: TEdit;
Label2: TLabel;
SendPostReqBtn: TButton;
Button1: TButton;
GroupBox1: TGroupBox;
Label3: TLabel;
PostParam1NameEdt: TEdit;
@ -96,8 +96,6 @@ type
procedure CEFUrlRequestClientComponent1RequestComplete(Sender: TObject; const request: ICefUrlRequest);
procedure CEFUrlRequestClientComponent1CreateURLRequest(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FMemStream : TMemoryStream;
FCanClose : boolean;
@ -209,11 +207,8 @@ begin
if FClosing then
request.Cancel
else
if FSendingGET then
begin
if (data <> nil) and (dataLength > 0) then
FMemStream.WriteBuffer(data^, dataLength);
end;
if (data <> nil) and (dataLength > 0) then
FMemStream.WriteBuffer(data^, dataLength);
except
on e : exception do
if CustomExceptionHandler('TURLRequestFrm.CEFUrlRequestClientComponent1DownloadData', e) then raise;
@ -241,11 +236,6 @@ begin
if (FMemStream <> nil) then FreeAndNil(FMemStream);
end;
procedure TURLRequestFrm.Button1Click(Sender: TObject);
begin
OpenURL('https://ptsv2.com/t/cef4delphi'); { *Converted from ShellExecute* }
end;
procedure TURLRequestFrm.CEFUrlRequestClientComponent1CreateURLRequest(Sender: TObject);
begin
if FSendingGET then
@ -374,7 +364,11 @@ begin
end
else
if FSendingPOST then
TempMessage := 'Parameters sent!';
begin
TempMessage := 'Parameters sent!';
FMemStream.Position := 0;
Memo1.Lines.LoadFromStream(FMemStream);
end;
StatusBar1.Panels[0].Text := TempMessage;
showmessage(TempMessage);