Cef3ref pas 1578 1 error local variables size exceeds supported limit

I reported this to FPC bug team and they said…………………………

The compiler produces an error: cef3ref.pas(1577,1) Error: Local variables size exceeds supported limit.»That is stack size.

It works ok reducing array size -2 in cef3types.pasTCefRectArray = array[0..(High(Integer) div SizeOf(TCefRect)) — 2] of TCefRect;

Somebody should add a PCefRectArray = ^TCefRectArray type definition and use that instead of abusing the stack.EDIT : So no FPC issue, fix it in the upstream.

The details to reproduce the problem are…………………………………….

Use fpcupdeluxe (i386-win32) to install Lazarus version 2.1.0, with FPC version 3.3.1 (SVN 59585M)

Download FPCEF3 (version 3.3029.1) and try to install in Lazarus by selecting cef3.lpk in the «Package/Open Package File» menu then select compile……

The compile fails with error: cef3ref.pas(1577,1) Error: Local variables size exceeds supported limit.

The code snippet this error points to is …….
procedure TCefBrowserHostRef.ImeSetComposition(const Atext:ustring; underlinesCount: TSize; underlines: TCefCompositionUnderlineArray; const
replacementRange, selectionRange: TCefRange);
Var
t: TCefString;
(line 1577:) begin
t := CefString(Atext);
PCefBrowserHost(fData)^.ime_set_composition(fData, @t,underlinesCount,@underlines,@replacementRange, @selectionRange);
end;

Снег Север писал(а):текст вынимается callback процедурой

Наверняка в вашей версии хромиума есть и GetSource.

Для коллбэков в fpCEF3 сделаны обёртки с названиями TCef…XXXOwn. Это паскалевские реализации апишных интерфейсов ICef…XXXHandler, ICef…YYYVisitor и т.д.

Код: Выделить всё

grep -i "t.*own =" *.pas

То есть, по сути, обработка всяческой фигни сводится к поиску подходящего родительского класса и написанию примитивной обёртки вокруг него с переписанными одним-двумя методами.

Проблемка, конечно, в том, что нет даже не то что нормальных, а хоть сколько-то осмысленных доков.

P.S. Так долго объяснял, что аж сам понял

Кароч вот как надо действовать. В API есть обработчики ICefXXX. Вокруг них навёрнуты реализации, возможно, заглушки.
Вот все они. Точнее, надеюсь, что все:

Код: Выделить всё

grep -n "class.*, ICef" *.pas

Классы TCef…Own — базовые обёртки интерфейсов, а-ля абстрактные классы, только рабочие методы из каких-то соображений не описаны как abstract. В некоторых случаях вокруг них уже написаны рабочие классы.

Мой класс TCefStringVisitor основан на TCefStringVisitorOwn, где рабочий метод Visit описан как «begin end». Также в cef3own описан «полноценный» класс TCefFastStringVisitor, только мне он не понравился. Даже не понимаю, нафига он вообще нужен такой красивый.

Hi,

Over on the FP Lazarus Forum under the thread:
http://forum.lazarus.freepascal.org/index.php/topic,39381.msg273259.html#msg273259

There’s been a discussion: fpCef3: cef3lib.pas: set CefResourcesDirPath/CefFrameworkDirPath in FormCreate?

Altagur proposed a very workable solution in a discourse with PaulANormanNZ (this writer) there.

The purpose was to discover a way to share the CEF3 binaries and resources on a target machine when there will be two or more projects using fpCEF3.

Considerable disk usage savings were envisaged.
(Previously even running the fpCEF3 Examples’ folders posed its own hefty disk load or folder maintenance for a developer.)

The current result of that discussion thread for working under Windows is:

1. making a small alteration to a projects .lpr pin pointing the shared location(s) on disk.

2. and presently making a small alteration to cef3api.pas

3. placing CEF3 locale folder and all resources and framework binaries and files in a shared local disk location

4. but placing chrome_elf.dll in Each project’s .exe folder (the additional presence of chrome_elf.dll in the new CEF3 shared folder is redundant, but apparently harmless)

For completeness: it might be worth looking at whether exposing a setting for chrome_elf.dll similar to that done for cef3api.CefLibrary := cefpath + 'libcef.dll'; is worth the time and effort in fpCEF3, its my current opinion that working with placing a mere 543Kb file in the projects .exe folder is very liveable when compared with where we were before.

Once this is stabilised, would it be worth updating the Lazarus Wiki entry for fpCEF3 to reflect whatever is finally settled upon by the fpCEF3 maintainers?

Notes

Point 1. .lpr made to look something like:

uses
…
{ you can add units after this }
cef3lcl, cef3intf, cef3types, cef3lib, cef3gui, cef3api;

{$R *.res}

Const
cefPath = ‘C:cef3win64-cef3-3029’;

begin

