چطور مي توانم در ديتا بيس فيلد عكس را حذف كنم ؟

چطور مي توانم در ديتا بيس فيلد عكس را حذف كنم ؟
متاسفانه بعد از حذف ركورد (فايل بيت مپ) حذف نمي شود و به مرور زمان حجم فايل (دي بي تي) بالا مي رود و اندازه گيگا بايتي پيدا مي كند . لطفا بنده را راهنمايي فرماييد .

سلام
قبل از اینکه اون فیلد رو حذف کنی. می تونی یک عکس 0 کیلوبایتی
جایگزین اون قبلی کنی. یا یک نوشته جایگزینش کن و بعد فیلد رو حذف کن(کاراکتر به راحتی حذف میشه)
موفق باشی.

سلام
فکر کنم این جوری بشه :
ADOTable1Ax.Clear; ( نام فیلد : Ax )
موفق باشی ...

به محمود جان هم كه پيدا شدن

فايل عكس پاك مي شود متاسفانه در فايل (tableXXX.dbt) حجم آن كم نمي شود . يعني بطور فيزيكي حذف نمي شود . درضمن بانك اطلاعاتي من پارادوكس و يا ديتابيس ويندوز است .

سلام
احتمالآ روش ذخيره كردن عكس ها توي ديتابيس غلط هست!

با سلام :sad:
در صورت امكان يك نمونه برنامه ذخيره سازي عكس براي من بفرستيد .
روش من به شكل زير است :
;([table1.appendrecord([dbimage1.pictuer
;table1.post

با سلام :sad:
در صورت امكان يك نمونه برنامه ذخيره سازي عكس براي من بفرستيد .
روش من به شكل زير است :
;([table1.appendrecord([dbimage1.pictuer
;table1.post

سلام
من این رو توی یکی از تاپیک های بسیار قدیمی پیدا کرده بود.
احتمالآ بدرد بخوره. اگر بدرد نخور بگو تا چند روش دیگه بهت بگم.

کد:

---

Procedure CopyGraphic2Filed(Graphic:TGraphic;Fld:TField);
var ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
try
Graphic.SaveToStream(ms);
ms.Seek(0,0);
if ms.size>0 then TBlobField(Fld).LoadFromStream(ms);
Finally
ms.Free;
end;
end;

---

کد:

---

Procedure CopyFilde2pic(Fld:TBlobField;Pic:Tpicture);
var
TmpFileName:string;
Buf:array[0..255] of char;
FileNameSize:integer;
begin
FileNameSize:=GetTempPath(length(buf),buf);
if FileNameSize>0 then
TmpFileName:=string(buf)+'$$$.'+GetGraphicExt(Fld. Value)
else
TmpFileName:='c:\$$$.'+GetGraphicExt(Fld.Value);
Fld.SaveToFile(TmpFileName);
pic.LoadFromFile(TmpFileName);
deletefile(TmpFileName);
end;

---

بای

آيا راهي وجود دارد در ديتا بيس به جاي فايل( بيت مپ) فايل (جي پي جي) ذخيره كرد .
البته نسخه اي دلفي من 5 است.