1

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

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

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 选择的任何特定文件。

4

1 回答 1

1

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

procedure TForm12.Button7Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    ...
    TBlobField(ADOQuery4.FieldByName('Profile_Picture')).LoadFromFile(OpenPictureDialog1.FileName);
    ...
  end;
end;
于 2013-08-30T19:54:08.157 回答