14 replies to this topic

[c0lo]

Bueno estoy trabajando en un proyecto con unos amigos de los cuales me dieron un codigo en C y yo quiero llevar algunas partes al delphi.

Como define esta variable en delphi?

cpp

type float (WINAPI* GetMaxHP)();

[enecumene]

WINAPI significa que usa la API de windows que sus resultado es un valor Float, espero que un compañero experto en el área de C te pueda ayudar.

Saludos.

[c0lo]

Si eso mismo pense yo, pero no entiendo como poder pasarlo el delphi...

[c0lo]

Ademas como define o como entiendo esta funcion en delphi

cpp

VOID CPlayer_SetMaxAP(PEntity pEntity, float amount)
{
	if (pEntity != NULL)
	{
		__asm
		{
			mov ecx, pEntity
			mov esi, pEntity
			push amount
			call dword ptr [fpCPlayer_SetMaxAP]
		}
	}
 
	return;
}

Yo la estoy traduciendo asi:

delphi

Procedure CPlayer_SetMaxAP(pEntity: PEntity, amount: float);
begin
	if (pEntity <> nil) then
	begin
		asm
		        mov ecx, pEntity
			mov esi, pEntity
			push amount
			call dword ptr [fpCPlayer_SetMaxAP]
		end;
	end;
end;

Como puedo definer el amount... de tal manera sea lo correcto porque en delphi no existe Float...

[c0lo]

Hay Dios, leo tutoriales de Delphi acerca de punteros pero aun sigo perdido, haber si me dan una manito y un jalon de orejas..

cpp

pEMageMissile: PBYTE; 
bSlotNumber: BYTE
 
*(pEMageMissile + 0x8) = bSlotNumber;

y

cpp

PBYTE pEChangeMode
*(DWORD *)(pEChangeMode + 8) = 1;

como lo puedo definier en delphi..

Gracias

[escafandra]

Bueno estoy trabajando en un proyecto con unos amigos de los cuales me dieron un codigo en C y yo quiero llevar algunas partes al delphi.

Como define esta variable en delphi?

cpp

type float (WINAPI* GetMaxHP)();

Se trata de la definición de un puntero a una función. Dicha función estarí­a definida así­ en su archivo.h y en su implementación:

cpp

float WINAPI _GetMaxHP();

La traducción serí­a:

delphi

function GetMaxHP(): Single;

Y el Tipo del puntero a esa función lo podrí­amos definir así­:

delphi

TGetMaxHP = function (): Single; stdcall;

Saludos.

[escafandra]

Ademas como define o como entiendo esta funcion en delphi

cpp

VOID CPlayer_SetMaxAP(PEntity pEntity, float amount)
{
	if (pEntity != NULL)
	{
		__asm
		{
			mov ecx, pEntity
			mov esi, pEntity
			push amount
			call dword ptr [fpCPlayer_SetMaxAP]
		}
	}
 
	return;
}

Yo la estoy traduciendo asi:

delphi

Procedure CPlayer_SetMaxAP(pEntity: PEntity, amount: float);
begin
	if (pEntity <> nil) then
	begin
		asm
		        mov ecx, pEntity
			mov esi, pEntity
			push amount
			call dword ptr [fpCPlayer_SetMaxAP]
		end;
	end;
end;

Como puedo definer el amount... de tal manera sea lo correcto porque en delphi no existe Float...

float es un tipo en C que hace referencia a un número en coma flotante que ocupa 32 bits. El similar en delphi serí­a Single.
PEntry se refiere a un puntero de un tipo que el código que tratas de traducir la lo definió. C es muy rí­gido con los tipos. En C PEntry y pEntry son cosas distintas, pero en delphi no.

Tu función serí­a mas o menos esto:

delphi

Procedure CPlayer_SetMaxAP(pEntity: Pointer; amount: Single);
begin
	if (pEntity <> nil) then
	begin
		asm
		        mov ecx, pEntity
			mov esi, pEntity
			push amount
			call dword ptr [fpCPlayer_SetMaxAP]
		end;
	end;
end;

Saludos

[escafandra]

Hay Dios, leo tutoriales de Delphi acerca de punteros pero aun sigo perdido, haber si me dan una manito y un jalon de orejas..

cpp

pEMageMissile: PBYTE; 
bSlotNumber: BYTE
 
*(pEMageMissile + 0x8) = bSlotNumber;

y

cpp

PBYTE pEChangeMode
*(DWORD *)(pEChangeMode + 8) = 1;

como lo puedo definier en delphi..

Gracias

La traducción de:

cpp

PBYTE pEMageMissile;  // PBYTE esta definido como BYTE* (un puntero a un BYTE)
BYTE bSlotNumber;
 
*(pEMageMissile + 0x8) = bSlotNumber;

Sarí­a esto:

delphi

  
var  
  pEMageMissile: PBYTE;
  bSlotNumber: BYTE;
 
begin
    PBYTE((DWORD(pEMageMissile) + $08))^:= bSlotNumber;

