{"id":621,"date":"2008-05-17T02:22:16","date_gmt":"2008-05-17T02:22:16","guid":{"rendered":"http:\/\/6teen.ru\/?p=631"},"modified":"2008-05-17T02:22:16","modified_gmt":"2008-05-17T02:22:16","slug":"1012","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=621","title":{"rendered":"\u041f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u0435 \u0441 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442"},"content":{"rendered":"<p>\u041f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u0435 \u0441 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u0435 \u0441 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442\n\n\u0421\u0430\u043c\u044b\u0439 \u043b\u0443\u0447\u0448\u0438\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 - \u043f\u043e\u043f\u044b\u0442\u0430\u0442\u044c\u0441\u044f \u043e\u0442\u043a\u0440\u044b\u0442\u044c \u0437\u0430\u0432\u0435\u0434\u043e\u043c\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0439 \u0423\u0420\u041b:\n\nuses wininet;\n\nfunction CheckUrl(url: string): boolean;\nvar\n  hSession, hfile, hRequest: hInternet;\n  dwindex, dwcodelen: dword;\n  dwcode: array [1..20] of char;\n  res: pchar;\nbegin\n  if pos('http:\/\/', lowercase(url)) = 0 then\n    url := 'http:\/\/'+url;\n  Result := false;\n  hSession := InternetOpen('InetURL:\/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);\n  if assigned(hsession) then\n  begin\n    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);\n    dwIndex := 0;\n    dwCodeLen := 10;\n    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);\n    res := pchar(@dwcode);\n    result := (res = '200') or (res = '302');\n    if assigned(hfile) then\n      InternetCloseHandle(hfile);\n    InternetCloseHandle(hsession);\n  end;\nend;\n\n********************************************************\n\n\u041c\u043e\u0439 \u0441\u043f\u043e\u0441\u043e\u0431\n\n\u041f\u0438\u043d\u0433\u0443\u0435\u043c \u0420\u0430\u043c\u0431\u043b\u0435\u0440:\n\nIdIcmpClient1: TIdIcmpClient;\n....\nprocedure TForm1.Button1Click(Sender: TObject);\nvar rc : DWORD;\nbegin\ntry\nIdIcmpClient1.Ping;\nexcept\nrc := GetLastError;\nCaption:=SysErrorMessage(rc);\nend;\nend;\n\nprocedure TForm1.IdIcmpClient1Reply(ASender: TComponent;\n  const AReplyStatus: TReplyStatus);\nbegin\ncaption:=AReplyStatus.FromIpAddress+' '+inttostr(AReplyStatus.MsRoundTripTime);\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u0435 \u0441 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,457],"tags":[1348,1617,1745],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/621"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=621"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/621\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=621"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=621"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=621"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}