Printable View
سلام من يک بانک اطلاعاتي اکسس دارم که 2 تا تيبل داره و مشکل من اينه که وقتي ميخام برنامه رو کامپايل کنم ارور زير رو 2 بار ميده که براي هر تيبلم اين ارور رو ميده :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
يک سوال ديگه من تو بانکم فيلدي درست کردم تا عکسرو وارد بانک کنم ولي فقط عکس هاي با فرمت Bmp رو وارد بانک ميکنه !! براي اضافه کردن بقيه فرمت هاي چيکار بايد بکنم ؟؟
سلامنقل قول:
نوع فيلدها را با نوع مقداري كه در آن ذخيره مي كنيد را كنترل كنيد.
اگر نوع فيلد از نوع Blob باشد هر نوع اطلاعات را ميتوانيد در آن ذخيره كنيد.
ديروز در اين مورد صحبت شده است.
اینو میدونم مشکلمم حل شد من میخواستم که JPG رو بریزم که نمی ریخت و با این کد مشکلمو حل کردم :
کد:procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
var
BlobStream: TStream;
JPEGImage: TJPegImage;
Ext: string;
begin
if (Field = nil) or (Field = ADOTable2Image) then begin
if ADOTable2Imagetype.AsString <> '' then begin
BlobStream := ADOTable2.CreateBlobStream(adotable2Image,
bmRead);
try
Ext := UpperCase(adotable2ImageType.AsString);
if Ext = '.BMP' then
Image1.Picture.Bitmap.LoadFromStream(BlobStream)
else if Ext = '.JPG' then begin
JPEGImage := TJPEGImage.Create;
try
JPEGImage.LoadFromStream(BlobStream);
Image1.Picture.Assign(JPEGImage);
finally
JPEGImage.Free;
end;
end;
finally
BlobStream.Free;
end;
end else
Image1.Picture := nil;
end;
end;