delphi给DBGrid中的记录加入超链接怎么实现
delphi给DBGrid中的记录加入超链接如何实现?
delphi给DBGrid中的记录加入超链接如何实现?
例如Table表的Location字段里的数据,给c:\01.jpg加入超链接,然后点击可以直接打开。
Table
Type Name Location
-----------------------------------------
图片 01.jpg c:\01.jpg
------解决思路----------------------
1、表的指定字段保存磁盘文件名(全路径)如:D:\asd\show.jpg
2、读取该字段值;
3、通过外调EXE文件打印浏览该图像文件;
参考代码如下:
delphi给DBGrid中的记录加入超链接如何实现?
例如Table表的Location字段里的数据,给c:\01.jpg加入超链接,然后点击可以直接打开。
Table
Type Name Location
-----------------------------------------
图片 01.jpg c:\01.jpg
------解决思路----------------------
1、表的指定字段保存磁盘文件名(全路径)如:D:\asd\show.jpg
2、读取该字段值;
3、通过外调EXE文件打印浏览该图像文件;
参考代码如下:
var S,ExtractFile:string;
begin
ACDSeePath:='C:\Program Files\ACD Systems\ACDSee\5.0\ACDSee5.exe';
S:=Trim(DBEdit10.text);
If S='' then exit;
ExtractFile:=ExtractFileExt(S);
shellexecute(handle,'open',pchar(ACDSeePath),pChar(S),nil,sw_shownormal);