shaghayegh_6113
چهارشنبه 16 اسفند 1385, 15:22 عصر
سلام
من توی یه سری عکس Jpeg رو با کد زیر به Bmp تبدیل کردم و در DataBase ذخیره کردم
procedure JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;
روی فرمم یه DBImage گذاشتم و توسط AdoTable به Table مورد نظرم وصل کردم ولی وقتی میخوام تو همین Disgn برنامه به طور دستی Active AdoTable ام رو True کنم برنامه قفل می کنه و حدود 10 تا 15 ثانیه طول می کشه تا True بشه چه برسه به این که موقع Run بخوام True کنم .
البته وقتی True میشه عکس رو درست بهم نشون میده . ولی نمی دونم چرا اینقدر طول می کشه ؟؟؟
یه چیز دیگه
من روی فرمم 3 تا AdoTable دارم که به طور دستی ConnectionString هر سه رو پر کردم و به بک بانک وصل کردم که 2 تاشون به یه Table مشترک وصل اند .
ممکنه از این باشه ؟؟
من توی یه سری عکس Jpeg رو با کد زیر به Bmp تبدیل کردم و در DataBase ذخیره کردم
procedure JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;
روی فرمم یه DBImage گذاشتم و توسط AdoTable به Table مورد نظرم وصل کردم ولی وقتی میخوام تو همین Disgn برنامه به طور دستی Active AdoTable ام رو True کنم برنامه قفل می کنه و حدود 10 تا 15 ثانیه طول می کشه تا True بشه چه برسه به این که موقع Run بخوام True کنم .
البته وقتی True میشه عکس رو درست بهم نشون میده . ولی نمی دونم چرا اینقدر طول می کشه ؟؟؟
یه چیز دیگه
من روی فرمم 3 تا AdoTable دارم که به طور دستی ConnectionString هر سه رو پر کردم و به بک بانک وصل کردم که 2 تاشون به یه Table مشترک وصل اند .
ممکنه از این باشه ؟؟