home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Doc / Other / DX_DELPH.exe / L10.TXT next >
Encoding:
Text File  |  1998-12-05  |  8.0 KB  |  173 lines
  1. ╚π≡εΓεΘ SDK
  2. ├δαΓα 32
  3.  
  4. ╠εΣσδⁿ Ωε∞∩εφσφ≥φ√⌡ εß·σΩ≥εΓ (╤╬╠)
  5.  
  6. ╧σ≡σΣ ≤πδ≤ßδσφΦσ∞ Φ Φτφ≤≡Φ≥σδⁿφ√σ ∩εΣ≡εßφε±≥Φ DirectDraw ±φα≈αδα φσ±ΩεδⁿΩε ±δεΓ ε ∞εΣσδΦ Ωε∞∩εφσφ≥φ√⌡ εß·σΩ≥εΓ
  7. - Ω≡α≥Ωε ╤╬╠. Delphi Φ±∩εδⁿτ≤σ≥ εß·σΩ≥φε-ε≡Φσφ≥Φ≡εΓαφφ√Θ  τ√Ω ∩≡επ≡α∞∞Φ≡εΓαφΦ  Object Pascal. ─ΦταΘφσ≡√ Delphi
  8. ≡σ°ΦδΦ ±Σσδα≥ⁿ ≡εΣφ√σ Delphi εß·σΩ≥√ ∩εδφε±≥ⁿ■ ±εΓ∞σ±≥Φ∞√∞Φ ± ╤╬╠ Φ OLE. ▌≥ε ßεδⁿ°α  φεΓε±≥ⁿ Σδ  φα±, ∩ε≥ε∞≤ ≈≥ε
  9. DirectDraw Φ±∩εδⁿτ≤σ≥ Φφ≥σ≡⌠σΘ± ╤╬╠ Φ ∩ε²≥ε∞≤ Φτ Delphi ∩εδ≤≈Φ≥ⁿ Ω φσ∞≤ Σε±≥≤∩ Σε±≥α≥ε≈φε ∩≡ε±≥ε.
  10.  
  11. ╬ß·σΩ≥√ ╤╬╠ ∩εΣ≡εßφε ε±Γσ∙σφ√ Γ πδαΓσ 30 "╬±φεΓ√ εß·σΩ≥εΓ ╤╬╠". ═ε Σδ  ≥επε, ≈≥εß√ ±²Ωεφε∞Φ≥ⁿ Γα°σ Γ≡σ∞ ,
  12. ∩≡σΣε±≥αΓδ■ Ω≡α≥ΩΦΘ εßτε≡. ┬ Delphi Γ√ ≡αßε≥ασ≥σ ± εß·σΩ≥ε∞ ╤╬╠ ∩≡αΩ≥Φ≈σ±ΩΦ ≥αΩ µσ, ΩαΩ Φ ± Σ≡≤πΦ∞ εß·σΩ≥ε∞. ╬ß·σΩ≥√
  13. ╤╬╠ Γ√πδ Σ ≥ ∩ε ±≤≥Φ ΩαΩ εß√≈φ√σ εß·σΩ≥√ Delphi. ╬φΦ Φ∞σ■≥ ∞σ≥εΣ√, Ωε≥ε≡√σ Γ√ Γ√τ√Γασ≥σ Σδ  Σε±≥≤∩α Ω Φ⌡ ≤±δ≤πα∞.
  14. ╥σ∞ φσ ∞σφσσ, εφΦ φσ Φ∞σ■≥ ∩εδσΘ ΦδΦ ±ΓεΘ±≥Γ. ├δαΓφ√∞ ε≥δΦ≈Φσ∞  Γδ σ≥±  ≥ε, ≈≥ε Γ√ Γ√τ√Γασ≥σ ∞σ≥εΣ Release Γ∞σ±≥ε
  15. ∞σ≥εΣα Free, σ±δΦ Γ√ ⌡ε≥Φ≥σ ε±ΓεßεΣΦ≥ⁿ ²≥Φ εß·σΩ≥√.
  16.  
  17. ┬√ ≥αΩµσ φΦΩεπΣα φσ ±ετΣασ≥σ εß·σΩ≥ ╤╬╠ ∩≤≥σ∞ Γ√τεΓα Ωεφ±≥≡≤Ω≥ε≡α. ┬∞σ±≥ε ²≥επε Γ√ Γ√τ√Γασ≥σ ⌠≤φΩ÷Φ■ Γ DirectD-
  18. raw Σδ  ±ετΣαφΦ  πδαΓφεπε εß·σΩ≥α DirectDraw. ▌≥ε≥ εß·σΩ≥ Φ∞σσ≥ ΣαδⁿφσΘ°Φσ ∞σ≥εΣ√, Ωε≥ε≡√σ Γ√ Φ±∩εδⁿτ≤σ≥σ Σδ  ±ετΣαφΦ 
  19. Σ≡≤πΦ⌡ ∞σ≥εΣεΓ. ╧ε∞Φ∞ε ²≥Φ⌡ ΣΓ≤⌡ Γε∩≡ε±εΓ Γ√ ∞εµσ≥σ ⌠αΩ≥Φ≈σ±ΩΦ Σ≤∞α≥ⁿ ε φΦ⌡ ΩαΩ εß εß·σΩ≥α⌡ Delphi.
  20.  
  21. ╬ß·σΩ≥√ ╤╬╠ DirectDraw ε∩≡σΣσδ ■≥±  Γ ΣεΓεδⁿφε ±δεµφε∞ ⌠αΘδσ-ταπεδεΓΩσ φα ╤, Ωε≥ε≡√Θ ∩ε±≥αΓδ σ≥±  ± Game SDK.
  22. ╬ΣφαΩε   ∩σ≡σΓσδ ²≥ε Γ ∞εΣ≤δⁿ Φ∞∩ε≡≥α, Ωε≥ε≡√Θ Γ√ ∞εµσ≥σ Φ±∩εδⁿτεΓα≥ⁿ Γ Delphi. ▌≥ε ⌠αΘδ DDraw.pas φα ±ε∩≡εΓεµΣα■-
  23. ∙σ∞ CD-ROM. ─δ  ≥επε, ≈≥εß√ ∩εδ≤≈Φ≥ⁿ Σε±≥≤∩ Ω DirectDraw, ∩≡ε±≥ε ΣεßαΓⁿ≥σ DDraw Γ ∩≡σΣδεµσφΦσ uses.
  24.  
  25. DirectDraw
  26.  
  27. DirectDraw ∞εµσ≥ εΩατα≥ⁿ±  ΣεΓεδⁿφε ΩαΓσ≡τφ√∞ Γ Φ±∩εδⁿτεΓαφΦΦ. ═α ∩σ≡Γ√Θ Γτδ Σ εφ Ωαµσ≥±  ∩≡ε±≥√∞; ±≤∙σ±≥Γ≤σ≥
  28. ≥εδⁿΩε φσ±ΩεδⁿΩε ╤╬╠-Ωδα±±εΓ Φ εφΦ φσ Φ∞σ■≥ ßεδⁿ°επε ΩεδΦ≈σ±≥Γα ∞σ≥εΣεΓ. ╬ΣφαΩε DirectDraw Φ±∩εδⁿτ≤σ≥ τα∩Φ±Φ Σδ 
  29. ε∩≡σΣσδσφΦ  Γ±σ⌡ ΓΦΣεΓ ≡ατδΦ≈φ√⌡ ∩α≡α∞σ≥≡εΓ ∩≡Φ ±ετΣαφΦΦ ±ΓεΦ⌡ εß·σΩ≥εΓ. ═α ∩σ≡Γ√Θ Γτπδ Σ εφΦ Γ√πδ Σ ≥ ΣσΘ±≥ΓΦ≥σδⁿφε
  30. ≤±≥≡α°α■∙σ. ┬√ ∞εµσ≥σ φαΘ≥Φ Φ⌡ Γ ±∩≡αΓε≈φ√⌡ ⌠αΘδα⌡ Game SDK, φα≈Φφα  ± ß≤ΩΓ DD, φα∩≡Φ∞σ≡ DDSurfaceDesc. ▀Γδ  ±ⁿ
  31. API φΦτΩεπε ≤≡εΓφ , ±≤∙σ±≥Γ≤σ≥ ∞φεµσ±≥Γε ε∩÷ΦΘ Φ ∩α≡α∞σ≥≡εΓ, Ωε≥ε≡√σ Σε∩≤±Ωα■≥ ≡ατφΦ÷≤ Γ ±∩σ÷Φ⌠ΦΩα÷Φ ⌡ α∩∩α≡α≥φεπε
  32. εßσ±∩σ≈σφΦ  Φ Γετ∞εµφε±≥ ⌡. ╩ ±≈α±≥ⁿ■, Γ ßεδⁿ°Φφ±≥Γσ ±δ≤≈ασΓ ∞εµφε ∩≡εΦπφε≡Φ≡εΓα≥ⁿ ∞φεµσ±≥Γε∞ ²≥Φ⌡ ε∩÷ΦΘ. ╤α∞εΘ
  33. ßεδⁿ°εΘ ∩≡εßδσ∞εΘ Γ ∞ε∞σφ≥ φα∩Φ±αφΦ  ²≥εΘ ΩφΦπΦ  Γδ σ≥±  φσΣε±≥α≥εΩ Φφ⌠ε≡∞α÷ΦΦ Γ GDK ΣεΩ≤∞σφ≥α÷ΦΦ, Ωε≥ε≡α  ε∩Φ-
  34. ±√Γασ≥, ΩαΩΦσ Ωε∞ßΦφα÷ΦΦ ε∩÷ΦΘ ≡ατ≡σ°α■≥± ,
  35.  
  36. ╧ε²≥ε∞≤ Σδ  ≥επε, ≈≥εß√ ∩ε∞ε≈ⁿ Γα∞ φαΘ≥Φ ∩≤≥ⁿ ≈σ≡στ ∞Φφφεσ ∩εδσ, ²≥α πδαΓα ∩ε²≥α∩φε ∩≡ε⌡εΣΦ≥ ∩ε Γ±σ∞ ±≥αΣΦ ∞
  37. ±ετΣαφΦ  ∩≡ΦδεµσφΦ  DirectDraw. ▀ ∩≡σΣ±≥αΓδ ■ ΩεΣ. Ωε≥ε≡√Θ ΣεßαΓδ σ≥±  φα ΩαµΣε∞ ²≥α∩σ Φ Φ±∩εδⁿτ≤σ≥ σπε Σδ  εß· ±φσ-
  38. φΦ  α±∩σΩ≥α DirectDraw, ≥αΩµσ ΩαΩ Φ ≡αßε≈ΦΘ ∩≡Φ∞σ≡, φα ε±φεΓαφΦΦ Ωε≥ε≡επε ∞εµφε ±≥≡εΦ≥ⁿ ±ΓεΦ ±εß±≥Γσφφ√σ ∩≡επ≡α∞∞√.
  39.  
  40. ╬ß·σΩ≥ I DirectDraw
  41.  
  42. DLL ± DirectDraw ⌠αΩ≥Φ≈σ±ΩΦ Φ∞σσ≥ ±α∞√Θ ∩≡ε±≥εΘ Φτ Φφ≥σ≡⌠σΘ±εΓ. ╬φα ²Ω±∩ε≡≥Φ≡≤σ≥ ≥εδⁿΩε εΣφ≤ ⌠≤φΩ÷Φ■: Direc-
  43. tDrawCreate. ┬√ Φ±∩εδⁿτ≤σ≥σ ²≥≤ ⌠≤φΩ÷Φ■ Σδ  ±ετΣαφΦ  ╤╬╠-εß·σΩ≥α IDirectDraw, Ωε≥ε≡√Θ ε≥Ω≡√Γασ≥ ε±≥αδⁿφ≤■ ≈α±≥ⁿ
  44. API. ╥αΩΦ∞ εß≡ατε∞, ∩σ≡Γεσ, ≈≥ε Σεδµσφ ±Σσδα≥ⁿ ∩≡Φ∞σ≡ - ±ετΣα≥ⁿ εΣΦφ Φτ ≥αΩΦ⌡ εß·σΩ≥εΓ. ┬√ Σσδασ≥σ ²≥ε Γ εß≡αßε≥≈ΦΩσ
  45. ±εß√≥Φ  OnCreate ⌠ε≡∞√ Φ ≡ατ≡≤°ασ≥σ σπε Γ OnDestroy. ╦≤≈°Φ∞ ∞σ±≥ε∞ ⌡≡αφσφΦ  εß·σΩ≥α  Γδ σ≥±  ∩≡ΦΓα≥φεσ ∩εδσ πδαΓφεΘ
  46. ⌠ε≡∞√. ╦Φ±≥Φφπ 32.1 ±εΣσ≡µΦ≥ ßατεΓ√Θ ΩεΣ Σδ  ε±≤∙σ±≥ΓδσφΦ  ²≥επε.
  47.  
  48. ╦Φ±≥Φφπ 32.1 ╤ετΣαφΦσ εß·σΩ≥α IDirectDraw.
  49.  
  50. {\DDDemol\Unitl -≡ατ)
  51. unit Uniti;
  52. interface
  53. uses
  54.  
  55. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DDraw ;
  56. type
  57.  
  58. TFormI = class (TForm)
  59.  
  60. procedure FormCreate (Sender: TObject);
  61. procedure FormDestroy (Sender: TObject) ;
  62. private
  63.  
  64. DirectDraw : IDirectDraw ; // πδαΓφ√Θ εß·σΩ≥ DirectDraw
  65. end;
  66. var
  67.  
  68. Formi: TFormI;
  69. implementation
  70. <$R *.DFM)
  71.  
  72. procedure TFormI. FormCreate (Sender: TObject);
  73. begin
  74.  
  75. { ±ετΣα≥ⁿ ╤╬╠-εß·σΩ≥ DirectDraw }
  76. if DirectDrawCreate( NIL, DirectDraw, NIL ) <> DD_OK then
  77.  
  78. Raise Exception. Create ( 'Failed to create IDirectDraw object' ) ;
  79. end;
  80.  
  81. procedure TFormI. FormDestroy (Sender: TObject);
  82. begin { ±ετΣα≥ⁿ ╤╬╠-εß·σΩ≥ DirectDraw ²α ±≈σ≥ Γ√τεΓα σπε ∞σ≥εΣα Release ]
  83.  
  84. if Assigned ( DirectDraw ) then DirectDraw. Release ;
  85. end;
  86. end.
  87.  
  88. ╠≤δⁿ≥Φ∞±ΣΦΦ Φ Φπ≡√
  89. ╫α±≥ⁿ VII
  90.  
  91. Text0ut( 630 - TextWidth( 'Back buffer' ), ATopPos, 'Back buffer' ) ;
  92.  
  93. finally
  94.  
  95. // ≤ßσΣΦ≥ⁿ± , ≈≥ε DC ε±ΓεßεµΣσφ
  96. Release ;
  97.  
  98. end ;
  99. end ;
  100.  
  101. ╟α∞σ≥ⁿ≥σ ßδεΩΦ try...finally ± Γ√τεΓε∞ Release. ╧ε∞Φ∞ε ²≥επε, ≥σ∩σ≡ⁿ ∩√ Σεß≡αδΦ±ⁿ Σε ²≥α∩α, φα Ωε≥ε≡ε∞ ≤µσ ∞εµφε
  102. ≡Φ±εΓα≥ⁿ φα ∩εΓσ≡⌡φε±≥ ⌡ DirectDraw, φσ Φ±∩εδⁿτ≤  ±ΩΓσ≡φ√σ ΩεΣ√ DirectDraw, α ∩≡ε±≥ε ∩≡Φ ≥φ√σ ∞σ≥εΣ√ ∩εδε≥φα Delphi!
  103.  
  104. ╙δ≤≈°σφΦσ φα°σπε Φτεß≡αµσφΦ 
  105.  
  106. ╥σ∩σ≡ⁿ, ΩεπΣα ≤ Γα± ∩≡σΩ≡α±φε ≡αßε≥ασ≥ ±∞σφα ±≥≡αφΦ÷, ±α∞εσ Γ≡σ∞  φα≤≈Φ≥ⁿ±  ταπ≡≤µα≥ⁿ ≡α±≥≡εΓεσ Φτεß≡αµσφΦσ φα
  107. ∩εΓσ≡⌡φε±≥ⁿ ε≥εß≡αµσφΦ . ╧≡ε÷σ±± ταπ≡≤τΩΦ ≡α±≥≡εΓεπε Φτεß≡αµσφΦ  τφα≈Φ≥σδⁿφε ≤∩≡ε∙σφ ∩ε ±≡αΓφσφΦ■ ± ≥σ∞, ΩαΩ ²≥ε
  108. ∩≡εΦ±⌡εΣΦδε Γ Windows 3.⌡, τα ±≈σ≥ ΓΓσΣσφΦ  ⌠≤φΩ÷ΦΘ Loadimage Φ CreateDIBSection α WIN32 API. ┬ Windows 95 Γ√ ∞εµσ≥σ
  109. Φ±∩εδⁿτεΓα≥ⁿ Loadimage Σδ  ταπ≡≤τΩΦ ≡α±≥≡εΓεπε Φτεß≡αµσφΦ  δΦßε ± ΣΦ±ΩεΓεπε ⌠αΘδα, δΦßε Φτ ≡σ±≤≡±α. ┬ εΩεφ≈α≥σδⁿφε∞
  110. ∩≡ΦδεµσφΦΦ Γ√ φσ±ε∞φσφφε Γ±≥≡εΦ≥σ ±ΓεΦ Φτεß≡αµσφΦ  Γ ┼╒┼-⌠αΘδ Γ ΓΦΣσ ≡σ±≤≡±εΓ. ╬ΣφαΩε, ∩εδστφε Φ∞σ≥ⁿ Γετ∞εµφε±≥ⁿ
  111. ταπ≡≤µα≥ⁿ Φ⌡ Φτ ⌠αΘδα Γε Γ≡σ∞  ≡ατ≡αßε≥ΩΦ.
  112.  
  113. ▀ φα∩Φ±αδ ≡ Σ ±σ≡ΓΦ±φ√⌡ ∩≡επ≡α∞∞ ∩ε εß±δ≤µΦΓαφΦ■ ≡α±≥≡εΓ√⌡ Φτεß≡αµσφΦΘ. ╬φΦ φα⌡εΣ ≥±  Γ ⌠αΘδσ DDUtils\DDLI-
  114. tils.pas. ╧σ≡ΓεΘ Φτ φΦ⌡, φα Ωε≥ε≡≤■ ±δσΣ≤σ≥ εß≡α≥Φ≥ⁿ ΓφΦ∞αφΦσ,  Γδ σ≥±  DDReLoadBitmap. ┬√ ∞εµσ≥σ ±∞σδε Φ±∩εδⁿτεΓα≥ⁿ
  115. σσ ßστ ∩εφΦ∞αφΦ  ≥επε, ≈≥ε εφα Σσδασ≥, φε ± ÷σδⁿ■ εß≤≈σφΦ  ∩εδστφε φσ∞φεπε ταπδ φ≤≥ⁿ Γ ²≥ε≥ ΩεΣ. ┴√Γα■≥ ∞ε∞σφ≥√, ΩεπΣα
  116. Γα∞ ∞εµσ≥ ∩εφαΣεßΦ≥ⁿ±  ±α∞ε±≥ε ≥σδⁿφε φα∩Φ±α≥ⁿ ±∩σ÷ΦαδΦτΦ≡εΓαφφ√Θ ΩεΣ ∩ε εß±δ≤µΦΓαφΦ■ ≡α±≥≡εΓ√⌡ Φτεß≡αµσφΦΘ.
  117. ▌≥ε Σα±≥ Γα∞ ε∩≡σΣσδσφφεσ ∩εφΦ∞αφΦσ ≥επε, ΩαΩ ²≥ε ±Σσδα≥ⁿ. ╦Φ±≥Φφπ 32.17 ∩≡σΣ±≥αΓδ σ≥ ²≥≤ ∩≡ε÷σΣ≤≡≤.
  118.  
  119. ╦Φ±≥Φφπ 32.17 ╤σ≡ΓΦ±φα  ∩≡ε÷σΣ≤≡α DDReLoadBitmap Σδ  ταπ≡≤τΩΦ Φτεß≡αµσφΦΘ.
  120.  
  121. procedure DDReLoadBitmap ( Surface : IDirectDrawSurface ; const BitmapName : string ) ;
  122. var Bitmap : HBitmap ;
  123.  
  124. begin
  125.  
  126. // ∩ε∩√≥α≥ⁿ±  ταπ≡≤τΦ≥ⁿ Φτεß≡αµσφΦσ ΩαΩ ≡σ±≤≡±; σ±δΦ ²≥ε φσ ≤Σασ≥± , ≥ε ΩαΩ ⌠αΘδ
  127. Bitmap := Loadimage ( GetModuleHandle( NIL ), PChar( BitmapName ),
  128.  
  129. IMAGE__BITMAP, 0, 0, LR_CREATEDIBSECTION ) ;
  130. try
  131. if Bitmap = 0 then
  132. Bitmap := Loadimage ( 0, PChar( BitmapName ), IMA.GE_BITMAP,
  133.  
  134. 0, 0, LR_LOADFROMFILE or LR_CREATEDIBSECTION ) ;
  135. if Bitmap = 0 then
  136.  
  137. Raise Exception .CreateFmt( 'Unable to load bitmap Is', [ BitmapName ] ) ;
  138. DDCopyBitmap( Surface, Bitmap, 0,0,0,0) ;
  139. finally
  140.  
  141. DeleteObject ( Bitmap ) ;
  142. end ;
  143. end ;
  144.  
  145. ┬√ ≤Ωατ√Γασ≥σ Γ DDReLoadBitmap ∩εΓσ≡⌡φε±≥ⁿ DirectDraw Φ Φ∞  ≡α±≥≡εΓεπε Φτεß≡αµσφΦ , Ωε≥ε≡εσ Γ√ ⌡ε≥Φ≥σ ταπ≡≤τΦ≥ⁿ
  146. Γ ∩εΓσ≡⌡φε±≥ⁿ. ╧≡ε÷σΣ≤≡α ±φα≈αδα ∩ε∩√≥ασ≥±  ∩≡εΦτΓσ±≥Φ ταπ≡≤τΩ≤ Φτ ≡σ±≤≡±α, ∩≡σΣ∩εδαπα , ≈≥ε BitmapName  Γδ σ≥±  Φ∞σ-
  147. φσ∞ ≡σ±≤≡±α. ┼±δΦ ²≥ε φσ ≤Σασ≥± , εφα ∩≡σΣ∩εδαπασ≥, ≈≥ε Γ√ ≤ΩαταδΦ Φ∞  ⌠αΘδα Φ ∩ε∩√≥ασ≥±  ταπ≡≤τΦ≥ⁿ σπε Φτ ⌠αΘδα. ═α
  148. ±α∞ε∞ Σσδσ Γ ²≥ε∞ ±δ≤≈ασ ∩≡Φ ∩ε∞ε∙Φ Loadimage ±ετΣασ≥±  ±σΩ÷Φ  DIB. ▌≥ε Hbitmap Φτ Windows ± ⌠ε≡∞α≥ε∞ α∩∩α≡α≥φε-
  149. φσταΓΦ±Φ∞επε ≡α±≥≡εΓεπε Φτεß≡αµσφΦ  (DIB). ┬√ ∞εµσ≥σ Φ±∩εδⁿτεΓα≥ⁿ DIB-±σΩ÷Φ■ ΩαΩ εß√≈φ√Θ Hbitmap, φα∩≡Φ∞σ≡, Γ√-
  150. ß≡αΓ σσ Σδ  DC Φ Γ√τΓαΓ ±≥αφΣα≡≥φ≤■ ⌠≤φΩ÷Φ■ GDI BitBIt.
  151.  
  152. DDReLoadBitmap Γ√τ√Γασ≥ Σ≡≤π≤■ ±σ≡ΓΦ±φ≤■ ∩≡επ≡α∞∞≤ - DDCopyBitmap, Ωε≥ε≡α  Ωε∩Φ≡≤σ≥ Φτεß≡αµσφΦσ ±σΩ÷ΦΦ DIB
  153. φα ∩εΓσ≡⌡φε±≥ⁿ DirectDraw. ╟α≥σ∞ ßδεΩ try...finally ΦτßαΓδ σ≥±  ε≥ ±σΩ÷ΦΦ DIB, ∩ε±ΩεδⁿΩ≤ εφα ßεδⁿ°σ φσ φ≤µφα. ┬ ε≥δΦ≈Φσ ε≥
  154. ΩεΣα εßσ±∩σ≈σφΦ  ≡α±≥≡εΓ√⌡ Φτεß≡αµσφΦΘ Windows 3.⌡, ²≥α ∩≡ε÷σΣ≤≡α Σε±≥α≥ε≈φε ∩≡ε±≥α.
  155. ╥σ∩σ≡ⁿ, ΩαΩ ∩ε ∩εΓεΣ≤ DDCopyBitmap? ╩αΩ ∩εΩαταφε Γ δΦ±≥Φφπσ 32.18, ²≥ε φσ φα∞φεπε ±δεµφσσ.
  156.  
  157. ╦Φ±≥Φφπ 32.18 ╤σ≡ΓΦ±φα  ∩≡ε÷σΣ≤≡α Σδ  Ωε∩Φ≡εΓαφΦ  ≡α±≥≡εΓεπε Φτεß≡αµσφΦ  φα ∩εΓσ≡⌡φε±≥ⁿ.
  158.  
  159. procedure DDCopyBitmap ( Surface : IDirectDrawSurface ; Bitmap : HBITMAP ;
  160.  
  161. ⌡, y. Width, Height : integer ) ;
  162. var ImageDC     : HDC ;
  163. DC          : HDC ;
  164. BM          ; Windows. TBitmap ;
  165. SurfaceDesc : TDDSurfaceDesc ;
  166. begin
  167. if ( Surface = NIL ) or ( Bitmap == 0 ) then
  168.  
  169. Raise Exception. Create ( 'Invalid parameters for DDCopyBitmap' ) ;
  170. // ≤ßσΣΦ≥ⁿ± , ≈≥ε ∩εΓσ≡⌡φε±≥ⁿ Γε±±≥αφεΓδσφα.
  171. Surf α±σ. Re store ;
  172.  
  173.