Скачать: CL | DM;

Podskazhi kak prezapisat JPG file?   Найти похожие ветки 

← →
scarface   (2005-07-26 15:28) [0]

Dobriy den!
izvenite za translit.

Dobriy den!
Izvinite za ranee za translit.

Est .JPG file posle DigitalCamera. Esli otkrit etot JPG file naprimer v PAINT i prosto sochranit ego to razmer umenschaetsaj v neskolko. Chochu avtomatizirovat etot procces. Podskazhite pozhalusto, s pomozhju kakich functioins mozhno otkrit JPG fail i zanovo ego zapisat ili perepisat, prosto skopirovat ne pomozhet. Da JAVA napisal takuj programmku, no nuzhno eto sdelat na DELPHI.
Za ranee bolschoe spasibo!

---

← →
AbrosimovA   (2005-07-26 16:50) [1]

Возможно этот пример поможет тебе разобраться:

procedure SaveToJpg(FileName: string);
var
 Jpeg: TJpegImage;
 bmp: TBitMap;
begin
 RoomForm.Refresh;
 bmp := TBitMap.Create;
 bmp.Width := RoomForm.Width;
 bmp.Height := RoomForm.Height;
 BitBlt(bmp.Canvas.Handle, 0, 0, RoomForm.Width, RoomForm.Height,
  GetDC(RoomForm.Handle), 0, 0, SRCCopy);
 Jpeg := TJpegImage.Create;
 Jpeg.Assign(bmp);
 Jpeg.CompressionQuality := 20;
 Jpeg.Compress;
 Jpeg.SaveToFile(FileName);
 bmp.Destroy;
 Jpeg.Destroy;
end;

Обрати внимание на выделенное.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c