如何直接從代碼中保存BPM / JPEG / TIFF / GIF

本篇文章給大家分享的是有關如何直接從代碼中保存BPM / JPEG / TIFF / GIF，小編覺得挺實用的，因此分享給大家學習，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

報表生成器FastReport VCL是用于在軟件中集成商務智能的現代解決方案。它提供了可視化模板設計器，可以訪問最受歡迎的數據源，報告引擎，預覽，將過濾器導出為30多種格式，并可以部署到云，Web，電子郵件和打印中。

我們先來看看有哪些光柵圖像格式。

BMP

首先，你應該知道，由于BMP是一個老的圖像格式，它不是很流行的互聯網用戶，只有位圖圖像保存在這種格式不支持向量。

bmp文件的大小可能不同，這取決于圖像的質量。盡管用戶認為BMP格式已經過時，但它在許多領域都被積極地使用。例如，所有的Windows界面都基于這種格式。為什么BMP呢?因為它是方便使用時，創建圖像，不失去質量后，編輯他們。BMP是Photoshop中編輯圖片時經常使用的格式，這種格式也很容易上傳到社交網絡和各種網站上。

當然，最好使用現代的圖像格式，因為它們是多層次的，而且您可以將它們上傳到任何網站而不存在技術問題。同時，有許多選項來編輯這些圖像，它們有一個較小的文件大小。

JPEG

JPEG是存儲圖像的常用格式。它具有良好的壓縮質量，可以觀看圖片。這種格式有很多好處，因為用戶具有許多優點，例如：更改文件質量和大小的能力，在任何瀏覽器中輕松打開圖像，在任何圖形編輯器中編輯該文件以及較小的尺寸，在計算機和其他數據存儲設備上不會占用太多空間。如果壓縮不多，將完全保存圖像質量。

這種格式有幾個缺點：與PNG不同，沒有透明度；如果壓縮（調整大小）JPG圖像，則其失真（或完全丟失）將非常明顯；不建議在壓縮后編輯恢復的JPG文件，因為它可能會降低質量。

盡管存在這些缺點，但該格式仍被認為是Internet上最受歡迎的格式，并且人們經常使用它。

TIFF

這是一種眾所周知的柵格格式，幾乎支持所有已知的色彩空間。未經壓縮的圖像幾乎已成為印刷行業的標準。有多種壓縮算法，甚至有或沒有損失。TIFF文件可以包含以索引顏色模式以及灰度存儲在CMYK，RGB，Lab顏色模型中的圖像。這允許使用這種格式來存儲各種圖像，用于準備Web圖形和版式。除圖像本身外，TIFF還包含透明通道，通過它們可以保存圖像的透明區域或在工作會話之間突出顯示對象。

TIFF格式的另一個功能是能夠將多個具有各自屬性和屬性（標簽）的圖像保存在一個文件中。盡管TIFF沒有創建動畫圖像的功能，但這使其類似于GIF。這種格式的普及使得在程序和硬件平臺之間輕松傳輸圖像成為可能。

GIF

GIF文件尺寸較小，并且支持簡單的動畫，即在一個文件中更改幀。

GIF格式廣泛用于創建橫幅以及視頻內容的圖形外殼。主要優點是數據壓縮在多達256色的深度處不會明顯損失質量。動畫圖像包括許多靜態幀以及有關幀演示所需時間的數據。

人們在許多領域中使用GIF格式。例如，在其網站的設計中，在社交網絡上以廣告標語，用于存儲照片等形式在撰寫文章或書籍時進行網頁設計，圖形設計。使用這種格式，您可以減小圖像的大小，這會積極影響Internet網站頁面的加載速度。

SVG

這種格式是矢量。簡而言之，網站是在其幫助下進行編譯的。SVG是帶有標簽的XML文本文件。縮放和裁剪時，這種格式不會丟失圖像質量

現在我們知道什么時候使用哪種格式更好。

如何從Delphi / Lazarus應用程序導出為這些格式？

首先，我們必須創建一個文檔。

然后，在我們創建了想要變成插圖的對象之后，啟動并查看。

在預覽窗口中，我們選擇保存報告的格式。 例如，我們需要導出到BMP圖像。選擇并單擊。

將出現導出設置窗口。配置并保存。

如何直接從Delphi / C ++ Builder / Lazarus代碼中保存BPM / JPEG / TIFF / GIF？

保存為BMP

procedure TForm1.Button1Click(Sender: TObject);
begin
 {Generate a report. The report must be generated before exporting}
 frxReport1.PrepareReport();
 {Set the range of pages to export. By default, all pages of the generated report are exported}
 frxBMPExport1.PageNumbers := '2-3';
 {Set whether to export each page to a separate file.}
 {.N will be added to the file name, where N is the serial number of the page}
 frxBMPExport1.SeparateFiles := True;
 {Set whether to export to monochrome image}
 frxBMPExport1.Monochrome := False;
 {Set whether to crop empty edges (page margins)}
 frxBMPExport1.CropImages := False;
 {Set the resolution, DPI}
 frxBMPExport1.Resolution := 96;
 {Set whether to open the resulting file after export}
 frxBMPExport1.OpenAfterExport := False;
 {Set whether to display export progress (show which page is currently being exported)}
 frxBMPExport1.ShowProgress := False;
 {Set whether to display the export filter dialog box}
 frxBMPExport1.ShowDialog := False;
 {Set the name of the resulting file.}
 {Please note that if you do not set the file name and disable the export filter dialog box,}
 {the file name selection dialog will still be displayed}
 frxBMPExport1.FileName := 'C:\Output\test.bmp';
 {Export the report}
 frxReport1.Export(frxBMPExport1);
