Ver Mensaje Individual
  #11  
Antiguo 09-12-2009
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Reputación: 16
cocute Va por buen camino
Aunque sea en plan chapucero ya lo he solucionado, ahora es casi instantaneo, ya solo falta limpiar todo lo que sobra, creo que se podrian quitar los memos, (pero no se como trabajar por lineas en un string):
El problema estaba en usar un memo linea por linea en el StringReplace en vez de usar el memo.Lines.text, usando un String como ya habiais dicho muchos la carga es practicamente instantanea.

Código PHP:
var ind,tt:integer;
begin
//cargo la web en un memo
memo1.Lines.Text:=idHttp1.Get('http://www.aemet.es/es/eltiempo/prediccion/localidades?l=22001');
 
 for 
ind := 0 to Memo1.Lines.count do
   
begin
    
if Memo1.Lines[ind]='<h2 class="titulo">' then
        begin
           
for tt := ind to Memo1.Lines.count do
            
begin
             memo2
.Lines.Add(Memo1.Lines[tt]);
              if 
Memo1.Lines[tt]=' <form name="frmMunicipio" method="get" action="/es/eltiempo/prediccion/localidades">' then
                begin
                 memo2
.lines[0]:= '<link rel="stylesheet" type="text/css" media="screen"  href="http://www.aemet.es/css/estilos.css" /><h2 class="titulo">';
                 
memo2.Lines.text:= StringReplacememo2.Lines.text,'/imagenes/','http://www.aemet.es/imagenes/',[rfReplaceAll]);
                 
wb1.LoadFromStrings(Memo2.lines);
                 exit
                
end;
            
end;
         
end;
      
end;
 
end

Última edición por cocute fecha: 09-12-2009 a las 15:57:24.
Responder Con Cita