Question

我在获取运行时上传到我的应用程序的图像文件的特定路径时遇到问题，我希望得到一些帮助。

基本上我试图将图片保存到数据库，我可以部分实现这一点。我使用以下内容：

procedure TForm12.Button7Click(Sender: TObject);
begin
ADOQuery4.SQL.Text := 'SELECT Profile_Picture, username FROM profile WHERE username='+QuotedStr(edit12.Text);
ADOQuery4.Open();
ADOQuery4.Edit();
TBlobField(ADOQuery4.FieldByName('Profile_Picture')).LoadFromFile('aaa.jpg');
ADOQuery4.Post();
end;

代码选择我希望它在数据库中的位置的正确位置，并使用我选择的文件（aaa.jpg文件）正确更新它。但这只有在我这样编程并且在运行时无法更改时才有效，换句话说，应用程序的用户无法通过界面更改文件，除非他打开整个内容并更改代码。

我要问的是，是否可以在运行时通过命令获取文件的路径？例如，如果我想保存使用OpenPictureDialog组件上传的任何图片，那怎么可能呢？选择OpenPictureDialog在运行时选择的任何特定文件。

Answer 1

TOpenPictureDialog告诉您所选文件的完整路径，例如：

procedure TForm12.Button7Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    ...
    TBlobField(ADOQuery4.FieldByName('Profile_Picture')).LoadFromFile(OpenPictureDialog1.FileName);
    ...
  end;
end;

如何在运行时获取动态路径？

1 个答案: