{"id":643,"date":"2009-09-22T12:40:00","date_gmt":"2009-09-22T04:40:00","guid":{"rendered":""},"modified":"2013-11-17T17:08:53","modified_gmt":"2013-11-17T09:08:53","slug":"opengl%e6%95%99%e7%a8%8bdelphi%e7%89%886-%e7%ba%b9%e7%90%86%e6%98%a0%e5%b0%84%e8%b4%b4%e5%9b%be","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/643.html","title":{"rendered":"openGL\u6559\u7a0bdelphi\u7248(6)&#8212;-\u7eb9\u7406\u6620\u5c04(\u8d34\u56fe)"},"content":{"rendered":"<p>\u56e0\u7528\u5230FileOpen\u51fd\u6570\uff0c\u5f15\u5165SysUtils\u5355\u5143\u3002 \u5728Delphi\u4e2d\u4fee\u6539\u4e86\u4e00\u70b9\u5730\u65b9\uff0c\u7528\u7ea2\u8272\u6807\u51fa\u6765<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n{\r\n\r\n\u8d34\u56fe\u53ef\u4ee5\u6781\u5927\u7684\u8282\u7701CPU\u65f6\u95f4\u3002\u5475\u5475\uff0c\u4f46\u662f\u8fd9\u4e00\u8282\u8d39\u4e86\u6211\u6bd4\u8f83\u591a\u7684\u65f6\u95f4 : (\r\n\r\n\u56e0\u4e3a\u7528\u5230\u4e86opengl\u7684\u8f85\u52a9\u5e93\uff0c\u73b0\u5728\u8fd9\u4e2a\u5e93\u7684\u51fd\u6570\u5df2\u7ecf\u5f88\u5c11\u6709\u4eba\u7528\u4e86\uff0c\u4f46\u662f\u6211\u8fd8\u662f\u627e\u5230\u4e86\uff0c\u611f\u8c22zdcnow\uff08\u78c1\u6548\u5e94\uff09\uff0c\u4ed6\u7ed9\u6211\u63d0\u4f9b\u7684\u8fd9\u4e2a\u8f85\u52a9\u5e93\u7684delphi\u7248\u672c\u3002\u5728\u5b66\u4e60\u672c\u8282\u4e4b\u524d\uff0c\u8bf7\u5927\u5bb6\u5230\u7f51\u4e0a\u4e0b\u8f7dglaux.dll\u3001Glaux.pas\u6587\u4ef6\uff0c\u5e76\u52a0\u5230\u9879\u76ee\u4e2d\u3002\r\n\r\n\u597d\u4e86\uff0c\u8ba9\u6211\u4eec\u7ee7\u7eedOPENGL\u4e4b\u8def.\r\n\r\n\u9996\u5148\u6211\u4eec\u9700\u8981\u52a0\u8fdbSysUtils\u5355\u5143\uff0c\u56e0\u4e3a\u6211\u4eec\u8fd9\u8282\u8981\u7528\u5230\u6587\u4ef6\u64cd\u4f5c\uff0c\u6211\u4eec\u8fd8\u8981\u5c06Glaux\u5355\u5143\u52a0\u8fdb\u6765\u3002\r\n\r\n\u7136\u540e\u6211\u4eec\u5728\u7b2c\u4e00\u8bfe\u7684\u57fa\u7840\u4e0a\u52a0\u4e0a\u51e0\u4e2a\u53d8\u91cf,xrot , yrot \u548c zrot \u3002\u8fd9\u4e9b\u53d8\u91cf\u7528\u6765\u4f7f\u7acb\u65b9\u4f53\u7ed5X\u3001Y\u3001Z\u8f74\u65cb\u8f6c\u3002texture&#x5B;] \u4e3a\u4e00\u4e2a\u7eb9\u7406\u5206\u914d\u5b58\u50a8\u7a7a\u95f4\u3002\u5982\u679c\u60a8\u9700\u8981\u4e0d\u6b62\u4e00\u4e2a\u7684\u7eb9\u7406\uff0c\u5e94\u8be5\u5c06\u6570\u5b571\u6539\u6210\u60a8\u6240\u9700\u8981\u7684\u6570\u5b57\u3002\r\n\r\n}\r\n\r\nVAR\r\n\r\n   h_RC             : HGLRC;            \/\/ Rendering Context(\u7740\u8272\u63cf\u8ff0\u8868)\u3002\r\n   h_DC             : HDC;              \/\/ Device Context(\u8bbe\u5907\u63cf\u8ff0\u8868)\r\n   h_Wnd            : HWND;             \/\/ \u7a97\u53e3\u53e5\u67c4\r\n   h_Instance       : HINST;            \/\/ \u7a0b\u5e8fInstance(\u5b9e\u4f8b)\u3002\r\n   keys             : Array&#x5B;0..255] Of Boolean; \/\/ \u7528\u4e8e\u952e\u76d8\u4f8b\u7a0b\u7684\u6570\u7ec4\r\n\r\n   xrot,                                \/\/ X \u65cb\u8f6c\u91cf ( \u65b0\u589e )\r\n   yrot,                                \/\/ Y \u65cb\u8f6c\u91cf ( \u65b0\u589e )\r\n   zrot             : GLfloat;          \/\/ Z \u65cb\u8f6c\u91cf ( \u65b0\u589e )\r\n\r\n  Texture          : Array&#x5B;0..1] Of GLuint; \/\/ \u5b58\u50a8\u4e00\u4e2a\u7eb9\u7406 ( \u65b0\u589e )\r\n\r\n{\u7136\u540e\u5f15\u8f7d\u5165opengl32.dll\u4e2d\u7684\u4e24\u4e2a\u8fc7\u7a0b\uff0c\u6211\u4eec\u8981\u7528\u5230\u4ed6\u4eec}\r\n\r\nProcedure glGenTextures(n: GLsizei; Var textures: GLuint); stdcall; external\r\n   opengl32;\r\nProcedure glBindTexture(target: GLenum; texture: GLuint); stdcall; external\r\n   opengl32;\r\n\r\n{\u63a5\u4e0b\u6765\u6211\u4eec\u9700\u8981\u589e\u52a0\u4e00\u4e2a\u65b0\u7684\u51fd\u6570\uff0c\u7528\u6765\u518d\u5165\u56fe\u50cf\uff0c\u8be5\u51fd\u6570\u7684\u8fd4\u56de\u7c7b\u578b\u5728Glaux.pas\u4e2d\u5b9a\u4e49\u5982\u4e0b\uff1a\r\n\r\nTAUX_RGBImageRec= record\r\n       sizeX, sizeY: GLint;\r\n        data: pointer;\r\n          end;\r\n PTAUX_RGBImageRec= ^TAUX_RGBImageRec;\r\n\r\n\u5177\u4f53\u542b\u4e49\u4f1a\u5728\u540e\u9762\u4ecb\u7ecd}\r\n\r\nFunction LoadBmp(filename: pchar): PTAUX_RGBImageRec;\r\nVar\r\n   BitmapFile       : Thandle;          \/\/ \u6587\u4ef6\u53e5\u67c4\r\nBegin\r\n   \/\/\u63a5\u4e0b\u6765\u68c0\u67e5\u6587\u4ef6\u540d\u662f\u5426\u5df2\u63d0\u4f9b\r\n   If Filename = '' Then                \/\/ \u786e\u4fdd\u6587\u4ef6\u540d\u5df2\u63d0\u4f9b\u3002\r\n      result := Nil;                    \/\/ \u5982\u679c\u6ca1\u63d0\u4f9b\uff0c\u8fd4\u56de NULL\r\n   \/\/\u63a5\u7740\u68c0\u67e5\u6587\u4ef6\u662f\u5426\u5b58\u5728\u3002\r\n   BitmapFile := FileOpen(Filename, fmOpenWrite); \/\/\u5c1d\u8bd5\u6253\u5f00\u6587\u4ef6\r\n   \/\/\u5982\u679c\u6211\u4eec\u80fd\u6253\u5f00\u6587\u4ef6\u7684\u8bdd\uff0c\u5f88\u663e\u7136\u6587\u4ef6\u662f\u5b58\u5728\u7684\u3002\r\n\r\n   If BitmapFile &gt; 0 Then               \/\/ \u6587\u4ef6\u5b58\u5728\u4e48?\r\n      Begin\r\n         \/\/\u5173\u95ed\u6587\u4ef6\u3002\r\n         FileClose(BitmapFile);         \/\/ \u5173\u95ed\u53e5\u67c4\r\n         \/\/auxDIBImageLoad(Filename) \u8bfb\u53d6\u56fe\u8c61\u6570\u636e\u5e76\u5c06\u5176\u8fd4\u56de\u3002\r\n         result := auxDIBImageLoadA(Pansichar(filename)); \/\/\u8f7d\u5165\u4f4d\u56fe\u5e76\u8fd4\u56de\u6307\u9488\r\n      End\r\n   Else\r\n      \/\/\u5982\u679c\u6211\u4eec\u4e0d\u80fd\u6253\u5f00\u6587\u4ef6\uff0c\u6211\u4eec\u5c06\u8fd4\u56deNiL\u3002\r\n      result := Nil;                    \/\/ \u5982\u679c\u8f7d\u5165\u5931\u8d25\uff0c\u8fd4\u56deNiL\u3002\r\nEnd;\r\n\r\n\/\/\u63a5\u4e0b\u6765\u5728\u521b\u5efa\u4e00\u4e2a\u65b0\u51fd\u6570\uff0c\u7528\u6765\u8f7d\u5165\u7eb9\u7406\u8d34\u56fe\r\n\r\nFunction LoadTexture: boolean;\r\n\r\n\/\/Status \u7684\u53d8\u91cf\u3002\u6211\u4eec\u4f7f\u7528\u5b83\u6765\u8ddf\u8e2a\u662f\u5426\u80fd\u591f\u8f7d\u5165\u4f4d\u56fe\u4ee5\u53ca\u80fd\u5426\u521b\u5efa\u7eb9\u7406\u3002\r\n\/\/ Status \u7f3a\u7701\u8bbe\u4e3a FALSE (\u8868\u793a\u6ca1\u6709\u8f7d\u5165\u6216\u521b\u5efa\u4efb\u4f55\u4e1c\u4e1c)\u3002\r\n\/\/TextureImage\u53d8\u91cfPTAUX_RGBImageRec\u7c7b\u578b  \u5b58\u50a8\u4f4d\u56fe\u7684\u56fe\u50cf\u8bb0\u5f55\u3002\r\n\/\/\u6b21\u8bb0\u5f55\u5305\u542b\u4f4d\u56fe\u7684\u5bbd\u5ea6\u3001\u9ad8\u5ea6\u548c\u6570\u636e\u3002\r\n\r\nVar\r\n   Status           : boolean;\r\n   TextureImage     : Array&#x5B;0..1] Of PTAUX_RGBImageRec;\r\nBegin\r\n   Status := false;\r\n   ZeroMemory(@TextureImage, sizeof(TextureImage)); \/\/ \u5c06\u6307\u9488\u8bbe\u4e3a NULL\r\n   TextureImage&#x5B;0] := LoadBMP('Texture.bmp');\r\n   If TextureImage&#x5B;0] &lt;&gt; Nil Then\r\n      Begin\r\n         Status := TRUE;                \/\/ \u5c06 Status \u8bbe\u4e3a TRUE\r\n         \/\/\u73b0\u5728\u4f7f\u7528\u4e2d TextureImage&#x5B;0] \u7684\u6570\u636e\u521b\u5efa\u7eb9\u7406\u3002\r\n         \/\/glGenTextures(1, texture&#x5B;0]) \u544a\u8bc9OpenGL\u6211\u4eec\u60f3\u751f\u6210\u4e00\u4e2a\u7eb9\u7406\u540d\u5b57\r\n         \/\/(\u5982\u679c\u60a8\u60f3\u8f7d\u5165\u591a\u4e2a\u7eb9\u7406\uff0c\u52a0\u5927\u6570\u5b57)\u3002\r\n         \/\/glBindTexture(GL_TEXTURE_2D, texture&#x5B;0]) \u544a\u8bc9OpenGL\u5c06\u7eb9\u7406\u540d\u5b57 texture&#x5B;0] \u7ed1\u5b9a\u5230\u7eb9\u7406\u76ee\u6807\u4e0a\u3002\r\n         \/\/2D\u7eb9\u7406\u53ea\u6709\u9ad8\u5ea6(\u5728 Y \u8f74\u4e0a)\u548c\u5bbd\u5ea6(\u5728 X \u8f74\u4e0a)\u3002\r\n         \/\/\u4e3b\u51fd\u6570\u5c06\u7eb9\u7406\u540d\u5b57\u6307\u6d3e\u7ed9\u7eb9\u7406\u6570\u636e\u3002\r\n         \/\/\u672c\u4f8b\u4e2d\u6211\u4eec\u544a\u77e5OpenGL\uff0c &amp;texture&#x5B;0] \u5904\u7684\u5185\u5b58\u5df2\u7ecf\u53ef\u7528\u3002\r\n         \/\/\u6211\u4eec\u521b\u5efa\u7684\u7eb9\u7406\u5c06\u5b58\u50a8\u5728 &amp;texture&#x5B;0] \u7684 \u6307\u5411\u7684\u5185\u5b58\u533a\u57df\u3002\r\n         glGenTextures(1, texture&#x5B;0]);  \/\/ \u521b\u5efa\u7eb9\u7406\r\n         glBindTexture(GL_TEXTURE_2D, texture&#x5B;0]);  \/\/ \u4f7f\u7528\u6765\u81ea\u4f4d\u56fe\u6570\u636e\u751f\u6210 \u7684\u5178\u578b\u7eb9\u7406\r\n         \/\/\u4e0b\u6765\u6211\u4eec\u521b\u5efa\u771f\u6b63\u7684\u7eb9\u7406\u3002\r\n         \/\/\u4e0b\u9762\u4e00\u884c\u544a\u8bc9OpenGL\u6b64\u7eb9\u7406\u662f\u4e00\u4e2a2D\u7eb9\u7406 ( GL_TEXTURE_2D )\u3002\r\n         \/\/\u6570\u5b57\u96f6\u4ee3\u8868\u56fe\u50cf\u7684\u8be6\u7ec6\u7a0b\u5ea6\uff0c\u901a\u5e38\u5c31\u7531\u5b83\u4e3a\u96f6\u53bb\u4e86\u3002\r\n         \/\/\u6570\u5b57\u4e09\u662f\u6570\u636e\u7684\u6210\u5206\u6570\u3002\u56e0\u4e3a\u56fe\u50cf\u662f\u7531\u7ea2\u8272\u6570\u636e\uff0c\u7eff\u8272\u6570\u636e\uff0c\u84dd\u8272\u6570\u636e\u4e09\u79cd\u7ec4\u5206\u7ec4\u6210\u3002\r\n         \/\/TextureImage&#x5B;0].sizeX \u662f\u7eb9\u7406\u7684\u5bbd\u5ea6\u3002\r\n         \/\/\u5982\u679c\u60a8\u77e5\u9053\u5bbd\u5ea6\uff0c\u60a8\u53ef\u4ee5\u5728\u8fd9\u91cc\u586b\u5165\uff0c\u4f46\u8ba1\u7b97\u673a\u53ef\u4ee5\u5f88\u5bb9\u6613\u7684\u4e3a\u60a8\u6307\u51fa\u6b64\u503c\u3002\r\n         \/\/ TextureImage&#x5B;0].sizey \u662f\u7eb9\u7406\u7684\u9ad8\u5ea6\u3002\r\n         \/\/\u6570\u5b57\u96f6\u662f\u8fb9\u6846\u7684\u503c\uff0c\u4e00\u822c\u5c31\u662f\u96f6\u3002\r\n         \/\/ GL_RGB \u544a\u8bc9OpenGL\u56fe\u50cf\u6570\u636e\u7531\u7ea2\u3001\u7eff\u3001\u84dd\u4e09\u8272\u6570\u636e\u7ec4\u6210\u3002\r\n         \/\/GL_UNSIGNED_BYTE \u610f\u5473\u7740\u7ec4\u6210\u56fe\u50cf\u7684\u6570\u636e\u662f\u65e0\u7b26\u53f7\u5b57\u8282\u7c7b\u578b\u7684\u3002\r\n         \/\/\u6700\u540e... TextureImage&#x5B;0].data \u544a\u8bc9OpenGL\u7eb9\u7406\u6570\u636e\u7684\u6765\u6e90\u3002\r\n         \/\/\u6b64\u4f8b\u4e2d\u6307\u5411\u5b58\u653e\u5728 TextureImage&#x5B;0] \u8bb0\u5f55\u4e2d\u7684\u6570\u636e\u3002\r\n\r\n         \/\/ \u751f\u6210\u7eb9\u7406\r\n         glTexImage2D(GL_TEXTURE_2D, 0, 3, TextureImage&#x5B;0].sizeX,\r\n            TextureImage&#x5B;0].sizeY, 0, GL_RGB, GL_UNSIGNED_BYTE,\r\n            TextureImage&#x5B;0].data);\r\n\r\n         \/\/\u4e0b\u9762\u7684\u4e24\u884c\u544a\u8bc9OpenGL\u5728\u663e\u793a\u56fe\u50cf\u65f6\uff0c\r\n         \/\/\u5f53\u5b83\u6bd4\u653e\u5927\u5f97\u539f\u59cb\u7684\u7eb9\u7406\u5927(GL_TEXTURE_MAG_FILTER)\r\n         \/\/\u6216\u7f29\u5c0f\u5f97\u6bd4\u539f\u59cb\u5f97\u7eb9\u7406\u5c0f(GL_TEXTURE_MIN_FILTER)\u65f6OpenGL\u91c7\u7528\u7684\u6ee4\u6ce2\u65b9\u5f0f\u3002\r\n         \/\/\u901a\u5e38\u8fd9\u4e24\u79cd\u60c5\u51b5\u4e0b\u6211\u90fd\u91c7\u7528 GL_LINEAR\u3002\u8fd9\u4f7f\u5f97\u7eb9\u7406\u4ece\u5f88\u8fdc\u5904\u5230\u79bb\u5c4f\u5e55\u5f88\u8fd1\u65f6\u90fd\u5e73\u6ed1\u663e\u793a\u3002\r\n         \/\/\u4f7f\u7528 GL_LINEAR\u9700\u8981CPU\u548c\u663e\u5361\u505a\u66f4\u591a\u7684\u8fd0\u7b97\u3002\r\n         \/\/\u5982\u679c\u60a8\u7684\u673a\u5668\u5f88\u6162\uff0c\u60a8\u4e5f\u8bb8\u5e94\u8be5\u91c7\u7528 GL_NEAREST \u3002\r\n         \/\/\u8fc7\u6ee4\u7684\u7eb9\u7406\u5728\u653e\u5927\u7684\u65f6\u5019\uff0c\u770b\u8d77\u6765\u6591\u9a73\u7684\u5f88\uff08\u9a6c\u8d5b\u514b\u5566\uff09\u3002\r\n         \/\/\u60a8\u4e5f\u53ef\u4ee5\u7ed3\u5408\u8fd9\u4e24\u79cd\u6ee4\u6ce2\u65b9\u5f0f\u3002\u5728\u8fd1\u5904\u65f6\u4f7f\u7528 GL_LINEAR \uff0c\u8fdc\u5904\u65f6 GL_NEAREST \u3002\r\n         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);  \/\/ \u7ebf\u5f62\u6ee4\u6ce2\r\n         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);  \/\/ \u7ebf\u5f62\u6ee4\u6ce2\r\n      End;\r\n   \/\/\u73b0\u5728\u6211\u4eec\u91ca\u653e\u524d\u9762\u7528\u6765\u5b58\u653e\u4f4d\u56fe\u6570\u636e\u7684\u5185\u5b58\u3002\r\n   \/\/\u6211\u4eec\u5148\u67e5\u770b\u4f4d\u56fe\u6570\u636e\u662f\u5426\u5b58\u653e\u5728\u5904\u3002\r\n   \/\/\u5982\u679c\u662f\u7684\u8bdd\uff0c\u518d\u67e5\u770b\u6570\u636e\u662f\u5426\u5df2\u7ecf\u5b58\u50a8\u3002\r\n   \/\/\u5982\u679c\u5df2\u7ecf\u5b58\u50a8\u7684\u8bdd\uff0c\u5220\u4e86\u5b83\u3002\r\n   \/\/\u63a5\u7740\u518d\u91ca\u653e TextureImage&#x5B;0] \u56fe\u50cf\u7ed3\u6784\u4ee5\u4fdd\u8bc1\u6240\u6709\u7684\u5185\u5b58\u90fd\u80fd\u91ca\u653e\u3002\r\n   If assigned(TextureImage&#x5B;0]) Then    \/\/ \u7eb9\u7406\u662f\u5426\u5b58\u5728\r\n      If assigned(TextureImage&#x5B;0].data) Then \/\/ \u7eb9\u7406\u56fe\u50cf\u662f\u5426\u5b58\u5728\r\n         TextureImage&#x5B;0].data := Nil;   \/\/ \u91ca\u653e\u7eb9\u7406\u56fe\u50cf\u5360\u7528\u7684\u5185\u5b58\r\n   TextureImage&#x5B;0] := Nil;              \/\/ \u91ca\u653e\u56fe\u50cf\u7ed3\u6784\r\n   \/\/ \u6700\u540e\u8fd4\u56de\u72b6\u6001\u53d8\u91cf\u3002\u5982\u679c\u4e00\u5207OK\uff0c\u53d8\u91cf Status \u7684\u503c\u4e3a TRUE \u3002\u5426\u5219\u4e3a FALSE\r\n   result := Status;                    \/\/ \u8fd4\u56de Status\r\nEnd;\r\n\r\n\/\/\u7136\u540e\u5728 glInit \u4e2d\u589e\u52a0\u5f88\u5c11\u7684\u51e0\u884c\u4ee3\u7801\r\n\r\nProcedure glInit();\r\nBegin\r\n   If (Not LoadTexture) Then            \/\/ \u8c03\u7528\u7eb9\u7406\u8f7d\u5165\u5b50\u4f8b\u7a0b( \u65b0\u589e )\r\n      exit;                             \/\/ \u5982\u679c\u672a\u80fd\u8f7d\u5165\uff0c\u9000\u51fa( \u65b0\u589e )\r\n   glEnable(GL_TEXTURE_2D);             \/\/ \u542f\u7528\u7eb9\u7406\u6620\u5c04( \u65b0\u589e )\r\n   glClearColor(0.0, 0.0, 0.0, 0.0);    \/\/ \u9ed1\u8272\u80cc\u666f\r\n   glShadeModel(GL_SMOOTH);             \/\/ \u542f\u7528\u9634\u5f71\u5e73\u6ed1\r\n   glClearDepth(1.0);                   \/\/ \u8bbe\u7f6e\u6df1\u5ea6\u7f13\u5b58\r\n   glEnable(GL_DEPTH_TEST);             \/\/ \u542f\u7528\u6df1\u5ea6\u6d4b\u8bd5\r\n   glDepthFunc(GL_LESS);                \/\/ \u6240\u4f5c\u6df1\u5ea6\u6d4b\u8bd5\u7684\u7c7b\u578b\r\n   glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST); \/\/ \u771f\u6b63\u7cbe\u7ec6\u7684\u900f\u89c6\u4fee\u6b63\r\n\r\nEnd;\r\n\r\n{\u73b0\u5728\u6211\u4eec\u7ed8\u5236\u8d34\u56fe\u8fc7\u7684\u7acb\u65b9\u4f53\u3002\u8fd9\u6bb5\u4ee3\u7801\u88ab\u72c2\u6ce8\u91ca\u4e86\u4e00\u628a\uff0c\u5e94\u8be5\u5f88\u597d\u61c2\u3002\u5f00\u59cb\u4e24\u884c\u4ee3\u7801 glClear() \u548c glLoadIdentity() \u662f\u7b2c\u4e00\u8bfe\u4e2d\u5c31\u6709\u7684\u4ee3\u7801\u3002 glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT) \u6e05\u9664\u5c4f\u5e55\u5e76\u8bbe\u4e3a\u6211\u4eec\u5728 InitGL() \u4e2d\u9009\u5b9a\u7684\u989c\u8272\uff0c\u672c\u4f8b\u4e2d\u662f\u9ed1\u8272\u3002\u6df1\u5ea6\u7f13\u5b58\u4e5f\u88ab\u6e05\u9664\u3002\u6a21\u578b\u89c2\u5bdf\u77e9\u9635\u4e5f\u4f7f\u7528glLoadIdentity()\u91cd\u7f6e\u3002}\r\n\r\nProcedure glDraw();\r\nBegin\r\n   glClear(GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT); \/\/ \u6e05\u9664\u5c4f\u5e55\u548c\u6df1\u5ea6\u7f13\u5b58\r\n   glLoadIdentity();                    \/\/ \u91cd\u7f6e\u5f53\u524d\u7684\u6a21\u578b\u89c2\u5bdf\u77e9\u9635\r\n   glTranslatef(0.0, 0.0, -6.0);        \/\/ \u79fb\u5165\u5c4f\u5e556\u4e2a\u5355\u4f4d\r\n\r\n   \/\/\u4e0b\u9762\u4e09\u884c\u4f7f\u7acb\u65b9\u4f53\u7ed5X\u3001Y\u3001Z\u8f74\u65cb\u8f6c\u3002\r\n   \/\/\u65cb\u8f6c\u591a\u5c11\u4f9d\u8d56\u4e8e\u53d8\u91cf xrot \uff0c yrot \u548c zrot \u7684\u503c\u3002\r\n   glRotatef(xrot, 1.0, 0.0, 0.0);      \/\/ \u7ed5X\u8f74\u65cb\u8f6c\r\n   glRotatef(yrot, 0.0, 1.0, 0.0);      \/\/ \u7ed5Y\u8f74\u65cb\u8f6c\r\n   glRotatef(zrot, 0.0, 0.0, 1.0);      \/\/ \u7ed5Z\u8f74\u65cb\u8f6c\r\n\r\n   \/\/\u4e0b\u4e00\u884c\u4ee3\u7801\u9009\u62e9\u6211\u4eec\u4f7f\u7528\u7684\u7eb9\u7406\u3002\r\n   \/\/\u5982\u679c\u5728\u573a\u666f\u4e2d\u4f7f\u7528\u591a\u4e2a\u7eb9\u7406\uff0c\u5e94\u8be5\u4f7f\u7528\r\n   \/\/glBindTexture(GL_TEXTURE_2D, texture&#x5B; \u6240\u4f7f\u7528\u7eb9\u7406\u5bf9\u5e94\u7684\u6570\u5b57 ]) \u6765\u9009\u62e9\u8981\u7ed1\u5b9a\u7684\u7eb9\u7406\u3002\r\n   \/\/\u5f53\u60f3\u6539\u53d8\u7eb9\u7406\u65f6\uff0c\u5e94\u8be5\u7ed1\u5b9a\u65b0\u7684\u7eb9\u7406\u3002\r\n   \/\/\u6709\u4e00\u70b9\u503c\u5f97\u6307\u51fa\u7684\u662f\uff0c\r\n   \/\/\u4e0d\u80fd\u5728 glBegin() \u548c glEnd() \u4e4b\u95f4\u7ed1\u5b9a\u7eb9\u7406\uff0c\r\n   \/\/\u5fc5\u987b\u5728 glBegin() \u4e4b\u524d\u6216 glEnd() \u4e4b\u540e\u7ed1\u5b9a\u3002\r\n   \/\/\u6ce8\u610f\u6211\u4eec\u5728\u540e\u9762\u662f\u5982\u4f55\u4f7f\u7528 glBindTexture \u6765\u6307\u5b9a\u548c\u7ed1\u5b9a\u7eb9\u7406\u7684\u3002\r\n\r\n   glBindTexture(GL_TEXTURE_2D, texture&#x5B;0]); \/\/ \u9009\u62e9\u7eb9\u7406\r\n\r\n   \/\/\u4e3a\u4e86\u5c06\u7eb9\u7406\u6b63\u786e\u7684\u6620\u5c04\u5230\u56db\u8fb9\u5f62\u4e0a\uff0c\r\n   \/\/\u5fc5\u987b\u5c06\u7eb9\u7406\u7684\u53f3\u4e0a\u89d2\u6620\u5c04\u5230\u56db\u8fb9\u5f62\u7684\u53f3\u4e0a\u89d2\uff0c\r\n   \/\/\u7eb9\u7406\u7684\u5de6\u4e0a\u89d2\u6620\u5c04\u5230\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\u89d2\uff0c\r\n   \/\/\u7eb9\u7406\u7684\u53f3\u4e0b\u89d2\u6620\u5c04\u5230\u56db\u8fb9\u5f62\u7684\u53f3\u4e0b\u89d2\uff0c\r\n   \/\/\u7eb9\u7406\u7684\u5de6\u4e0b\u89d2\u6620\u5c04\u5230\u56db\u8fb9\u5f62\u7684\u5de6\u4e0b\u89d2\u3002\r\n   \/\/\u5982\u679c\u6620\u5c04\u9519\u8bef\u7684\u8bdd\uff0c\u56fe\u50cf\u663e\u793a\u65f6\u53ef\u80fd\u4e0a\u4e0b\u98a0\u5012\uff0c\u4fa7\u5411\u4e00\u8fb9\u6216\u8005\u4ec0\u4e48\u90fd\u4e0d\u662f\u3002\r\n\r\n   \/\/glTexCoord2f \u7684\u7b2c\u4e00\u4e2a\u53c2\u6570\u662fX\u5750\u6807\u3002\r\n   \/\/ 0.0\u662f\u7eb9\u7406\u7684\u5de6\u4fa7\u3002 0.5\u662f\u7eb9\u7406\u7684\u4e2d\u70b9\uff0c 1.0\u662f\u7eb9\u7406\u7684\u53f3\u4fa7\u3002\r\n   \/\/glTexCoord2f \u7684\u7b2c\u4e8c\u4e2a\u53c2\u6570\u662fY\u5750\u6807\u3002\r\n   \/\/0.0\u662f\u7eb9\u7406\u7684\u5e95\u90e8\u3002 0.5\u662f\u7eb9\u7406\u7684\u4e2d\u70b9\uff0c 1.0\u662f\u7eb9\u7406\u7684\u9876\u90e8\u3002\r\n   \/\/\u6240\u4ee5\u7eb9\u7406\u7684\u5de6\u4e0a\u5750\u6807\u662f X\uff1a0.0f\uff0cY\uff1a1.0f \uff0c\r\n   \/\/\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\u9876\u70b9\u662f X\uff1a -1.0f\uff0cY\uff1a1.0f \u3002\r\n   \/\/\u5176\u4f59\u4e09\u70b9\u4f9d\u6b64\u7c7b\u63a8\u3002\r\n\r\n   \/\/\u8bd5\u7740\u73a9\u73a9 glTexCoord2f \u7684X\uff0cY\u5750\u6807\u53c2\u6570\u3002\r\n   \/\/\u628a1.0\u6539\u4e3a0.5\u5c06\u53ea\u663e\u793a\u7eb9\u7406\u7684\u5de6\u534a\u90e8\u5206\uff0c\r\n   \/\/\u628a0.0\u6539\u4e3a0.5\u5c06\u53ea\u663e\u793a\u7eb9\u7406\u7684\u53f3\u534a\u90e8\u5206\u3002\r\n   glBegin(GL_QUADS);\r\n   \/\/ \u524d\u9762\r\n   glTexCoord2f(0.0, 0.0);\r\n   glVertex3f(-1.0, -1.0, 1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0b\r\n   glTexCoord2f(1.0, 0.0);\r\n   glVertex3f(1.0, -1.0, 1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0b\r\n   glTexCoord2f(1.0, 1.0);\r\n   glVertex3f(1.0, 1.0, 1.0);           \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0a\r\n   glTexCoord2f(0.0, 1.0);\r\n   glVertex3f(-1.0, 1.0, 1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\r\n   \/\/ \u540e\u9762\r\n   glTexCoord2f(1.0, 0.0);\r\n   glVertex3f(-1.0, -1.0, -1.0);        \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0b\r\n   glTexCoord2f(1.0, 1.0);\r\n   glVertex3f(-1.0, 1.0, -1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0a\r\n   glTexCoord2f(0.0, 1.0);\r\n   glVertex3f(1.0, 1.0, -1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\r\n   glTexCoord2f(0.0, 0.0);\r\n   glVertex3f(1.0, -1.0, -1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0b\r\n   \/\/ \u9876\u9762\r\n   glTexCoord2f(0.0, 1.0);\r\n   glVertex3f(-1.0, 1.0, -1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\r\n   glTexCoord2f(0.0, 0.0);\r\n   glVertex3f(-1.0, 1.0, 1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0b\r\n   glTexCoord2f(1.0, 0.0);\r\n   glVertex3f(1.0, 1.0, 1.0);           \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0b\r\n   glTexCoord2f(1.0, 1.0);\r\n   glVertex3f(1.0, 1.0, -1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0a\r\n   \/\/ \u5e95\u9762\r\n   glTexCoord2f(1.0, 1.0);\r\n   glVertex3f(-1.0, -1.0, -1.0);        \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0a\r\n   glTexCoord2f(0.0, 1.0);\r\n   glVertex3f(1.0, -1.0, -1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\r\n   glTexCoord2f(0.0, 0.0);\r\n   glVertex3f(1.0, -1.0, 1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0b\r\n   glTexCoord2f(1.0, 0.0);\r\n   glVertex3f(-1.0, -1.0, 1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0b\r\n   \/\/ \u53f3\u9762\r\n   glTexCoord2f(1.0, 0.0);\r\n   glVertex3f(1.0, -1.0, -1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0b\r\n   glTexCoord2f(1.0, 1.0);\r\n   glVertex3f(1.0, 1.0, -1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0a\r\n   glTexCoord2f(0.0, 1.0);\r\n   glVertex3f(1.0, 1.0, 1.0);           \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\r\n   glTexCoord2f(0.0, 0.0);\r\n   glVertex3f(1.0, -1.0, 1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0b\r\n   \/\/ \u5de6\u9762\r\n   glTexCoord2f(0.0, 0.0);\r\n   glVertex3f(-1.0, -1.0, -1.0);        \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0b\r\n   glTexCoord2f(1.0, 0.0);\r\n   glVertex3f(-1.0, -1.0, 1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0b\r\n   glTexCoord2f(1.0, 1.0);\r\n   glVertex3f(-1.0, 1.0, 1.0);          \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u53f3\u4e0a\r\n   glTexCoord2f(0.0, 1.0);\r\n   glVertex3f(-1.0, 1.0, -1.0);         \/\/ \u7eb9\u7406\u548c\u56db\u8fb9\u5f62\u7684\u5de6\u4e0a\r\n   glEnd();\r\n\r\n   xrot := xrot + 0.3;                  \/\/ X \u8f74\u65cb\u8f6c\r\n   yrot := yrot + 0.2;                  \/\/ Y \u8f74\u65cb\u8f6c\r\n   zrot := zrot + 0.4;                  \/\/ Z \u8f74\u65cb\u8f6c\r\nEnd;\r\n\r\n{\u6700\u540e\uff0c\u5173\u4e8e\u7528\u4f5c\u7eb9\u7406\u7684\u56fe\u50cf\u6211\u60f3\u6709\u51e0\u70b9\u5341\u5206\u91cd\u8981\uff0c\u5e76\u4e14\u60a8\u5fc5\u987b\u660e\u767d\u3002\u6b64\u56fe\u50cf\u7684\u5bbd\u548c\u9ad8\u5fc5\u987b\u662f2\u7684n\u6b21\u65b9\uff1b\u5bbd\u5ea6\u548c\u9ad8\u5ea6\u6700\u5c0f\u5fc5\u987b\u662f64\u8c61\u7d20\uff1b\u5e76\u4e14\u51fa\u4e8e\u517c\u5bb9\u6027\u7684\u539f\u56e0\uff0c\u56fe\u50cf\u7684\u5bbd\u5ea6\u548c\u9ad8\u5ea6\u4e0d\u5e94\u8d85\u8fc7256\u8c61\u7d20\u3002\u5982\u679c\u60a8\u7684\u539f\u59cb\u7d20\u6750\u7684\u5bbd\u5ea6\u548c\u9ad8\u5ea6\u4e0d\u662f64,128,256\u8c61\u7d20\u7684\u8bdd\uff0c\u4f7f\u7528\u56fe\u50cf\u5904\u7406\u8f6f\u4ef6\u91cd\u65b0\u6539\u53d8\u56fe\u50cf\u7684\u5927\u5c0f\u3002\u53ef\u4ee5\u80af\u5b9a\u6709\u529e\u6cd5\u80fd\u7ed5\u8fc7\u8fd9\u4e9b\u9650\u5236\uff0c\u4f46\u73b0\u5728\u6211\u4eec\u53ea\u9700\u8981\u7528\u6807\u51c6\u7684\u7eb9\u7406\u5c3a\u5bf8\u3002}\r\n\r\n\/\/OK!\u8fd0\u884c\u4e00\u4e0b\u770b\u770b\u6548\u679c\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u56e0\u7528\u5230FileOpen\u51fd\u6570\uff0c\u5f15\u5165SysUtils\u5355\u5143\u3002 \u5728Delphi\u4e2d\u4fee\u6539\u4e86\u4e00\u70b9\u5730\u65b9\uff0c\u7528\u7ea2\u8272\u6807\u51fa\u6765 { \u8d34\u56fe [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-643","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/643","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=643"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/643\/revisions"}],"predecessor-version":[{"id":4724,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/643\/revisions\/4724"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=643"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=643"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=643"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}