{"id":804,"date":"2010-02-19T09:12:40","date_gmt":"2010-02-19T01:12:40","guid":{"rendered":"http:\/\/www.tansoo.cn\/?p=804"},"modified":"2014-09-16T09:14:08","modified_gmt":"2014-09-16T01:14:08","slug":"%e8%8e%b7%e5%8f%96%e7%83%ad%e8%a1%80%e6%b1%9f%e6%b9%96%e6%80%aa%e7%89%a9%e4%bf%a1%e6%81%af%e7%9a%84delphi2010%e6%ba%90%e4%bb%a3%e7%a0%81","status":"publish","type":"post","link":"http:\/\/www.tansoo.cn\/?p=804","title":{"rendered":"\u83b7\u53d6\u70ed\u8840\u6c5f\u6e56\u602a\u7269\u4fe1\u606f\u7684DELPHI2010\u6e90\u4ee3\u7801"},"content":{"rendered":"<p>\u4e3a\u4e86\u5927\u5bb6\u770b\u7684\u65b9\u4fbf,\u7f16\u7a0b\u73af\u5883\u53c8\u7528\u7684\u662fDELPHI2010,\u6240\u4ee5\u4e00\u4e9b\u53d8\u91cf\u5c31\u7528\u6c49\u5b57\u6765\u5b9a\u4e49\u4e86. <\/p>\n<pre class=\"lang:delphi decode:true \" >procedure TfrmMain.Button8Click(Sender: TObject);   \r\nvar  \r\n  \u602a\u7269\u57fa\u5740, \u602a\u7269\u7c7b\u578b, \u602a\u7269\u6570\u7ec4\u4e0b\u6807, \u602a\u7269\u670d\u52a1\u5668ID, \u602a\u7269\u5f53\u524d\u8840, \u602a\u7269\u6700\u5927\u8840, \u602a\u7269\u7b49\u7ea7: PDword;   \r\n  \u602a\u7269\u8ddd\u79bb: PSingle;   \r\n  \u602a\u7269\u540d\u5b57: PAnsiChar;   \r\n  i: Integer;   \r\nbegin  \r\n  Memo1.Lines.Clear;   \r\n  Memo1.Lines.add('\u602a\u7269\u540d\u5b57 \u602a\u7269\u57fa\u5740  \u602a\u7269\u7c7b\u578b \u602a\u7269\u4e0b\u6807  \u602a\u7269ID   \u602a\u7269\u8ddd\u79bb');   \r\n  for i := 1 to 64 do  \r\n  begin  \r\n    \u602a\u7269\u57fa\u5740 := Pointer($05EBCA78 + i * 4); \/\/ \u7b2c\u4e00\u4e2a\u4e3a\u89d2\u8272,\u7c7b\u578b\u4e3a$31,\u4ee5\u540e\u4e3a\u602a\u7269   \r\n    if \u602a\u7269\u57fa\u5740^ = 0 then  \r\n      Break;   \r\n\r\n    \u602a\u7269\u7c7b\u578b := Pointer(\u602a\u7269\u57fa\u5740^ + 8); \/\/ +8 :\u6709\u53ef\u80fd\u662f\u5bf9\u8c61\u5206\u7c7b \u602a\u662f$2E   \r\n    if \u602a\u7269\u7c7b\u578b^&lt;&gt;$2E then Continue;   \r\n\r\n    \u602a\u7269\u6570\u7ec4\u4e0b\u6807 := Pointer(\u602a\u7269\u57fa\u5740^ + $0C); \/\/ +C \uff1a\u6570\u7ec4\u4e0b\u6807   \r\n    \u602a\u7269\u670d\u52a1\u5668ID := Pointer(\u602a\u7269\u57fa\u5740^ + $14); \/\/ \u670d\u52a1\u5668\u4e0a \u5bf9\u8c61ID\uff08\u5bf9\u8c61\u5728\u670d\u52a1\u5668\u552f\u4e00ID\u6807\u8bc6\uff09\uff08\uff1f\uff09   \r\n    \u602a\u7269\u8ddd\u79bb := Pointer(\u602a\u7269\u57fa\u5740^ + $31C); \/\/ \u602a\u5230\u73a9\u5bb6\u8ddd\u79bb   \r\n    \u602a\u7269\u540d\u5b57 := PAnsiChar(\u602a\u7269\u57fa\u5740^ + $320); \/\/ \u602a\u5bf9\u8c61\u540d\u5b57   \r\n    \u602a\u7269\u5f53\u524d\u8840 := Pointer(\u602a\u7269\u57fa\u5740^ + $610);   \r\n    \u602a\u7269\u6700\u5927\u8840 := Pointer(\u602a\u7269\u57fa\u5740^ + $62C);   \r\n    \u602a\u7269\u7b49\u7ea7 := Pointer(\u602a\u7269\u57fa\u5740^ + $614);   \r\n\r\n    Memo1.Lines.add(\u602a\u7269\u540d\u5b57+'     '+   \r\n                    IntToHex(\u602a\u7269\u57fa\u5740^, 8) + ' ' +   \r\n                    IntToHex(\u602a\u7269\u7c7b\u578b^, 8) + ' ' +   \r\n                    IntToHex(\u602a\u7269\u6570\u7ec4\u4e0b\u6807^, 8) + ' ' +   \r\n                    IntToHex(\u602a\u7269\u670d\u52a1\u5668ID^, 8) + ' ' +   \r\n                    FormatFloat('#0.00',\u602a\u7269\u8ddd\u79bb^)+' '+   \r\n                    inttostr(\u602a\u7269\u5f53\u524d\u8840^)+'\/'+inttostr(\u602a\u7269\u6700\u5927\u8840^)+' '+   \r\n                    inttostr(\u602a\u7269\u7b49\u7ea7^)+'\u7ea7');   \r\n  end;   \r\n\r\nend;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u4e3a\u4e86\u5927\u5bb6\u770b\u7684\u65b9\u4fbf,\u7f16\u7a0b\u73af\u5883\u53c8\u7528\u7684\u662fDELPHI2010,\u6240\u4ee5\u4e00\u4e9b\u53d8\u91cf\u5c31\u7528\u6c49\u5b57\u6765\u5b9a\u4e49\u4e86. procedure T [&hellip;]<\/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":[41],"class_list":["post-804","post","type-post","status-publish","format-standard","hentry","category-program","tag-41"],"_links":{"self":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/804","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=804"}],"version-history":[{"count":0,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/804\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=804"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=804"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=804"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}