دخول

nabilkeb

نفس الشيء+استغلال الحفظ بقواعد البيانات ، بعد تغيير اللاحقة Jpg أو Jpeg إلى Bitmap
للإفادة أزي:
كود تحويل Ico إلى Bmp

كود :
[align=left]var[/align]
  [align=left]Icon   : TIcon;[/align]
  [align=left]Bitmap : TBitmap;[/align]
  [align=left]   begin[/align]
  [align=left]       if OpenDialog1.Execute then  begin[/align]
  [align=left]       Icon   := TIcon.Create;[/align]
  [align=left]       Bitmap := TBitmap.Create;[/align]
  [align=left]       Icon.LoadFromFile(OpenDialog1.FileName);[/align]
  [align=left]       Bitmap.Width := Icon.Width;[/align]
  [align=left]       Bitmap.Height := Icon.Height;[/align]
  [align=left]       Bitmap.Canvas.Draw(0, 0, Icon)[/align]
  [align=left]       Bitmap.SaveToFile('c:\picture.bmp');[/align]
  [align=left]       Icon.Free;[/align]
  [align=left]       Bitmap.Free;[/align]

كود لاستخراج ico من ملف bmp

كود :
[align=left]var[/align]
  [align=left]IconSizeX: integer;[/align]
  [align=left]IconSizeY: integer;[/align]
  [align=left] [/align]
  [align=left]XOrMask: TBitmap;[/align]
  [align=left]IconInfo: TIconInfo;[/align]
  [align=left]Icon: TIcon;[/align]
  [align=left]begin[/align]
  [align=left]IconSizeX := GetSystemMetrics(SM_CXICON);[/align]
  [align=left]IconSizeY := GetSystemMetrics(SM_CYICON);[/align]
  [align=left]XOrMask := TBitmap.Create;[/align]
  [align=left]XOrMask.Width := IconSizeX;[/align]
  [align=left]XOrMask.Height := IconSizeY;[/align]
  [align=left]XOrMask.LoadFromFile('C:\picture.bmp');{}[/align]
  [align=left] [/align]
  [align=left]Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask);[/align]
  [align=left]{Create a icon}[/align]
  [align=left]Icon := TIcon.Create;[/align]
  [align=left]IconInfo.fIcon := true;[/align]
  [align=left]IconInfo.xHotspot := 0;[/align]
  [align=left]IconInfo.yHotspot := 0;[/align]
  [align=left]IconInfo.hbmMask := XOrMask.Handle;[/align]
  [align=left]IconInfo.hbmColor := XOrMask.Handle;[/align]
  [align=left]Icon.Handle := CreateIconIndirect(IconInfo);[/align]
  [align=left]{Destroy the temporary bitmaps}[/align]
  [align=left]// AndMask.Free;[/align]
  [align=left]XOrMask.Free;[/align]
  [align=left]{Draw as a test}[/align]
  [align=left]Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon);[/align]
  [align=left]{Assign the application icon}[/align]
  [align=left]Application.Icon := Icon;[/align]
  [align=left]{Force a repaint}[/align]
  [align=left]InvalidateRect(Application.Handle, nil, true);[/align]
  [align=left]{Free the icon}[/align]
  [align=left]Icon.Free;[/align]
  [align=left]end;[/align]

تحويل Bmp إلى Jpeg
use ......jpeg

كود :
[align=left]var[/align]
  [align=left] JPEG: TJPEGImage;[/align]
  [align=left] Bitmap: TBitmap;[/align]
  [align=left]begin[/align]
  [align=left] if OpenDialog1.Execute then[/align]
  [align=left] begin[/align]
  [align=left] JPEG := TJPEGImage.Create;[/align]
  [align=left] Bitmap := TBitmap.Create;[/align]
  [align=left] try[/align]
  [align=left]   Bitmap.LoadFromFile(OpenDialog1.FileName);[/align]
  [align=left]   JPEG.Assign(Bitmap);[/align]
  [align=left]   Image1.Picture.Assign(JPEG);[/align]
  [align=left] finally[/align]
  [align=left]     JPEG.SaveToFile('C:\E.jpg');[/align]
  [align=left]     JPEG.Free;[/align]
  [align=left]   Bitmap.Free;[/align]
  [align=left] end;[/align]
  [align=left]end;[/align]

كووود لتغيـــر حجم الصــورة

كود :
[align=left]function ResizeBmp(bitmp: TBitmap; wid, hei: Integer): Boolean;[/align]
 [align=left]var[/align]
  [align=left]   TmpBmp: TBitmap;[/align]
  [align=left]  ARect: TRect;[/align]
  [align=left]begin[/align]
  [align=left]  Result := False;[/align]
  [align=left]  try[/align]
  [align=left]    TmpBmp := TBitmap.Create;[/align]
  [align=left]    try[/align]
  [align=left]      TmpBmp.Width  := wid;[/align]
  [align=left]      TmpBmp.Height := hei;[/align]
  [align=left]      ARect := Rect(0,0, wid, hei);[/align]
  [align=left]      TmpBmp.Canvas.StretchDraw(ARect, Bitmp);[/align]
  [align=left]      bitmp.Assign(TmpBmp);[/align]
  [align=left]    finally[/align]
  [align=left]      TmpBmp.Free;[/align]
  [align=left]    end;[/align]
  [align=left]    Result := True;[/align]
  [align=left]  except[/align]
  [align=left]    Result := False;[/align]
  [align=left]  end;[/align]
  end;

ثم الاستغلال مثلا :

كود :
[align=left]begin[/align]
  [align=left] ResizeBmp(Image1.Picture.Bitmap,[COLOR=Red]200[/COLOR],[COLOR=Red]700[/COLOR])[/align]
  [align=left]end;[/align]

و السلام عليكم

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