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

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

[[Crandel]]

yo me equivoque, cambia la linea

Código Delphi [-]
Lineas.Add(AdjustLineBreaks(Socket.ReceiveText));

por

Código Delphi [-]
Lineas.AddStrings(AdjustLineBreaks(Socket.ReceiveText));

te estaba agregando una sóla linea, por eso el error.

[Kamikaze]

Hola otra vez!!!

¿Tendría que quedar más o menos asi?

Es que me sale un error:

"Incompatible types: 'TStrings' and 'String' "

Código PHP:

procedure TCliente_Ogame.ClientSocket2Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
Lineas: TStringList;
begin
   Lineas := TStringList.Create;
   Lineas.AddStrings(AdjustLineBreaks(Socket.ReceiveText));
   Edit1.Text := Lineas.Strings[13];
end; 


P.D.: Y pensaba que se solucinaría facil todo este problema......

[delphi.com.ar]

Empezado por Crandel

yo me equivoque, cambia la linea

Código Delphi [-]
Lineas.Add(AdjustLineBreaks(Socket.ReceiveText));

por

Código Delphi [-]
Lineas.AddStrings(AdjustLineBreaks(Socket.ReceiveText));

te estaba agregando una sóla linea, por eso el error.

Mmmmm... AddStrings requiere que el parámetro pasado sea un TStrings, por lo que Add es el método apropiado para el resultado de la función AdjustLineBreaks.

[Mick]

Solo comentar que usar AdjustLineBreaks antes de asignar los
textos a un TStrings es marear la perdiz, una perdida de ciclos
de cpu ya que no es necesario.
Un objeto TStrings o derivado de él como un TStringList
o el mismo Lines de un TMemo, entiende perfectamente y
separa las lineas de los textos que tengan solo el
caracter #10 o solo el caracter #13.
De modo que basta asignar el contenido al
TStrings (con Add por ejemplo) y listo.

Saludos