Cómo se declara y usa el tipo "Enumeration" en Delphi

[cesarsoftware]

Holaaa, se puede pasar?

Siguiendo con la conversión y vuestra estimable ayuda....para convertir una definición de funcion

Basic

Public Declare Function ReadVar Lib "NETCOM" (ByVal hPort As Integer, ByVal variable As String, ByVal value As String) As Integer

C

Código PHP:

int __stdcall ReadVar(HPORT_T hPort, char* variable, char* value); 


Delphi?

Código Delphi [-]
function ReadVar(hPort: integer; variable: string; var value: string): integer; cdecl; stdcall; external 'Netcom.dll';

No me da error, pero no me llega la variable, supongo que hay lio entre CHAR* y STRING

Una ayudita please

PD: hace tiempo que quiero "regalar" a la comunidad una utilidad (Delphi) para hacer PING a multiples destinos con thread, vamos, para hacer "un analizador de red", pero solose "pegar" código, si me echais otra mano os la paso, va muy bien y la uso mucho.


Gracias de antemano

[cloayza]

A ver intenta de esta manera...

Código Delphi [-]
function ReadVar(hPort: integer; variable: PAnsichar; value:PAnsichar): integer; stdcall; external 'Netcom.dll';

Código Delphi [-]
var
   lpVariable, lpValor:PAnsiChar;
   hPort, retval:Integer;
begin
     lpVariable   :='La_Variable'';
     lpValor:='';

     retval:=ReadVar(hPort, lpVariable, lpValor);

Saludos cordiales

[ecfisa]

Hola.

Un buen equivalente en Delphi a char * de C, es PChar.

Por favor no te olvides de usar etiquetas cuando incluyas código en tus mensajes:


(ya las agregué en tus mensajes)

Saludos

[cesarsoftware]

Gracias
Ya he probado, sigo igual pero quizá sea otro problema de la librería, voy a investigar

[cesarsoftware]

Buenas foreros
Tema resuelto
para que la librería me devuelva el valor, ella lo define internamente como

 "char value[30];"

asi que en la definición de la función lo he pasado a un array dinamico de ansichar

Código Delphi [-]
function ReadVar(hPort: integer; variable: ansistring; var value: array of ansichar): DNCRESULT_E; cdecl; stdcall; external 'netcom.dll';

y para usarlo

Código Delphi [-]
var
  resultado: DNCRESULT_E;
  value: array[0..31] of ansichar;
begin
      resultado := ReadVar(hPort, variable[i], value);
      if resultado = DNCRESULT_E.DNC_SUCCESS then
         Lx.Caption := String(value);

end;

Gracias por vuestra colaboracion