Bom Dia Aldinei,
Normalemnte ocorre erro nesse pacote quando o FortesReport não foi instalado.
Segue o link: https://github.com/fortesinformatica/fortesreport-ce/trunk
Sim, aparentemente a receita alterou a estrutura da página. Não existe mais o elemento principal.
Solução:
No Evento WebBrowserDocumentComplete você utilizava o seguinte código, ou algo similar:
Elem := GetElementByid(WebBrowser.Document, 'principal') as IHTMLElement;
Terá que substituir por:
Elem := GetElementByClassName(WebBrowser.Document, 'conteudo') as IHTMLElement;
E declarar a classe GetElementByClassName:
function GetElementByClassName(const Doc: IDispatch;
const ClassName: string): IDispatch;
var
Document: IHTMLDocument2;
Body: IHTMLElement2;
Tags: IHTMLElementCollection;
Tag: IHTMLElement;
I: Integer;
begin
Result := nil;
if not Supports(Doc, IHTMLDocument2, Document) then
raise Exception.Create('Documento HTML inválido');
if not Supports(Document.body, IHTMLElement2, Body) then
raise Exception.Create('BODY não encontrado');
Tags := Body.getElementsByTagName('*');
for I := 0 to Pred(Tags.length) do
begin
Tag := Tags.item(I, EmptyParam) as IHTMLElement;
if (Tag._className <> '') then
begin
if AnsiSameText(Tag._className, ClassName) then
begin
Result := Tag;
Break;
end;
end;
end;
end;
Talvez precise de adaptações para o seu código.
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.