\u5927\u5bb6\u90fd\u8ba4\u4e3a\uff0cC\u8bed\u8a00\u4e4b\u6240\u4ee5\u5f3a\u5927\uff0c\u4ee5\u53ca\u5176\u81ea\u7531\u6027\uff0c\u5f88\u5927\u90e8\u5206\u4f53\u73b0\u5728\u5176\u7075\u6d3b\u7684\u6307\u9488\u8fd0\u7528\u4e0a\u3002\u56e0\u6b64\uff0c\u8bf4\u6307\u9488\u662fC\u8bed\u8a00\u7684\u7075\u9b42\uff0c\u4e00\u70b9\u90fd\u4e0d\u4e3a\u8fc7\u3002\u540c\u65f6\uff0c\u8fd9\u79cd\u8bf4\u6cd5\u4e5f\u8ba9\u5f88\u591a \u4eba\u4ea7\u751f\u8bef\u89e3\uff0c\u4f3c\u4e4e\u53ea\u6709C\u8bed\u8a00\u7684\u6307\u9488\u624d\u80fd\u7b97\u6307\u9488\u3002Basic\u4e0d\u652f\u6301\u6307\u9488\uff0c\u5728\u6b64\u4e0d\u8bba\u3002\u5176\u5b9e\uff0cPascal\u8bed\u8a00\u672c\u8eab\u4e5f\u662f\u652f\u6301\u6307\u9488\u7684\u3002\u4ece\u6700\u521d\u7684Pascal\u53d1\u5c55\u81f3 \u4eca\u7684 Object Pascal\uff0c\u53ef\u4ee5\u8bf4\u5728\u6307\u9488\u8fd0\u7528\u4e0a\uff0c\u4e1d\u6beb\u4e0d\u4f1a\u900a\u8272\u4e8eC\u8bed\u8a00\u7684\u6307\u9488\u3002
\n\u4ee5\u4e0b\u5185\u5bb9\u5206\u4e3a\u516b\u4e2a\u90e8\u5206\uff0c\u5206\u522b\u662f
\n\u4e00\u3001\u7c7b\u578b\u6307\u9488\u7684\u5b9a\u4e49
\n\u4e8c\u3001\u65e0\u7c7b\u578b\u6307\u9488\u7684\u5b9a\u4e49
\n\u4e09\u3001\u6307\u9488\u7684\u89e3\u9664\u5f15\u7528
\n\u56db\u3001\u53d6\u5730\u5740\uff08\u6307\u9488\u8d4b\u503c\uff09
\n\u4e94\u3001\u6307\u9488\u8fd0\u7b97
\n\u516d\u3001\u52a8\u6001\u5185\u5b58\u5206\u914d
\n\u4e03\u3001\u5b57\u7b26\u6570\u7ec4\u7684\u8fd0\u7b97
\n\u516b\u3001\u51fd\u6570\u6307\u9488
\n\u4e00\u3001\u7c7b\u578b\u6307\u9488\u7684\u5b9a\u4e49\u3002\u5bf9\u4e8e\u6307\u5411\u7279\u5b9a\u7c7b\u578b\u7684\u6307\u9488\uff0c\u5728C\u4e2d\u662f\u8fd9\u6837\u5b9a\u4e49\u7684\uff1a<\/p>\n
int *ptr;\r\nchar *ptr;<\/pre>\n\u4e0e\u4e4b\u7b49\u4ef7\u7684Object Pascal\u662f\u5982\u4f55\u5b9a\u4e49\u7684\u5462\uff1f<\/p>\n
var ptr : ^Integer;\r\nptr : ^char;<\/pre>\n\u5176\u5b9e\u4e5f\u5c31\u662f\u7b26\u53f7\u7684\u5dee\u522b\u800c\u5df2\u3002
\n\u4e8c\u3001\u65e0\u7c7b\u578b\u6307\u9488\u7684\u5b9a\u4e49\u3002C\u4e2d\u6709void *\u7c7b\u578b\uff0c\u4e5f\u5c31\u662f\u53ef\u4ee5\u6307\u5411\u4efb\u4f55\u7c7b\u578b\u6570\u636e\u7684\u6307\u9488\u3002Object Pascal\u4e3a\u5176\u5b9a\u4e49\u4e86\u4e00\u4e2a\u4e13\u95e8\u7684\u7c7b\u578b\uff1aPointer\u3002\u4e8e\u662f\uff0c<\/p>\nptr : Pointer;<\/pre>\n\u5c31\u4e0eC\u4e2d\u7684<\/p>\n
void *ptr;<\/pre>\n\u7b49\u4ef7\u4e86\u3002
\n\u4e09\u3001\u6307\u9488\u7684\u89e3\u9664\u5f15\u7528\u3002
\n\u8981\u89e3\u9664\u6307\u9488\u5f15\u7528\uff08\u5373\u53d6\u51fa\u6307\u9488\u6240\u6307\u533a\u57df\u7684\u503c\uff09\uff0cC \u7684\u8bed\u6cd5\u662f (*ptr)\uff0cObject Pascal\u5219\u662f ptr^\u3002
\n\u56db\u3001\u53d6\u5730\u5740\uff08\u6307\u9488\u8d4b\u503c\uff09\u3002\u53d6\u67d0\u5bf9\u8c61\u7684\u5730\u5740\u5e76\u5c06\u5176\u8d4b\u503c\u7ed9\u6307\u9488\u53d8\u91cf\uff0cC \u7684\u8bed\u6cd5\u662f
\nptr = &Object;
\nObject Pascal \u5219\u662f
\nptr := @Object;
\n\u4e5f\u53ea\u662f\u7b26\u53f7\u7684\u5dee\u522b\u800c\u5df2\u3002
\n\u4e94\u3001\u6307\u9488\u8fd0\u7b97\u3002\u5728 C \u4e2d\uff0c\u53ef\u4ee5\u5bf9\u6307\u9488\u8fdb\u884c\u79fb\u52a8\u7684\u8fd0\u7b97\uff0c\u5982\uff1a<\/p>\nchar a[20];\r\nchar *ptr=a;\r\nptr++;\r\nptr+=2;<\/pre>\n\u5f53\u6267\u884cptr++;\u65f6\uff0c\u7f16\u8bd1\u5668\u4f1a\u4ea7\u751f\u8ba9ptr\u524d\u8fdbsizeof(char)\u6b65\u957f\u7684\u4ee3\u7801\uff0c\u4e4b\u540e\uff0cptr\u5c06\u6307\u5411a[1]\u3002ptr+=2;\u8fd9\u53e5\u4f7f\u5f97ptr\u524d\u8fdb\u4e24\u4e2asizeof(char)\u5927\u5c0f\u7684\u6b65\u957f\u3002\u540c\u6837\uff0c\u6211\u4eec\u6765\u770b\u4e00\u4e0bObject Pascal\u4e2d\u5982\u4f55\u5b9e\u73b0\uff1a<\/p>\n
var a : array [1..20] of Char;\r\nptr : PChar; \/\/PChar \u53ef\u4ee5\u770b\u4f5c ^Char\r\nbegin\r\nptr := @a;\r\nInc(ptr); \/\/ \u8fd9\u53e5\u7b49\u4ef7\u4e8e C \u7684 ptr++;\r\nInc(ptr, 2); \/\/\u8fd9\u53e5\u7b49\u4ef7\u4e8e C \u7684 ptr+=2;\r\nend;<\/pre>\n\u516d\u3001\u52a8\u6001\u5185\u5b58\u5206\u914d\u3002C\u8bed\u8a00\u4e2d\uff0c\u4f7f\u7528malloc()\u5e93\u51fd\u6570\u5206\u914d\u5185\u5b58\uff0cfree()\u51fd\u6570\u91ca\u653e\u5185\u5b58\u3002\u5982\u8fd9\u6837\u7684\u4ee3\u7801\uff1a<\/p>\n
int *ptr, *ptr2;\r\nint i;\r\nptr = (int*) malloc(sizeof(int) * 20);\r\nptr2 = ptr;\r\nfor (i=0; i<20; i++){\r\n*ptr = i; ptr++;\r\n}\r\nfree(ptr2);<\/pre>\nObject Pascal\u4e2d\uff0c\u52a8\u6001\u5206\u914d\u5185\u5b58\u7684\u51fd\u6570\u662fGetMem()\uff0c\u4e0e\u4e4b\u5bf9\u5e94\u7684\u91ca\u653e\u51fd\u6570\u4e3aFreeMem()\uff08\u4f20\u7edf Pascal\u4e2d\u83b7\u53d6\u5185\u5b58\u7684\u51fd\u6570\u662fNew()\u548c Dispose()\uff0c\u4f46New()\u53ea\u80fd\u83b7\u5f97\u5bf9\u8c61\u7684\u5355\u4e2a\u5b9e\u4f53\u7684\u5185\u5b58\u5927\u5c0f\uff0c\u65e0\u6cd5\u53d6\u5f97\u8fde\u7eed\u7684\u5b58\u653e\u591a\u4e2a\u5bf9\u8c61\u7684\u5185\u5b58\u5757\uff09\u3002\u56e0\u6b64\uff0c\u4e0e\u4e0a\u9762\u90a3\u6bb5C\u7684\u4ee3\u7801\u7b49\u4ef7\u7684 Object Pascal\u7684\u4ee3\u7801\u4e3a\uff1a<\/p>\n
var ptr, ptr2 : ^integer;\r\ni : integer;\r\nbegin\r\nGetMem(ptr, sizeof(integer) * 20);\r\n\/\/\u8fd9\u53e5\u7b49\u4ef7\u4e8eC\u7684 ptr = (int*) malloc(sizeof(int) * 20);<\/pre>\nptr2 := ptr; \/\/\u4fdd\u7559\u539f\u59cb\u6307\u9488\u4f4d\u7f6e\r\nfor i := 0 to 19 do\r\nbegin\r\nptr^ := i;\r\nInc(ptr);\r\nend;\r\nFreeMem(ptr2);\r\nend;<\/pre>\n\u5bf9\u4e8e\u4ee5\u4e0a\u8fd9\u4e2a\u4f8b\u5b50\uff08\u65e0\u8bba\u662fC\u7248\u672c\u7684\uff0c\u8fd8\u662fObject Pascal\u7248\u672c\u7684\uff09\uff0c\u90fd\u8981\u6ce8\u610f\u4e00\u4e2a\u95ee\u9898\uff0c\u5c31\u662f\u5206\u914d\u5185\u5b58\u7684\u5355\u4f4d\u662f\u5b57\u8282\uff08BYTE\uff09\uff0c\u56e0\u6b64\u5728\u4f7f\u7528GetMem\u65f6\uff0c\u5176\u7b2c\u4e8c\u4e2a\u53c2\u6570\u5982\u679c\u60f3\u5f53\u7136\u7684\u5199\u6210 20\uff0c\u90a3\u4e48\u5c31\u4f1a\u51fa\u95ee\u9898\u4e86\uff08\u5185\u5b58\u8bbf\u95ee\u8d8a\u754c\uff09\u3002\u56e0\u4e3aGetMem(ptr, 20);\u5b9e\u9645\u53ea\u5206\u914d\u4e8620\u4e2a\u5b57\u8282\u7684\u5185\u5b58\u7a7a\u95f4\uff0c\u800c\u4e00\u4e2a\u6574\u5f62\u7684\u5927\u5c0f\u662f\u56db\u4e2a\u5b57\u8282\uff0c\u90a3\u4e48\u8bbf\u95ee\u7b2c\u4e94\u4e2a\u4e4b\u540e\u7684\u6240\u6709\u5143\u7d20\u90fd\u662f\u975e\u6cd5\u7684\u4e86\uff08\u5bf9\u4e8emalloc()\u7684\u53c2\u6570\u540c \u6837\uff09\u3002
\n\u4e03\u3001\u5b57\u7b26\u6570\u7ec4\u7684\u8fd0\u7b97\u3002C\u8bed\u8a00\u4e2d\uff0c\u662f\u6ca1\u6709\u5b57\u7b26\u4e32\u7c7b\u578b\u7684\uff0c\u56e0\u6b64\uff0c\u5b57\u7b26\u4e32\u90fd\u662f\u7528\u5b57\u7b26\u6570\u7ec4\u6765\u5b9e\u73b0\uff0c\u4e8e\u662f\u4e5f\u6709\u4e00\u5957str\u6253\u5934\u7684\u5e93\u51fd\u6570\u4ee5\u8fdb\u884c\u5b57\u7b26\u6570\u7ec4\u7684\u8fd0\u7b97\uff0c\u5982\u4ee5\u4e0b\u4ee3\u7801\uff1a<\/p>\nchar str[15];\r\nchar *pstr;\r\nstrcpy(str, \"teststr\");\r\nstrcat(str, \"_testok\");\r\npstr = (char*) malloc(sizeof(char) * 15);\r\nstrcpy(pstr, str);\r\nprintf(pstr);\r\nfree(pstr);<\/pre>\n\u800c\u5728Object Pascal\u4e2d\uff0c\u6709\u4e86String\u7c7b\u578b\uff0c\u56e0\u6b64\u53ef\u4ee5\u5f88\u65b9\u4fbf\u7684\u5bf9\u5b57\u7b26\u4e32\u8fdb\u884c\u5404\u79cd\u8fd0\u7b97\u3002\u4f46\u662f\uff0c\u6709\u65f6\u6211\u4eec\u7684Pascal\u4ee3\u7801\u9700\u8981\u4e0eC\u7684\u4ee3\u7801\u4ea4\u4e92\uff08\u6bd4\u5982\uff1a\u7528 Object Pascal\u7684\u4ee3\u7801\u8c03\u7528C\u5199\u7684DLL\u6216\u8005\u7528Object Pascal \u5199\u7684DLL\u51c6\u5907\u5141\u8bb8\u7528C\u5199\u5ba2\u6237\u7aef\u7684\u4ee3\u7801\uff09\u7684\u8bdd\uff0c\u5c31\u4e0d\u80fd\u4f7f\u7528String\u7c7b\u578b\u4e86\uff0c\u800c\u5fc5\u987b\u4f7f\u7528\u4e24\u79cd\u8bed\u8a00\u901a\u7528\u7684\u5b57\u7b26\u6570\u7ec4\u3002\u5176\u5b9e\uff0cObject Pascal\u63d0\u4f9b\u4e86\u5b8c\u5168\u7c7b\u4f3cC\u7684\u4e00\u6574\u5957\u5b57\u7b26\u6570\u7ec4\u7684\u8fd0\u7b97\u51fd\u6570\uff0c\u4ee5\u4e0a\u90a3\u6bb5\u4ee3\u7801\u7684Object Pascal \u7248\u672c\u662f\u8fd9\u6837\u7684\uff1a<\/p>\n
var str : array [1..15] of char;\r\npstr : PChar; \/\/Pchar \u4e5f\u5c31\u662f ^Char\r\nbegin\r\nStrCopy(@str, 'teststr');\r\n\/\/\u5728C\u4e2d\uff0c\u6570\u7ec4\u7684\u540d\u79f0\u53ef\u4ee5\u76f4\u63a5\u4f5c\u4e3a\u6570\u7ec4\u9996\u5730\u5740\u6307\u9488\u6765\u7528\r\n\/\/\u4f46Pascal\u4e0d\u662f\u8fd9\u6837\u7684\uff0c\u56e0\u6b64 str\u524d\u8981\u52a0\u4e0a\u53d6\u5730\u5740\u7684\u8fd0\u7b97\u7b26\r\nStrCat(@str, '_testok');\r\nGetMem(pstr, sizeof(char) * 15);\r\nStrCopy(pstr, @str);\r\nWrite(pstr);\r\nFreeMem(pstr);\r\nend;<\/pre>\n\u516b\u3001\u51fd\u6570\u6307\u9488\u3002\u5728\u52a8\u6001\u8c03\u7528DLL\u4e2d\u7684\u51fd\u6570\u65f6\uff0c\u5c31\u4f1a\u7528\u5230\u51fd\u6570\u6307\u9488\u3002\u5047\u8bbe\u7528C\u5199\u7684\u4e00\u6bb5\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n
typedef int (*PVFN)(int); \/\/\u5b9a\u4e49\u51fd\u6570\u6307\u9488\u7c7b\u578b\r\nint main()\r\n{\r\n HMODULE hModule = LoadLibrary(\"test.dll\");\r\n PVFN pvfn = NULL;\r\n pvfn = (PVFN) GetProcAddress(hModule, \"Function1\");\r\n pvfn(2);\r\n FreeLibrary(hModule);\r\n}<\/pre>\n\u5c31\u6211\u4e2a\u4eba\u611f\u89c9\u6765\u8bf4\uff0cC\u8bed\u8a00\u4e2d\u5b9a\u4e49\u51fd\u6570\u6307\u9488\u7c7b\u578b\u7684typedef\u4ee3\u7801\u7684\u8bed\u6cd5\u6709\u4e9b\u6666\u6da9\uff0c\u800c\u540c\u6837\u7684\u4ee3\u7801\u5728 Object Pascal\u4e2d\u5374\u975e\u5e38\u6613\u61c2\uff1a<\/p>\n
type PVFN = Function (para : Integer) : Integer;\r\nvar fn : PVFN;\r\n\/\/\u4e5f\u53ef\u4ee5\u76f4\u63a5\u5728\u6b64\u5904\u5b9a\u4e49\uff0c\u5982\uff1afn : function (para:Integer):Integer;\r\nhm : HMODULE;\r\nbegin\r\nhm := LoadLibrary('test.dll');\r\nfn := GetProcAddress(hm, 'Function1');\r\nfn(2);\r\nFreeLibrary(hm);\r\nend;<\/pre>\n","protected":false},"excerpt":{"rendered":"\u5927\u5bb6\u90fd\u8ba4\u4e3a\uff0cC\u8bed\u8a00\u4e4b\u6240\u4ee5\u5f3a\u5927\uff0c\u4ee5\u53ca\u5176\u81ea\u7531\u6027\uff0c\u5f88\u5927\u90e8\u5206\u4f53\u73b0\u5728\u5176\u7075\u6d3b\u7684\u6307\u9488\u8fd0\u7528\u4e0a\u3002\u56e0\u6b64\uff0c\u8bf4\u6307\u9488\u662fC\u8bed\u8a00\u7684\u7075\u9b42\uff0c\u4e00\u70b9 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[14,42],"class_list":["post-810","post","type-post","status-publish","format-standard","hentry","category-program","tag-delphi","tag-42"],"_links":{"self":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/810","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=810"}],"version-history":[{"count":0,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/810\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=810"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=810"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=810"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}