C To Delphi - Help

Question

Amigos, quem puder me ajudar a converter [code:1:d5f4b66761]#define CONT_STICK1X(1<<18)define CONT_STICK1Y(1<<19)define CONT_STICK2X(1<<20)define CONT_STICK2Y(1<<21)[/code:1:d5...

Sremulador · Answer

s� complementando[code:1:0044259f1a]typedef unsigned __int8  u8;typedef unsigned __int16 u16;typedef unsigned __int32 u32;typedef unsigned __int64 u64;[/code:1:0044259f1a]...

Nildo · Answer

[code:1:80eb18b4d4]#define CONT_STICK1X         (1<<18)define CONT_STICK1Y         (1<<19)define CONT_STICK2X         (1<<20)define CONT_STICK2Y         (1<<21)[/code:1:80eb18b4d4](1<<18) � a mesma coisa que (1 shl 18)SLH = Shift Left.[code:1:80eb18b4d4]typedef struct{   u16      joyButtons;   u8      rightTrig;   u8      leftTrig;   u8      stick1X;   u8      stick1Y;   u8      stick2X;   u8      stick2Y;} CONTROLLER;[/code:1:80eb18b4d4]Isso seria a mesma coisa que [code:1:80eb18b4d4]type CONTROLLER = record   joyButtons: Word;   rightTrig: byte;   leftTrig: byte;   stick1X: byte;   stick1Y: byte;   stick2X: byte;   stick2Y: byte;end;[/code:1:80eb18b4d4]Digo isso porque u8 quer dizer Unsigned 8 bits. Unsigned 8 bits � o mesmo que o tipo BYTE no delphi.Mesma coisa para u16: unsigned 16 bits.No Delphi � a mesma coisa que WORD.Unsigned quer dizer que n�o tem sinal. Ent�o isso tudo deve resolver.Espero ter ajudado, boa sorte...

Sremulador · Answer

N�o abusando...eu defini da seguinte forma.[code:1:d425d3b03c]type CONTROLLER = record    joyButtons: word;    rightTrig: byte;    leftTrig: byte;    stick1X: byte;    stick1Y: byte;    stick2X: byte;    stick2Y: byte;  end;[/code:1:d425d3b03c][code:1:d425d3b03c]void GetControllerDevice(CONTROLLER *controller, u32 port);[/code:1:d425d3b03c]...

Nildo · Answer

[code:1:620531146c]void GetControllerDevice(CONTROLLER *controller, u32 port);[/code:1:620531146c]Esse * quer dizer que a fun&#263;�o est� pedindo um ponteiro. Ent�o voce cria um tipo, logo ap�s o Record assim:PController = ^Controller;e declara a fun&263;�o assim:[code:1:620531146c]void GetControllerDevice(controller: PControler; port: Integer);[/code:1:620531146c]uma vez que u32 � um integer, que tamb�m tem 32 bits. Na hora de chamar a fun&263;�o, voc� declara normal o Controller, atribui as variaveis e dai chama com um @ na frente da variavel, pra indicar que voc� est� passando o ponteiro que � isso que a fun&263;�o pede...

Sremulador · Answer

amigo nildo, obrigado pela ajuda, estou batendo cabe�a com esses c�digos, mas n�o entender de C e F, tenho que fazer um curso disso, mas continuando se puder me ajudar e claro, estou fazendo uma dll onde e um plugin, ent�o tenho que retornar a posi��o do joystick, na unit plugins a entrada da DLL esta assim

typedef void  (FASTCALL *_padReadJoy)(u8 *keymask, u32 port);

s� que n�o sei o que e keymask, j� que n�o achei nenhuma referencia...

typedef int   (FASTCALL *_padOpen)(void *demulInfo);
typedef void  (FASTCALL *_padClose)();
typedef void  (FASTCALL *_padReset)();
typedef void  (FASTCALL *_padConfigure)();
typedef void  (FASTCALL *_padAbout)();
typedef u32   (FASTCALL *_padJoyCaps)(u32 port);
typedef void  (FASTCALL *_padReadJoy)(u8 *keymask, u32 port);
typedef void  (FASTCALL *_padReadJamma)(u32 *keymask);
typedef u32   (FASTCALL *_padKeyCaps)(u32 port);
typedef void  (FASTCALL *_padReadKey)(u8 *keymask, u32 port);
typedef void  (FASTCALL *_padSendVibration)(VIBRATION *vibration, u32 port);
typedef void  (FASTCALL *_padSendWaveform)(WAVEFORM *waveform, u32 port);
typedef void  (FASTCALL *_padSendAutostop)(AUTOSTOP *autostop, u32 port);

void FASTCALL padReadJoy(u8 *keymask, u32 port)
{
GetControllerDevice((CONTROLLER*)keymask, port);

mas n�o entendi, onde declarar a variavel com o @

meu c�digo esta assim at� agora...

const
  CONT_STICK1X = (1 shl 18);
  CONT_STICK1Y = (1 shl 19);
  CONT_STICK2X = (1 shl 20);
  CONT_STICK2Y = (1 shl 21);
  CONT_RIGHT_TRIG = (1 shl 16);
  CONT_LEFT_TRIG = (1 shl 17);

  PLUGIN_TYPE_GPU = 0;
  PLUGIN_TYPE_SPU = 1;
  PLUGIN_TYPE_GDR = 2;
  PLUGIN_TYPE_PAD = 3;

type CONTROLLER = record
    joyButtons: word;
    rightTrig: byte;
    leftTrig: byte;
    stick1X: byte;
    stick1Y: byte;
    stick2X: byte;
    stick2Y: byte;
  end;

  PController = ^Controller;


procedure padReadJoy(CONTROL: PController; port: integer);
begin
  port:=0;
  CONTROL.joyButtons := 3;
  CONTROL.stick1X := 120;
  CONTROL.stick1Y := 120;
end;

mais uma vez obrigado

Nildo · Answer

Bom, para este exemplo:[code:1:263088b3d5]typedef void  (FASTCALL *_padReadJoy)(u8 *keymask, u32 port);[/code:1:263088b3d5]voc� est� definindo uma procedure, com o �calling conversion� FASTCALL. O nome da procedure � _padReadJoy, keymask � um ponteiro para um unsigned integer de 8 bits e o port � um inteiro de 32 bits.A declara��o deve ficar assim:[code:1:263088b3d5]type   _padReadJoy = procedure(keymasp: PByte; port: Integer); FASTCALL;[/code:1:263088b3d5]Mesma coisa pros de baixo a�.Bom, eu disse sobre o @ � que assim, vamos supor que vc vai chamar essa _padReadJoy, como o primeiro parametro � um ponteiro pra um byte, vc tem que chamar ela passando @variavel_do_byte pra que receba o ponteiro. Foi isso que quis dizer...

Sremulador · Answer

obrigado pela for�a, mas com eu disse eu quero e saber na realidade onde envio os parametros, atraves do plogin

j� que ele declara...

Plugins.h

typedef void  (FASTCALL *_padReadJoy)(u8 *keymask, u32 port);

//methods

_padReadJoy padReadJoy;

bem acho que tudo come�a ae...

padDemul.c

void FASTCALL padReadJoy(u8 *keymask, u32 port)
{
GetControllerDevice((CONTROLLER*)keymask, port);
}

Bem pelo que eu entendi at agora como eu mando o comando p *keymask, na port eu coloco 0, pois e a entrada entre 0 e 1.

padReadJoy(u8 *keymask, u32 port)

valeu...

Sremulador · Answer

help......

Rubem Rocha · Answer

O mais importante n�o foi mencionado. De onde foram tiradas essas defini��es????...