{"id":244,"date":"2008-05-07T01:23:12","date_gmt":"2008-05-07T01:23:12","guid":{"rendered":"http:\/\/6teen.ru\/?p=83"},"modified":"2008-05-07T01:23:12","modified_gmt":"2008-05-07T01:23:12","slug":"9908","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=244","title":{"rendered":"\u0412\u044b\u043a\u0430\u0447\u0438\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u043e\u0432 \u0438\u0437 \u0418\u043d\u0442\u0435\u0440\u043d\u0435\u0442"},"content":{"rendered":"<p>\u0412\u044b\u043a\u0430\u0447\u0438\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u043e\u0432 \u0438\u0437 \u0418\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>\u0412\u044b\u043a\u0430\u0447\u0438\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u043e\u0432 \u0438\u0437 \u0418\u043d\u0442\u0435\u0440\u043d\u0435\u0442\n\n\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043c\u043e\u0434\u0443\u043b\u044c Winlnet. \u041a\u0430\u043a \u0440\u0430\u0437 \u0432 \u043d\u0435\u043c \u043f\u0440\u043e\u043f\u0438\u0441\u0430\u043d\u044b \u0432\u0441\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0418\u043d\u0442\u0440\u0435\u043d\u0435\u0442.\n1)\nfunction lnternetOpen(lpszAgent: PChar; dwAccessType: DWORD; IpszProxyName,\nIpszProxyBypass: PChar; dwRags: DWORD): HINTERNET; stdcall;\n\n\u041e\u043d\u0430 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u0442 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442-\u0441\u0435\u0441\u0441\u0438\u044e \u0434\u043b\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f. \u0412\u043e\u0442 \u043a\u0430\u043a\u0438\u0435 \u0443 \u043d\u0435\u0435 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b:\n\nIpszAgent - \u0438\u043c\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b. \u0421\u0435\u0440\u044c\u0435\u0437\u043d\u044b\u0435 \u043b\u044e\u0434\u0438 \u043f\u0438\u0448\u0443\u0442 application.exename, \u0430 \u0441\u0442\u0430\u0440\u0438\u043a\u0438 - ParamStr(O). \u041d\u0430 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435 \u044d\u0442\u043e \u043d\u0435 \u0442\u0430\u043a \u0432\u0430\u0436\u043d\u043e, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0432\u0441\u0435 \u0440\u0430\u0432\u043d\u043e \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c.\ndwAccessType - \u0441\u043f\u043e\u0441\u043e\u0431 \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f. \u0412\u043e\u0442 \u0435\u0433\u043e \u0442\u0438\u043f\u044b: PRE_CONFIGJNTERNET_ACCESS - \u043a\u0430\u043a \u0432 \u0440\u0435\u0435\u0441\u0442\u0440\u0435. INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY - \u043d\u0435 \u044e\u0437\u0430\u0442\u044c internet setup file. GATEWAY INTERNET ACCESS - \u0447\u0435\u0440\u0435\u0437 \u0448\u043b\u044e\u0437. CERN_PROXYJNTERNET_ACCESS - \u0447\u0435\u0440\u0435\u0437 \u043f\u0440\u043e\u043a\u0441\u0438. IpszProxyName - \u0438\u043c\u044f \u043f\u0440\u043e\u043a\u0441\u0438.\nIpszProxyBypass - \u043a\u043e\u043c\u0443 \u043d\u0435 \u043d\u0430\u0434\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u043e\u043a\u0441\u044e.\ndwFlags - \u0440\u0435\u0436\u0438\u043c \u0440\u0430\u0431\u043e\u0442\u044b. \u0415\u0441\u043b\u0438 \u0441\u0442\u0430\u0432\u0438\u0442\u044c INTERNET_FLAG_ASYNC, \u0442\u043e \u0431\u0443\u0434\u0435\u0442 \u0430\u0441\u0438\u043d\u0445\u0440\u043e\u043d\u043d\u044b\u0439. \u0412 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u044d\u0442\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u043d\u0430\u043f\u0440\u044f\u0433, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0441\u0442\u0430\u0432\u044c 0.\n\n2)\nfunction lnternetOpenUrl(hlnet: HINTERNET; IpszUrl: PChar; IpszHeaders: PChar;\ndwHeadersLength: DWORD; dwFlags: DWORD; dwContext: DWORD): HINTERNET; stdcall;\n\n\u042d\u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u0442 \u0437\u0430\u0434\u0430\u043d\u043d\u044b\u0439 \u0423\u0420\u041b!  \u0415\u0435 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435:\n\nhinet - \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0442\u0438\u043f\u0430 HINTERNET. \u0415\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0444\u0443\u043d\u043a\u0446\u0438\u044f InternetOpen.\nIpszUrl - \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0441\u0430\u043c \u0423\u0420\u041b.\nIpszHeaders - \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 HTTP \u0437\u0430\u043f\u0440\u043e\u0441\u0435. \u041d\u0430\u043c \u043e\u043d\u0438 \u043d\u0435 \u043d\u0443\u0436\u043d\u044b.\ndwHeadersLength - \u0438\u0445 \u0434\u043b\u0438\u043d\u0430.\ndwFlags - \u0438\u0445 \u0442\u0443\u0442 \u0431\u043e\u043b\u044c\u0448\u0435 10 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439. \u0412\u043e\u0442 \u0441\u0430\u043c\u043e\u0435 \u043d\u0443\u0436\u043d\u043e\u0435: INTERNET_FLAG_EXISTING_CONNECT - \u043d\u0435 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u0434\u043b\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u043d\u043e\u0432\u043e\u0433\u043e \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f.\ndwContext - \u043f\u0438\u0448\u0438 0.\n\n3)\nfunction lnternetReadFile(hFile: HINTERNET; IpBuffer: Pointer; dwNumberOfBytesToRead: DWORD;\nvar IpdwNumberOfBytesRead: DWORD): BOOL; stdcall;\n\nInternetReadFile \u0447\u0438\u0442\u0430\u0435\u0442 \u0443\u0434\u0430\u043b\u0435\u043d\u043d\u044b\u0439 \u0444\u0430\u0439\u043b. \u0415\u0441\u043b\u0438 \u0442\u044b \u0437\u043d\u0430\u043a\u043e\u043c \u0441\u043e \u0441\u0442\u0430\u0440\u043e\u0439 \u0434\u043e\u0431\u0440\u043e\u0439 ReadFile (\u0438\u043b\u0438 JRead), \u0442\u043e \u043f\u043e\u0439\u043c\u0435\u0448\u044c \u0441\u0430\u043c, \u0430 \u044d\u0442\u043e \u0434\u043b\u044f \u0442\u0435\u0445, \u043a\u0442\u043e \u043d\u0435 \u0437\u043d\u0430\u0435\u0442:\n\nhFile - \u0441\u044e\u0434\u0430 \u0442\u044b \u043f\u043e\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0448\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0437 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 (\u043c\u043e\u0436\u043d\u043e \u0438 FtpOpenFile, \u0435\u0441\u043b\u0438 \u0442\u0435\u0431\u0435 \u044d\u0442\u043e \u0431\u043b\u0438\u0436\u0435).\nIpBuffer - \u0431\u0443\u0444\u0435\u0440, \u0447\u0435\u0440\u0435\u0437 \u043d\u0435\u0433\u043e \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0447\u0438\u0442\u0430\u0442\u044c \u0444\u0430\u0439\u043b. \u041a\u0430\u043a \u0442\u044b \u0434\u043e\u043b\u0436\u0435\u043d \u043f\u043e\u043c\u043d\u0438\u0442\u044c, \u0431\u0443\u0444\u0435\u0440- \u044d\u0442\u043e \u043c\u0430\u0441\u0441\u0438\u0432. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0444\u0430\u0439\u043b \u0447\u0438\u0442\u0430\u0435\u0442\u0441\u044f \u043a\u0443\u0441\u043a\u0430\u043c\u0438, \u0440\u0430\u0432\u043d\u044b\u043c\u0438 \u0440\u0430\u0437\u043c\u0435\u0440\u0443 \u044d\u0442\u043e\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430, \u0430 \u0443 \u043d\u0430\u0441 \u043e\u043d \u043e\u0431\u044a\u0435\u043c\u043e\u043c 1024 \u0431\u0430\u0439\u0442\u0430, \u0442.\u0435. \u043e\u0434\u0438\u043d \u043a\u0438\u043b\u043e\u0431\u0430\u0439\u0442.\ndwNumberOfBytesToRead - \u043a\u0430\u043a\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0430\u0439\u0442 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0440\u043e\u0447\u0435\u0441\u0442\u044c. \u041e\u043d \u0434\u043e\u043b\u0436\u0435\u043d \u0431\u044b\u0442\u044c \u0440\u0430\u0432\u0435\u043d \u0440\u0430\u0437\u043c\u0435\u0440\u0443 \u043d\u0430\u0448\u0435\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430, \u0442.\u0435. 1024.\nIpdwNumberOfBytesRead - \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0436\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0431\u0430\u0439\u0442 \u043f\u0440\u043e\u0447\u0438\u0442\u0430\u043d\u043e. \u0415\u0441\u043b\u0438 \u0432\u0441\u0435 \u043e\u0442\u043b\u0438\u0447\u043d\u043e, \u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 true, \u0438\u043d\u0430\u0447\u0435 - false.\n\n4)\nfunction InternetSetRlePointerfhFile: HINTERNET; IDistanceToMove: Longint; pReserved: Pointer;\ndwMoveMethod, dwContext: DWORD): DWORD; stdcall;\n\n\u0414\u043b\u044f \u043d\u0435\u0437\u043d\u0430\u043a\u043e\u043c\u044b\u0445 \u0441 SetFilePointer \u043f\u043e\u044f\u0441\u043d\u044e. \u042d\u0442\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0441\u0434\u0432\u0438\u0433\u0430\u0435\u0442 \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0447\u0442\u0435\u043d\u0438\u044f \u0444\u0430\u0439\u043b\u0430 \u043d\u0430 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0431\u0430\u0439\u0442. \u0422.\u0435. \u0435\u0441\u043b\u0438 \u0442\u0435\u0431\u0435 \u043d\u0430\u0434\u043e \u043f\u0440\u043e\u0447\u0438\u0442\u0430\u0442\u044c \u0444\u0430\u0439\u043b \u043d\u0435 \u0441 \u043d\u0430\u0447\u0430\u043b\u0430, \u0430 \u0441 \u043e\u0442\u043c\u0435\u0442\u043a\u0438 1000 \u0431\u0430\u0439\u0442, \u0442\u043e \u043f\u043e\u043b\u044c\u0437\u0443\u0439\u0441\u044f InternetSetFilePointer. \u0412\u043e\u0442 \u0435\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b:\n\nhFile - \u044d\u0442\u043e\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u0443\u0436\u0435 \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u043b\u0441\u044f.\nIDistanceToMove - \u043d\u0430 \u043a\u0430\u043a\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0430\u0439\u0442 \u0441\u043c\u0435\u0449\u0430\u0442\u044c \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c.\npReserved - \u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043e \u0434\u043e \u043b\u0443\u0447\u0448\u0438\u0445 \u0432\u0440\u0435\u043c\u0435\u043d, \u0430 \u0441\u0430\u043c\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0434\u043e\u043b\u0436\u043d\u043e \u0431\u044b\u0442\u044c \u0440\u0430\u0432\u043d\u043e \u043d\u0443\u043b\u044e.\ndwMoveMethod - \u043e\u0442\u043a\u0443\u0434\u0430 \u0434\u0435\u043b\u0430\u0442\u044c \u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435: FILE_BEGIN - \u0441 \u043d\u0430\u0447\u0430\u043b\u0430. FILE_END - \u0441 \u043a\u043e\u043d\u0446\u0430 :). FILECURRENT - \u0441 \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u043f\u043e\u0437\u0438\u0446\u0438\u0438. dwContext - \u0434\u043e\u043b\u0436\u043d\u043e \u0431\u044b\u0442\u044c \u043d\u0443\u043b\u0435\u043c. \u041a\u0430\u043a \u0442\u044b \u0443\u0436\u0435 \u0434\u043e\u0433\u0430\u0434\u0430\u043b\u0441\u044f, \u044d\u0442\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0438 \u0431\u0443\u0434\u0435\u0442 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0438\u0449\u0433\u044c \u043d\u0430\u043c \u0434\u043e\u043a\u0430\u0447\u043a\u0443. \u0415\u0441\u043b\u0438 \u043a\u043e\u043d\u0434\u0430 \u043f\u0440\u0435\u0440\u0432\u0435\u0442\u0441\u044f \u043d\u0430 \u043e\u0442\u043c\u0435\u0442\u043a\u0435 1.2 \u041c\u0431, \u0442\u043e \u043c\u044b \u0441\u043c\u043e\u0436\u0435\u043c \u0432\u0435\u0440\u043d\u0443\u0442\u044c\u0441\u044f \u043d\u0430 \u043d\u0443\u0436\u043d\u0443\u044e \u043d\u0430\u043c \u043f\u043e\u0437\u0438\u0446\u0438\u044e. \u041f\u0440\u0438 \u0443\u0441\u043f\u0435\u0448\u043d\u043e\u043c \u0432\u043e\u0437\u0432\u0440\u0430\u0442\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u0435\u0440\u043d\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 1.2 \u041c\u0431. \u041d\u043e \u0443\u0447\u0442\u0438, \u0435\u0441\u043b\u0438 \u0441\u0435\u0440\u0432\u0430\u043a \u043d\u0435 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0435\u0442 \u0434\u043e\u043a\u0430\u0447\u043a\u0438, \u0442\u043e \u0444\u0430\u0439\u043b \u043f\u0440\u0438\u0434\u0435\u0442\u0441\u044f \u0447\u0438\u0442\u0430\u0442\u044c \u0441 \u0441\u0430\u043c\u043e\u0433\u043e \u043d\u0430\u0447\u0430\u043b\u0430.\n\n5)\nfunction InternetQueryDataAvailable(hFile: IpdwNumberOfBytesAvailable: DWORD;\ndwFlags, dwContext: DWORD): BOOL; stdcall; HINTERNET;\n\n\u041e\u043d\u0430 \u0432\u044b\u044f\u0441\u043d\u044f\u0435\u0442 \u043e\u0431\u044a\u0435\u043c \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445, \u0442.\u0435. \u0440\u0430\u0437\u043c\u0435\u0440 \u0437\u0430\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430. \u041f\u043e\u044f\u0441\u043d\u0435\u043d\u0438\u044f:\n\nhFile - \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0442\u0438\u043f\u0430 HINTERNET. \u0423\u0436\u0435 \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u043b\u0430\u0441\u044c \u0432\u044b\u0448\u0435. IpdwNumberOfBytesAvailable - \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0435 \u0431\u0430\u0439\u0442\u044b. dwFlags - \u0441\u0442\u0430\u0432\u044c \u0432 0. dwContext - \u0437\u0434\u0435\u0441\u044c \u0442\u0430\u043a\u0436\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438 0.\n\n6)\nfunction InternetCloseHandle(hlnet: HINTERNET): BOOL; stdcall;\n\n\u0412 InternetCloseHandle \u043d\u0435\u0442 \u043d\u0438\u0447\u0435\u0433\u043e \u0441\u043b\u043e\u0436\u043d\u043e\u0433\u043e. \u042d\u0442\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043f\u0440\u043e\u0441\u0442\u043e \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u0442 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442-\u0441\u0435\u0441\u0441\u0438\u044e.\n\n\u0418\u043d\u0442\u0435\u0440\u0444\u0435\u0439\u0441\n\n\u041a\u0438\u0434\u0430\u0439 \u043d\u0430 \u0444\u043e\u0440\u043c\u0443 \u0434\u0432\u0430 TEdit, \u0447\u0435\u0442\u044b\u0440\u0435 TLabel, SaveDialog \u0438 4 \u041a\u043d\u043e\u043f\u043a\u0438.\n\n\u041f\u0435\u0440\u0432\u044b\u0435 \u0442\u0440\u0438 \u043a\u043d\u043e\u043f\u043a\u0438 \u043e\u0431\u0437\u043e\u0432\u0438 (\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \"caption\"): \"\u0417\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c\", \"\u041e\u0442\u043c\u0435\u043d\u0430\" \u0438 \"\u0412\u044b\u0445\u043e\u0434\", \u0430 \u043d\u0430 \u0447\u0435\u0442\u0432\u0435\u0440\u0442\u043e\u0439 \u043f\u043e\u0441\u0442\u0430\u0432\u044c 3 \u0442\u043e\u0447\u043a\u0438. Label'\u044b \u0431\u0443\u0434\u0443\u0442 \u043d\u0430\u0437\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u0442\u0430\u043a:\n\nLabel1: \"\u041e\u0442\u043a\u0443\u0434\u0430 \u043a\u0430\u0447\u0430\u0442\u044c?\"\nLabel2: \"\u0410 \u043a\u0443\u0434\u0430 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0442\u044c?\"\nLabel3: \"\u0420\u0430\u0437\u043c\u0435\u0440 \u0444\u0430\u0439\u043b\u0430:\"\nLabel4: \"\u041e\"\n\n\u041a\u043e\u0434\u0438\u043d\u0433\n\n\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0434\u043e\u0431\u0430\u0432\u044c \u0432 \u0440\u0430\u0437\u0434\u0435\u043b public \u043e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 NADO: boolean; (\u043e\u043d\u0430 \u043d\u0443\u0436\u043d\u0430 \u0434\u043b\u044f \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438), \u0441\u043e\u0437\u0434\u0430\u0439 \u0441\u043e\u0431\u044b\u0442\u0438\u0435 OnClick \u0434\u043b\u044f 4-\u0439 \u043a\u043d\u043e\u043f\u043a\u0438 \u0438 \u0432\u043f\u0438\u0448\u0438 \u0442\u0443\u0434\u0430 \u0442\u0430\u043a\u043e\u0439 \u043a\u043e\u0434:\n\nIF SaveDialogl.Execute then Edit2.Text := SaveDialogl.FileName;\n\u042d\u0442\u043e\u0442 \u043a\u043e\u0434 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d, \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u043f\u0443\u0442\u044c \u0432\u0440\u0443\u0447\u043d\u0443\u044e. \u0422\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438 \u043d\u0430 \u043a\u043e\u0434 \u043d\u0438\u0436\u0435. \u041f\u043e\u043f\u044b\u0442\u0430\u0439\u0441\u044f \u043f\u043e\u043d\u044f\u0442\u044c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u044d\u0442\u043e\u0433\u043e \u043b\u0438\u0441\u0442\u0438\u043d\u0433\u0430. \u041f\u043e\u043d\u044f\u043b? \u041d\u0435 \u043f\u043e\u043d\u044f\u043b?  \u0412 \u043e\u0431\u0449\u0435\u043c, \u043d\u0430\u0431\u0435\u0439 \u0435\u0433\u043e \u0432 \u0441\u0432\u043e\u0439 \u043f\u0440\u043e\u0435\u043a\u0442. \u041b\u043e\u0433\u0438\u043a\u0430 \u0440\u0430\u0431\u043e\u0442\u044b \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0442\u0430\u043a\u0430\u044f. \u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u043c\u044b \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043d\u0430\u043b\u0438\u0447\u0438\u0435 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430. \u0415\u0441\u043b\u0438 \u0435\u0433\u043e \u043d\u0435\u0442, \u0442\u043e \u043a\u0430\u0447\u0430\u0435\u043c \u0441 \u043d\u0443\u043b\u044f, \u0435\u0441\u043b\u0438 \u0436\u0435 \u043e\u043d \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442, \u0442\u043e \u0437\u0430 \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u0443\u044e \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0434\u043b\u044f \u0434\u043e\u043a\u0430\u0447\u043a\u0438 \u0431\u0435\u0440\u0435\u043c \u0440\u0430\u0437\u043c\u0435\u0440 \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u0438 \u043f\u043e\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u043c \u044d\u0442\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 InternetSetFilePointer. \u0427\u0442\u043e \u043c\u044b \u0438 \u0434\u0435\u043b\u0430\u0435\u043c. \u0417\u0430\u0442\u0435\u043c \u0446\u0438\u043a\u043b\u0438\u0447\u0435\u0441\u043a\u0438 \u0447\u0438\u0442\u0430\u0435\u043c \u043f\u043e 1024 \u0431\u0430\u0439\u0442\u0430 \u043e\u0442 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442-\u0444\u0430\u0439\u043b\u0430, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0441\u043a\u0430\u0447\u0430\u0435\u043c \u0435\u0433\u043e \u0446\u0435\u043b\u0438\u043a\u043e\u043c. \u042d\u0442\u043e \u0438 \u0431\u0443\u0434\u0435\u0442 \u043a\u043e\u043d\u0435\u0446 \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438. \u0425\u043e\u0442\u044f, \u043d\u0430 \u0441\u043b\u0443\u0447\u0430\u0439 \u0440\u0443\u0447\u043d\u043e\u0433\u043e \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f, \u0432\u043f\u0438\u0448\u0438 \u0432 OnClick \u0434\u043b\u044f 2-\u0439 \u043a\u043d\u043e\u043f\u043a\u0438 \u0442\u0430\u043a\u043e\u0439 \u043a\u043e\u0434:\n\nNADO := FALSE\n\u0412\u0441\u0435 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u043e\u0435 \u044f\u0441\u043d\u043e \u0438 \u043f\u043e \u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u044f\u043c, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u044f \u043f\u0440\u043e\u0442\u0435\u0441\u0442\u0438\u0440\u0443\u044e \u044d\u0442\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0438 \u043f\u0435\u0440\u0435\u0439\u0434\u0443 \u043a \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044e.\n\n\u0412\u043e\u0442 \u0447\u0442\u043e \u043d\u0443\u0436\u043d\u043e \u0432\u043f\u0438\u0441\u0430\u0442\u044c \u0432 OnClick \u0434\u043b\u044f \u043a\u043d\u043e\u043f\u043e\u043a:\n\nprocedure TForml .BitBtn1Click(Sender: TObject);\nvar\n  F: File;\n  ResumePos, BufferLen, SumSize: DWORD;\n  hSession, hURL: Hlnternet;\n  Buffer: array[1..1024] of Byte;\n  err: boolean;\nbegin\n SumSize := 0; ResumePos := 0;  \/\/\u0418\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c\u0441\u044f\n AssignFile(F, Edit2.Text); \/\/\u0421\u0432\u044f\u0436\u0435\u043c\u0441\u044f \u0441 \u0444\u0430\u0439\u043b\u043e\u043c\n IF FileExists(Edit2.Text) then \/\/\u0415\u0441\u0442\u044c \u043b\u0438 \u043d\u0430 \u0434\u0438\u0441\u043a\u0435 \u044d\u0442\u043e\u0442 \u0444\u0430\u0439\u043b\n   begin\n     Reset(f,1); \/\/Ax, \u0435\u0441\u0442\u044c? \u041e\u0442\u043a\u0440\u043e\u0435\u043c!\n     ResumePos := FileSize(F); \/\/\u041e\u0442\u043a\u0443\u0434\u0430 \u0434\u043e\u043a\u0430\u0447\u0430\u0442\u044c\n     Seek(F, FileSize(F)); \/\/\u0410 \u043f\u0438\u0441\u0430\u0442\u044c \u0431\u0443\u0434\u0435\u043c \u0432 \u043a\u043e\u043d\u0435\u0446\n   end else ReWrite(f,1); \/\/\u0410 \u0440\u0430\u0437 \u043d\u0435\u0442, \u0442\u0430\u043a \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c\n   NADO := TRUE; \/\/\u041d\u0430\u0434\u043e \u043a\u0430\u0447\u0430\u0442\u044c...\n   \/\/\u041e\u0442\u043a\u0440\u044b\u043b\u0438 \u0441\u0435\u0441\u0441\u0438\u044e\n   hSession := lnternetOpen('X-Kachalka', PRE_CONFIG INTERNET_ACCESS, nil, nil, 0);\n   \/\/\u0418 \u043d\u0430\u0448 \u0423\u0420\u041b\n   hURL := lnternetOpenURL(hSession,PChar(Edit1.Text),nil, O, 0, O);\n   \/\/\u0421\u043a\u043e\u043b\u044c\u043a\u043e \u0442\u0430\u043c \u043d\u0430\u0448 \u0444\u0430\u0439\u043b \u0432\u0435\u0441\u0438\u0442?\n   lnternetQueryDataAvailable(hURL, SumSize, 0, 0);\n   labe4.Caption := IntToStr(SumSize); \/\/\u0421\u043e\u043e\u0431\u0449\u0438\u043c \u043e\u0431 \u044d\u0442\u043e\u043c\n   if ResumePos>0 then \/\/\u0415\u0441\u043b\u0438 \u0434\u043e\u043a\u0430\u0447\u0438\u0432\u0430\u0435\u043c,\n     begin\n          lnternetSetFilePointer(hURL,ResumePos,nil,0,0); \/\/\u0422\u043e \u0441\u043c\u0435\u0441\u0442\u0438\u043c\u0441\u044f\n     end;\n   REPEAT \/\/\u041a\u0430\u0447\u0430\u0435\u043c\n     err:= lnternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); \/\/\u0427\u0438\u0442\u0430\u0435\u043c \u0431\u0443\u0444\u0435\u0440\n     IF err= false then \/\/\u041e\u0448\u0438\u0431\u043a\u0430 \u0447\u0442\u0435\u043d\u0438\u044f\n       begin\n         ShowMessage ('\u041f\u0440\u043e\u0438\u0437\u043e\u0448\u0435\u043b \u043e\u0431\u043b\u043e\u043c :('); \/\/\u0421\u043e\u043e\u0431\u0449\u0438\u043c \u0438 \u0432\u044b\u0445\u043e\u0434\u0438\u043c\n         exit;\n       end;\n     BlockWrite(f, Buffer, BufferLen); \/\/\u041f\u0438\u0448\u0435\u043c \u0432 \u0444\u0430\u0439\u043b\n     Application. Processmessages;\n   UNTIL (BufferLen- 0) Or (NADO= FALSE); \/\/\u041a\u0430\u0447\u0430\u0435\u043c, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0432\u0441\u0435 \u0438\u043b\u0438 \u043d\u0430\u0434\u043e\n ShowMessage ('\u0423\u0441\u043f\u0435\u0448\u043d\u043e \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u043e!');\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u0412\u044b\u043a\u0430\u0447\u0438\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u043e\u0432 \u0438\u0437 \u0418\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":[668,773,345],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/244"}],"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=244"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/244\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=244"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=244"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=244"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}