求Delphi　directinput 的用法和详细Demo

2013-07-03 08:09:44 318 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi/C++ Builder中DirectX VCL控件库的应用与性能优化指南 DirectX作为微软的底层图形与多媒体API，为Windows平台提供了强大的硬件加速能力，但其原生COM接口和复杂的渲染管线对开发者提出了较高要求。通过封装原理，DirectX VCL控件库将底层API转化为可视化组件，显著降低了在Delphi和C++ Builder等RAD环境中集成高性能图形功能的技术门槛。这类控件库的技术价值在于平衡了开发效率与执行性能，使开发者无需深入钻研DirectX细节即可实现GPU加速的2D/3D渲染、多媒体播放和实时输入处理。在应用场景上，它特别适合需要高性能数据可视化、阅读详情

求Delphi　directinput 的用法和详细Demo 哪位大侠给看看．详细的

...全文

AI编程助手实战：Codex如何复活25年老游戏与解决遗留系统难题在软件开发和系统维护领域，处理历史遗留系统与老旧程序兼容性是一项常见且复杂的挑战。这通常涉及对过时技术栈、依赖库和环境配置的深入理解。传统方法依赖经验性搜索与试错，效率低下。随着大语言模型（LLM）和AI编程助手的发展，如基于GPT-3的Codex模型，为这类问题提供了新的解决范式。这类工具的核心价值在于其庞大的知识库和代码理解能力，能够将模糊的非结构化问题，系统性地拆解为可执行的具体开发任务，例如环境诊断、依赖分析和代码适配。其技术价值体现在将AI从简单的代码补全，提升为复杂问题解决的协作导航仪。在应用场阅读详情

cuiba1105

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

cuiba1105 2013-07-05

打赏
举报

贴错图了，

cuiba1105 2013-07-05

打赏
举报

找不到，我还是直接说问题吧．
双击DXInput1，出现对话框

我想用代码来改变key1,key2的值，初始化读值
用一个文本，或者ＩＮＩ文件存放，如下：
left = １ //1代表手柄按键的值
right = 2 //2代表手柄按键的值
怎么写，我看了DXInput1类，也不知道怎么写，太菜了

sololie 2013-07-05

打赏
举报

http://pan.baidu.com/share/link?shareid=3153640892&uk=1124482001 这个带demo\Samples\.hlp文件，源码版

sololie 2013-07-05

打赏
举报

懒成那样，给你3个地址，自己挑
http://pan.baidu.com/share/link?shareid=2994796424&uk=1124482001
http://www.micrel.cz/Dx/download/delphix_all_in_one_10_0.rar

更多的源码或文档看官网首页的下面
http://www.micrel.cz/Dx/

sololie 2013-07-05

打赏
举报

偶不知道你咋下载的，直接用上面官网的下载。
下载安装好，安装目录了的Samples目录下有9M多个demo，包括dxinput的

cuiba1105 2013-07-05

打赏
举报

下载了Ｎ个，DelphiＸ版本的控件，没几个有DEMO　有ＤＥＭＯ的又没有DXInput的ＤＥＭＯ　谁发一个来啊．谢谢啊！！！！！！！！！

mdejtod 2013-07-03

打赏
举报


uses
  Windows, Messages, SysUtils, Variants, Classes, Forms, Graphics, Controls, Direct3D,
  Dialogs, Direct3D9,  StdCtrls, ActiveX, D3DX9, comobj, DirectInput,
  ExtCtrls;
type
  TDxInput = class
  private
    DInput : IDirectInput8;
    keybord : IDIRECTINPUTDEVICE8;
    mouse : IDIRECTINPUTDEVICE8;
    joy : IDIRECTINPUTDEVICE8;
    KeyT : array[0..255]of byte;
    MouseT : TDIMouseState;
    JoyT : TDIJoyState2;
    DX,DY:integer;
  public
    constructor create(viewhand:HWND);
    destructor Destroy; override;
    function keydown(key:byte):bool;
    function keydown2():integer;
    function moudown(key:byte):bool;
    function joydown(key:byte):bool;
    function moux:integer;
    function mouy:integer;
    function mouz:integer;
    function joyx:integer;
    function joyy:integer;
    function keyx:integer;
    function keyy:integer;
    procedure joyfree(ko:integer=0);
    procedure getall();
    procedure getkey();
    procedure getmouse();
    procedure getjoy();
  end;
implementation
constructor TDxInput.create(viewhand: HWND);
  var p:DWORD;
