¿Convertir los caracteres ASCII del ClientSocket.Socket.ReceiveText?

[Kamikaze]

Muchas gracias!!!!!!!

¿Alguien sabe donde me puedo informar
para que el Socket.ReceiveText
me envie linea por linea?

Asi podria recoger que linea necesito
mas rapidamente.

Muchas gracias por todo!!!!!!!



P.D.:Si no os molesta os colocaré dentro de la sección
de autores.

[[Crandel]]

Empezado por roman

str:= AdjustLineBreaks(Socket.ReceiveText);

interesante función Roman,no la conocia.

Empezado por Kamikaze

P.D.:Si no os molesta os colocaré dentro de la sección de autores.

no creo que nadie se enoje, pero creo que nos queda grande. Si realmente quieres nombrarnos,sería mas justo como colaboradores o algún titulo por el estilo.

En resumen, para obtener tus líneas puedes hacer lo siguiente:

Código Delphi [-]
var
  Lineas: TStringList;
begin
  Lineas = TStringList.Create;
  .....
  .....
  Lineas.Add(AdjustLineBreaks(Socket.ReceiveText));
  .....

y finalmente tenes separado por lineas !!!!

[Kamikaze]

Hola Crandel !!!

Perdona, pero no entiendo el pedazo de codigo
que me colocastes en el anterior post.

¿Me lo podrías poner en algun contexto para que
pudiera ver la función de este, por favor?

Una cosa, odio hacer categorias con respecto a la gente,
si me ha ayudado, igualmente es uno de los
creadores aunque yo lo compile, ya que sin vuestro apoyo
no existiría el programa.

[[Crandel]]

Hola Kamikaze,

El TStringList, como su nombre lo indica, es una lista de string.

La primera parte del ódigo que escribí es solo la declaración y la creación del objeto, no tiene más.

El método Add, permite agregar texto al objeto, en este caso agregamos todo lo que recibiste desde Socket.ReceiveText.

Pero como a vos te interesa previamente convertir los caracteres de fin de línea para que sean compatible con windows usamos la función AdjustLineBreaks.

De esta forma tenemos cargado nuestro StringList, con todo el texto de la pagina web separada en líneas como querias.

Luego puedes acceder a la línea que te interese:

Código Delphi [-]
Edit1.Text := Lineas.Strings[NumeroLinea];

Suerte

[Kamikaze]

Ahora lo comprendo, gracias por todo Crandel!!!

Pero creo que el programa delphi no....

Me sale un error:

"Project Project1.exe raised exception class EStringListError with message
'List index out of bounds (1)' "

[[Crandel]]

chekeaste no estar leyendo una línea que no existe?

[Kamikaze]

He provado con mas de 25 lineas existentes y siempre me aparece lo mismo