دخول

nabilkeb · 07-09-2009, 05:39 PM

- أثناء تغيير قيمة Combobox7 و 9 و Edit16 فإن EDit4 لا يتغير ، و بالتالي يتم اعطاهم جميعا
نفس الحدث MaskEdit4Change

- كود سورس تحويل Jpg إلى Bmp :

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
 jpeg: TJPEGImage;
 bmp:  TBitmap;
begin
 if OpenPictureDialog1.Execute then
 begin
 jpeg := TJPEGImage.Create;
 try
   jpeg.CompressionQuality := 100; {Default Value}
   jpeg.LoadFromFile(OpenPictureDialog1.FileName);
   bmp := TBitmap.Create;
   try
     bmp.Assign(jpeg);
if saveDialog1.Execute then  bmp.SaveTofile(saveDialog1.FileName+'.bmp');
   finally
     bmp.Free
   end;
 finally
   jpeg.Free
 end;
 end;
end;

يمكن الإستغناء عن SaveDialog و تحديد مباشر لمكان الحفظ ، و لكن في هذا المشروع أضن أن الأحسن (في حدث الضغط على DBImage )

كود :
procedure TForm7.DBImage1Click(Sender: TObject);
Var 
  Im: TPicture;
  Ext,Nom_Fichier : String;
begin
  if OpenPictureDialog1.Execute then Begin
    Nom_Fichier:= OpenPictureDialog1.FileName;
    Ext:= UpperCase(ExtractFileExt(Nom_Fichier));
    if (Ext='.JPEG') or (Ext='.JPG') then Begin
      Im:= TPicture.Create; 
      Im.LoadFromFile(Nom_Fichier);
      DBImage1.Picture.Bitmap.Assign(Im.Graphic);
      Im.Free; 
    End Else if (Ext='.BMP') then
    DBImage1.Picture.LoadFromFile(Nom_Fichier)
    //Else ShowMessage('unsupported image');
  End;  ResizeBmp(DBImage1.Picture.Bitmap,100,110) ; 
end;

- أضنني قطعت لك شوطا كبيرا ، عليك بما تبقى .
- بالتوفيق أختاه -

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة