Duda en declaracion de variables

[[Al González]]

Empezado por Paulao

Si mi campo en el banco de Datos fuera Varchar, yo declararia como string mi variable, pero como es Blob(Text) como yo declaro, pues el contiene varias leneas...

Hola Paulao. Aunque un texto esté compuesto por varias líneas, puedes manejarlo como un String. Los diferentes saltos de línea son también caracteres (especiales) que forman parte del texto.

Supongo que esto tiene que ver con el tema: http://www.clubdelphi.com/foros/show...012#post377012

Código Delphi [-]
VarString := StringList.Text;

VarString := Memo.Text;

Saludos.

[Paulao]

Creo que usteds no intedieron. O que pasa no es manipulacion de string o otra cosa. Es pasarlo de un Servidor de Aplicacion para un Cliente. Es un sistema 3 tier. Entonces tengo un metodo que es executado en el servidor y envia el result para el client via AppServer del Socket. Como estás en el Servidor su tipo es Olevariant(Return). Y este tipo no acepta TStrings o StringList, luego no consigo pasarlo como un Memo, una Lista y etc...
Esta es mi duda.

[[Al González]]

Empezado por Paulao

Creo que usteds no intedieron...Como estás en el Servidor su tipo es Olevariant(Return). Y este tipo no acepta TStrings o StringList, luego no consigo pasarlo como un Memo, una Lista y etc...
Esta es mi duda.

Sí entendimos el problema, Paulao. Pasa como resultado la propiedad Text del TMemo o del TStringList.

Código Delphi [-]
OLEVariantX := Memo1.Text;

o bien:

Código Delphi [-]
OLEVariantX := StringList.Text;

(OLEVariantX = variable, parámetro "return", etc.)

La propiedad Text contiene todas la líneas del texto, el cual así podrá pasarse como OLEVariant sin problema alguno.

El tipo OLEVariant sí es compatible con String, y dentro de ese String Text están todas las líneas del memo.

¿Se entiende un poco mejor?

[[egostar]]

Hola Paulao

Como te han explicado, lo que debes pasar es un string, en los métodos tu deseas pasar un StringList (lo que no es permitido)

Tu intentas hacer algo así:

Código Delphi [-]
MetodoX(const Lista: TStringList); stdcall;

Pero lo que debes hacer es cambiarlo a widestring:

Código Delphi [-]
MetodoX(const Lista: widestring); stdcall;

Y en el cliente ya puedes enviar el parámetro como string aunque sea una lista

Código Delphi [-]
MetodoX(memo1.text);

Creo que falta mas información de tu parte para entender como estás generando los métodos en el servidor.

Saludos

[Ñuño Martínez]

Sospecho que algo se pierde en la traducción, dado que Paulao es brasileño.