فیلد تصویر در جدول

[mohsen62]

برای ذخیره یک تصویر jpg در جدول پارادوکس ابتدا باید یک فیلد از نوع OLE در جدول ایجاد کنی و بعد
این گزینه را در بخش uses اضافه کن
uses
jpeg;


حالا برای ذخیره تصویر jpg در بانک پارادوکس از کدهای زیر استفاده کن
var
FileStream : TFileStream;
BlobStream: TBlobStream;
begin
table1.TableName:='data\picture.db';
table1.Open;
table1.append;
FileStream := TFileStream.Create('fire.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;


و برای بارگیری فایل jpg از داخل بانک اطلاعاتی از این کد ها استفاده کن
var
FileStream : TFileStream;
BlobStream : TBlobStream;
FileName: String;
begin
table1.TableName:='data\picture.db';
table1.Open;
Image1.Picture.Assign(nil);
BlobStream := TBlobStream.Create(Table1.FieldByName('pic') as TBlobField, bmRead);
if BlobStream.Size =0 then begin
BlobStream.Free;
Exit;
end;
// if FileName <> '' then DeleteFile(FileName);
FileName := 'e:\Img.jpg';
FileStream := TFileStream.Create(FileName, fmCreate or fmOpenWrite);
FileStream.CopyFrom(BlobStream,BlobStream.Size);
FileStream.Free;
BlobStream.Free;
Image1.Picture.LoadFromFile('img.jpg');