在程序中利用pdf.ocx浏览pdf文件
程序中利用pdf.ocx浏览pdf文件时,遇到如下问题:
第一次浏览文件,可以正常浏览,但当更换文件再次浏览时,程序非法退出,
不知何原因
type
PTreeNode = ^TMyRec;
TMyRec = record
PNodeText: string;
PNodeValue: string;
end;
begin
new(FilePath);
FilePath:=TVFile.Items.Item[TVFile.Selected.Index].Data;//树型结构数据
filename1:=filepath.PNodeValue;
if pdf1.src<>'' then//再次浏览文件
begin
pdf1.src:='';
pdf1.src:=filename1;
end
else
begin//首次浏览文件
pdf1.src:= filename1;
pdf1.setShowToolbar(false);
end;