c14_5f.cpp

来自「C++Builder编程实例详解,用具体的例子阐明C++的一些基本操作,所有程序」· C++ 代码 · 共 61 行

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "C14_5f.h"
#include "C14_5f2.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::HTML1EndRetrieval(TObject *Sender)
{ // 完成数据传送
  CancelBtn->Enabled = False;
}
//---------------------------------------------------------------------
void __fastcall TForm1::HTML1BeginRetrieval(TObject *Sender)
{ // 开始传送数据
  CancelBtn->Enabled = True;
}
//---------------------------------------------------------------------
void __fastcall TForm1::Exit1Click(TObject *Sender)
{ // 退出程序
  Close();  
}
//---------------------------------------------------------------------
void __fastcall TForm1::DocumentSource1Click(TObject *Sender)
{ // 该程序用于显示主页源代码
    DocSourceFrm->Show();
    DocSourceFrm->Memo1->Lines->Clear();
    DocSourceFrm->Memo1->Lines->Add(HTML1->SourceText);
    DocSourceFrm->Memo1->SelStart = 0;
    SendMessage((HWND)DocSourceFrm->Memo1->Handle, EM_SCROLLCARET, 0, 0);
}
//---------------------------------------------------------------------
void __fastcall TForm1::CancelBtnClick(TObject *Sender)
{
  HTML1->Cancel("test");
  CancelBtn->Enabled = False;
}
//---------------------------------------------------------------------
void __fastcall TForm1::GoButtonClick(TObject *Sender)
{ // 开始连接
  if(URLs->Items->IndexOf(URLs->Text) == -1 )
    URLs->Items->Add(URLs->Text);
  HTML1->RequestDoc(URLs->Text); // 申请主页文档
  Statusbar1->Panels->Items[0]->Text = HTML1->RequestURL;
}
//---------------------------------------------------------------------

void __fastcall TForm1::URLsKeyPress(TObject *Sender, Char &Key)
{
  if(Key == VK_RETURN)
      GoButtonClick(Sender);
}
//---------------------------------------------------------------------