

kullandığım kodlarda şu şekilde :
private
FotografYolu :WideString ;
if DIALOG1.Execute then
begin
FotografYolu := DIALOG1.FileName;
cxImage1.Picture.LoadFromFile(FotografYolu);
end;
begin
with qrykayıt do
begin
Append;
TBlobField (FieldByName('FOTO')).LoadFromFile(FotografYolu) ;
Post;