[過去ﾛｸﾞ] Delphiゲームプログラミング相談室 (976ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

544(3): 名前は開発中のものです。 [sage] 04/06/21 16:57 ID:hUNg5P7j(1/2) AAS
JEDIのDX9ヘッダを使用しているのですが、困っています。
以下のコードでActiveはプロジェクトファイルの中でフォーム作成直後に呼ばれる関数で、Timer_RenderはTTimerコンポーネントでIntervalは1で動かしています。また、フォームのクライアントサイズは640*480です。
var
D3D9:IDirect3D9;
Dev:IDirect3DDevice9;
procedure TMainWindow.Active;
var
d3dpp:D3DPresent_Parameters;
begin
D3D9:=Direct3DCreate9(D3D_SDK_VERSION);
ZeroMemory(@d3dpp,SizeOf(d3dpp));
d3dpp.Windowed:=true;
d3dpp.SwapEffect:=D3DSWAPEFFECT_DISCARD;
D3D9.CreateDevice(D3DADAPTER_DEFAULT,D3DDEVTYPE_HAL,Handle,D3DCREATE_HARDWARE_VERTEXPROCESSING,@d3dpp,Dev);
Timer_Render.Enabled:=true;
end;
procedure TMainWindow.Timer_RenderTimer(Sender: TObject);
begin
Dev.Clear(0,nil,D3DCLEAR_TARGET,$000000FF,1.0,0);
Dev.BeginScene;
Dev.EndScene;
Dev.Present(nil,nil,0,nil);
end;

このプログラムは最低限のデバイス作成と画面の初期化だけを実行するものです。
フレームレートが33FPS前後しか出ず、困っております。
ご助言よろしくお願いします。

私の環境は、WindowsXP+Delphi7ProでPentium4の3.4GHz、GeForceFX5950Ultraで測定しました。

---

上下前次1-新書関写板覧索設栞歴

---

あと 432 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.019s