如何实现文本转图片的处理？

Question

我需要将我进行编辑的窗口中的文字以图片的方式导出，不知道有没有什么好的方法。要求能够将我多页的文本一次输出，格式如果是bmp格式就太大了，最好是jpg格式的。我看到盒子上有滚屏抓图的代码，但抓出来的图重复内容太多。
希望有过图文处理的人不吝赐教。

Answer 1

用图形组件，
用textout可以将文章输出在图型上
这样也许能将文字存成图象格式，
具体我没操作过

Answer 2

zhz_2V(网络V8) 
.cn,先谢谢了。

Answer 3

哦，my god，没有人回答一下么？

Answer 4

//参考如下代码
uses jpeg;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;
    Image1.Picture.Graphic := vJpegImage;
  finally
    vBitmap.Free;
    Memo1.Height := vOldHeight;
  end;
end;

Answer 5

谢谢，zhz_2V(网络V8) ，我已经收了，我现在先看代码去了，没问题的话就结贴了。

Answer 6

to zhz_2V(网络V8),这是一种采用点阵字库的方式存储的，好像无法存储当前文字的格式吧，我控件安装的有点问题，所以始终编译不过。看来要存储当前的格式还是需要从抓图考虑，使用 zswang(伴水清清)(专家门诊清洁工) 给的代码是可以抓图，但我使用sendmessage让控件滚屏没效果，使用scroolby滚动后又自动回到第一行了。晕，我再研究一下。