El código que he creado para hacer las prueba para cargar un PDF:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
AFileName: WideString;
begin
AFileName := '';
with TOpenDialog.Create(Self) do
if Execute then
AFileName := FileName;
if (AFileName <> '') then
begin
WebBrowser := TWebBrowser.Create(Self);
TWinControl(WebBrowser).Parent := GroupBox1;
WebBrowser.Align := alClient;
WebBrowser.Navigate('file://' + AFileName);
end;
end;
y para liberar el componenete
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
begin
if Assigned(WebBrowser) then
WebBrowser.Stop;
FreeAndNil(WebBrowser);
Close;
end;
Un saludo.