1.3w+
社区成员
- 主页
- Windows SDK/API
- 基础类
- ActiveX
- 数据库及相关技术
- 网络及通讯开发
- VCL组件使用和开发
- 问答
急，如何把剪贴板中的位图保存到文件？？？ 100分赠送！！
急，如何把剪贴板中的位图保存到文件？？？ 100分赠送！！
（或者可以转换保存成JPG格式更好。）直接保存位图也好。
（或者可以转换保存成JPG格式更好。）直接保存位图也好。
...全文
请发表友善的回复…
发表回复
goneaway1981 2003-12-15
晕，接分。
jbz 2003-12-15
呵呵,上面的方法都不错,不过我用LoadFromClipboardFormat方法也可以的.
#include <vcl\Clipbrd.hpp>
void __fastcall TForm2::btnSaveBmpClick(TObject *Sender)
{
TClipboard *pCB = Clipboard();
if (pCB->HasFormat(CF_BITMAP))
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
try
{
pBitmap->LoadFromClipboardFormat(CF_BITMAP, pCB->GetAsHandle(CF_BITMAP), 0);
//Canvas->Draw(5,5,pBitmap);
pBitmap->SaveToFile("c:\\1.bmp");
}
catch (...)
{
MessageBeep(0);
}
delete pBitmap;
}
else
MessageBeep(0);
}
//---------------------------------------------------------------------------
#include <vcl\Clipbrd.hpp>
void __fastcall TForm2::btnSaveBmpClick(TObject *Sender)
{
TClipboard *pCB = Clipboard();
if (pCB->HasFormat(CF_BITMAP))
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
try
{
pBitmap->LoadFromClipboardFormat(CF_BITMAP, pCB->GetAsHandle(CF_BITMAP), 0);
//Canvas->Draw(5,5,pBitmap);
pBitmap->SaveToFile("c:\\1.bmp");
}
catch (...)
{
MessageBeep(0);
}
delete pBitmap;
}
else
MessageBeep(0);
}
//---------------------------------------------------------------------------
Black Clod 2003-12-15
给你存一个 BMP 和 JPG 的方法：
#include <Clipbrd.hpp>
#include <jpeg.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TClipboard *pCB = Clipboard(); //这个是指向系统的剪贴板指针，不需要释放资源
if (pCB->HasFormat(CF_BITMAP)) //如果剪贴板里面是位图格式的，才能进行储存图像
{
TJPEGImage *jpg = new TJPEGImage;
Graphics::TBitmap *bmp = new Graphics::TBitmap;
try
{
bmp->LoadFromClipboardFormat(CF_BITMAP, pCB->GetAsHandle(CF_BITMAP), 0);
jpg->Assign(bmp); //把 BMP 格式转成 JPG 格式
bmp->SaveToFile("d:\\mypic.bmp"); //存成 BMP 格式的图像
jpg->SaveToFile("d:\\mypic.jpg"); //存成 JPG 格式的图像
}
__finally
{
delete bmp;
delete jpg;
}
}
}
#include <Clipbrd.hpp>
#include <jpeg.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TClipboard *pCB = Clipboard(); //这个是指向系统的剪贴板指针，不需要释放资源
if (pCB->HasFormat(CF_BITMAP)) //如果剪贴板里面是位图格式的，才能进行储存图像
{
TJPEGImage *jpg = new TJPEGImage;
Graphics::TBitmap *bmp = new Graphics::TBitmap;
try
{
bmp->LoadFromClipboardFormat(CF_BITMAP, pCB->GetAsHandle(CF_BITMAP), 0);
jpg->Assign(bmp); //把 BMP 格式转成 JPG 格式
bmp->SaveToFile("d:\\mypic.bmp"); //存成 BMP 格式的图像
jpg->SaveToFile("d:\\mypic.jpg"); //存成 JPG 格式的图像
}
__finally
{
delete bmp;
delete jpg;
}
}
}
ybluo 2003-12-15
Graphics::TBitmap *bitmap=new Graphics::TBitmap;
bitmap->Assign(Clipboard());
bitmap->SaveToFile("xxxx.bmp");
delete bitmap;
bitmap->Assign(Clipboard());
bitmap->SaveToFile("xxxx.bmp");
delete bitmap;
ccrun.com 2003-12-15
#include <vcl\Clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap;
Clipboard()->Open();
if(Clipboard()->HasFormat(CF_BITMAP))
pBitmap->Assign(Clipboard());
pBitmap->SaveToFile("C:\\123\\234.bmp");
delete pBitmap;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap;
Clipboard()->Open();
if(Clipboard()->HasFormat(CF_BITMAP))
pBitmap->Assign(Clipboard());
pBitmap->SaveToFile("C:\\123\\234.bmp");
delete pBitmap;
}
CPerlAsm_Lx 2003-12-15
谢谢 1，2漏的，帮我UP了。有帮助
GHOSTWY 2003-12-15
haha
yyy39 2003-12-15
既然已经在剪贴板中，打开附件中的画图程序，直接粘贴，选择另存为bmp或jpg文件。
不知是否能够有所帮助？
不知是否能够有所帮助？