Error al accesar una funcion en una DLL

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

[[FGarcia]]

continuo en lo mismo...
Si vi el error de que lo genera el componente... supongo entonces que el problema estriba en la creacion del componente. Algo falta.

revise el codigo del componente y encontre que :

Código Delphi [-]
TComPort = class(TCustomComPort)

y que :

Código Delphi [-]
// create component
constructor TCustomComPort.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // component cannot reside on inheritable forms
  FComponentStyle := FComponentStyle - [csInheritable];
  FLinks := TList.Create;
  FTriggersOnRxChar := True;
  FEventThreadPriority := tpNormal;
  FBaudRate := br9600;
  FCustomBaudRate := 9600;
  FPort := 'COM1';
  FStopBits := sbOneStopBit;
  FDataBits := dbEight;
  FEvents := [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak,
             evCTS, evDSR, evError, evRLSD, evRx80Full];
  FHandle := INVALID_HANDLE_VALUE;
  FStoredProps := [spBasic];
  FParity := TComParity.Create;
  FParity.SetComPort(Self);
  FFlowControl := TComFlowControl.Create;
  FFlowControl.SetComPort(Self);
  FTimeouts := TComTimeouts.Create;
  FTimeouts.SetComPort(Self);
  FBuffer := TComBuffer.Create;
  FBuffer.SetComPort(Self);
end;

siguiendo, yo creo en la dll :

Código Delphi [-]
PuertoS := TComPort.Create(Application);
    PuertoS.Port := 'Com1';
    PuertoS.BaudRate := br9600;
    PuertoS.Parity.Bits  := prNone;
    PuertoS.StopBits := sbOneStopBit;
    PuertoS.DataBits := dbEight;
    PuertoS.Events := [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full];
    PuertoS.StoredProps := [spBasic];
    PuertoS.FlowControl.OutCTSFlow := False;
    PuertoS.FlowControl.OutDSRFlow := False;
    PuertoS.FlowControl.ControlDTR := dtrDisable;
    PuertoS.FlowControl.ControlRTS := rtsDisable;
    PuertoS.FlowControl.XonXoffOut := False;
    PuertoS.FlowControl.XonXoffIn := False;

La pregunta para los que tengan la paciencia de revisar tantas lineas ¿es correcto como estoy creando el componente?

Reitero mi agradecimiento a la ayuda que puedan prestar.


P.d. Gracias Io por la explicacion de Pchar y Sting.