如何将TPanel中内容保存到bmp文件中？

chfan001 2003-11-18 10:07:24

用了几种方法，都只能保存空白的TPanel，怎样将TPanel中的内容全部保存？

...全文

76 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

yjy1001 2003-11-19

打赏
举报

你只的是 panel上的图
还是 panel上 caption。

TCanvas *canvas;
canvas->Handle=GetDC(Panel1->Handle);
canvas->SaveToFile("C:\\1,bmp");

不知道能不能满足你的要求

实在不行将整个屏幕拷贝下来 …… 笨方法

chfan001 2003-11-19

打赏
举报

我试了用TForm::GetFormImage可以做到，只是效果不好，
会出现黑斑，有的地方还有缺失，各位有更好的方法尽管
说出来啊！

chfan001 2003-11-19

打赏
举报

即使把其中的每个组件转化为string，也不知道每个组件的位置信息啊，
怎么把这些内容原样copy到位图的Canvas上啊？

chfan001 2003-11-19

打赏
举报

分不够可以再给啊，就怕给出来问题还是解决不了，
说得不清不白的有什么用啊。你写的作用好像就是
做个文本向流文件的转换啊，搞不懂Write("\3",1)，
Write("\4",1)有什么作用。

Friecin 2003-11-19

打赏
举报

TCanvas *canvas;
canvas->Handle=GetDC(Panel->Handle);
canvas->SaveToFile("C:\\my,panelbmp");

yesry 2003-11-19

打赏
举报

pss=new TStringStream(s);//这一句不能说明问题吗？
我原来的太复杂了，全部贴过来怕侵犯了公司产权。你的分这么少，我都懒得改。

chfan001 2003-11-19

打赏
举报

楼上的能不能解释一下，pms是什么变量，怎样把Panel中所有组件读出来，
又怎样写入位图文件啊？

yesry 2003-11-19

打赏
举报

保存时用WriteComponent()

for(i=0;i<ComponentCount;i++)
{
com=Components[i];
if(com->Name!="")
{
mem->Clear();
mem->WriteComponent(com);
mem->Position=0;
class_name=com->ClassName();
string_stream->Write(class_name.c_str(),class_name.Length());
string_stream->Write("\3",1);
ObjectBinaryToText(mem,string_stream);
string_stream->Write("\4",1);
}
}

装入是用ReadComponent()
pss=new TStringStream(s);
pms->Clear();
ObjectTextToBinary(pss, pms);
pms->Position=0;
pms->ReadComponent(CurrentComponent);
delete pss;

chfan001 2003-11-19