怎樣保存用OpenPictureDialog打開的圖片,並用我默認的文件名及路徑來保存,而且不跳出SavePictureDialog對話框?
解决方案 »
- delphi7能安装ralib这个第三方控件吗
- DBGRID数据导入到EXCEL的问题,字段长度有无限制。急!急!急!
- 请教WebBrowser如何进入编辑模式,并实现基本操作。如文字对齐,居中,颜色等
- 如何把F1Book的已经合并单元格再拆分成基本单元格
- 程序通過Internet連接SQL Server2000,出現"連線失敗"的提示?
- 存储过程里是否可以用动态的Sql语句?
- 如何让TPanel透明
- 我想查询某一日期的记录,这样SQL应该怎么写,内详
- 寻找用于并口通讯的控件
- 真的不兼容吗!!
- 帮帮忙看看这段代码哪错了???谢谢
- 产生随机数磁到的问题:我用调试程序时可以得到随机数,不调试时得到的是同一个随机数。。。。
begin
....
end;
1、用我默認的文件名及路徑來保存,
2、而且不跳出SavePictureDialog對話框
var
bmp:TBitmap;//假设你要用BMP的话
name:WideString;
begin
name:'你要保存的文件名';
if OpenPictureDialog1.Execute then
begin
bmp.LoadFromFile(OpenPictureDialog1.FileName);
bmp.SaveToFile(name);
end;
end;楼主是这个意思?
Bitmap : TBitmap;
begin
Bitmap := TBitMap.create;
try
//Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Bitmap.SaveToFile('C:\screen.bmp');
finally
Bitmap.free;
end;
end;
報錯:
Bitmap image is not valid.