本文整理自网络，侵删。
这是示例的作用是能将Memo中的文字内容生成一个Jpeg图片进行保存！
下面是完整的源码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,jpeg;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
vBitmap: TBitmap;
vJpegImage: TJpegImage;
vOldHeight: Integer;
begin
Canvas.Font.Assign(Memo1.Font);
vOldHeight := Memo1.Height;
Memo1.ClientHeight := Canvas.TextHeight('|') * Memo1.Lines.Count + 2;
vBitmap := TBitmap.Create;
vJpegImage := TJpegImage.Create;
try
vBitmap.Height := Memo1.ClientHeight;
vBitmap.Width := Memo1.ClientWidth;
Memo1.PaintTo(vBitmap.Canvas, -2, -2);
vJpegImage.Assign(vBitmap);
vJpegImage.CompressionQuality := 75;
vJpegImage.Compress;
vJpegImage.SaveToFile('c:\输出.jpg');
// Image1.Picture.Graphic := vJpegImage;
finally
vBitmap.Free;
Memo1.Height := vOldHeight;
FreeAndNil(vJpegImage);
end;
end;
end.
在Delphi7和Delphi2009下测试通过！ 相关阅读 >>
firemonkey listbox 的几个事件：拖动，点击，长按
Delphi listboxadditems() 不重复添加edit1
Delphi xe 获取 android application version 版本
Delphi showmainform := false 失效的解决办法
Delphi 自带rest调试工具 restdebugger 用法
更多相关阅读请进入《Delphi》频道 >>
