Error al accesar una funcion en una DLL

[[FGarcia]]

Bueno..es mi primera vez con las DLL.
He creado una DLL con varios procedimientos y funciones hasta el momento me han funcionado bien, sin embargo he declarado algo muy simple y me aparece un error que no tengo idea porque sucede, me explico:

Código Delphi [-]
//esto esta declarado en la DLL
 
function AjustesActuales : string; stdCall;
begin
  Result := 'Com1,9600,8,none,1';                              
end;
 
exports
    AjustesActuales;
 
begin
end.

y lo llamo asi:

Código Delphi [-]
//La declaro en la aplicacion normal

function AjustesActuales: string; external 'ComScale.dll';
 
implementation
{$R *.dfm}
 
//Aqui la llamo desde una aplicacion normal
procedure TForm1.btnMuestraClick(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := AjustesActuales;
end;

y este es el mensaje de error:

---------------------------
Debugger Exception Notification
---------------------------
Project UsaComScale.exe raised exception class EAccessViolation with message 'Access violation at address 00374A08 in module 'ComScale.dll'. Write of address 0042AF9C'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Agradesco su ayuda.

[Ñuño Martínez]

Creo que olvidaste poner el "StdCall" en la "aplicaión normal". Así que cuando lo llamas no recibe los parámetros de la forma que espera, lo que se traduce en el error.

[[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;