Question

VC中如何利用Button控件 写入和读取一个文件？

本人小菜一枚。。。请尽可能详细的说说代码的应用方法！

或者推荐一些基础性同时也 与这个问题有关 的书籍也可以！

Answer 1

①新建一个基于对话框的工程，命名为Web，然后在对话框上单击右键，选择Insert ActiveX Control…在弹出的对话框中选择Registered ActiveX Controls文件夹下的Microsoft Web浏览器，点击OK。
此时对话框上已经出现了WebBrowser控件，调整它的大小以适合对话框的大小。

②选择WebBrowser控件，点击View/ClassWizard，选择Member Variables,单击Add Variable按钮，此时会弹出对话框，该控件加入一个变量，我们把它命名为m_Web。

③在ClassWizard中选择OnInitDialog()函数，在里面加入如下代码：

m_Web.Navigate("d:\\temp\\html_doc\\index.html",NULL,NULL,NULL,NULL);

第一个参数即你要浏览的URL地址，可以是一个文件，也可以是一个地址(如http://jellyku.blog.sohu.com)。

现在编译运行改程序，如何，是不是已经看到你想要浏览的网页了！不过，我们现在的浏览器只能显示，还没有最基本的前进、后退、刷新等功能，下面我们来加入这些功能。

④在对话框上加入三个按钮，分别命名为前进(IDC_BUTTON_FORWARD)、后退(IDC_BUTTON_BACK)、刷新(IDC_BUTTON_REFRESH)，然后我们分别为他们加入控制代码。首先要控制他们在特定的情况下是否可用，即达到最顶层或最底层时，前进或后 退按钮要相应的改变他们的状态。利用ClassWizard给WebBrowser控件加入
CommandStateChange事件，然后单击Edit Code按钮，在其中加入如下代码：

switch(Command)
{
case 1:
　{
　　GetDlgItem(IDC_BUTTON_FORWARD)->EnableWindow(Enable);
　　break;
　}

　case 2:
　{
　　GetDlgItem(IDC_BUTTON_BACK)->EnableWindow(Enable);
　　break;
　}
}

此时，按钮已经可以随着你点击超连接而改变他们的状态了。下面要加入控制前进后退的代码以使这些按钮起作用。

⑤分别给前进和后退按钮的单击事件函数加入如下代码：

前进：m_Web. GoForward();
后退：m_Web. GoBack();

⑥给刷新按钮的单击事件函数加入如下代码：
m_Web.Refresh();

现在，基本的功能基本已经具备了。但有时在开发的过程中，我们不仅仅满足于可以浏览，我们或许想要对特定的连接进行特殊的处理，这就涉及到如何得到你点击超连接时，得到该超连接的值的问题。WebBrowser控件的TitleChange事件提供了这样的功能，下面我们看一下如何得到超连接的内容。

⑦利用ClassWizard给该控件加入TitleChange事件，该函数的Text参数即可以返回你点击的内容。当TitleChange事件发生时，返回你所点击的字符串，根据这个字符串就可以在程序中做些事情了。

到现在为止，你已经拥有了一个完全由你自己随心所欲控制的浏览器以及你想要扩充它的功能的Idea了。

Answer 2

//以下代码适合TBitmap类型
//保存
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.SaveToFile(aFile);
end;
//加载
procedure TForm1.BitBtn1Click(Sender: TObject);
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
aStream.Position := 0;
aStream.LoadFromFile(aFile);
Image2.Picture.Bitmap.LoadFromStream(aStream);
aStream.Free;end;