如何在運行時獲取動態路徑？

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;