{"id":67,"date":"2007-04-23T17:50:45","date_gmt":"2007-04-23T14:50:45","guid":{"rendered":"http:\/\/pblog.ru\/?p=67"},"modified":"2009-04-23T19:00:11","modified_gmt":"2009-04-23T16:00:11","slug":"%d1%83%d0%bf%d0%b0%d0%ba%d0%be%d0%b2%d0%ba%d0%b0-%d0%bf%d0%b0%d0%bf%d0%be%d0%ba-c-%d0%bf%d0%be%d0%bc%d0%be%d1%89%d1%8c%d1%8e-zlib","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=67","title":{"rendered":"\u0423\u043f\u0430\u043a\u043e\u0432\u043a\u0430 \u043f\u0430\u043f\u043e\u043a c \u043f\u043e\u043c\u043e\u0449\u044c\u044e ZLib."},"content":{"rendered":"

\u041d\u0430\u0432\u0435\u0440\u043d\u043e \u0432\u0441\u0435 \u0447\u0438\u0442\u0430\u043b\u0438 \u043c\u043e\u044e \u0441\u0442\u0430\u0442\u044c\u044e<\/a> \u043f\u0440\u043e \u0443\u043f\u0430\u043a\u043e\u0432\u043a\u0443 \u0444\u0430\u0439\u043b\u043e\u0432 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 ZLib \u0432 Delphi. \u0412 \u043d\u0435\u0439 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043e, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0444\u0430\u0439\u043b\u044b \u043f\u043e\u0447\u0442\u0438 \u0441 \u0442\u043e\u0439 \u0436\u0435 \u0441\u0442\u0435\u043f\u0435\u043d\u044c\u044e \u0441\u0436\u0430\u0442\u0438\u044f, \u043a\u0430\u043a \u0438 ZIP. \u041d\u043e \u044f \u043e\u043f\u0438\u0441\u0430\u043b, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u0435\u0434\u0438\u043d\u0438\u0447\u043d\u044b\u0435 \u0444\u0430\u0439\u043b\u044b. \u041f\u043e \u043c\u043d\u043e\u0433\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u043c \u0437\u0430\u044f\u0432\u043a\u0430\u043c \u0447\u0438\u0442\u0430\u0442\u0435\u043b\u0435\u0439 \u044f \u043f\u0438\u0448\u0443 \u0435\u0449\u0451 \u043e\u0434\u043d\u0443 \u0441\u0442\u0430\u0442\u044c\u044e \u043f\u0440\u043e \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0446\u0435\u043b\u044b\u0445 \u043f\u0430\u043f\u043e\u043a.
\n\u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0431\u044b \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043f\u0430\u043f\u043a\u0443, \u0434\u0430\u0432\u0430\u0439\u0442\u0435 \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u0443\u0447\u0438\u043c\u0441\u044f \u0441\u043a\u043b\u0435\u0438\u0432\u0430\u0442\u044c \u0432\u0441\u0435 \u0444\u0430\u0439\u043b\u044b, \u043d\u0430\u0445\u043e\u0434\u044f\u0449\u0438\u0435\u0441\u044f \u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043f\u0430\u043f\u043a\u0435. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u0440\u0430\u0437\u0431\u0435\u0440\u0451\u043c\u0441\u044f \u0441 \u0444\u043e\u0440\u043c\u0430\u0442\u043e\u043c \u044d\u0442\u043e\u0433\u043e \u0441\u043a\u043b\u0435\u0435\u043d\u043d\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430, \u0430 \u0431\u0443\u0434\u0443\u0442 \u043e\u043d \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e \u0442\u0430\u043a\u0438\u043c<\/p>\n

\u041f\u0435\u0440\u0432\u044b\u0435 \u0447\u0435\u0442\u044b\u0440\u0435 \u0431\u0430\u0439\u0442\u0430 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0442\u044c \u0441\u0438\u0433\u043d\u0430\u0442\u0443\u0440\u0430, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0430\u0442\u044c, \u0447\u0442\u043e \u044d\u0442\u043e \u0444\u0430\u0439\u043b \u043d\u0430\u0448\u0435\u0433\u043e \u0444\u043e\u0440\u043c\u0430\u0442\u0430
\n\u0421\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u0447\u0435\u0442\u044b\u0440\u0435 \u0431\u0430\u0439\u0442\u0430 \u0431\u0443\u0434\u0443\u0442 \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0430\u0442\u044c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0444\u0430\u0439\u043b\u043e\u0432 \u0432 \u044d\u0442\u043e\u043c \u0441\u043a\u043b\u0435\u0435\u043d\u043d\u043e\u043c \u0444\u0430\u0439\u043b\u0435
\n\u041f\u043e\u0442\u043e\u043c \u0431\u0443\u0434\u0435\u0442 \u0438\u0434\u0442\u0438 \u043c\u0430\u0441\u0441\u0438\u0432 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0431\u0443\u0434\u0435\u0442 \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0432\u0441\u0435 \u0444\u0430\u0439\u043b\u044b \u0432 \u044d\u0442\u043e\u043c \u0441\u043a\u043b\u0435\u0435\u043d\u043d\u043e\u043c \u0444\u0430\u0439\u043b\u0435, \u043a\u0430\u0436\u0434\u0430\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u0431\u0443\u0434\u0435\u0442 \u0438\u043c\u0435\u0442\u044c \u0432\u043e\u0442 \u0442\u0430\u043a\u043e\u0439 \u0444\u043e\u0440\u043c\u0430\u0442
\n
\n1. 2 \u0431\u0430\u0439\u0442\u0430 — \u0434\u043b\u0438\u043d\u0430 \u0438\u043c\u0435\u043d\u0438 \u0444\u0430\u0439\u043b\u0430
\n2. \u0420\u0430\u0437\u043c\u0435\u0440 \u044d\u0442\u043e\u0433\u043e \u043f\u043e\u043b\u044f \u0440\u0430\u0432\u0435\u043d \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044e \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0433\u043e \u043f\u043e\u043b\u044f — \u041f\u043e\u043b\u043d\u043e\u0435 \u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430, \u0438\u0441\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0443\u0442\u044c \u043a \u043d\u0430\u0448\u0435\u0439 \u043f\u0430\u043f\u043a\u0435, \u0442.\u0435. \u043f\u0443\u0442\u044c \u043a \u0444\u0430\u0439\u043b\u0443 \u0432 \u043d\u0430\u0448\u0435\u0439 \u043f\u0430\u043f\u043a\u0435.
\n3. 4 \u0431\u0430\u0439\u0442\u0430 — \u0420\u0430\u0437\u043c\u0435\u0440 \u0444\u0430\u0439\u043b\u0430
\n4. \u0420\u0430\u0437\u043c\u0435\u0440 \u044d\u0442\u043e\u0433\u043e \u043f\u043e\u043b\u044f \u0440\u0430\u0432\u0435\u043d \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044e \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0433\u043e \u043f\u043e\u043b\u044f — \u0421\u0430\u043c\u043e \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u0430<\/p>\n

\u0412 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0435 \u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u043c\u0435\u0440 \u043e\u0434\u043d\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043c\u0430\u043a\u0441\u0438\u043c\u0443\u043c 2^32 \u0431\u0430\u0439\u0442, \u0442.\u0435. 4 \u0413\u0411. \u041a\u0441\u0442\u0430\u0442\u0438, \u0434\u043b\u044f \u043f\u043e\u0432\u044b\u0448\u0435\u043d\u0438\u044f \u0432\u044b\u0448\u0435\u0439 \u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u043d\u043e\u0441\u0442\u0438 \u0444\u043e\u0440\u043c\u0430\u0442 \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0441\u0442\u0440\u043e\u043a\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e, \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u0442\u0441\u044f LS, \u0442.\u0435. \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u043f\u0438\u0448\u0435\u0442\u0441\u044f \u0434\u043b\u0438\u043d\u0430 \u0441\u0442\u043e\u043a\u0438 \u043f\u043e\u0442\u043e\u043c \u0441\u0430\u043c\u0430 \u0441\u0442\u0440\u043e\u043a\u0430. \u0418\u0442\u0430\u043a, \u043f\u0440\u0438\u0441\u0442\u0443\u043f\u0438\u043c \u043a \u043a\u043e\u0434\u0438\u043d\u0433\u0443. \u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u043c \u043d\u0430\u0434\u043e \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0441\u043f\u0438\u0441\u043e\u043a \u0432\u0441\u0435\u0445 \u0444\u0430\u0439\u043b\u043e\u0432 \u0432 \u043f\u0430\u043f\u043a\u0435. \u041d\u0430\u043f\u0438\u0448\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0442\u044c \u043f\u0443\u0442\u044c \u043a \u043f\u0430\u043f\u043a\u0435, \u0430 \u043e\u043d\u0430 \u043d\u0430\u043c \u0431\u0443\u0434\u0435\u0442 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442 TStringList \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0438 \u0431\u0443\u0434\u0435\u0442 \u043b\u0435\u0436\u0430\u0442\u044c \u0441\u043f\u0438\u0441\u043e\u043a \u0432\u0441\u0435\u0445 \u0444\u0430\u0439\u043b\u043e\u0432 \u0432 \u043f\u0430\u043f\u043a\u0435.<\/p>\n

\r\nfunction GetAllFiles (Filter, Folder: string):TFilesList;\r\nvar\r\n  sr: TSearchRec;\r\n  sDirList,_FilesList,_LST: TStringList;\r\n  i,j: Integer;\r\nbegin\r\n  j:=0;\r\n  _FilesList:= TStringList.create;\r\n  _FilesList.Clear;\r\n<\/code><\/pre>\n
\u0412 \u043d\u0430\u0447\u0430\u043b\u0435 \u043c\u044b \u0441\u043e\u0437\u0434\u0430\u0451\u043c \u043e\u0431\u044a\u0435\u043a\u0442 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 , \u0430 \u043f\u043e\u0442\u043e\u043c \u043c\u044b \u0438\u0449\u0435\u043c \u0432\u0441\u0435 \u0444\u0430\u0439\u043b\u044b \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0430\u0445\u043e\u0434\u044f\u0442\u0441\u044f \u0432 \u043f\u0430\u043f\u043a\u0435 \u043f\u0443\u0442\u044c \u043a \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0431\u044b\u043b \u043f\u0435\u0440\u0435\u0434\u0430\u043d \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430. \u042f \u0434\u0443\u043c\u0430\u044e \u0437\u0434\u0435\u0441\u044c \u043d\u0435\u0442 \u043d\u0438\u0447\u0435\u0433\u043e \u0441\u043b\u043e\u0436\u043d\u043e\u0433\u043e. \u041f\u0435\u0440\u0432\u044b\u0435 \u0434\u0432\u0430 \u043d\u0430\u0439\u0434\u0435\u043d\u043d\u044b\u0445 \u0444\u0430\u0439\u043b\u0430 \u0438\u0433\u043d\u043e\u0440\u0438\u0440\u0443\u044e\u0442\u0441\u044f \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u044d\u0442\u043e \u043f\u0430\u043f\u043a\u0438 . \u0438 .. \u043f\u0440\u0438 \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0435 \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043c\u044b \u043e\u0441\u0442\u0430\u0451\u043c\u0441\u044f \u0432 \u044d\u0442\u043e\u0439 \u043f\u0430\u043f\u043a\u0435 \u0438 \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043e\u0434\u0438\u043d \u0443\u0440\u043e\u0432\u0435\u043d\u044c \u0432\u0432\u0435\u0440\u0445 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e.<\/p>\n
\r\n  if FindFirst (Folder + Filter,faAnyFile , sr) = 0 then\r\n  repeat\r\n    j:=j+1;\r\n    if j<3 then Continue;\r\n    if (sr.Attr and fadirectory)=faDirectory then Continue;\r\n    _FilesList.Add(Folder + sr.Name);\r\n  until FindNext(sr)  0;\r\n  FindClose(sr);\r\n<\/code><\/pre>\n
\u0414\u0430\u043b\u0435\u0435 \u043c\u044b \u0441\u043e\u0437\u0434\u0430\u0451\u043c \u043e\u0431\u044a\u0435\u043a\u0442, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0431\u0443\u0434\u0435\u0442 \u0445\u0440\u0430\u043d\u0438\u0442\u044c\u0441\u044f \u0441\u043f\u0438\u0441\u043e\u043a \u043f\u043e\u0434\u043f\u0430\u043f\u043e\u043a, \u0438 \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0439 \u043f\u043e\u0434\u043f\u0430\u043f\u043a\u0438 \u0441\u0430\u043c\u0443 \u0441\u0435\u0431\u044f. \u0417\u0434\u0435\u0441\u044c \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u043e-\u0434\u0440\u0443\u0433\u043e\u043c\u0443 \u0438\u0433\u043d\u043e\u0440\u0438\u0440\u0443\u044e\u0442\u0441\u044f \u043f\u0435\u0440\u0432\u044b\u0435 \u0434\u0432\u0430 \u043f\u0443\u043d\u043a\u0442\u0430 \u044f \u044d\u0442\u043e \u0441\u0434\u0435\u043b\u0430\u043b \u0442\u043e\u043b\u044c\u043a\u043e \u043b\u0438\u0448\u044c \u0434\u043b\u044f \u0440\u0430\u0437\u043d\u043e\u043e\u0431\u0440\u0430\u0437\u0438\u044f (\u043a\u0441\u0442\u0430\u0442\u0438, \u0442\u0430\u043a \u043d\u0430\u043c\u043d\u043e\u0433\u043e \u043b\u0443\u0447\u0448\u0435, \u0447\u0435\u043c \u0442\u043e \u0447\u0442\u043e \u043c\u044b \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u043b\u0438 \u043f\u0440\u0438 \u043f\u043e\u0438\u0441\u043a\u0435 \u0444\u0430\u0439\u043b\u043e\u0432). \u041f\u043e\u0441\u043b\u0435 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f \u0441\u043f\u0438\u0441\u043a\u0430 \u0444\u0430\u0439\u043b\u043e\u0432 \u0432 \u043a\u0430\u0436\u0434\u043e\u0439 \u043f\u043e\u0434\u043f\u0430\u043f\u043a\u0435 \u043c\u044b \u043a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a \u0432 \u0441\u043f\u0438\u0441\u043e\u043a \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442.<\/p>\n
\r\n  sDirList := TStringList.Create;\r\n  try\r\n    GetSubDirs (Folder, sDirList);\r\n    for i := 0 to sDirList.Count - 1 do\r\n      if (sDirList<\/em>  '.') and (sDirList<\/em>  '..') then\r\n      begin\r\n        _LST:=GetAllFiles(Filter,IncludeTrailingPathDelimiter (Folder + sDirList<\/em>));\r\n        for j:=0 to _LST.Count-1 do\r\n         _FilesList.Add(_LST.Strings[j]);\r\n        _LST.free;\r\n      end;\r\n  finally\r\n    sDirList.Free;\r\n  end;\r\n  Result:= _FilesList;\r\nend;\r\n<\/code><\/pre>\n
\u0412 \u044d\u0442\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043c\u044b \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u043b\u0438 \u0441\u043f\u043e\u0441\u043e\u0431 \u0432\u044b\u0437\u043e\u0432\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0438\u0437 \u0441\u0430\u043c\u043e\u0439 \u0441\u0435\u0431\u044f, \u043d\u0430\u0441\u0442\u043e\u044f\u0442\u0435\u043b\u044c\u043d\u043e \u043d\u0435 \u0440\u0435\u043a\u043e\u043c\u0435\u043d\u0434\u0443\u044e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0442\u0430\u043a\u043e\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 \u043f\u0440\u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0438 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0439 \u0442\u0440\u0435\u0431\u0443\u044e\u0449\u0438\u0445 \u043e\u0447\u0435\u043d\u044c \u0431\u043e\u043b\u044c\u0448\u043e\u0433\u043e \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u0432\u044b\u0437\u043e\u0432\u043e\u0432 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u0442\u0430\u043a \u043a\u0430\u043a \u044d\u0442\u043e \u043c\u043e\u0436\u0435\u0442 \u0432\u044b\u0437\u0432\u0430\u0442\u044c \u043f\u0435\u0440\u0435\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u0441\u0442\u0435\u043a\u0430. \u0412 Windows \u0441\u0442\u0435\u043a \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d 1 \u041c\u0412. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u044f (\u0435\u0441\u043b\u0438 \u0443 \u043d\u0435\u0451 \u043e\u0434\u0438\u043d \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440) \u043c\u043e\u0436\u0435\u0442 \u0432\u044b\u0437\u0432\u0430\u0442\u044c \u0441\u0435\u0431\u044f \u0442\u043e\u043b\u044c\u043a\u043e 131072 \u0440\u0430\u0437, \u0432\u044b \u0441\u043a\u0430\u0436\u0435\u0442\u0435 \u00ab\u0441\u0442\u043e\u043b\u044c\u043a\u043e \u0440\u0430\u0437 \u0432\u044b\u0437\u0432\u0430\u0442\u044c \u0441\u0430\u043c\u0443 \u0441\u0435\u0431\u044f \u043d\u0435\u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u00bb. \u0410 \u0435\u0441\u043b\u0438 \u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 5 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u0442\u043e 1048576\/(6*4) = 34952. \u0410 \u044d\u0442\u043e \u0443\u0436\u0435 \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u043c\u043d\u043e\u0433\u043e. \u0412\u044b \u0441\u043f\u0440\u043e\u0441\u0438\u0442\u0435, \u0437\u0430\u0447\u0435\u043c \u043d\u0430\u043c \u043d\u0443\u0436\u0435\u043d \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0437\u0430\u0434\u0430\u0451\u0442 \u0444\u0438\u043b\u044c\u0442\u0440, \u044f \u043e\u0442\u0432\u0435\u0447\u0443 \u00ab\u043f\u0440\u043e\u0441\u0442\u043e \u0442\u0430\u043a\u00bb, \u043c\u0430\u043b\u043e \u043b\u0438 \u0447\u0442\u043e, \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u0438\u0433\u043e\u0434\u0438\u0442\u044c\u0441\u044f. \u0410\u0445 \u0434\u0430 \u0437\u0430\u0431\u044b\u043b \u043f\u0440\u0438\u0432\u0435\u0441\u0442\u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f \u0441\u043f\u0438\u0441\u043a\u0430 \u043f\u043e\u0434\u043f\u0430\u043f\u043e\u043a. \u041b\u0438\u0441\u0442 \u0441 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u043c \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0442\u044c \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430, \u043d\u043e \u0434\u043b\u044f \u0440\u0430\u0437\u043d\u043e\u043e\u0431\u0440\u0430\u0437\u0438\u044f \u044d\u0442\u043e \u0442\u043e\u0436\u0435 \u043d\u0435 \u043f\u043e\u043c\u0435\u0448\u0430\u0435\u0442.<\/p>\n
\r\nprocedure GetSubDirs (Folder: string; sList: TStringList);\r\nvar\r\n  sr: TSearchRec;\r\nbegin\r\n  if FindFirst (Folder + '*.*', faDirectory, sr) = 0 then\r\n  try\r\n    repeat\r\n      if (sr.Attr and faDirectory) = faDirectory then\r\n        sList.Add (sr.Name);\r\n    until FindNext(sr)  0;\r\n  finally\r\n    FindClose(sr);\r\n  end;\r\nend;\r\n<\/code><\/pre>\n
\u0415\u0434\u0435\u043c \u0434\u0430\u043b\u0435\u0435\u2026 \u043f\u043e\u0441\u043b\u0435 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f \u0441\u043f\u0438\u0441\u043a\u0430 \u0444\u0430\u0439\u043b\u043e\u0432 \u043d\u0430\u043c \u043d\u0430\u0434\u043e \u0432\u0441\u0435 \u044d\u0442\u0438 \u0444\u0430\u0439\u043b\u044b \u0441\u043a\u043b\u0435\u0438\u0442\u044c \u0432 \u043e\u0434\u0438\u043d. \u042f \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043f\u043e\u0439\u0434\u0443, \u043d\u0435 \u0442\u0430\u043a \u043a\u0430\u043a \u0433\u043e\u0432\u043e\u0440\u0438\u043b \u0432 \u043d\u0430\u0447\u0430\u043b\u0435. \u0411\u0443\u0434\u0435\u043c \u0434\u0435\u043b\u0430\u0442\u044c \u0442\u0430\u043a: \u043d\u0430\u0448\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0431\u0443\u0434\u0435\u0442 \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0442\u044c\u0441\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c \u0441 \u0444\u0430\u0439\u043b\u043e\u043c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043d\u0443\u0436\u043d\u043e \u0432\u0430\u043c.  \u0417\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0431\u0443\u0434\u0435\u0442 \u0442\u0430\u043a\u043e\u0439<\/p>\n
type\r\nTActionFuntion = function(SourceFileName, DestFileName: string):boolean;\r\n<\/code><\/pre>\n
\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0431\u0443\u0434\u0435\u0442 \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0430\u0442\u044c \u0443\u0441\u043f\u0435\u0448\u043d\u043e\u0441\u0442\u044c \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f. \u0421\u0435\u0439\u0447\u0430\u0441 \u0432\u0430\u043c, \u043a\u043e\u043d\u0435\u0447\u043d\u043e \u0436\u0435, \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0435 \u043f\u043e\u043d\u044f\u0442\u043d\u043e, \u0441\u0435\u0439\u0447\u0430\u0441 \u0432\u0441\u0451 \u043f\u043e\u0439\u043c\u0451\u0442\u0435. \u0424\u0443\u043d\u043a\u0446\u0438\u0438 \u0443\u043f\u0430\u043a\u043e\u0432\u043a\u0438 \u043f\u0430\u043f\u043a\u0438 \u0431\u0443\u0434\u0435\u0442 \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0442\u044c\u0441\u044f \u043f\u0430\u043f\u043a\u0430, \u0444\u0430\u0439\u043b \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u0431\u0440\u0430\u0442\u043d\u043e\u0433\u043e \u0432\u044b\u0437\u043e\u0432\u0430, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0437\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 \u0432 \u044d\u0442\u043e\u0439 \u043f\u0430\u043f\u043a\u0435. \u0412 \u043e\u0431\u0449\u0435\u043c, \u0432\u043e\u0442 \u043a\u043e\u0434 \u044d\u0442\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/p>\n
\r\nfunction DoFolderAction;\r\nvar\r\n  ArchiveFile,CurrFile:THandle;\r\n  Value,i,CurrFileSize,_readed,_writed:DWORD;\r\n  _Files:TStringList;\r\n  path_in_archive_file:string;\r\n  pBuff:Pointer;\r\nbegin\r\n  Result:=false;\r\n  if FolderPath[Length(FolderPath)]'\\' then\r\n   FolderPath:=FolderPath+'\\';\r\n\r\n  _Files:=GetAllFiles('*.*',FolderPath);\r\n\r\n  ArchiveFile:=CreateFile(pchar(ArchivePath), GENERIC_READ+GENERIC_WRITE, FILE_SHARE_READ,0, CREATE_ALWAYS,0,0);\r\n\r\n  Value:=ArchiveSignature;\r\n  WriteFile(ArchiveFile,value,4,_writed,0);\/\/write main archive signature\r\n  Value:=_Files.Count;\r\n  WriteFile(ArchiveFile,value,4,_writed,0);\/\/write files count\r\n\r\n  for i:=0 to value-1 do\r\n   begin\r\n<\/code><\/pre>\n
 \u0414\u0430\u043b\u0435\u0435 \u043c\u044b \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u043e\u0431\u0440\u0430\u0442\u043d\u043e\u0433\u043e \u0432\u044b\u0437\u043e\u0432\u0430, \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043f\u0435\u0440\u0435\u0434\u0430\u0451\u043c \u0444\u0430\u0439\u043b \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a \u0438 \u0444\u0430\u0439\u043b \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442, \u0444\u0430\u0439\u043b-\u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u044d\u0442\u043e \u0432\u0441\u0435\u0433\u043e \u043b\u0438\u0448\u044c \u043f\u0440\u043e\u043c\u0435\u0436\u0443\u0442\u043e\u0447\u043d\u044b\u0439 \u0444\u0430\u0439\u043b, \u043f\u043e\u0442\u043e\u043c \u043c\u044b \u0435\u0433\u043e \u0443\u0434\u0430\u043b\u0438\u043c. \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e bkpFile \u043c\u043e\u0436\u043d\u043e \u043e\u0431\u044a\u044f\u0432\u0438\u0442\u044c \u043a\u0430\u043a \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0443.<\/p>\n
\r\n    if not ActionFunction(_Files.Strings<\/em>,bkpFile) then\r\n     begin\r\n{\u0435\u0441\u043b\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u0431\u0440\u0430\u0442\u043d\u043e\u0433\u043e \u0432\u044b\u0437\u043e\u0432\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0438\u043b\u0430\u0441\u044c \u043d\u0435\u0443\u0434\u0430\u0447\u043d\u043e, \u0432\u044b\u0445\u043e\u0434\u0438\u043c \u0438\u0437 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u0435\u0441\u043b\u0438 \u044d\u0442\u043e \u043d\u0435 \u043d\u0443\u0436\u043d\u043e \u0442\u043e \u043c\u043e\u0436\u043d\u043e \u044d\u0442\u043e\u0442 \u043a\u043e\u0434 \u0437\u0430\u043a\u043e\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0442\u044c, \u043d\u043e \u0442\u043e\u0433\u0434\u0430 \u043d\u0430\u0448\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0442\u044c\u0441\u044f \u0443\u0434\u0430\u0447\u043d\u043e \u0434\u0430\u0436\u0435 \u0435\u0441\u043b\u0438 \u043a\u0430\u043a\u043e\u0439 \u0442\u043e \u0444\u0430\u0439\u043b \u043d\u0435 \u0431\u044b\u043b \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0430\u043d }\r\n      CloseHandle(ArchiveFile);\r\n      exit;\r\n     end;\r\n    CurrFile:=CreateFile(pchar(bkpFile),GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);\r\n    CurrFileSize:=GetFileSize(CurrFile,nil);\r\n    path_in_archive_file:=copy(_Files.Strings<\/em>,length(FolderPath),1000);\/\/ XA XA XA XA XA\r\n    if path_in_archive_file[1] = '\\' then\r\n     Delete(path_in_archive_file,1,1);\r\n    Write_LS(ArchiveFile,path_in_archive_file);\r\n    WriteFile(ArchiveFile,currFileSize,4,_writed,0);\r\n    pBuff:=VirtualAlloc(0,MainBufferSize,MEM_COMMIT+MEM_RESERVE,PAGE_READWRITE);\r\n\r\n    repeat\r\n     ReadFile(CurrFile,pBuff^,MainBufferSize,_readed,0);\r\n     WriteFile(ArchiveFile,pBuff^,_readed,_writed,0);\r\n    until _writed<MainBufferSize;\r\n\r\n    VirtualFree(pBuff,MEM_RELEASE,0);\r\n\r\n    CloseHandle(CurrFile);\r\n    DeleteFile(bkpFile);\r\n   end;\r\n\r\n  CloseHandle(ArchiveFile);\r\n  Result:=True;\r\nend;<\/code><\/pre>\n
\u0422\u0435\u043f\u0435\u0440\u044c \u043f\u0440\u0438\u0432\u0435\u0434\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0440\u0430\u0441\u043f\u0430\u043a\u043e\u0432\u044b\u0432\u0430\u0435\u0442 \u0432\u0441\u0451 \u044d\u0442\u043e \u0434\u0435\u043b\u043e. \u041f\u043e\u043b\u043d\u044b\u0439 \u043a\u043e\u0434 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0441\u043c\u043e\u0442\u0440\u0438\u0442\u0435 \u0432 \u0438\u0441\u0445\u043e\u0434\u043d\u0438\u043a\u0435.<\/p>\n
\r\nfunction De_DoFolderAction (FolderPath, ArchivePath :string; DeActionFunction :TActionFuntion) :boolean;\r\nvar\r\n\u2026\u2026\u2026\r\nbegin\r\n ArchiveFile := CreateFile(pchar(ArchivePath), GENERIC_READ+GENERIC_WRITE, FILE_SHARE_READ,0,OPEN_EXISTING,0,0);\r\n ReadFile(ArchiveFile,value,4,_readed,0); {\u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043d\u0430\u0448 \u043b\u0438 \u044d\u0442\u043e \u0444\u043e\u0440\u043c\u0430\u0442}\r\n if Value ArchiveSignature then\r\n  begin\r\n\u2026\u2026\u2026\r\n  end;\r\n ReadFile(ArchiveFile,_Count,4,_readed,0); {\u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0444\u0430\u0439\u043b\u043e\u0432}\r\n for i:=1 to _Count do\r\n  begin\r\n   path_in_archive_file := Read_LS(ArchiveFile);\r\n   ReadFile(ArchiveFile,CurrFileSize,4,_readed,0);\r\n\u2026\u2026\u2026\r\n   for j:=1 to CurrFileSize div MainBufferSize do\r\n    begin\r\n     ReadFile(ArchiveFile,pBuff^,MainBufferSize,_readed,0);\r\n     WriteFile(CurrFile,pBuff^,_readed,_writed,0);\r\n    end;\r\n   ReadFile(ArchiveFile, pBuff^, CurrFileSize mod MainBufferSize, _readed,0);\r\n   WriteFile(CurrFile,pBuff^,_readed,_writed,0);\r\n\u2026\u2026\u2026\r\n   if FolderPath[Length(FolderPath)]'\\' then Delete(FolderPath,Length(FolderPath),1);\r\n   if path_in_archive_file[1]'\\' then path_in_archive_file := '\\' + path_in_archive_file;\r\n   path_in_archive_file :=FolderPath+path_in_archive_file;\r\n   makedir(ExtractFileDir(path_in_archive_file));\r\n{\u043a\u043e\u0434 \u044d\u0442\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0442\u043e\u0436\u0435 \u0441\u043c\u043e\u0442\u0440\u0438\u0442\u0435  \u0432 \u0438\u0441\u0445\u043e\u0434\u043d\u0438\u043a\u0435}\r\n   if not  DeActionFunction(bkpfile,path_in_archive_file) then\r\n    begin\r\n\u2026\u2026\u2026\r\n    end;\r\n\u2026\u2026\u2026\r\n  end;\r\n\u2026\u2026\u2026\r\nend;\r\n<\/code><\/pre>\n
\u0422\u0435\u043f\u0435\u0440\u044c \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u043f\u0440\u043e\u0441\u0442\u043e \u0441\u043a\u043b\u0435\u0438\u0442\u044c \u0432\u0441\u0435 \u0444\u0430\u0439\u043b\u044b \u0432 \u043f\u0430\u043f\u043a\u0435 \u0432 \u043e\u0434\u0438\u043d \u0444\u0430\u0439\u043b \u043d\u0430\u0434\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u044d\u0442\u043e:<\/p>\n
function DODO(fl1,fl2:string):boolean;\r\nbegin\r\n  Result:=CopyFile(pchar(fl1),pchar(fl2),false);\r\nend;\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\n DoFolderAction('F:\\111','F:\\arch.dat',DODO);\u00a0\u00a0\r\n De_DoFolderAction('F:\\112','F:\\arch.dat',DODO);\r\nend<\/code><\/pre>\n
 \u0414\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u0443\u043f\u0430\u043a\u043e\u0432\u0430\u0442\u044c \u043f\u0430\u043f\u043a\u0443, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u043e\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0435 \u043c\u043d\u043e\u0439 \u0432 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0439 \u0441\u0442\u0430\u0442\u044c\u0435<\/a>, \u043d\u0430\u0434\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0442\u0430\u043a:<\/p>\n
\r\nfunction DODO2(fl1,fl2:string):boolean;\r\nbegin\r\n Result:=ZLATCompressFile(fl1,fl2,2,false,true,nil,0,0) <> 0;\r\nend;\r\n\r\nfunction DODO3(fl1,fl2:string):boolean;\r\nbegin\r\n Result:=ZLATdecompressfile(fl1,fl2,false,true,nil,0,0);\r\nend;\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\n DoFolderAction('F:\\111\\','F:\\arch.dat',DODO2);\r\n De_DoFolderAction('F:\\112\\','F:\\arch.dat',DODO3)\r\nend;\r\n<\/code><\/pre>\n
\u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u0441\u043a\u043b\u0435\u0438\u0442\u044c \u0432\u0441\u0435 \u0444\u0430\u0439\u043b\u044b, \u043f\u043e\u0442\u043e\u043c \u0441\u0436\u0430\u0442\u044c \u0441\u043a\u043b\u0435\u0435\u043d\u043d\u044b\u0439 \u0444\u0430\u0439\u043b, \u0430 \u0434\u043b\u044f \u0440\u0430\u0441\u043f\u0430\u043a\u043e\u0432\u043a\u0438 \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u0440\u0430\u0441\u043f\u0430\u043a\u043e\u0432\u0430\u0442\u044c \u0438 \u043f\u043e\u0442\u043e\u043c \u0440\u0430\u0441\u043a\u043b\u0435\u0438\u0442\u044c. \u0421 \u0442\u0435\u043c \u0436\u0435 \u0443\u0441\u043f\u0435\u0445\u043e\u043c \u043c\u043e\u0436\u043d\u043e  \u0448\u0438\u0444\u0440\u043e\u0432\u0430\u0442\u044c \u0446\u0435\u043b\u044b\u0435 \u043f\u0430\u043f\u043a\u0438, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0442\u0435\u0445\u043d\u043e\u043b\u043e\u0433\u0438\u044e \u0448\u0438\u0444\u0440\u043e\u0432\u043a\u0438 \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u044f \u043e\u043f\u0438\u0441\u0430\u043b \u0432 \u0441\u0432\u043e\u0438\u0445 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0438\u0445 \u0441\u0442\u0430\u0442\u044c\u0435<\/a> \u0438 \u0441\u0442\u0430\u0442\u044c\u0435<\/a>. \u041a\u043e\u0440\u043e\u0447\u0435 \u043a\u0438\u0434\u0430\u0435\u0442\u0435 \u0444\u0430\u0439\u043b FolderActions.pas \u0432 \u0440\u0430\u0441\u0448\u0430\u0440\u0435\u043d\u043d\u0443\u044e \u0434\u043b\u044f Delphi \u043f\u0430\u043f\u043a\u0443 \u0438 \u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0435\u0441\u044c \u043c\u043e\u0434\u0443\u043b\u0435\u043c \u043d\u0430 \u0437\u0434\u043e\u0440\u043e\u0432\u044c\u0435.
\n\u0412\u043e\u0442, \u043f\u043e\u0436\u0430\u043b\u0443\u0439, \u0438 \u0432\u0441\u0451.
\n\u041c\u043e\u0434\u0443\u043b\u044c \u0434\u043b\u044f \u0443\u043f\u0430\u043a\u043e\u0432\u043a\u0438 \u043f\u0430\u043f\u043e\u043a<\/a>
\n\u0430\u0440\u0445\u0438\u0432<\/a> \u0441 \u0438\u0441\u0445\u043e\u0434\u043d\u0438\u043a\u0430\u043c\u0438 \u043a \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0439 \u0441\u0442\u0430\u0442\u044c\u0435<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
\u041d\u0430\u0432\u0435\u0440\u043d\u043e \u0432\u0441\u0435 \u0447\u0438\u0442\u0430\u043b\u0438 \u043c\u043e\u044e \u0441\u0442\u0430\u0442\u044c\u044e \u043f\u0440\u043e \u0443\u043f\u0430\u043a\u043e\u0432\u043a\u0443 \u0444\u0430\u0439\u043b\u043e\u0432 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 ZLib \u0432 Delphi. \u0412 \u043d\u0435\u0439 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043e, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0444\u0430\u0439\u043b\u044b \u043f\u043e\u0447\u0442\u0438 \u0441 \u0442\u043e\u0439 \u0436\u0435 \u0441\u0442\u0435\u043f\u0435\u043d\u044c\u044e \u0441\u0436\u0430\u0442\u0438\u044f, \u043a\u0430\u043a \u0438 ZIP. \u041d\u043e \u044f \u043e\u043f\u0438\u0441\u0430\u043b, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u0435\u0434\u0438\u043d\u0438\u0447\u043d\u044b\u0435 \u0444\u0430\u0439\u043b\u044b. \u041f\u043e \u043c\u043d\u043e\u0433\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u043c \u0437\u0430\u044f\u0432\u043a\u0430\u043c \u0447\u0438\u0442\u0430\u0442\u0435\u043b\u0435\u0439 \u044f \u043f\u0438\u0448\u0443 \u0435\u0449\u0451 \u043e\u0434\u043d\u0443 \u0441\u0442\u0430\u0442\u044c\u044e \u043f\u0440\u043e \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0446\u0435\u043b\u044b\u0445 \u043f\u0430\u043f\u043e\u043a. \u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e […]<\/p>\n","protected":false},"author":8,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[288,289,292,291,290,286,283,287,285,284,147,264],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/67"}],"collection":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/users\/8"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=67"}],"version-history":[{"count":13,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/67\/revisions"}],"predecessor-version":[{"id":534,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/67\/revisions\/534"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=67"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=67"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=67"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}