Problemas con ocx

[escorpionrojo43]

Hola Companerors espero esta vez me puedan ayudar ya que mi ultima pregunta sigue en el aire.
Cuando intento compilar delphi me da este error :
[dcc32 Error] Unit1.pas(40): E2033 Types of actual and formal var parameters must be identical

para detallar mas aqui esta parte del codigo. puse la parte mas simple para partir de ahi.

este es mi codigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  lRet: LongWord;
begin
  lRet := vmaxrd1.AbrirPuerto(1);
end;

esta es la funcion que llama declarada en la libreria

Código Delphi [-]
function TVMAXRD.AbrirPuerto(var numPuerto: Smallint): Integer;
begin
  Result := DefaultInterface.AbrirPuerto(numPuerto);
end;

quien me dice lo que esta pasando ahi?

[Casimiro Notevi]

Empezado por escorpionrojo43

[dcc32 Error] Unit1.pas(40): E2033 Types of actual and formal var parameters must be identical

para detallar mas aqui esta parte del codigo. puse la parte mas simple para partir de ahi.

este es mi codigo
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var lRet: LongWord; begin lRet := vmaxrd1.AbrirPuerto(1); end;



esta es la funcion que llama declarada en la libreria
Código Delphi [-]function TVMAXRD.AbrirPuerto(var numPuerto: Smallint): Integer; begin Result := DefaultInterface.AbrirPuerto(numPuerto); end;


quien me dice lo que esta pasando ahi?

Ya lo dice el mensaje del error, los parámetros deben ser del mismo tipo.

[escorpionrojo43]

Empezado por Casimiro Notevi

Ya lo dice el mensaje del error, los parámetros deben ser del mismo tipo.

Hola Casimiro el problema persiste ya sea sea la variable lRet del tipo integer, smallint o longword;

[[ElKurgan]]

Fíjate en la definición de TVMAXRD.AbrirPuerto(var numPuerto: Smallint): Integer;

Claramente te dice que es un SmallInt pero que se pasa POR REFERENCIA.

Entonces, esta llamada no te vale:

Código Delphi [-]
var  
  lRet: LongWord;
begin
  lRet := vmaxrd1.AbrirPuerto(1);
end

Prueba a hacerla de este modo, a ver si va:

Código Delphi [-]
var 
  lRet: LongWord;
  NumPuerto: SmallInt;
begin
  NumPuerto := 1;
  lRet := vmaxrd1.AbrirPuerto(NumPuerto);
end

Saludos