UDFs y Delphi 2010

[defcon1_es]

Empezado por Aldo

NOTA: Esto funciona correctamente en Delphi 5 pero no en Delphi 2010 que en vez de devolver la cadena completa solo devuelte el primer elemento de la cadena.

Ciertamente es por lo que dices, en Delphi 2010 un PChar se trata como PWideChar.

Para evitar problemas con esto, deberías especificar el tamaño del caracter con el que estás trabajando (2 bytes), como he señalado en negrita.

Código Delphi [-]
procedure TUDFString.SetSize(Value: Integer);
begin
  if (Value > FSize) or
     (Value <= FSize - ShrinkLen) then begin
    ReallocMem(FString, (Value + 1) * Sizeof(WideChar));
    FSize := Value;
  end;
end;
...

No obstante, puedes mirar en la ayuda de Delphi 2010, ms-help://embarcadero.rs2010/rad/Enabling_Applications_for_Unicode.html

Otra buena referencia para trabajar con UNICODE la tienes aqui:
http://delphi.about.com/od/objectpas...-in-delphi.htm

Salu2

[Aldo]

Muchas gracias por tu consejo, pero la verdad es que no se ha resuleto el problema con lo que me has comentado.

Hay algo que no he aclarado y es que he hecho una pequeña aplicación de testeo en la que he agregado la unit en la que está programada la función T_AlgoToStr y en ese caso SIEMPRE me ha funcionado bien, el problema es cuando ejecuto una sentencia SQL en el Marathon por ejemplo en la que involucro la función UDF, es solo ahí donde en vez de devolverme la cadena completa, me devuelve solamente la primera letra de la cadena.

Aclaro que uns función UDF similar programada en Delphi 5 funciona correctamente.

Por otra parte se me ha olvidado poner el ejemplo de la declaración de la función en el firebird 2.1 y es la siguiente:

Código SQL [-]
DECLARE EXTERNAL FUNCTION T_AlgoToStr
INTEGER
RETURNS CSTRING(255) 
ENTRY_POINT 'T_AlgoToStr' MODULE_NAME 'Library_UDF';

Intentaré seguir investigando. Pero agradezco cualquier tipo de ayuda, porque me urge el tema.

Un saludo