1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vDocument = Web->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
try{
Variant vForms = vDocument.OlePropertyGet("Forms");
Variant vForm = vForms.OleFunction("NamedItem","connection");
Variant vContent = vForm.OlePropertyGet("All");
}
catch(EOleError &er)
{
ShowMessage("Page Inaccessible");
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
Web->Navigate((WideString)"http://localhost:7144/html/en/broadcast.html");
} |
