Cargar un PDF de BD (base64) a un TWebBrowser

[darkamerico]

Este otra versión de la función, interesante pero también presenta error:

Código Delphi [-]
procedure TfrmPrincipal.ViewPDFInWebBrowser(WebBrowser: TWebBrowser; const Base64Str: string);
var
  PDFBase64: TBase64Encoding;
  PDFDoc: Variant;
  HTMLString: WideString;
  Stream: TStringStream;
begin
  PDFBase64 := TBase64Encoding.Create;
  try
    PDFBase64.Decode(Base64Str);
    PDFDoc := '' +
              '<_embed width="100%" height="100%" type="application/pdf" ' +
              'src="data:application/pdf;base64,' + Base64Str + '">' +
              '';
    HTMLString := PDFDoc;
    Stream := TStringStream.Create(HTMLString, TEncoding.UTF8);
    try
      WebBrowser.Navigate('about:blank');
      while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
        Application.ProcessMessages;
      (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(Stream));
    finally
      Stream.Free;
    end;
  finally
    PDFBase64.Free;
  end;
end;

[pgranados]

Hola, hace mucho yo intente cargar un PDF en un TWebBrowser y por mas que intente no pude, solo pude cargar archivos XML. Lo que termine haciendo fue usar el TWebBrower de TMS para leer PDF.

Ahorita no tengo mi laptop del trabajo pero mañana te paso el codigo de como cargar un PDF en un TWebBrowser de TMS

[darkamerico]

Gracias por responder, quedo atento.

Estuve viendo y tengo instalado el componente TTMSFNCWebBrowser.

Atte

[pgranados]

Necesitas uno llamado TAdvWebBrowser y en la forma donde vayas a tener tu visor pdf en el evento onCreate pon esto:

Código Delphi [-]
try
    webBrowser1.Navigate('file:///'+FormaPrincipal.psRutaPDF);
except
    ShellExecute(Handle, 'open', 'explorer.exe', PChar(FormaPrincipal.psRutaPDF), nil, SW_SHOWNORMAL);
    PostMessage(Handle, WM_CLOSE, 0, 0); // cierro la forma
    Exit;
end;

FormaPrincipal.psRutaPDF es una variable tipo string el cual almacena la ruta del archivo. Si en algun caso no se logra cargar el PDF en el webBrowser se abrira el archivo con el visor pdf predeterminado en la computadora.

Recuerda que los WebBrowser basados en Chromiun necesitan una dll llamada WebView2Loader

[darkamerico]

Empezado por pgranados

Necesitas uno llamado TAdvWebBrowser y en la forma donde vayas a tener tu visor pdf en el evento onCreate pon esto:

Código Delphi [-]
try
    webBrowser1.Navigate('file:///'+FormaPrincipal.psRutaPDF);
except
    ShellExecute(Handle, 'open', 'explorer.exe', PChar(FormaPrincipal.psRutaPDF), nil, SW_SHOWNORMAL);
    PostMessage(Handle, WM_CLOSE, 0, 0); // cierro la forma
    Exit;
end;

FormaPrincipal.psRutaPDF es una variable tipo string el cual almacena la ruta del archivo. Si en algun caso no se logra cargar el PDF en el webBrowser se abrira el archivo con el visor pdf predeterminado en la computadora.

Recuerda que los WebBrowser basados en Chromiun necesitan una dll llamada WebView2Loader

Amigo, baje el TMS VCL UI Pack y al tratar de instalarlo, se cruza con TMS Component Pack.

[darkamerico]

Hola, tengo un problemita con la libreria WevView2Loader_xXX.dll,
Según este manual, baje los instaladores de ambas plataformas x32, x64 pero me dice que YA están instaladas en mi sistema.

[pgranados]

Para eso yo utilizo este codigo:

