RealICQClient/Log/ChromiumTestFrm.pas

unit ChromiumTestFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cefvcl, Vcl.StdCtrls, InterfaceAppCentre, AppCentreImport,
  Vcl.ExtCtrls, Vcl.ExtDlgs;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    edt1: TEdit;
    btn4: TButton;
    clrbx1: TColorBox;
    btn5: TButton;
    btn6: TButton;
    img1: TImage;
    edt2: TEdit;
    btn7: TButton;
    btn8: TButton;
    dlgOpenPic1: TOpenPictureDialog;
    btn9: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure clrbx1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
  private
    FChromium: TChromium;
  public
    function AddHotApp(AApp: IHotApp): Boolean; stdcall;
    function RemoveHotApp(AApp: IHotApp): Boolean; stdcall;
    procedure OnASyncAppIconDownloaded(AAppKey: AnsiString; AStream: TStream); stdcall;
  end;

var
  Form1: TForm1;

implementation

uses
  DataProviderImport, Vcl.Imaging.pngimage, MD5_32;

{$R *.dfm}

function TForm1.AddHotApp(AApp: IHotApp): Boolean;
begin

end;

procedure TForm1.btn1Click(Sender: TObject);
var
  AAppCentre: IAppCentre;
  AList: IInterfaceList;
  iLoop: Integer;
  ABuffer: TBytes;
begin
//  AAppCentre := GetAppCentre;
//  AAppCentre.Login(AnsiString('ttf'), Self);
//  AList := AAppCentre.GetAllApps;
//  for iLoop := 0 to AList.Count - 1 do
//  begin
//    GetAppIconProvider.FindIcon((AList[iLoop] as IApp).GetAppKey, ABuffer);
//  end;
//  AAppCentre.OpenAppCentreFrom();
//  AAppCentre.ChangeUIColor(15392442);
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  AAppCentre: IAppCentre;
begin
  AAppCentre := GetAppCentre;
  AAppCentre.CloseAppCentreForm;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  if (FChromium <> nil) and (FChromium.Browser <> nil) then
    FChromium.Browser.MainFrame.LoadUrl(edt1.Text);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  if FChromium = nil then
  begin
    FChromium := TChromium.Create(Self);
    FChromium.Parent := Self;
    FChromium.Align := alClient;
  end;
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
  GetAppCentre.OpenWebDebuggerTool;
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
  GetAppCentre.CloseWebDebuggerTool;
end;

procedure TForm1.btn7Click(Sender: TObject);
var
  AFileStream: TFileStream;
begin
  if dlgOpenPic1.Execute(Self.Handle) then
  begin
    try
    AFileStream := TFileStream.Create(dlgOpenPic1.FileName, fmOpenRead);
    GetAppIconProvider.Insert(edt2.Text, AFileStream);
    finally
      AFileStream.Free;
    end;

  end;
end;

procedure TForm1.btn8Click(Sender: TObject);
var
  ABuffer: TBytes;
  png: TPNGObject;
  AStream: TMemoryStream;
begin
  GetAppIconProvider.FindIcon('08E64E7C78B14D918A50792C8B22E5D8', ABuffer);
  png := TPNGObject.Create;
  AStream := TMemoryStream.Create;
  AStream.Write(ABuffer, Length(ABuffer));
  edt2.Text := MD5Print(BytesToMD5(ABuffer));
  AStream.Position := 0;
  png.LoadFromStream(AStream);
  img1.Picture.Assign(png);
  AStream.Free;
end;

procedure TForm1.clrbx1Change(Sender: TObject);
begin
  GetAppCentre.ChangeUIColor(clrbx1.Selected);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  if FChromium = nil then
//  begin
//    FChromium := TChromium.Create(Self);
//    FChromium.Parent := Self;
//    FChromium.Align := alClient;
//  end;
end;

procedure TForm1.OnASyncAppIconDownloaded(AAppKey: AnsiString;
  AStream: TStream);
begin

end;

function TForm1.RemoveHotApp(AApp: IHotApp): Boolean;
begin

end;

end.