Ver Mensaje Individual
  #2  
Antiguo 13-04-2010
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Reputación: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
La primera parte que expones puede traducirse así:

Código Delphi [-]
var
  TxBfx: array[0..3] of CHAR;

begin
  TxBfx[0]:= #$FF;
  TxBfx[1]:= #$12;
  TxBfx[2]:= #$02;
  TxBfx[3]:= 'R';

Lo siguiente es el archivo cabecera para usar la dll. En C para exportar una función desde una dll:
Código:
__declspec(dllexport) BOOL IsPortAvailable(int CommPort );
eso en delphi sería:
Código Delphi [-]
function IsPortAvailable(CommPort: integer): boolean; cdecl; export;

Ahora bien, como tu solo quieres usar la dll deberías declarar así la función:
Código Delphi [-]
function IsPortAvailable(CommPort: integer): boolean; cdecl;

implementation

function IsPortAvailable; external dllname;

Espero que con esto puedas realizar tu traducción.

Saludos.
Responder Con Cita