基于AutoVueX的万能预览源码及简单调用

最新推荐文章于 2023-03-25 10:34:00 发布

hesp

最新推荐文章于 2023-03-25 10:34:00 发布

阅读量2k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：个人记录文章标签：基于AutoVueX的万能预览源码及简单调用

本文链接：https://blog.youkuaiyun.com/u011612974/article/details/88972444

个人记录专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种基于AutoVueX的文件预览方法，包括源码及调用示例。通过该方法可以实现对二维和三维文件的有效预览，并提供了自动注册组件的步骤。

基于AutoVueX的万能预览源码及简单调用
1.使用控件部分核心：
procedure TForm1.FormShow(Sender: TObject);
begin
AutoVueX1.SRC:=path_;
end;
2.调用部分
var
binpath:string;
begin
binpath := ExtractFilePath(Application.ExeName); //获取目录
ShellExecute(Application.Handle, ‘open’, pwidechar(binpath + ‘avwin\zhuce.bat’),nil, nil, SW_SHOW) ; //注册Av组件
if OpenDialog1.Execute then
begin
Edit1.Text:= OpenDialog1.FileName; //要预览的文件
if ShellExecute(0, ‘open’, pwidechar(binpath + ‘FileView.exe’),pwidechar(’"’ + Edit1.Text + ‘"’), ‘’, SW_SHOWNORMAL) <= 32 then
begin
Application.MessageBox(pwidechar(‘预览失败，请换一个浏览器试试！’),‘提示’, MB_ICONWARNING);
end;
end;
end;
3.自动注册部分
%systemroot%\system32\regsvr32.exe /s %~dp0\avwin\AutoVueX.ocx
4.已经解决二维、三维文件预览
5.AutoVue绿色自动安装
6.AutoVue21\22\23各版本，服务端部署等版本
7.效果图例：
[img=https://img-bbs.youkuaiyun.com/upload/201904/02/1554188214_922705.png][/img]
8.无法详细描述，要源码QQ我，1759156387