Código Delphi [-]
if EsWindows64Bits then // Si Windows es 64 bits vamos a mandar las DLL
begin // Si Windows es de 64 bits copio y pego las dos DLL en System 32
    if not FileExists('C:\Windows\SysWOW64\WebView2Loader_x86.dll') then
    begin
      if not FileExists(psRutaRaizServer+'WebView2Loader_x86.dll') then
        exit;

      Destino := 'C:\Windows\SysWOW64';

      ZeroMemory(@FO, SizeOf(FO));
      FO.Wnd := 0;
      FO.wFunc := FO_COPY;
      FO.pFrom := PChar(psRutaRaizServer+'WebView2Loader_x86.dll' + #0);
      FO.pTo := PChar(Destino + #0);
      FO.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;

      if SHFileOperation(FO) <> 0 then
        Application.MessageBox(PChar('Hubo un error con WebView2Loader_x86.dll'), PChar(csNombrePrograma),MB_OK + MB_ICONERROR)
      else
        lbTerminar:= true;
    end;

    if not FileExists('C:\Windows\SysWOW64\WebView2Loader_x64.dll') then
    begin
      if not FileExists(psRutaRaizServer+'WebView2Loader_x64.dll') then
        exit;

      Destino := 'C:\Windows\SysWOW64';

      ZeroMemory(@FO, SizeOf(FO));
      FO.Wnd := 0;
      FO.wFunc := FO_COPY;
      FO.pFrom := PChar(psRutaRaizServer+'WebView2Loader_x64.dll' + #0);
      FO.pTo := PChar(Destino + #0);
      FO.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;

      if SHFileOperation(FO) <> 0 then
        Application.MessageBox(PChar('Hubo un error con WebView2Loader_x64.dll'), PChar(csNombrePrograma),MB_OK + MB_ICONERROR)
      else
        lbTerminar:= true;
   end;
end;

if lbTerminar = true then
begin
    Application.MessageBox(PChar('Al cerrar este mensaje se cerrará el sistema. al volver a entrar se terminarán de instalar los archivos requeridos para el correcto funcionamiento de 
    este.'), PChar(csNombrePrograma),MB_OK + MB_ICONWARNING);
    // Aqui cerramos el programa
end;

[darkamerico]

Empezado por pgranados

Para eso yo utilizo este codigo:

Código Delphi [-]
if EsWindows64Bits then // Si Windows es 64 bits vamos a mandar las DLL
begin // Si Windows es de 64 bits copio y pego las dos DLL en System 32
    if not FileExists('C:\Windows\SysWOW64\WebView2Loader_x86.dll') then
    begin
      if not FileExists(psRutaRaizServer+'WebView2Loader_x86.dll') then
        exit;

      Destino := 'C:\Windows\SysWOW64';

      ZeroMemory(@FO, SizeOf(FO));
      FO.Wnd := 0;
      FO.wFunc := FO_COPY;
      FO.pFrom := PChar(psRutaRaizServer+'WebView2Loader_x86.dll' + #0);
      FO.pTo := PChar(Destino + #0);
      FO.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;

      if SHFileOperation(FO) <> 0 then
        Application.MessageBox(PChar('Hubo un error con WebView2Loader_x86.dll'), PChar(csNombrePrograma),MB_OK + MB_ICONERROR)
      else
        lbTerminar:= true;
    end;

    if not FileExists('C:\Windows\SysWOW64\WebView2Loader_x64.dll') then
    begin
      if not FileExists(psRutaRaizServer+'WebView2Loader_x64.dll') then
        exit;

      Destino := 'C:\Windows\SysWOW64';

      ZeroMemory(@FO, SizeOf(FO));
      FO.Wnd := 0;
      FO.wFunc := FO_COPY;
      FO.pFrom := PChar(psRutaRaizServer+'WebView2Loader_x64.dll' + #0);
      FO.pTo := PChar(Destino + #0);
      FO.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;

      if SHFileOperation(FO) <> 0 then
        Application.MessageBox(PChar('Hubo un error con WebView2Loader_x64.dll'), PChar(csNombrePrograma),MB_OK + MB_ICONERROR)
      else
        lbTerminar:= true;
   end;
end;

if lbTerminar = true then
begin
    Application.MessageBox(PChar('Al cerrar este mensaje se cerrará el sistema. al volver a entrar se terminarán de instalar los archivos requeridos para el correcto funcionamiento de 
    este.'), PChar(csNombrePrograma),MB_OK + MB_ICONWARNING);
    // Aqui cerramos el programa
end;

Brother, el objeto puntero FO, como se define

[pgranados]

Código Delphi [-]
FO: TSHFileOpStruct;

[darkamerico]

Amigo hice algunas cosas en tu codigo:

Código Delphi [-]

function EsWindows64Bits: Boolean;
type
  TIsWow64Process = function(Handle: THandle; var Res: BOOL): BOOL; stdcall;
var
  IsWow64Result: BOOL;
  IsWow64Process: TIsWow64Process;
begin
  Result := False;
  IsWow64Process := GetProcAddress(GetModuleHandle('kernel32.dll'), 'IsWow64Process');
  if Assigned(IsWow64Process) then
  begin
    if IsWow64Process(GetCurrentProcess, IsWow64Result) then
    begin
      Result := IsWow64Result;
    end;
  end;
end;

procedure TfrmPrincipal.Button1Click(Sender: TObject);
var
  rutaSistema, rutaFileLocal, Destino:string;
  FO:TSHFileOpStruct;
  lbTerminar:Boolean;
begin
  rutaFileLocal:=ExtractFilePath(Application.ExeName);
  if EsWindows64Bits then
  begin // Si Windows es de 64 bits copio y pego las dos DLL en System 32
    rutaSistema:='C:\Windows\SysWOW64\';

    if not FileExists(rutaSistema + 'WebView2Loader_x64.dll') then
    begin
      Destino := 'C:\Windows\SysWOW64';

      ZeroMemory(@FO, SizeOf(FO));
      FO.Wnd := 0;
      FO.wFunc := FO_COPY;
      FO.pFrom := PChar(rutaFileLocal+'Files\WebView2Loader_x64.dll' + #0);
      FO.pTo := PChar(Destino + #0);
      FO.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;

      if SHFileOperation(FO) <> 0 then
        Application.MessageBox(PChar('Hubo un error con WebView2Loader_x64.dll'), PChar('OK'),MB_OK + MB_ICONERROR)
      else
        lbTerminar:=True;
    end;
  end
  else // 32 Bits
  begin
    rutaSistema:='C:\Windows\System32\';

    if not FileExists(rutaSistema+'WebView2Loader_x86.dll') then
    begin
      Destino := 'C:\Windows\System32';

      ZeroMemory(@FO, SizeOf(FO));
      FO.Wnd := 0;
      FO.wFunc := FO_COPY;
      FO.pFrom := PChar(rutaFileLocal+'Files\WebView2Loader_x86.dll' + #0);
      FO.pTo := PChar(Destino + #0);
      FO.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;

      if SHFileOperation(FO) <> 0 then
        Application.MessageBox(PChar('Hubo un error con WebView2Loader_x86.dll'), PChar('Ok'),MB_OK + MB_ICONERROR)
      else
        lbTerminar:= true;
     end;
  end;
end;