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);
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);
ExtractFile:=ExtractFileExt(S); 应该删除(多拷贝了)。