Buenas foreros
Tema resuelto
para que la librería me devuelva el valor, ella lo define internamente como
Código:
"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