Buen día, busco exportar el contenido de un WebBrowser a un archivo PDF, tengo esta función pero el PDF que me descarga esta roto, directamente no abre (pero si tiene tamaño mayor a 0kb)
Código Delphi
[-]uses ActiveX;
function TForm1.PDF(Ruta:String):boolean;
var
Stream : TFileStream;
StreamAdapter: IStream;
PersistStreamInit: IPersistStreamInit;
begin
if not Assigned(Navegador.Document) then
Exit;
if Navegador.Document.QueryInterface(IPersistStreamInit, PersistStreamInit) = S_OK then
begin
Stream := TFileStream.Create(Ruta, fmCreate);
try
StreamAdapter := TStreamAdapter.Create(Stream);
PersistStreamInit.Save(StreamAdapter, True);
finally
Stream.Free;
end;
end;
end;
A la función le paso la ruta destino del PDF, ¿alguna alternativa? Intenté con fastreport pero se ve feo porque la pagina también tiene CSS no solo HTML.
Saludos!