ذخیره عکس در دیتابیس
این روش تست شده و صد در صد جواب می دهد
var Field: TBlobField; Stream: TStream;begin if ADOQuery.Active and (Image.Picture.Graphic <> nil) then begin ADOQuery.Insert; Field := TBlobField(ADOQuery.FieldByName('ImageData')); // ensure it ís a blob Stream := ADOQuery.CreateBlobStream(Field, bmWrite); try Image1.Picture.Graphic.SaveToStream(Stream); finally Stream.Free; ADOQuery.Post; end; end;end;
برطرف نمودن خطای A previous program installation created pending file operations...برچسب : نویسنده : bmypedia3 بازدید : 279