begin
  p:=DISCL_FOREGROUND or DISCL_NONEXCLUSIVE;
  DirectInput8Create(GetModuleHandle(nil),DIRECTINPUT_VERSION,IID_IDirectInput8,dinput,nil);
  dinput.CreateDevice(GUID_SysKeyboard,keybord,nil);
  keybord.SetDataFormat(c_dfDIKeyboard);
  keybord.SetCooperativeLevel(viewhand,p);
  dinput.CreateDevice(GUID_Sysmouse,mouse,nil);
  mouse.SetDataFormat(c_dfdimouse);
  mouse.SetCooperativeLevel(viewhand,p);
  dinput.CreateDevice(GUID_Joystick,joy,nil);
  if joy<>nil then
  begin
    joy.SetCooperativeLevel(viewhand,p);
    joy.SetDataFormat(c_dfDIJoystick2);
  end;
  DX:=0;
  DY:=0;
end;

destructor TDxInput.Destroy;
begin
  if DInput<>nil  then DInput := nil;
  if keybord<>nil then keybord := nil;
  if mouse<>nil   then mouse:= nil;
  if joy<>nil     then joy:= nil;
  inherited Destroy;
end;

procedure TDxInput.getall;
begin
  getkey;
  getmouse();
  getjoy();
end;

procedure TDxInput.getjoy;
begin
  getmouse;
  if joy<>nil then
  begin
    joy.Acquire;
    joy.GetDeviceState(sizeof(TDIJoyState2),@JoyT);
  end;
end;

procedure TDxInput.getkey;
begin
  keybord.Acquire;
  keybord.GetDeviceState(sizeof(KeyT),@KeyT[0]);
end;

procedure TDxInput.getmouse;
begin
  mouse.Acquire;
  mouse.GetDeviceState(sizeof(TDIMouseState),@MouseT);
end;

function TDxInput.joydown(key: byte): bool;
begin
  result := bool(JoyT.rgbButtons[key] and $80);
  if joy=nil then result:=false;
end;

procedure TDxInput.joyfree(ko: integer);
  var k,i:integer;
begin
  k:=ko;
  while k=ko do
  begin
    getjoy();
    k:=1;
    for i:=0 to 31 do
    begin
      if joydown(i)=true then k:=0;
    end;
  end;
  if ko=1 then
  begin
    k:=0;
    while k=0 do
    begin
      getjoy();
      k:=1;
      for i:=0 to 31 do
      begin
        if joydown(i)  then k:=0;
      end;
    end;
  end;
end;

function TDxInput.joyx: integer;
begin
  result := trunc((JoyT.lX-32767)/32767);
  if joy <> nil then
    inc(DX,result*4)
  else
    result:=0;
  inc(DX,moux);
end;

function TDxInput.joyy: integer;
begin
  result := trunc((JoyT.lY-32767)/32767);
  if joy <> nil then
    inc(DY,-result*4)
  else
    result:=0;
  inc(DY,-mouy);
end;

function TDxInput.keydown(key: byte): bool;
begin
  result := bool(KeyT[key] and $80);
end;

function TDxInput.keydown2: integer;
var i:integer;
begin
  for i:=0 to 255 do
  begin
    if bool(KeyT[i] and $80) then
    begin
      result := i;
      exit
    end;
  end;
 result := -1;
end;

function TDxInput.keyx: integer;
begin
  result := 0;
  if keydown(DIK_LEFT ) then
    result:=-1;
  if keydown(DIK_RIGHT) then
    result:=1;
end;

function TDxInput.keyy: integer;
begin
  result := 0;
  if keydown(DIK_UP  ) then
   result := -1;
  if keydown(DIK_DOWN) then
   result:=1;
end;

function TDxInput.moudown(key: byte): bool;
begin
  result := bool(MouseT.rgbButtons[key] and $80);
end;

function TDxInput.moux: integer;
begin
  result := MouseT.lX;
end;

function TDxInput.mouy: integer;
begin
  result := MouseT.ly;
end;

function TDxInput.mouz: integer;
begin
  result := MouseT.lz;
end;
//使用方法：
FDxInput := TDxInput.create(Handle);
在定时器，或消息循环体中判断
FDxInput.getkey;
if DxInput.keydown(DIK_L) then

sololie 2013-07-03

打赏
举报

下载DelphiX组件，是DX9的，用里面的TDXInput控件，自带有详细的DEMO DelphiX 主页 http://www.micrel.cz/Dx/

cuiba1105 2013-07-03

打赏
举报

能传一个ＤＥＭＯ给我吗，c993home@163.com

求Delphi directinput 的用法和详细Demo

相关推荐

求Delphi　directinput 的用法和详细Demo