На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> cef4delphi TChromium. Undeclared identifier: 'ICefBrowser', 'ICefFrame'
    Здравствуйте!
    Подскажите, пожалуйста, почему так происходит?: В общем, хочу отследить окончание загрузки, кликаю по OnLoadEnd, и у меня появляется две ошибки:
    [dcc32 Error] Unit1.pas(32): E2003 Undeclared identifier: 'ICefBrowser'
    [dcc32 Error] Unit1.pas(33): E2003 Undeclared identifier: 'ICefFrame'
    Как исправить?
      Задекларировать идентификатор.
        Как это сделать?
        Сообщение отредактировано: DDim1000 -
          Напечатать текст на клавиатуре.
            Цитата Gonarh @
            Напечатать текст на клавиатуре.

            Вы шутите так, да?...
              Что и куда печатать?:
                Какой вопрос такой и ответ

                Добавлено
                Цитата DDim1000 @
                Что и куда печатать?:

                Программный код в IDE.
                  Вот, пожалуйста:
                  https://disk.yandex.ru/i/erTz-I_OH6vtIw

                  ExpandedWrap disabled
                    unit Unit1;
                    {$I cef.inc}
                     
                    interface
                     
                    uses
                      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
                      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uCEFWinControl, uCEFWindowParent,
                      uCEFChromiumCore, uCEFChromium, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.StdCtrls;
                     
                    type
                      TForm1 = class(TForm)
                        Panel1: TPanel;
                        PageControl1: TPageControl;
                        TabSheet1: TTabSheet;
                        TabSheet2: TTabSheet;
                        Panel2: TPanel;
                        Panel3: TPanel;
                        CEFWindowParent1: TCEFWindowParent;
                        Button1: TButton;
                        Panel4: TPanel;
                        Panel5: TPanel;
                        Label1: TLabel;
                        Edit1: TEdit;
                        Chromium1: TChromium;
                        Chromium2: TChromium;
                        CEFWindowParent2: TCEFWindowParent;
                        procedure FormCreate(Sender: TObject);
                        procedure Button1Click(Sender: TObject);
                        procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
                        procedure Chromium2LoadEnd(Sender: TObject; const browser: ICefBrowser;
                          const frame: ICefFrame; httpStatusCode: Integer);
                      private
                        { Private declarations }
                      public
                        { Public declarations }
                      end;
                     
                    var
                      Form1: TForm1;
                     
                    implementation
                     
                    {$R *.dfm}
                    uses uCEFInterfaces;
                     
                    procedure TForm1.Button1Click(Sender: TObject);
                    begin
                    Chromium1.LoadURL('ya.ru');
                    end;
                     
                    procedure TForm1.Chromium2LoadEnd(Sender: TObject; const browser: ICefBrowser;
                      const frame: ICefFrame; httpStatusCode: Integer);
                    begin
                    ShowMessage('------');
                    end;
                     
                    procedure TForm1.FormCreate(Sender: TObject);
                    begin
                      Chromium1.CreateBrowser(CEFWindowParent1);
                    end;
                     
                    procedure TForm1.PageControl1Changing(Sender: TObject;
                      var AllowChange: Boolean);
                    begin
                       if not(Chromium2.CreateBrowser(CEFWindowParent2)) then Chromium2.CreateBrowser(CEFWindowParent2);
                    end;
                     
                    end.
                    Другое дело, подключи модуль uCEFInterfaces и будет тебе счастье.
                    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                    0 пользователей:


                    Рейтинг@Mail.ru
                    [ Script execution time: 0,0339 ]   [ 17 queries used ]   [ Generated: 28.03.24, 09:21 GMT ]