天空是藍(lán)色的
          

          做好軟件為中國(guó)
#gcc -c helloworld.c -o helloworld.o //編譯目標(biāo)文件
#gcc helloworld.o -o helloworld //編譯成可執(zhí)行exe
#helloworld //運(yùn)行exe
          

          

          


          
    
           數(shù)據(jù)加載中……
          
    
          
        
					
	
          
		
          
			 [函數(shù)]function CheckUrl(url: string): Boolean; //檢查一個(gè)URL是否有效函數(shù)
		
          
		
          //檢查一個(gè)URL是否有效函數(shù)

          //可用來(lái)檢測(cè)網(wǎng)絡(luò)連接是否正確，InternetCheckConnection函數(shù)檢查不準(zhǔn)確，有些情況無(wú)法檢測(cè)到，而以下CheckUrl函數(shù)則不會(huì)。
          //uses wininet;
          function CheckUrl(url: string): Boolean; 
          var
            hSession, hfile, hRequest: hInternet;
            dwindex, dwcodelen: dword;
            dwcode: array[          1..20] of Char;
            res: PChar;
          begin
            Result :          = false;
                      if Pos('http://', LowerCase(url)) = 0 then  url := 'http://' + url;
            hSession :          = InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG,
              nil, nil, 0);
                      if Assigned(hsession) then
            begin
              hfile :          = InternetOpenUrl(hsession, PChar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
              dwIndex :          = 0;
              dwCodeLen :          = 10;
              HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
              res :          = PChar(@dwcode);
              Result :          = (res = '200') or (res = '302'); //200,302未重定位標(biāo)志
                        if Assigned(hfile) then
                InternetCloseHandle(hfile);
              InternetCloseHandle(hsession);
            end;
          end;


          作者Blog：http://blog.csdn.net/siow/
          
		
          
			posted on 2005-11-29 10:35 bluesky 閱讀(691) 評(píng)論(0)  編輯  收藏  所屬分類: 記事本 
		
          
	
          
	
	


	


          
	    
    




          








          

				
    
          
    

          

	

    







          
        
	




主站蜘蛛池模板：
万山特区|
广昌县|
福安市|
济南市|
泌阳县|
萍乡市|
永靖县|
永嘉县|
孝昌县|
毕节市|
新竹县|
大英县|
历史|
阜新市|
澎湖县|
新沂市|
衡东县|
大丰市|
五原县|
循化|
房产|
年辖：市辖区|
乌兰浩特市|
宿松县|
固原市|
苍梧县|
应用必备|
东安县|
长海县|
石城县|
太白县|
汾阳市|
高邮市|
紫金县|
德钦县|
开远市|
屏东市|
同仁县|
察雅县|
任丘市|
基隆市|