打开文件目录

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让用户选择图像文件。