Как да запазите като 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 Присвояване (bmp); Ако SavePictureDialog1.Execute тогава започнете SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap); bmp.SaveToFile(SavePictureDialog1.fileName); край; накрая

о, не тук. =) не помня къде =)

В помощта за TJpegImage.Assign има човешки пример за конвертиране на растерно изображение в jpeg и запазването му.

> Ако SavePictureDialog1.Execute then > начало > SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap); > > bmp.SaveToFile(SavePictureDialog1.fileName+".jpg"); > край;и това е. SavePictureDialog1.fileName е низ и можете да напишете всичко, което „пожелаете“. така че можете да добавите „*.jpg“ и т.н. ако алтернативата е в разширенията, тогава: ако SavePictureDialog1.filterindex=1 тогава bmp.SaveToFile(SavePictureDialog1.fileName+ ".*"); ако SavePictureDialog1.filterindex=2 тогава bmp.SaveToFile(SavePictureDialog1.fileName+".**"); Е, ще разберете сами.

>така че можете да добавите "*.jpg" и това ще преобразува растерното изображение в джип?

печатна грешка ".jpg" така запазено в jpg & bmp беше добре.

> така запазени в jpg & bmp беше добре.

ако се изтегли по същия начин, тогава къде са проблемите. Bitmap Bitmap-ом и ще остане, какво разширение на файла не дават. :)

Авто RU. SaveToFile не трябва да прави TBipMap, а TJpegImage

> така запазени в jpg & bmp беше добре.

ако се изтегли по същия начин, тогава от къдепроблеми. Bitmap Bitmap-ом и ще остане, какво разширение на файла не дават. :)

Авто RU. SaveToFile не трябва да прави TBipMap, а TJpegImage

Той вече призна, че по принцип не използва сертификата, а само метода на научното включване и взет от интернет.

---