|
| 盒子资源分类 |
![]() |
|
|
|
|
| 防和谐专用 文本转图片的示例（无下载！） |
![]() |
| 关键字：防和谐专用 文本转图片的示例 |
| 来 自：原创 |
| 平 台：Win2k/XP/NT,Win2003 |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2009/8/20 |
| 发布者：88510731 |
发布时间：2009/8/21 |
| 编辑器：DELPHI7 |
语 种：简体中文 |
| 分 类：其他 |
下载浏览：222/14127 |
|
|
|
|
|
一个小示例。网络摘录。收藏在此。
unit s1;
interface
uses
Windows, Messages, SysUtils, Graphics, Controls, Forms, StdCtrls,
Classes;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses jpeg;
{$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('输出.jpg');
// Image1.Picture.Graphic := vJpegImage;
finally
vBitmap.Free;
Memo1.Height := vOldHeight;
end;
end;
end. |
![]() |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论6条
当前显示最后6条评论
|
| hzw008 |
2009/8/21 13:18:41 |
| vJpegImage 都还没有释放 |
| isxuzhu |
2009/8/21 18:44:27 |
| FreeAndNil(vJpegImage) |
| xplibox |
2009/8/22 10:43:08 |
| 很怪异的名字！ |
| swgame |
2010/3/28 20:36:54 |
| 防和谐专用 ? |
| lilicai |
2010/7/23 9:56:43 |
| "防和谐"什么意思？看到我就全身起鸡皮疙瘩！不懂软件就不要在这里乱起名！你看到什么都和谐？无知！！！！！！！！！ |
| wolf_hzh |
2011/2/25 13:49:41 |
| 我是打酱油的 |
| 我要发表评论 |
查看全部评论 |
|
|
|
盒子资源分类大树
