Текущий архив: 2005.08.14;
Скачать: 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 вся ветка
Текущий архив: 2005.08.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.027 c
