نحوه ذخیره کردن یک عکس در بانک اطلاعاتی از نوع paradox

[haddad2004]

با عرض سلام
می خواهم بدانم برای ذخیره کردن یک image با هر پسوندی در یک بانک لطلاعاتی در دلفی چه کارهایی را باید انجام داد و فیلد مربوطه باید از چه نوعی باشد.
خواهشمندم مرا راهنمایی کنید.
با تشکر

[ara_prg]

var Ms:TStream;
begin
Table1.Edit;
Ms := Table1.CreateBlobStream(Table1.FieldByName('FieldN ame'),bmWrite));
Pis.SaveToStream(Ms);
Table1.Post;
Ms.Free;

[mostafa313]

یه کمی اگه توضیح بدین خوب میشه!این pis چیه؟

[مهدی کرامتی]

فکر کنم Pic بوده که اشتباها Pis تایپ شده.

[fahimi]

[code]var
Bmp: TBitmap;
Jpg: TJPEGImage;
FileStream : TFileStream;
BlobStream: TBlobStream;

begin

begin

Application.ProcessMessages;
table1.Open;
table1.append;
FileStream := TFileStream.Create('c:\pic.jpg', fmOpenRead);
BlobStream := TBlobStream.Create(Table1.FieldByName('pic') as TBlobField,bmWrite);
BlobStream.Seek(0,soFromBeginning);
BlobStream.Truncate;
BlobStream.CopyFrom(FileStream,FileStream.Size);
FileStream.Free;
BlobStream.Free;
table1.Post;
table1.Close;
end;
end;