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

senfore 2005-03-19 11:39:56
我需要将我进行编辑的窗口中的文字以图片的方式导出,不知道有没有什么好的方法。要求能够将我多页的文本一次输出,格式如果是bmp格式就太大了,最好是jpg格式的。我看到盒子上有滚屏抓图的代码,但抓出来的图重复内容太多。


希望有过图文处理的人不吝赐教。
...全文
264 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
senfore 2005-03-22
  • 打赏
  • 举报
回复
晕,算了,看来没有人可以回答了。结贴了。
senfore 2005-03-22
  • 打赏
  • 举报
回复
顶,知道的人多指教呀。。。。大家共同进步呀。
senfore 2005-03-21
  • 打赏
  • 举报
回复
to zhz_2V(网络V8),这是一种采用点阵字库的方式存储的,好像无法存储当前文字的格式吧,我控件安装的有点问题,所以始终编译不过。看来要存储当前的格式还是需要从抓图考虑,使用 zswang(伴水清清)(专家门诊清洁工) 给的代码是可以抓图,但我使用sendmessage让控件滚屏没效果,使用scroolby滚动后又自动回到第一行了。晕,我再研究一下。
senfore 2005-03-21
  • 打赏
  • 举报
回复
兄弟不错哦,可是能不能滚动捕捉呀,这才捕捉了一个屏幕呀,文字在文本框中是好几个屏幕呀,如何才能时间滚动捕捉呢?解决就给分哦。。
julong88 2005-03-21
  • 打赏
  • 举报
回复
mark
senfore 2005-03-21
  • 打赏
  • 举报
回复
谢谢,zhz_2V(网络V8) ,我已经收了,我现在先看代码去了,没问题的话就结贴了。
zhz_2V 2005-03-21
  • 打赏
  • 举报
回复
发了,收吧~
senfore 2005-03-20
  • 打赏
  • 举报
回复
zhz_2V(网络V8)


我的邮箱是senfore@yahoo.com.cn,先谢谢了。
王集鹄 2005-03-20
  • 打赏
  • 举报
回复
//参考如下代码
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;
zhz_2V 2005-03-20
  • 打赏
  • 举报
回复
我发份代码你看看吧。
senfore 2005-03-20
  • 打赏
  • 举报
回复
哦,my god,没有人回答一下么?
todouwang 2005-03-20
  • 打赏
  • 举报
回复
用图形组件,
用textout可以将文章输出在图型上
这样也许能将文字存成图象格式,
具体我没操作过

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