{"id":78,"date":"2007-12-15T07:18:18","date_gmt":"2007-12-15T07:18:18","guid":{"rendered":"http:\/\/pblog.ru\/lab\/?p=37"},"modified":"2007-12-15T07:18:18","modified_gmt":"2007-12-15T07:18:18","slug":"games211","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=78","title":{"rendered":"\u0417\u0430\u043a\u0430\u0447\u043a\u0430 \u0444\u0430\u0439\u043b\u0430 \u0438\u0437 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442\u0430"},"content":{"rendered":"<p>\u041a\u0430\u043a \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0437\u0430\u043a\u0430\u0447\u043a\u0443 \u0444\u0430\u0439\u043b\u043e\u0432 \u0438\u0437 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442\u0430?<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>var\nstop:bool;\n\nprocedure TForm1.FormCreate(Sender: TObject);\nbegin\nstop := false;\nend;\n\nprocedure TForm1.Button1Click(Sender: TObject);\/\/\u043a\u043d\u043e\u043f\u043a\u0430 \u043a\u0430\u0447\u0430\u0442\u044c\nvar\nhInet, \/\/<-\u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0441\u043e\u0434. \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c \u043d\u0430 \u0441\u0435\u0441\u0441\u0438\u044e\nhURL: HINTERNET; \/\/<-\u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c \u043d\u0430 URL\nfSize, \/\/<-\u0440\u0430\u0437\u043c\u0435\u0440 \u0444\u0430\u0439\u043b\u0430\nReadLen, \/\/<-\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0440\u0435\u0430\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0447\u0438\u0442\u0430\u043d\u043d\u044b\u0445 \u0431\u0430\u0439\u0442\nRestartPos: DWORD; \/\/<-|\u043f\u043e\u0437\u0438\u0446\u0438\u044f \u0441 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f\n\/\/ |\u0434\u043e\u043a\u0430\u0447\u043a\u0430\nfBuf: array[1..1024] of byte; \/\/<-\u0431\u0443\u0444\u0435\u0440 \u043a\u0443\u0434\u0430 \u043a\u0430\u0447\u0430\u0435\u043c\nf: file; \/\/<-\u0444\u0430\u0439\u043b \u043a\u0443\u0434\u0430 \u043a\u0430\u0447\u0430\u0435\u043c\nHeader: string; \/\/<-|\u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0432 HTTP\n\/\/ |\u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a\nbegin\nRestartPos := 0; \/\/<- |\u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f\nfSize := 0; \/\/<- |\u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445\nButton1.Enabled := false;\nButton2.Enabled := true;\n\/\/\u0415\u0441\u043b\u0438 \u043d\u0430 \u0432\u0438\u043d\u0442\u0435 \u0435\u0441\u0442\u044c \u0444\u0430\u0439\u043b \u0442\u043e \u0441\u0447\u0438\u0442\u0430\u0435\u043c, \u0447\u0442\u043e \u043d\u0443\u0436\u043d\u043e \u0434\u043e\u043a\u0430\u0447\u0438\u0432\u0430\u0442\u044c\nif FileExists('c:\\LoadFile.tmp') then\nbegin\nAssignFile(f, 'c:\\LoadFile.tmp');\nReset(f, 1);\nRestartPos := FileSize(F);\nSeek(F, FileSize(F));\nend\nelse\nbegin\n\/\/\u0438\u043d\u0430\u0447\u0435 \u0441 \u043d\u0430\u0447\u0430\u043b\u0430\nAssignFile(f, 'c:\\LoadFile.tmp');\nReWrite(f, 1);\nend;\n\/\/\u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0441\u0435\u0441\u0441\u0438\u044e\nhInet := InternetOpen('Mozilla',\nPRE_CONFIG_INTERNET_ACCESS,\nnil,\nnil,\n0);\n\/\/\u041f\u0438\u0448\u0435\u043c \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0434\u043b\u044f \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430\nHeader := 'Accept: *\/*';\n\/\/\u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c URL\nhURL := InternetOpenURL(hInet,\nPChar(ComboBox1.Text),\npchar(Header),\nStrLen(pchar(Header)),\n0,\n0);\n\/\/\u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0432 \u0444\u0430\u0439\u043b\u0435 \u0434\u043b\u044f \u0434\u043e\u043a\u0430\u0447\u043a\u0438\nif RestartPos > 0 then\nInternetSetFilePointer(hURL,\nRestartPos,\nnil,\n0,\n0);\n\/\/\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0441\u043a-\u043a\u043e \u043d\u0430\u0434\u043e \u0441\u043a\u0430\u0447\u0430\u0442\u044c\nInternetQueryDataAvailable(hURL, fSize, 0, 0);\nif RestartPos > 0 then\nbegin\nProgressBar1.Min := 0;\nProgressBar1.Max := fSize + RestartPos;\nProgressBar1.Position := RestartPos;\nend\nelse\nbegin\nProgressBar1.Min := 0;\nProgressBar1.Max := fSize + RestartPos;\nend;\n\/\/\u043a\u0430\u0447\u0430\u0435\u043c \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440 \u043f\u043e\u043a\u0430 \u0440\u0435\u0430\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0447\u0438\u0442\u0430\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0431\u0430\u0439\u0442 \u043d\u0435\n\/\/\u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0432\u043d\u043e \u043d\u0443\u043b\u044e \u0438\u043b\u0438 \u043d\u0435 \u0441\u0442\u043e\u0440\nwhile (ReadLen <> 0) and (stop = false) do\nbegin\n\/\/\u0447\u0438\u0442\u0430\u0435\u043c \u0432 \u0431\u0443\u0444\u0435\u0440\nInternetReadFile(hURL, @fBuf, SizeOf(fBuf), ReadLen);\n\/\/\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0441\u043a-\u043a\u043e \u043e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0434\u043e\u043a\u0430\u0447\u0430\u0442\u044c\nInternetQueryDataAvailable(hURL, fSize, 0, 0);\nProgressBar1.Position := ProgressBar1.Max - fSize;\nBlockWrite(f, fBuf, ReadLen); \/\/<-\u043f\u0438\u0448\u0435\u043c \u0432 \u0444\u0430\u0439\u043b\nApplication.ProcessMessages;\nend;\nstop := false;\nButton1.Enabled := true;\nButton2.Enabled := false;\nInternetCloseHandle(hURL); \/\/<-|\u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c\nInternetCloseHandle(hInet); \/\/<-|\u0441\u0435\u0441c\u0438\u0438\nCloseFile(f); \/\/<-|\u0438 \u0444\u0430\u0439\u043b\nend;\n\nprocedure TForm1.Button2Click(Sender: TObject);\/\/\u043a\u043d\u043e\u043f\u043a\u0430 \u043f\u0430\u0443\u0437\u0430\nbegin\nstop := true; \/\/<-\u0441\u043e\u043e\u0431\u0449\u0430\u0435\u043c \u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f \u0441\u043a\u0430\u0447\u043a\u0438\nend;\n<\/div><\/pre>\n<p><a href=\"http:\/\/www.programmersforum.ru\/member.php?u=6\">Simply-Art<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0437\u0430\u043a\u0430\u0447\u043a\u0443 \u0444\u0430\u0439\u043b\u043e\u0432 \u0438\u0437 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442\u0430?<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[16,366],"tags":[222,235,342],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/78"}],"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\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=78"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/78\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=78"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=78"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=78"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}