参考代码
var
lOpenPictureDialog : TOpenPictureDialog;
begin
lOpenPictureDialog := TOpenPictureDialog.Create(nil);
try
lOpenPictureDialog.Filter := '*.jpeg';//这里设置过滤条件
if lOpenPictureDialog.Execute then
begin
DataSetBZSJJ1.Edit;
TBlobField(DataSetBZSJJ1.FieldByName('TX')).LoadFromFile(lOpenPictureDialog.FileName);
DataSetBZSJJ1.Post;
end;
finally
lOpenPictureDialog.Free;
end;