Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-10-2007
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 21
JXJ Va por buen camino
¿Descargar Archivos de Sitios con Contraseña?

¿como puedo descargar archivos de sitios web que requieren
de un usuario y una contraseña?

Ahora estoy usando WinInet y todo va bien mientras no use
contraseñas o autentificacion el sitio web. para acceder al archivo.
y con estos codigos

Esta funcion hace la descarga

Código Delphi [-]
procedure DownloadURLStream(const Url: string; Dest: TStream);
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
  if not assigned(Dest) then exit;
  Dest.Size := 0;
  NetHandle := InternetOpen('Delphi', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(NetHandle) then begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    if Assigned(UrlHandle) then begin
      // UrlHandle valid? Proceed with download
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
        if BytesRead > 0 then
          Dest.Write(Buffer, BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end else
      // UrlHandle is not valid. Raise an exception.
      raise Exception.CreateFmt('Cannot open URL %s', [url]);
    InternetCloseHandle(NetHandle);
  end else
    // NetHandle is not valid. Raise an exception
    raise Exception.Create('Unable to initialize Wininet');
end;

Esto esta en un boton
Código Delphi [-]
procedure TfrmMain.acLoadFromURLExecute(Sender: TObject);
var
  URL: string;
  M: TMemoryStream;
begin
  // Ask user for URL
  URL := InputBox('Which URL to download?', 'URL:', '');
  // Setup memory stream
  M := TMemoryStream.Create;
  try
    // Download URL to memory stream
    DownloadURLStream(URL, M);
    // Load from this stream
    FXmlDoc.LoadFromStream(M);
    // Regenerate views
    Regenerate;
  finally
    M.Free;
  end;
end;

gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Descargar Archivos Deiv HTML, Javascript y otros 6 25-12-2007 09:52:55
Poner contraseña a Carpeta de archivos vick Windows 2 11-08-2007 18:49:06
Descargar archivos mediante un formulario pampitasnowman PHP 17 15-05-2007 17:39:04
Descargar archivos adjuntos con NMPOP3 gaska OOP 0 30-11-2005 19:09:54


La franja horaria es GMT +2. Ahora son las 14:35:32.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi