打开文件目录

Question

大家好 我在 Delphi 上插入 Oracle 数据库映像文件（创建表（id int，dir varchar2（200），image blob）。现在我想在 dblick dbimage1 上打开该文件的目录（dir） 示例：D:\image.bmp 提前致谢

Answer 1

uses ShellAPI;

...

// opens Windows Explorer with the file highlighted
ShellExecute(Handle,
             'open',
             'C:\Windows\explorer.exe',
             '/start,"' + ImageFileName + '"',
             nil,
             SW_SHOWNORMAL);

// opens the default program associated with the type (extension) of the file,
// which in your case can very well be Windows Fax and Picture Viewer
ShellExecute(Handle,
             'open',
             nil,
             '"' + ImageFileName + '"',
             nil,
             SW_SHOWNORMAL);

如果 ImageFileName 已包含 "，请在上面的代码中将其删除。

Answer 2

您可以使用 TOpenPictureDialog 让用户选择图像文件。