Ver Mensaje Individual
  #1  
Antiguo 27-03-2009
Avatar de gulder
gulder gulder is offline
Miembro
 
Registrado: abr 2005
Ubicación: colombia-sucre
Posts: 384
Reputación: 22
gulder Va por buen camino
Thumbs up verificar link de descargar utilizando IdHTTP

hola foro como andan espero que bien bueno estoy tratando desde una aplicacion verificar si un link de descarga directa esta disponible o no para esto estuy utilizando el componente IdHTTP de las indy bueno hasta hay no hay problema la forma en que estoy haciendo desde codigo lo que digo es asi primero miremos la interfaz que es la siguiente:


ahora lo que hago en el boton verificar es lo siguiente

Código Delphi [-]
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;

el siguiente codigo lo probe con un link que estaba bueno y esta alojado en rapidshare para los que quieran probar esre es el link

Link Bueno


y me arrojo lo siguiente





hay no hay problema por que el link esta bueno ahora coloco un link malo y miren me sigue arrojando lo mismo

aqui el link

link malo


entonces no se que estoy haciendo mal si es que no se utilizar el conponente o que estara pasando y otro problema es que me gustaria hacerlo de manera general no solo para archivo alojados en rapidshare si no para otros

saludos desde ya gulder gan y gracias por su interes chau
Responder Con Cita