y la traducción de esto:

cpp

PBYTE pEChangeMode
*(DWORD *)(pEChangeMode + 8) = 1;

Así­:

delphi

var
  pEChangeMode: PBYTE
 
begin
  PDWORD((DWORD(pEChangeMode) + 8))^:= 1;

Saludos.

[c0lo]

Muchas Gracias escafandra, nose que haria yo sin vos 

A una mas

cpp

BOOL CPlayer_IsAlive(PBYTE pEntity)
{
	BOOL bReturn = FALSE;
 
	if (pEntity != NULL)
	{
		__asm
		{
			mov ecx, pEntity
			call dword ptr [fpCPlayer_IsAlive]
			mov bReturn, eax
		}
	}
 
	return bReturn;
}

en delphi tengo problemas al deinfier el boolean y que sea usado en asm...

delphi

mov bReturn, eax

como seria la definciion exacta en delphi. Gracias

[enecumene]

Pues me imagino que serí­a algo así­:

delphi

function CPlayer_IsAlive(PBYTE: pEntity): boolean;

Saludos.

[c0lo]

Disculpen, me olvide lo mas importante creo, y donde si me estoy rompiendo la cabeza..

cpp

typedef float (WINAPI* GetMaxHP)();

cpp

FARPROC fpCPlayer_GetMaxHP = NULL;

cpp

float CPlayer_GetMaxHP(PBYTE pEntity)
{
	float fReturn = 0;
 
	GetMaxHP _GetMaxHP = (GetMaxHP)fpCPlayer_GetMaxHP;
 
	if (pEntity != NULL)
	{
		__asm
		{
			mov ecx, pEntity
			mov esi, pEntity
		}
 
		fReturn = _GetMaxHP();
	}
 
	return fReturn;
}

[c0lo]

Pues me imagino que serí­a algo así­:

delphi

function CPlayer_IsAlive(PBYTE: pEntity): boolean;

Saludos.

Si exacto la definicion de la funcion si entiendo, lo que no entiendo y me trae error o problemas es bool de retorno.

delphi

Function CPlayer_IsAlive(pEntity: PBYTE): Boolean;
var
 bReturn: Boolean;
begin
	bReturn := false;
 
	if (pEntity <> nil) then
	begin
		asm
			mov ecx, pEntity
			call dword ptr [fpCPlayer_IsAlive]
			mov bReturn, eax
		end;
	end;
 
	result := bReturn;
end;

A la hora de compilar, tengo problemas en:

delphi

mov bReturn, eax

imagino que el tipo de declaracion no es soportada o es incorrecta para una declaracion en asm en delphi.

[escafandra]

Muchas Gracias escafandra, nose que haria yo sin vos 

A una mas

cpp

BOOL CPlayer_IsAlive(PBYTE pEntity)
{
	BOOL bReturn = FALSE;
 
	if (pEntity != NULL)
	{
		__asm
		{
			mov ecx, pEntity
			call dword ptr [fpCPlayer_IsAlive]
			mov bReturn, eax
		}
	}
 
	return bReturn;
}

en delphi tengo problemas al deinfier el boolean y que sea usado en asm...

delphi

mov bReturn, eax

como seria la definciion exacta en delphi. Gracias

cpp

function CPlayer_IsAlive(pEntity: PBYTE): boolean;
var
  R: integer;
begin
	Result:= FALSE;
 
	if (pEntity <> nil) then
	begin
		asm
		    mov ecx, pEntity
		    call dword ptr [fpCPlayer_IsAlive]
		    mov R, eax
		end;
	end;
        Result:= boolean(R);
end;

Saludos.

[escafandra]

Disculpen, me olvide lo mas importante creo, y donde si me estoy rompiendo la cabeza..

cpp

typedef float (WINAPI* GetMaxHP)();

cpp

FARPROC fpCPlayer_GetMaxHP = NULL;

cpp

float CPlayer_GetMaxHP(PBYTE pEntity)
{
	float fReturn = 0;
 
	GetMaxHP _GetMaxHP = (GetMaxHP)fpCPlayer_GetMaxHP;
 
	if (pEntity != NULL)
	{
		__asm
		{
			mov ecx, pEntity
			mov esi, pEntity
		}
 
		fReturn = _GetMaxHP();
	}
 
	return fReturn;
}

Mas o menos esto:

delphi

type
  TGetMaxHP = function (): Single; stdcall;
 
var
  fpCPlayer_GetMaxHP: FARPROC;
 
implementation
function CPlayer_GetMaxHP(pEntity: PBYTE): Single;
var
   GetMaxHP: TGetMaxHP;
begin
   Result:= 0;
   GetMaxHP:= TGetMaxHP(fpCPlayer_GetMaxHP);
 
   if (pEntity <>nil) then
   begin
      asm
        mov ecx, pEntity
        mov esi, pEntity
      end;
      Result:= GetMaxHP();
   end;
end;

Saludos.

[c0lo]

Re Gracias escafandra