{"id":654,"date":"2008-05-19T07:03:19","date_gmt":"2008-05-19T07:03:19","guid":{"rendered":"http:\/\/6teen.ru\/?p=653"},"modified":"2008-05-19T07:03:19","modified_gmt":"2008-05-19T07:03:19","slug":"6158","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=654","title":{"rendered":"\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 DLL"},"content":{"rendered":"<p>\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 DLL<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 DLL\n\n\u041a\u0430\u043a \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c DLL \u0438 \u0432\u044b\u0437\u0432\u0430\u0442\u044c \u0438\u0437 \u043d\u0435\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044e?\n\n\u041d\u0438\u0436\u0435\u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u0439 \u043a\u043e\u0434 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u0442 DLL \u0432 \u043f\u0430\u043c\u044f\u0442\u044c, \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u0442 \u0438\u0437 \u043d\u0435\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u0438 \u0432\u044b\u0433\u0440\u0443\u0436\u0430\u0435\u0442 DLL.\ntype\n  TMyProc = procedure(const N: Integer); stdcall;\n\nprocedure TForm1.Button1Click(Sender: TObject);\nvar\n  MyProc: TMyProc;\n  Lib: THandle;\n  DLLName: string;\nbegin\n  DLLName := 'mydll.dll';\n  if FileExists(DLLName) then\n  begin\n    Lib := LoadLibrary(PChar(DLLName));\n    if Lib < HINSTANCE_ERROR then\n      Win32Check(False);\n      \/\/ \u0438\u043b\u0438\n      \/\/ ShowMessage('\u041d\u0435 \u0443\u0434\u0430\u043b\u043e\u0441\u044c \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0443 ' + DLLName);\n\n    try\n      MyProc := GetProcAddress(Lib, 'MyProc');\n      if Assigned(MyProc) then\n        MyProc(123);\n    finally\n      FreeLibrary(Lib);\n    end;\n  end;\nend;\nKanes\t\u0421\u043e\u043e\u0431\u0449. #3 \u043e\u0442 7.03.05, 02:15\nUnregistered\n\t\u0421\u0442\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0438\u0437 DLL\n\u0418\u0442\u0430\u043a, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u0432\u044b \u0441\u043e\u0437\u0434\u0430\u043b\u0438 DLL, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0445\u0440\u0430\u043d\u0438\u0442\u0441\u044f \u043d\u0430\u0431\u043e\u0440 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439.\n\u0422\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0432\u044b \u0441\u043e\u0431\u0438\u0440\u0430\u0435\u0442\u0435\u0441\u044c \u043f\u0435\u0440\u0435\u0434\u043e\u0432\u0430\u0442\u044c \u0432 \u043f\u0440\u043e\u0433\u0443, \u043d\u0430\u0434\u043e \u0437\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0432 \u0440\u0430\u0437\u0434\u0435\u043b\u0435 exports, \u0432 \u043a\u043e\u0434\u0435 \u0432\u0430\u0448\u0435\u0439 DLL.\n\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 :\nlibrary Project2;\nuses\n  SysUtils,\n  Classes;\n\n{$R *.res}\n\nfunction MyFunction(\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b): \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 ;\nbegin\n.......................\nend;\n\nexports MyFunction; \/\/\u042d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u0438 \u0442.\u043f.\n\nbegin\nend.\n\n\u041a\u043e\u043c\u043f\u0438\u043b\u0438\u0440\u0443\u0435\u043c \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0443.\n\u0410 \u0442\u0435\u043f\u0435\u0440\u044c \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0438\u0441\u0445\u043e\u0434\u043d\u0438\u043a \u0432\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0438 \u0438 \u0432 \u0440\u0430\u0437\u0434\u0435\u043b\u0435 INTERFACE \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438.\n\n\u0421\u043f\u043e\u0441\u043e\u0431\u044b \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438 \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u043c\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439\n\n1) \u0421\u0430\u043c\u044b\u0439 \u043f\u0440\u043e\u0441\u0442\u043e\u0439 :\nFunction MyFunction(\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b) : \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435; \/\/\u041e\u0431\u044c\u044f\u0432\u043b\u044f\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e\nexternal 'MyDll.dll'; \/\/\u041d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0432\u0430\u0448\u0435\u0439 DLL\n\n2) \u041f\u043e \u0438\u043c\u0435\u043d\u0438 :\nFunction MyFunction(\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b) : \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435; \/\/\u041e\u0431\u044c\u044f\u0432\u043b\u044f\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e\nexternal 'MyDll.dll' name 'MyFunction'; \/\/\u041d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0432\u0430\u0448\u0435\u0439 DLL, name -  \u0438\u043c\u044f \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u043c\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438\n\n3) \u041f\u043e \u0438\u043d\u0434\u0435\u043a\u0441\u0443 :\nFunction MyFunction(\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b) : \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435; \/\/\u041e\u0431\u044c\u044f\u0432\u043b\u044f\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e\nexternal 'MyDll.dll' index 1; \/\/\u041d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0432\u0430\u0448\u0435\u0439 DLL, index - \u0438\u043d\u0434\u0435\u043a\u0441 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0432\u043d\u0443\u0442\u0440\u0438 DLL\n\n\u041d\u0435 \u0437\u0430\u0431\u0443\u0434\u044c\u0442\u0435, \u0447\u0442\u043e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u044e\nexternal 'MyDll.dll';\n\n\u043d\u0430\u0434\u043e \u043f\u0438\u0441\u0430\u0442\u044c, \u043f\u043e\u0441\u043b\u0435 \u043a\u0430\u0436\u0434\u043e\u0439 \u044d\u043a\u0441\u043f\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u043c\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u0438\u043d\u0430\u0447\u0435 \u043f\u043e\u044f\u0432\u0438\u0442\u0441\u044f \u043e\u0448\u0438\u0431\u043a\u0430,\u043e \u0442\u043e\u043c \u0447\u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043d\u0435 \u043e\u0431\u044c\u044f\u0432\u043b\u0435\u043d\u044b\n\u041a\u043e\u043d\u0435\u0446 - \u043a\u0438\u0434\u0430\u0435\u043c DLL \u0432 \u043f\u0430\u043f\u043a\u0443 \u0441 \u043f\u0440\u043e\u0435\u043a\u0442\u043e\u043c \u0438 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u0441\u0430\u043c \u043f\u0440\u043e\u0435\u043a\u0442\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u0420\u0430\u0431\u043e\u0442\u0430 \u0441 DLL<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[16,402],"tags":[1907],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/654"}],"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=654"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/654\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=654"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=654"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=654"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}