سلام خدمت دوستان
یه برنامه کوچیک نوشتم که فایل ورد رو به PDF تبدیل میکنه و توی برنامه نمایش میده.
procedure TForm1.BtnConvertAndViewClick(Sender: TObject);
const
wdExportFormatPDF = 17;
var
Word, Doc: OleVariant;
begin
Word := CreateOleObject('Word.Application');
Doc := Word.Documents.Open('D:\Test.docx');
Doc.ExportAsFixedFormat('D:\Test.pdf', wdExportFormatPDF);
WebBrowser1.Navigate2('D:\Test.pdf');
Word.ActiveDocument.Close;
Word.Quit;
Word := UnAssigned;
Doc := UnAssigned;
end;
مشکل اینجاست که وقتی برای بار دوم از برنامه خواسته میشه که فایل رو تبدیل کنه و نمایش بده ارور زیر رو (فایل ضمیمه) نمایش میده.
کسی از دوستان پیشنهادی برای حل مشکل داره؟Err.png