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;

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

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