自作プログラム        戻る

Windows95/NT 32ビット版の自己解凍式のファイルです(Lhut32を使用)
Vista、WinXPの動作確認はOracle VM VartualBox上で行っております。

Win7は画面は1280*1024 ドット、メモリ− 2−4GByte、  Displayの文字の大きさ中(125%)としております。


webbrowser
TcppWebBrowserを利用してホームペ−ジの閲覧
Ver1.00 (2011.5.29)
Win7、Win8で動作確認
HostChk
IP ←→ HOST NAMEの変換
Ver1.03 (2011.5.29)
Win7、Win8で動作確認

































webbrowser ver1.00 2011.5.29

C++Builder XE starter Edition でコンパイル
XEのプログラムに慣れるため作ったもので、実用に供する目的ではありません。

ソース フアイル   117Kbyte
実行 ファイル    678Kbyte


戻る、更新、検索などは下記の関数を利用 検索などIEの設定が利用されているようでした。 CppWebBrowser1->GoBack(); CppWebBrowser1->GoForward(); CppWebBrowser1->Refresh(); CppWebBrowser1->GoSearch(); CppWebBrowser1->GoHome(); CppWebBrowser1->Navigate(wchar_t url); URL タイトルは下記のイベントでLocationName、LocationURL から取得しました void __fastcall TForm1::CppWebBrowser1DocumentComplete      (TObject *Sender, LPDISPATCH pDisp,Variant *URL) {  Form1->Caption=CppWebBrowser1->LocationName;  Edit1->Text=CppWebBrowser1->LocationURL; } ソ−スは AnsiString Text = Body.OlePropertyGet("InnerHTML"); で取得

































HostChk ver 1.03  2011.5.29

C++Builder XE starter Edition でコンパイル
以前、作ったプログラムなのですがgethostbyname(host)が動作しなくなったようで、 getaddrinfo(host, NULL, &hints, &res)を使用し、ホスト名 → IPアドレスの変換をするように しました。

hostchk_exe.exe   実行ファイル(539KByte)
hostchk_src.exe   ソース ファイル(38KByte)
//--------------------------------------------------- #include "winsock2.h" #include "hostchk1.h" #include "ws2tcpip.h" #include <Wspiapi.h> void host_ip() { struct addrinfo hints, *res; struct in_addr addr; int err; WSADATA wsaData; LPHOSTENT lphostent; char *ip,szIp[10],host[100]; AnsiString wk,c,n; strcpy(host ,AnsiString(Form1->Edit1->Text).c_str()); WSAStartup(MAKEWORD(2,0), &wsaData); memset(&hints, 0, sizeof(hints)); hints.ai_socktype = SOCK_STREAM; hints.ai_family = AF_INET; if ((err = getaddrinfo(host, NULL, &hints, &res)) != 0) { Form1->Memo1->Lines->Add(L"error : "+IntToStr(err)); return ; } addr.S_un = ((struct sockaddr_in *)(res->ai_addr))->sin_addr.S_un; strcpy(host,inet_ntoa(addr)); Form1->Memo1->Lines->Add(L"ip address : "+AnsiString(host)); freeaddrinfo(res); WSACleanup(); } //-----------------------------------------------------------------