delphi 在form上画图像之后怎样保存下来
用canvas在form上画图像之后，怎样保存下来，保存为bmp、jpg都行
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
rgn: HRGN;
begin
bmp := TBitmap.Create;
try
bmp.LoadfromFile('D:\免疫渗率图像\图片 004.BMP'); // 你想显示的图片
rgn := CreateEllipticRgn(126,106,442,422);
if rgn <> 0 then begin
try
SelectObject(Canvas.Handle, rgn);
Canvas.Draw(0,0,bmp);
finally
DeleteObject(rgn);
end;
end;
finally
bmp.Free;
end;
end;
用上面的代码可以在form中画�
相关问答：
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
VC++ 中， &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、？
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时， ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