RequireDerivedFormResource:=True;
cef3lib.CefFrameworkDirPath := cefPath;
cef3api.CefLibrary := cefpath + ‘libcef.dll’;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
`

Point 2. cef3api.pas, is as such:-

Changing :

Implementation

Const
CefLibrary: String =
{$IFDEF WINDOWS}’libcef.dll'{$ENDIF}
{$IFDEF LINUX}’libcef.so'{$ENDIF}
{$IFDEF DARWIN}’Chromium Embedded Framework'{$ENDIF};

To:

Var
CefLibrary: String =
{$IFDEF WINDOWS}’libcef.dll'{$ENDIF}
{$IFDEF LINUX}’libcef.so'{$ENDIF}
{$IFDEF DARWIN}’Chromium Embedded Framework'{$ENDIF};

Implementation

Point 3. After downloading from either https://cefbuilds.com or http://www.magpcss.net/cef_downloads
extract and copy the complete CEF3 directory «Resources» and the contents of the CEF3 directory «Release» into the directory you’re going to share them from.
Move chrome_elf.dll into a folder for_project_directory for copying to your project(s) as you need it (see Point 4 notes below).

The shared framework (Release) and Resource’ folder might then look like this:

(00-cef_version_3029-1619.txt is developer written to keep track of things)

C:cef3win64-cef3-3029>
for_project_directory — DIR contains: chrome_elf.dll 543kb
locales — DIR
00-cef_version_3029-1619.txt
cef.pak
cef_100_percent.pak
cef_200_percent.pak
cef_extensions.pak
cef_sandbox.lib
d3dcompiler_43.dll
d3dcompiler_47.dll
devtools_resources.pak
icudtl.dat
libcef.dll
libcef.lib
libEGL.dll
libGLESv2.dll
natives_blob.bin
snapshot_blob.bin
widevinecdmadapter.dll

a) Potentially this all lends itself to version control.
b) The actual placement and directory structure is entirely up to the developer, as is the install routine.

Point 4. chrome_elf.dll placed in Each Project’s .exe directory — this is done as Altagur suspects this is called from a compiled library and we can find no access in FP to detailing it’s location at run time at present.

Нашёл статью по установке браузера Chromium в Delphi 10.3, а именно вот ссылка на неё http://www.proghouse.ru/programming/146-chromium-delphi

Проблема на этапе копирования файлов CEF в папку с проектом, а именно вылетает CEF binaries missing не смотря на то что нужные файлы я в папку с проектом положил. Даже положил файлы проекта специально поближе к корню диска C а именно C:delphiProjects2 — это пака проекта. В ней создаётся папка Win32 а в ней ещё Debug так вот я эти файлов от CEF положил уже и в папку с проектом и в Win32 и в Debug Delphi всё равно описанной выше ошибкой «…missing» ругается на список файлов.

Для тех кто будет отвечать на вопрос — он именно про cef4delphi и именно про установку на Delphi 10.3 а не про старую версию cef3, если кому то нужно будет именно cef3 устанавливать, я делал по вот это статье — https://blog.ivru.net/?id=211 но версия браузера достаточно старая, youTube например будет открываться с проблемами. Так что меня интересует именно cef4delphi.

Что я делаю не так и в какую папку всё же нужно положить эти файлы, потому что явно не во все три папки жеж их надо? Архив файлов CEF(не файлов cef4delphi) я скачал с названием: cef_binary_87.1.12+g03f9336+chromium-87.0.4280.88_windows32.tar

Имеется следующая ошибка:

сообщение: «ORA-01578: разрушен блок данных ORACLE (файл # 6, блок # 26033)
ORA-01110: файл данных 6: ‘E:ORACLEORADATAPRIVOZVSINDX+1.DBF’
ORA-26040: Блок данных был загружен с использованием режима NOLOGGING
«
исключение: Sm.Core.InteropException
hResult: 80004005h; доп. код: 1578
источник: Microsoft OLE DB Provider for Oracle

—— Причина исключения, уровень вложения 1 ——
сообщение: «SELECT —+ FIRST_ROWS
DH.ID as ID, DH.CreatedAt, CL.Name as ClientName, DH.LocationTo, DH.OpCode as Operation, DH.UserOp, DH.TotalSum, To_Char(DH.Debt)||’ ‘||0 as Payment, DH.BaseDocTypeAndID, DH.DocState, (select (select nvl(Sum(SPECV.TotalPrice), 0) from Supermag.SVSpecWI SPECV where SPECV.DocType = DH.DocType and SPECV.DocID = DH.ID) — (select nvl(Sum(SVAT.TaxSum), 0) from Supermag.SVSpecVatWI SVAT where SVAT.DocType = DH.DocType and SVAT.DocID = DH.ID and SVAT.TaxRate > 0) from Dual) as TotalSumNoVat, (select nvl(Sum(SVAT10.TaxSum), 0) from Supermag.SVSpecVatWI SVAT10 where SVAT10.DocType = DH.DocType and SVAT10.DocID = DH.ID and SVAT10.TaxRate = 10) as TotalSumVat10, (select nvl(Sum(SVAT20.TaxSum), 0) from Supermag.SVSpecVatWI SVAT20 where SVAT20.DocType = DH.DocType and SVAT20.DocID = DH.ID and SVAT20.TaxRate = 20) as TotalSumVat20, (select ‘занят’ from Supermag.SSLocks P where P.ID = DH.ID and P.ObjType = DH.DocType) as Occupy , DH.SupplierDoc, DH.SupplierInvoice, DH.PayCash, DH.GoodsOwner, (Select max(decode(ParamName,’System.Correction’,1,0)) as Correction from Supermag.SMDocProps L where L.DocType=DH.DocType and L.DocID=DH.ID and L.ParamName = ‘System.Correction’) as Correction, DH.OurselfClientName, DH.ChildDocTypeAndID, decode(DH.isRoubles,1,0,DH.CurrencyType) as isRoubles, DH.TotalSumCur as TotalSumCur, (select CU.ShortName from Supermag.SMCurrencies CU where CU.ID = DH.CurrencyType) as CurrencyType, case when DH.CurrencyType > 0 then (to_char(DH.CurrencyRate) || ‘ ‘ ||(select CU.ShortName from Supermag.SMCurrencies CU where CU.ID = 0) ||’ за ‘ || to_char(power(10, DH.CurrencyMultOrder)) || ‘ ‘ ||(select CU.ShortName from Supermag.SMCurrencies CU where CU.ID = DH.CurrencyType)) else NULL end as CurrencyRate, (select FileName||’ ‘||to_char(Amount) from Supermag.SVInsertedDocsWI DI where DI.DocType = DH.DocType and DI.ID = DH.ID and rownum = 1 ) as InsertedDocs, DH.SupplDocSum, DH.FinBaseDocTypeAndID, (select nvl(sum(SPECV.TotalPriceNoTax), 0) from Supermag.SVSpecWI SPECV, Supermag.SVSpecVatWI SVAT where SPECV.DocType = DH.DocType and SPECV.DocID = DH.ID and SVAT.DocType = SPECV.DocType and SVAT.DocID = SPECV.DocID and SVAT.SpecItem = SPECV.SpecItem and SVAT.TaxRate=10) as TotalSumNoVat10, (select nvl(sum(SPECV.TotalPriceNoTax), 0) from Supermag.SVSpecWI SPECV, Supermag.SVSpecVatWI SVAT where SPECV.DocType = DH.DocType and SPECV.DocID = DH.ID and SVAT.DocType = SPECV.DocType and SVAT.DocID = SPECV.DocID and SVAT.SpecItem = SPECV.SpecItem and SVAT.TaxRate=20) as TotalSumNoVat20, DH.GrossWeight, (select nvl(Sum(SVAT18.TaxSum), 0) from Supermag.SVSpecVatWI SVAT18 where SVAT18.DocType = DH.DocType and SVAT18.DocID = DH.ID and SVAT18.TaxRate = 18) as TotalSumVat18, (select nvl(sum(SPECV.TotalPriceNoTax), 0) from Supermag.SVSpecWI SPECV, Supermag.SVSpecVatWI SVAT where SPECV.DocType = DH.DocType and SPECV.DocID = DH.ID and SVAT.DocType = SPECV.DocType and SVAT.DocID = SPECV.DocID and SVAT.SpecItem = SPECV.SpecItem and SVAT.TaxRate=18) as TotalSumNoVat18, DH.SupplInvoiceCreate, DH.FinDate, DH.TotalSumVat, DH.TotalSumVat+DH.TotalSumSpec as TotalSumWithVat,(Select ValStr from Supermag.SVDocLabels L where L.DocType=DH.DocType
and L.DocID=DH.ID and L.LabelID=’Артикул’) as Label__0,(Select ValStr from Supermag.SVDocLabels L where L.DocType=DH.DocType
and L.DocID=DH.ID and L.LabelID=’Вниманию аналитика!’) as Label__1,(Select ValStr from Supermag.SVDocLabels L where L.DocType=DH.DocType
and L.DocID=DH.ID and L.LabelID=’Вниманию оператора:’) as Label__2,(Select ValStr from Supermag.SVDocLabels L where L.DocType=DH.DocType
and L.DocID=DH.ID and L.LabelID=’Комментарий’) as Label__3,(Select ValStr from Supermag.SVDocLabels L where L.DocType=DH.DocType
and L.DocID=DH.ID and L.LabelID=’Sys.RefuseWI’) as Label__4,(Select ValStr from Supermag.SVDocLabels L where L.DocType=DH.DocType
and L.DocID=DH.ID and L.LabelID=’Проверка’) as Label__5 FROM SuperMag.SVDocumentsWI DH , SuperMag.SMClientInfo CL WHERE DH.DocType = ‘WI’ AND DH.CreatedAt = TO_DATE(‘20130622′,’YYYYMMDD’) AND (CL.ID(+)= DH.ClientIndex) «
исключение: Sm.Core.InteropException
hResult: 80004005h; доп. код: 0
источник: SmLibaryBase trace

Выполнил запрос:

Результат:

Выполнил запрос:

Результат :

Выполнил

Появилась новая ошибка, связанная с другим поврежденным блоком! Как быть дальше?

Выполнил скрипт на проверку поврежденных сегментов:

Результат:

Подскажите план действии в данной ситуации!