end;

保存為JPEG

procedure TForm1.Button2Click(Sender: TObject);
begin
 {Generate a report. The report must be generated before exporting}
 frxReport1.PrepareReport();
 {Set the range of pages to export. By default, all pages of the generated report are exported}
 frxJPEGExport1.PageNumbers := '2-3';
 {Set whether to export each page to a separate file.}
 {.N will be added to the file name, where N is the serial number of the page}
 frxJPEGExport1.SeparateFiles := True;
 {Set whether to export to monochrome image}
 frxJPEGExport1.Monochrome := False;
 {Set whether to crop empty edges (page margins)}
 frxJPEGExport1.CropImages := False;
 {Set the quality of JPEG}
 frxJPEGExport1.JPEGQuality := 90;
 {Set the resolution, DPI}
 frxJPEGExport1.Resolution := 96;
 {Set whether to open the resulting file after export}
 frxJPEGExport1.OpenAfterExport := False;
 {Set whether to display export progress (show which page is currently being exported)}
 frxJPEGExport1.ShowProgress := False;
 {Set whether to display the export filter dialog box}
 frxJPEGExport1.ShowDialog := False;
 {Set the name of the resulting file.}
 {Please note that if you do not set the file name and disable the export filter dialog box,}
 {the file name selection dialog will still be displayed}
 frxJPEGExport1.FileName := 'C:\Output\test.jpg';
 {Export the report}
 frxReport1.Export(frxJPEGExport1);
end;

保存為TIFF

procedure TForm1.Button3Click(Sender: TObject);
begin
 {Generate a report. The report must be generated before exporting}
 frxReport1.PrepareReport();
 {Set the range of pages to export. By default, all pages of the generated report are exported}
 frxTIFFExport1.PageNumbers := '2-3';
 {Set whether to export each page to a separate file.}
 {.N will be added to the file name, where N is the serial number of the page}
 frxTIFFExport1.SeparateFiles := True;
 {Set whether to export to monochrome image}
 frxTIFFExport1.Monochrome := False;
 {Set whether to crop empty edges (page margins)}
 frxTIFFExport1.CropImages := False;
 {Set the resolution, DPI}
 frxTIFFExport1.Resolution := 96;
 {Set whether to open the resulting file after export}
 frxTIFFExport1.OpenAfterExport := False;
 {Set whether to display export progress (show which page is currently being exported)}
 frxTIFFExport1.ShowProgress := False;
 {Set whether to display the export filter dialog box}
 frxTIFFExport1.ShowDialog := False;
 {Set the name of the resulting file.}
 {Please note that if you do not set the file name and disable the export filter dialog box,}
 {the file name selection dialog will still be displayed}
 frxTIFFExport1.FileName := 'C:\Output\test.tif';
 {Export the report}
 frxReport1.Export(frxTIFFExport1);
end;

保存為GIF

procedure TForm1.Button4Click(Sender: TObject);
begin
 {Generate a report. The report must be generated before exporting}
 frxReport1.PrepareReport();
 {Set the range of pages to export. By default, all pages of the generated report are exported}
 frxGIFExport1.PageNumbers := '2-3';
 {Set whether to export each page to a separate file.}
 {.N will be added to the file name, where N is the serial number of the page}
 frxGIFExport1.SeparateFiles := True;
 {Set whether to export to monochrome image}
 frxGIFExport1.Monochrome := False;
 {Set whether to crop empty edges (page margins)}
 frxGIFExport1.CropImages := False;
 {Set the resolution, DPI}
 frxGIFExport1.Resolution := 96;
 {Set whether to open the resulting file after export}
 frxGIFExport1.OpenAfterExport := False;
 {Set whether to display export progress (show which page is currently being exported)}
 frxGIFExport1.ShowProgress := False;
 {Set whether to display the export filter dialog box}
 frxGIFExport1.ShowDialog := False;
 {Set the name of the resulting file.}
 {Please note that if you do not set the file name and disable the export filter dialog box,}
 {the file name selection dialog will still be displayed}
 frxGIFExport1.FileName := 'C:\Output\test.gif';
 {Export the report}
 frxReport1.Export(frxGIFExport1);
end;

以上就是如何直接從代碼中保存BPM / JPEG / TIFF / GIF，小編相信有部分知識點可能是我們日常工作會見到或用到的。希望你能通過這篇文章學到更多知識。更多詳情敬請關注億速云行業資訊頻道。