Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
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 04-05-2016
rmoraglez rmoraglez is offline
Registrado
NULL
 
Registrado: oct 2011
Posts: 5
Poder: 0
rmoraglez Va por buen camino
Descargar fichero desde servidor linux

Hola:

Quiero hacer una aplicación, usando Delphi XE5, que permita desde una PC con Windows descargar ficheros ubicados en un servidor linux.
Me gustaría que me orientaran qué componentes puedo usar para implementarlo y si hubiese algún ejemplo de cómo hacerlo, muchísimo mejor.

A la espera de su atención.

Saludos,
Reina
Responder Con Cita
  #2  
Antiguo 04-05-2016
Avatar de fredo
fredo fredo is offline
Miembro
 
Registrado: oct 2003
Ubicación: Chile, Valparaiso
Posts: 318
Poder: 21
fredo Va por buen camino
esto es para bajar por url, si quieres copiar por la red es mas facil....

Código Delphi [-]
function Download(Url: string; Archivo: string): Boolean;
var
   hFile: THandle;
   hNet: HINTERNET;
   hUrl: HINTERNET;
   Buffer: array[0..102400] of Char;
   BytesRead: DWORD;
   BytesWritten: DWORD;
begin
    Result := FALSE;
    hFile := CreateFile(PChar(Archivo), GENERIC_WRITE, 0, nil, CREATE_ALWAYS,
    FILE_ATTRIBUTE_NORMAL, 0);
    if (hFile <> INVALID_HANDLE_VALUE) then
    begin
         hNet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
         if (hNet <> nil) then
         begin
              hUrl := InternetOpenUrl(hNet, PChar(Url), nil, 0,
              INTERNET_FLAG_RELOAD, 0);
              if (hUrl <> nil) then
              begin
                  while (InternetReadFile(hUrl, @Buffer, sizeof(Buffer), BytesRead)) do
                  begin
                      if (BytesRead = 0) then
                      begin
                          Result := TRUE;
                          break;
                      end;
                      if (not WriteFile(hFile, Buffer, BytesRead, BytesWritten, nil))
                      then break;
                      if (BytesRead <> BytesWritten)
                      then break;
                  end;
                  InternetCloseHandle(hUrl);
              end;
              InternetCloseHandle(hNet);
        end;
        CloseHandle(hFile);
    end;
end;
__________________
^_^

http://stna.cl
Responder Con Cita
  #3  
Antiguo 04-05-2016
rmoraglez rmoraglez is offline
Registrado
NULL
 
Registrado: oct 2011
Posts: 5
Poder: 0
rmoraglez Va por buen camino
Muchas gracias por su pronta respuesta.
Le agradecería si me pudiese mostrar cómo sería por la red, porque creo que usare esa vía de enlace.

Saludos,
Reina
Responder Con Cita
  #4  
Antiguo 04-05-2016
Avatar de fredo
fredo fredo is offline
Miembro
 
Registrado: oct 2003
Ubicación: Chile, Valparaiso
Posts: 318
Poder: 21
fredo Va por buen camino
Cita:
Empezado por rmoraglez Ver Mensaje
Muchas gracias por su pronta respuesta.
Le agradecería si me pudiese mostrar cómo sería por la red, porque creo que usare esa vía de enlace.

Saludos,
Reina
copyfile jajajaj es como se hace normalmente, claro que necesitas tener el servicio de linux para compartir archivos activo y tener el permiso adecuado osea logueado a la maquina....
__________________
^_^

http://stna.cl

Última edición por fredo fecha: 04-05-2016 a las 17:30:39.
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
Importar Imagenes desde un servidor Linux Pedro Nel Ortiz Gráficos 1 26-04-2011 00:45:44
Descargar un fichero sagitarius Internet 2 13-02-2008 04:35:33
Administrar servidor linux desde windows lookmydoom Linux 3 11-07-2007 18:57:58
Descargar fichero 25 Mb desde internet fmatias Internet 4 06-07-2007 18:43:59
Como hacer un shares en un Servidos Linux para que otro Servidor Linux .... FernandoFAI Linux 0 15-04-2004 10:33:07


La franja horaria es GMT +2. Ahora son las 21:07: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