초행길 님이 쓰신 글 :
: 저는 아래와 같이 두개의 함수를 만들어서 사용 중 입니다.
:
:
//---------------------------------------------------------------------------
: bool __fastcall TMainForm::checkInternet()
: {
: Application->ProcessMessages() ;
: try {
: MainForm->IdTCPClient1->ReadTimeout=2000;
: MainForm->IdTCPClient1->ConnectTimeout=2000;
: MainForm->IdTCPClient1->Port=80;
: MainForm->IdTCPClient1->Host="borlandforum.com";
: MainForm->IdTCPClient1->Connect();
: Application->ProcessMessages() ;
: MainForm->IdTCPClient1->Disconnect();
: Application->ProcessMessages() ;
: } catch (...) {
: return false ;
: } ;
:
: return true ;
: }
: //---------------------------------------------------------------------------
: if ( checkInternet() ) {
: ShowMessage("인터넷에 연결되었습니다.") ;
: } else {
: ShowMessage("인터넷연결에 문제가 있습니다.") ;
: };
:
:
:
:
: //---------------------------------------------------------------------------
: bool __fastcall TMainForm::httpGet(String stWeb, String stFileName, String stTarget, int intSleep)
: {
: TMemoryStream *mmrStreamOrder = new TMemoryStream ;
: try {
: MainForm->IdHTTP1->Get(stWeb+stFileName, mmrStreamOrder) ;
: Sleep(intSleep);
: mmrStreamOrder->SaveToFile( stTarget ) ;
: Sleep(intSleep);
: } catch (...) {
: MainForm->IdHTTP1->Disconnect() ;
: delete mmrStreamOrder ;
: return false;
: } ;
: MainForm->IdHTTP1->Disconnect() ;
: delete mmrStreamOrder ;
: return true;
: }
:
: //---------------------------------------------------------------------------
: if ( httpGet("http://img.borlandforum.com/images/", "hdr_cbuilder.gif", "c:\\Test\\hdr_cbuilder.gif", 1000 ) ) {
: ShowMessage("웹 이미지를 가져왔습니다.") ;
: };
:
:
:
:
: MNMNNMMMMNMMMMMNM 님이 쓰신 글 :
: : 어떤 사이트의 창을 띄우지 않고 인터넷 상에서 접속만 하게 하는 명령어가 있나요?
: : 있으면 알려주시기 바랍니다.
:
:
|