{"id":6,"date":"2009-04-28T01:44:05","date_gmt":"2009-04-28T09:44:05","guid":{"rendered":"http:\/\/abin.cn\/?p=6"},"modified":"2009-04-28T01:44:23","modified_gmt":"2009-04-28T09:44:23","slug":"%e5%9c%a8delphi%e4%b8%ad%e7%9b%b4%e6%8e%a5%e9%93%be%e6%8e%a5c%e8%af%ad%e8%a8%80%e7%9a%84obj%e6%96%87%e4%bb%b6","status":"publish","type":"post","link":"https:\/\/www.abin.cn\/?p=6","title":{"rendered":"\u5728Delphi\u4e2d\u76f4\u63a5\u94fe\u63a5C\u8bed\u8a00\u7684OBJ\u6587\u4ef6"},"content":{"rendered":"

\u5728Delphi\u4e2d\u76f4\u63a5\u94fe\u63a5C\u8bed\u8a00\u7684OBJ\u6587\u4ef6.
\n\u8fd9\u79cd\u65b9\u6cd5\u7684\u597d\u5904\u5728\u4e8e\u6700\u7ec8EXE\u4e0d\u7528\u5e26\u4efb\u4f55\u5916\u90e8\u6587\u4ef6.\u4e5f\u4e0d\u7528\u5bf9C\u8bed\u8a00\u8fc7\u4e8e\u719f\u6089.
\n\u6211\u4eec\u90fd\u77e5\u9053,\u4ee3\u7801\u5728\u7f16\u8bd1\u6210\u53ef\u6267\u884c\u6587\u4ef6(\u6216DLL,OCX\u6587\u4ef6,\u4e0b\u540c)\u4e4b\u524d,\u90fd\u5fc5\u987b\u5f97\u5148\u751f\u6210OBJ\u6587\u4ef6(DELPHI\u4e00\u822c\u662fDCU\u6587\u4ef6,\u4f46\u4e5f\u53ef\u4ee5\u901a\u8fc7\u7f16\u8f91\u7f16 \u8bd1\u9009\u9879\u751f\u6210OBJ\u6587\u4ef6),\u7136\u540e\u628aOBJ\u6587\u4ef6\u548c\u8d44\u6e90\u6587\u4ef6(*.RES)\u94fe\u63a5\u6210\u6700\u7ec8\u7684\u53ef\u6267\u884c\u6587\u4ef6.\u5229\u7528\u8fd9\u4e2a\u65b9\u6cd5,\u6211\u4eec\u53ef\u4ee5\u76f4\u63a5\u628aOBJ\u6587\u4ef6\u94fe\u63a5\u5230\u6211\u4eec\u7684\u7a0b\u5e8f\u91cc \u9762.
\n\u4e0d\u8fc7\u9700\u8981\u6ce8\u610f\u7684\u662f,\u7f16\u8bd1\u5668\u4e0d\u540c,\u751f\u6210\u7684OBJ\u6587\u4ef6\u4e5f\u4e0d\u4e00\u6837.Microsoft\u7684\u7f16\u8bd1\u5668\u751f\u6210\u7684OBJ\u6587\u4ef6\u662fCOFF\u683c\u5f0f,\u800cBorland\u7684C++ Builder\u751f\u6210\u7684\u662fOMF\u683c\u5f0f.\u56e0\u4e3a\u6211\u4eec\u9700\u8981\u5728Delphi\u4e2d\u94fe\u63a5,\u6240\u4ee5\u5fc5\u987b\u4f7f\u7528CBC,\u6216\u8005Borland\u5b98\u65b9\u7ad9\u70b9\u5e26\u7684\u514d\u8d39\u7f16\u8bd1\u5de5\u5177.\u4e0b\u9762\u6211\u4eec\u901a\u8fc7 \u4e00\u4e2a\u7b80\u5355\u7684\u4f8b\u5b50\u6765\u8bf4\u660e\u5177\u4f53\u64cd\u4f5c\u6b65\u9aa4:
\n\u8fd9\u4e2a\u4f8b\u5b50\u662f\u7b80\u5355\u7684\u63d0\u4f9b\u4e00\u4e2a\u51fd\u6570,\u7528\u6765\u5224\u65ad\u4e00\u4e2a\u6587\u4ef6\u662f\u5426\u4e3aDat\u683c\u5f0f\u7684VCD\u6587\u4ef6.\u5934\u6587\u4ef6\u58f0\u660e\u5982\u4e0b:<\/p>\n

\/*
\n\u6587\u4ef6\u540d\u79f0:DatFormat.h
\n*\/
\n#ifndef DatFormat_H
\n#define DatFormat_H
\n#include <windows.h>
\n#pragma pack(push, 1)\/\/\u8fd9\u4e2a\u4e0e\u4e0b\u9762\u7684\u914d\u5bf9,\u4e00\u822c\u7528\u5230\u8bb0\u5f55\u7c7b\u578b\u7684\u65f6\u5019\u9700\u8981\u5b9a\u4e49,\u8fd9\u91cc\u5b9e\u9645\u4e0d\u7528<\/div>\n
#ifdef __cplusplus
\nextern “C” {
\n#endif<\/div>\n
extern BOOL CheckIsDatFile(const char * FileName,BOOL *IsDatFile);<\/div>\n
#ifdef __cplusplus
\n}
\n#endif<\/div>\n
#pragma pack(pop)<\/div>\n
#endif \/\/ DatFormat_H<\/div>\n
\u5177\u4f53\u5b9e\u73b0\u4ee3\u7801DatFormat.c\u5982\u4e0b:<\/div>\n
#include “DatFormat.h”
\nBOOL CheckIsDatFile(const char * FileName,BOOL *IsDatFile)
\n\/*
\n\u51fd\u6570\u8bf4\u660e:\u8be5\u51fd\u6570\u7528\u4e8e\u5224\u65ad\u4e00\u4e2a\u6587\u4ef6\u662f\u5426\u4e3aDat\u6587\u4ef6(\u5373VCD\u6587\u4ef6)\u683c\u5f0f.
\n\u53c2\u6570:
\nIN:
\nFileName:\u6b32\u5224\u65ad\u7684\u6587\u4ef6\u540d\u79f0
\nIN,OUT:
\nIsDatFile:\u662f\u5426\u4e3aDat\u683c\u5f0f\u6587\u4ef6
\nOUT:
\n\u8bfb\u6587\u4ef6\u5931\u8d25\u8fd4\u56deFALSE,\u5426\u5219\u8fd4\u56deTRUE.
\n————————————
\n\u4f5c\u8005:\u9648\u7ecf\u97ec.2004,01,17. http:\/\/www.138soft.com,lovejingtao@21cn.com<\/span><\/a>
\n*\/
\n{
\nHANDLE hFile;
\nDWORD dwBytesRead;
\nBOOL re;
\nchar MyBuf[4];<\/div>\n
*IsDatFile=FALSE;<\/div>\n
\/\/\u5efa\u7acb\u8bfb\u6587\u4ef6\u53e5\u67c4
\nhFile = CreateFile(FileName,
\nGENERIC_READ,
\nFILE_SHARE_READ,
\nNULL,
\nOPEN_EXISTING,
\n0,
\n0);<\/div>\n
if (hFile == INVALID_HANDLE_VALUE) return FALSE;<\/div>\n
\/\/\u8bfb\u6587\u4ef6
\nre = ReadFile(hFile,
\n&MyBuf,
\n4,
\n&dwBytesRead,
\nNULL);<\/div>\n
if (dwBytesRead!=4)
\n{
\nCloseHandle(hFile);
\nreturn FALSE;
\n}<\/div>\n
\/\/\u8bfb\u6587\u4ef6\u5931\u8d25\u7684\u65f6\u5019
\nif (re!=TRUE)
\n{
\nCloseHandle(hFile);
\nreturn FALSE;
\n}
\nCloseHandle(hFile);
\n*IsDatFile=(MyBuf[0]==’R’ && MyBuf[1]==’I’ && MyBuf[2]==’F’ && MyBuf[3]==’F’);<\/div>\n
return(TRUE);
\n}<\/div>\n
\u8fd0\u884cCBC,\u65b0\u5efa\u4e00\u4e2a\u5de5\u7a0b,\u7136\u540e\u628aDatFormat.c\u6dfb\u52a0\u5230\u5de5\u7a0b\u91cc\u9762,\u7f16\u8bd1\u6574\u4e2a\u5de5\u7a0b,\u5c06\u5f97\u5230\u6211\u4eec\u9700\u8981\u7684OBJ\u6587\u4ef6:DatFormat.OBJ.\u7136\u540e\u6211\u4eec\u5173\u95edCBC\u5373\u53ef,\u56e0\u4e3a\u4e0b\u9762\u4e0d\u518d\u9700\u8981\u7528\u5230\u5b83\u4e86.
\n\u8fd0\u884cDelphi,\u65b0\u5efa\u4e00\u4e2a\u5de5\u7a0b\u5e76\u4fdd\u5b58.\u7136\u540e\u628aDatFormat.OBJ\u62f7\u8d1d\u5230\u5b83\u7684\u76ee\u5f55\u4e4b\u4e0b.\u5728\u5355\u5143\u7684implementation\u4e0b\u9762\u6dfb\u52a0\u5982\u4e0b\u4ee3\u7801:<\/div>\n
{$LINK ‘DatFormat.obj’} \/\/\u94fe\u63a5\u5916\u90e8OBJ\u6587\u4ef6
\nfunction _CheckIsDatFile(const FileName:Pchar;IsDatFile:PBool):Bool;cdecl;external;\/\/\u5b9a\u4e49\u51fd\u6570.<\/span><\/p>\n

\u5176\u4e2dcdecl\u8fdb\u6808\u65b9\u5f0f\u8bf4\u660e \u91c7\u7528C\u8bed\u8a00\u683c\u5f0f\u4f20\u9012\u53c2\u6570.external\u8bf4\u660e\u662f\u4e2a\u5916\u90e8\u58f0\u660e\u51fd\u6570.<\/p><\/div>\n

\u6ce8\u610f\u51fd\u6570\u58f0\u660e\u7684\u539f\u5f62\u4e0eC\u5b9a\u4e49\u7684\u4e0d\u4e00\u6837.\u5fc5\u987b\u5728\u524d\u9762\u6dfb\u52a0\u4e00\u4e2a\u4e0b\u5212\u7ebf.\u539f\u56e0\u662f\u56e0\u4e3a\u7f16\u8bd1\u5668\u7684\u94fe\u63a5\u7b26\u53f7\u4e2d.C\u4e0eC++\u662f\u4e0d\u4e00\u6837\u7684.\u56e0\u4e3a\u8fd9\u4e2a\u4e0d\u662f\u672c\u6587\u91cd\u70b9,\u6240\u4ee5\u8fd9\u91cc\u4e0d\u4f5c\u8ba8\u8bba.\u8bf7\u611f\u5174\u8da3\u7684\u670b\u53cb\u81ea\u884c\u53c2\u9605\u76f8\u5173\u8d44\u6599.
\n\u7136\u540e\u6211\u4eec\u5199\u5982\u4e0b\u4ee3\u7801\u8c03\u7528\u6b64\u51fd\u6570:<\/div>\n
procedure TFrmMain.Button1Click(Sender: TObject);
\nvar
\nIsDatFile:Bool;
\nbegin
\nif OpenDialog1.Execute then
\nif _CheckIsDatFile(Pchar(OpenDialog1.FileName),@IsDatFile) then
\nif IsDatFile then ShowMessage(‘\u606d\u559c!\u8be5\u6587\u4ef6\u662f\u4e00\u4e2aDat\u683c\u5f0f\u7684\u89c6\u9891\u6587\u4ef6!’)
\nelse
\nShowMessage(‘\u4e0d\u597d\u610f\u601d,\u8be5\u6587\u4ef6\u4e0d\u662f\u4e00\u4e2aDat\u683c\u5f0f\u7684\u89c6\u9891\u6587\u4ef6!’)
\nelse
\nShowMessage(‘\u8bfb\u6587\u4ef6\u9519\u8bef!’);
\nend;<\/p>\n

<\/span><\/div>\n

\u7f16\u8bd1\u8fd9\u4e2a\u7a0b\u5e8f,\u5c06\u5f97\u5230\u4e00\u4e2a\u5e72\u51c0\u7684\u53ef\u6267\u884cEXE\u6587\u4ef6\u4e86.<\/div>\n","protected":false},"excerpt":{"rendered":"

\u5728Delphi\u4e2d\u76f4\u63a5\u94fe\u63a5C\u8bed\u8a00\u7684OBJ\u6587\u4ef6. \u8fd9\u79cd\u65b9\u6cd5\u7684\u597d\u5904\u5728\u4e8e\u6700\u7ec8EXE\u4e0d\u7528\u5e26\u4efb\u4f55\u5916\u90e8\u6587\u4ef6.\u4e5f\u4e0d\u7528\u5bf9C\u8bed\u8a00\u8fc7 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7],"tags":[],"_links":{"self":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/6"}],"collection":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6"}],"version-history":[{"count":0,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/6\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}