¿Es seguro pasar Delphi const string params a través de los límites del administrador de memoria?

Question

Subj. Me gustaría utilizar cadenas en lugar de PChar porque eso me ahorra mucho fundición, pero si acabo de hacer

procedure SomeExternalProc(s: string); external SOMEDLL_DLL; 

y luego ponerlo en práctica en algún otro proyecto no compartida con el Administrador de memoria:

library SeparateDll; 
procedure SomeExternalProc(s: string); 
begin 
    //a bla bla bla 
    //code here code here 
end; 

No tengo (formalmente) ninguna garantía Delphi no decide por ningún motivo alterar la cadena, modificar su contador de referencia, duplicarlo o único, o lo que sea. Por ejemplo

var InternalString: string; 

procedure SomeExternalProc(s: string); 
begin 
    InternalString := s; 
end; 

Delphi incrementa el refcounter y copia un puntero, eso es todo. Me gustaría que Delphi copiara los datos. ¿Declarar el parámetro como "const" lo hace seguro por esa razón? Si no, ¿hay alguna manera de hacerlo? La declaración de parámetro como PChar no parece ser una solución ya que es necesario para su emisión en cada ocasión:

procedure SomeExternalProc(s: Pchar); forward; 
procedure LocalProc; 
var local_s: string; 
begin 
    SomeExternalProc(local_s); //<<--- incompatible types: 'string' and 'PAnsiChar' 
end; 

Answer 1

que probablemente trabajar, siempre y cuando se utiliza de forma permanente el archivo DLL de código compilado en la misma versión de Delphi. Se sabe que el formato interno de cadena cambia entre lanzamientos, y no tiene garantía formal de que no vuelva a cambiar.

Si se quiere evitar tener que echar todas partes que lo utilice, trate de envolver la función, así:

procedure SomeExternalProc(s: Pchar); external dllname; 
procedure MyExternalProc(s: string); inline; 
begin 
    SomeExternalProc(PChar(local_s)); 
end; 

Luego, en el código, en lugar de llamar a MyExternalProcSomeExternalProc, y todo el mundo es feliz.

Answer 2

Si la aplicación y la DLL están escritos en la misma versión de Delphi, simplemente use el administrador de memoria compartida (más detalles here).

Si un lado está escrito en un idioma diferente, no hay más remedio que usar PChar o WideString (WideStrings es administrado por el administrador de memoria COM).

O puede escribir una función de contenedor:

procedure MyExternalProc(const s: string); 
begin 
    SomeExternalProc(PChar(s)); 
end; 

Answer 3

Recomiendo el uso de un administrador de memoria alternativa como RecyclerMM o FastMM. No requieren ningún dll MM externo compartido y le permite pasar cadenas a los dlls de forma segura. Como beneficio adicional, puede obtener una buena mejora de rendimiento en toda la aplicación.

FastMM se utiliza como administrador de memoria predeterminado en Delphi 2006 y posteriores. También es una buena herramienta para buscar fugas de memoria.

Answer 4

sólo para añadir un solo hecho:

Delphi le permite asignar simplemente PChar a una cadena de modo en el lado DLL que no es necesario ningún encasillado:

function MyDllFunction(_s: PChar): integer; 
var 
    s: string; 
begin 
    s := _s; // implicit conversion to string 

    // now work with s instead of the _s parameter 
end; 

Esto también se aplica para el paso PChar como parámetro de una función que espera una cadena (por valor).