Як зберегти в JPG

Як зберегти JPG ось у такому варіанті? procedure TfrmPulsar3D.SpeedButton2Click(Sender: TObject); var bmp: TBitmap; begin bmp := TBitmap.Create;

BitBlt(bmp.Canvas.Handle, 0, 0, screen.Width, screen.Height,

GetDC(GetDesktopWindow), 0, 0, SRCCopy);

bmp.Assign(bmp); If SavePictureDialog1.Execute then begin SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap); bmp.SaveToFile(SavePictureDialog1.fileName); end; finally

ой не тут. =) не пам'ятаю де =)

У хелпі по TJpegImage.Assign є людський приклад перетворення бітмапа на jpeg і збереження.

> If SavePictureDialog1.Execute then > begin > SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap); > > bmp.SaveToFile(SavePictureDialog1.fileName+".jpg"); > end;і всього діл. SavePictureDialog1.fileName це рядок і можна писати все що "завгодно". тому можна додавати "*.jpg" і т.д. якщо альтернатива розширеннях то: if SavePictureDialog1.filterindex=1 then bmp.SaveToFile(SavePictureDialog1.fileName+".*"); if SavePictureDialog1.filterindex=2 then bmp.SaveToFile(SavePictureDialog1.fileName+".**"); ну сам розберешся.

>тому можна додавати "*.jpg" і при цьому бітмап перетворюється на джипег?

помилка ".jpg" таким чином зберігав у jpg & bmp нормально.

> таким чином зберігав у jpg & bmp нормально було.

якщо завантажував так само, то звідки проблеми. Bitmap Bitmap і залишиться, яке розширення файлу не дай. :)

Авто ру. SaveToFile має робити не TBipMap, а TJpegImage

> таким чином зберігав у jpg & bmp нормально було.

якщо завантажував так само, то звідкипроблеми. Bitmap Bitmap і залишиться, яке розширення файлу не дай. :)

Авто ру. SaveToFile має робити не TBipMap, а TJpegImage

Він уже зізнався, що довідкою принципово не користується, лише методом наукового втикання та нахопленого з Інет.

---