Error al accesar una funcion en una DLL

[[FGarcia]]

ok, bueno la he redeclarado asi:

Código Delphi [-]
function AjustesActuales: string; stdcall; external 'ComScale.dll';

y ahora si la ejecuto solamente a ella y cierro el formulario todo bien.
Si ejecuto ademas otra funcion de la dll al cerrar el formulario me aparece este error:

---------------------------
Debugger Exception Notification
---------------------------
Project UsaComScale.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Gracias nuevamente por la ayuda.

[dec]

Hola,

Ignoro si es por eso, pero, me parece que no puedes usar "strings" como parámetros ni como resultados, sino es añadiendo una determinada "unidad" de Delphi, de cuyo nombre no puedo acordarme ahora. El caso es que podrías probar algo como esto:

Código Delphi [-]
function AjustesActuales : PChar; stdCall;
begin
  Result := 'Com1,9600,8,none,1';                              
end;

Y:

Código Delphi [-]
function AjustesActuales: PChar; stdcall; external 'ComScale.dll';

[[cHackAll]]

Error común.

[[FGarcia]]

Ok, anotado y comprobado, no usar string sino PChar.............pero.........
ya con el codigo que realmente debe de ir (el resultado es una cadena identica a la que anteriormente mostre)

Código Delphi [-]
function AjustesActuales : PChar; stdCall;
begin
  Result := PuertoS.Port + ',' + BaudRatetoStr(PuertoS.BaudRate) + ',' +
                                DataBitsToStr(PuertoS.DataBits) + ',' +
                                ParityToStr(PuertoS.Parity.Bits) + ',' +
                                StopBitstoStr(PuertoS.StopBits);
end;

PuertoS es una instancia de un Componente (TComPort) el cual ya fue creado (dinamicamente) antes de llamar a esta funcion. al compilar la dll me dice que son tipos incompatibles string y PChar ¿y 'ora?

[dec]

Hola,

Algo como esto, quizás:

Código Delphi [-]
function AjustesActuales : PChar; stdCall;
begin
  Result := PChar(PuertoS.Port + ',' + BaudRatetoStr(PuertoS.BaudRate) + ',' +
                                DataBitsToStr(PuertoS.DataBits) + ',' +
                                ParityToStr(PuertoS.Parity.Bits) + ',' +
                                StopBitstoStr(PuertoS.StopBits));
end;

[[FGarcia]]

Ya lo sabia Dec!!

Solo estaba poniendo a prueba tus conocimientos....

Gracias ya funciono.....amenazo con regresar

[[FGarcia]]

Lo prometido es deuda ¡ya regrese!

Si uso TcomPort como un componente dentro de un form ("soltado" desde la paleta) y quisiera guardar su configuracion lo haria asi:

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
  Archivo: string;
begin
  Archivo := ExtractFilePath(ParamStr(0)) + 'CommCfg.ini';
  
  //Esto es un metodo del componente
  ComPort1.StoreSettings(stIniFile, Archivo);
end;

Ahora como estoy jugando con la DLL he declarado esto:

Código Delphi [-]
//DLL
procedure GuardarConfiguracion(archivo: PChar); stdCall;
begin
  PuertoS.StoreSettings(stIniFile, Archivo);
end;
 
exports
    AjustesActuales,
    GuardarConfiguracion;

y lo llamo asi:

Código Delphi [-]
procedure GuardarConfiguracion(archivo: PChar); stdcall; external 'ComScale.dll';
 
procedure TForm1.Button5Click(Sender: TObject);
var
  Archivo: string;
begin
  Archivo := ExtractFilePath(ParamStr(0)) + 'CommCfg.ini';
  GuardarConfiguracion(pchar(Archivo));
end;

el error que me manda

---------------------------
Debugger Exception Notification
---------------------------
Project UsaComScale.exe raised exception class EComPort with message 'Failed to store settings'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

A mi entender el problema estaria en que la funcion en la dll el parametro Archivo se recibe como un PChar y deberia ser un string (en esencia son lo mismo ¿o no?) luego entonces ¿hace falta una conversion mas? ¿como se haria?

¡Esa si no me la se DEC!

Gracias por la ayuda y disculpas por ser tan pesado.

[dec]

Hola,

En este caso la excepción la produce el propio componente "ComPort". No sé. Yo empezaría por ver exactamente dónde "levanta" dicha excepción el componente, a ver qué está pasando ahí: igual no existe el archivo u otra cosa. Si tienes el código fuente de l componente "ComPort" busca entre sus unidades la cadena "Failed to store settings", o el tipo de excepción "EComPort", y a ver qué ves por ahí. Yo empezaría así, vamos...

[[Io]]

Empezado por FGarcia

A mi entender el problema estaria en que la funcion en la dll el parametro Archivo se recibe como un PChar y deberia ser un string (en esencia son lo mismo ¿o no?) luego entonces ¿hace falta una conversion mas? ¿como se haria?

Hola.
Un Pchar no es lo mismo que un string.

Pchar es un puntero a una cadena de caracteres, y la información de la cadena comenzaria en la direción de memoria a la que apunta. Terminando que la información con el caracter nulo. (Cuantas veces se me ha colgado por olvidarme este fin de cadena).

Un string, utiliza el primer byte(cuando lo estudie hace tiempo) para guardar la longitud de la cadena, y la información biene despues.

En delphi existen funciones para pasar dse pchar a string y viceversa.

Hace tiempo estuve practicando, algo parecido, y creo que mi solución fue:
Reservar memoria: Longitud cadena + 1(Fin de cadena), utilizando un pchar para guardar la información. Llamar a la función de la dll, y esta despues de tomar la información libere la memoria.

La verdad que hace tiempo de esto pero creo que me funciono.

Espero no haber liado mucho.

Saludos.