Podskazhi kak prezapisat JPG file?
scarface © (2005-07-26 15:28:00)
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:00) [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;
Обрати внимание на выделенное.
Наверх 
ЧАТ |
Орешник |
|
