FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con TidHTTP
Ando teniendo una duda sobre un codigo que vi en este mismo foro , el codigo es el siguiente
Código:
procedure TForm1.VerificarClick(Sender: TObject); var IdHTTP: TIdHTTP; Response: String; begin IdHTTP := nil; try IdHTTP := TIdHTTP.Create(nil); IdHTTP.Get(Trim(Edit1.Text)); (* el edit1 tiene el link de descarga *) Response := IdHTTP.Get(Trim(Edit1.Text)); Memo1.Text:= Response; if IdHTTP.ResponseCode=404 then begin Label1.Caption:='link rroto'; end else Label1.Caption:='link bueno'; finally IdHTTP.Free; end; end; Perdon si no me exprese bien... |
#2
|
||||
|
||||
Hola,
Puedes "capturar" las posibles excepciones que lance el objeto "IdHttp", por ejemplo:
|
#3
|
|||
|
|||
Gracias por la respuesta me ha servido de mucho , pero ahora tengo otra duda porque tengo un array que verifica la existencia de todos los archivos en el array pero cuando
una pagina no existe automaticamente no sigue con los otros elementos de la lista y deja de escanear. Código:
procedure TForm1.Button1Click(Sender: TObject); const paginas:array[1..4] of string = ('index.php','noexisto.php','basura/noexisto','index.php'); var IdHTTP: TIdHTTP; i:integer; begin try for i:= low(paginas) to High(paginas) do begin IdHTTP := nil; IdHTTP := TIdHTTP.Create(nil); IdHTTP.Get(Edit1.Text+'/'+paginas[i]); if IdHTTP.ResponseCode=200 then begin Memo1.Lines.Add(Edit1.Text+'/'+paginas[i]); end; end; except on E : EIdHttpProtocolException do begin end; on E : Exception do begin end; end; end; |
#4
|
||||
|
||||
Meté el try dentro del for:
He aplicado una pequeña reestructuración de tu código y he reparado una fuga de memoria que tenías en el. No estabas liberando el objeto idHTTP. Saludos, Chris |
#5
|
||||
|
||||
Hola,
Y saca el "Create" fuera del "Try":
¡Esto sí que es un mete-saca! |
#6
|
|||
|
|||
gracias a los dos por la ayuda , me ha servido de mucho , pensar que hace un tiempo pense que esto era imposible xDDD.
Pero gracias a la magia de indy y la ayuda de ustedes esto es posible. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TidHttp con acentos | keys | Internet | 3 | 29-07-2011 18:17:59 |
Ayuda urgente con Indy TIdHTTP | Pugile | C++ Builder | 1 | 17-03-2011 12:21:04 |
TIDHTTP Con User y Pass | Neeruu | Varios | 0 | 28-12-2009 13:36:49 |
Ayuda con incompatibilidad del Post de TIdHTTP de Indy 8 con Indy 10 | rolandoj | Internet | 13 | 24-12-2008 13:19:01 |
TIdHTTP, dlls.... | betto | Internet | 3 | 27-03-2007 21:49:03 |
|