如何使txt文件转换成bmp文件?
解决方案 »
- 想辞职用什么借口合适
- 不能有效实现的查询
- 打算写一个人力资源管理系统,大家有没有好一点的例子程序呀?另外,排班,工资计算方面,想听一听大家的意见?
- 寻找一位马上能在QQ上帮助我的朋友。
- listview只有第一列才可以编辑?
- 请教大侠fastreport怎样实现设置打印机对话框,预览和打印非常感谢????
- 一个比较复杂的问题,如何比较图象的不同。
- 如何设置maskedit或edit只能输入数字,包括含有小数的数字,tks
- 用delphil+dcom开发OA
- 外包:网页数据采集程序开发
- 怎么用indy控件TIdTcpClient/Server来发送和接收消息?
- 使用Indy组件怎么往指定的服务器发送数据?
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('c:\a.txt');
end;procedure TForm1.Button2Click(Sender: TObject);
var
bmp:tbitmap;
begin
bmp:=tbitmap.Create;
bmp.Height:=memo1.Height;
bmp.Width:=memo1.Width;
bitblt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, form1.Canvas.Handle,memo1.Top,memo1.Left,srccopy);
bmp.SaveToFile('c:\a.bmp');
bmp.Free;
end;也可到 http://www.ninesoft.net/temp/p1.rar下载代码!