Guardar un archivo en sitio web

[maycampana]

Hola a todos!, tengo una aplicación creada con Delphi6 y base de datos Paradox7 que genera el backup correspondiente en .zip, necesito hacer que también se guarde una copia en un sitio web. Estoy viendo los componentes Indy pero no se cual corresponde elegir, MUCHAS GRACIAS al que me pueda orientar, estoy aprendiendo muchos de uds. Saludos

[Casimiro Notevi]

Lo habitual puede ser usar un servidor FTP para alojarlos, así que supongo que tendrás que usar un cliente ftp, creo que TidFTP, si mal no recuerdo.
Haz una búsqueda por clubdelphi, es un tema tratado en diversas ocasiones.

[Neftali [Germán.Estévez]]

Lo suyo (y creo que los más sencillo) es usar los de FTP.
¿Tienes o puedes montar un acceso FTP en el servidor?

[maycampana]

Empezado por Casimiro Notevi

Lo habitual puede ser usar un servidor FTP para alojarlos, así que supongo que tendrás que usar un cliente ftp, creo que TidFTP, si mal no recuerdo.
Haz una búsqueda por clubdelphi, es un tema tratado en diversas ocasiones.

Gracias por su ayuda, voy a ver que puedo hacer y a investigar sobre ese componente, estoy aprendiendo, cuando lo logre les cuento, mil gracias.

[maycampana]

Empezado por Neftali

Lo suyo (y creo que los más sencillo) es usar los de FTP.
¿Tienes o puedes montar un acceso FTP en el servidor?

Gracias Neftali por contestar, tenemos un servidor con el que trabajamos y en el que me dan un sitio para que se guarden automáticamente los backups que los usuarios hacen desde una opción en el programa. No se que componentes usar, solo con IdFTP?, y con qué comando envio un archivo .zip o .rar a ese sitio? Millón de gracias.

[[newtron]]

Hola.

Aquí tienes un ejemplo de envío de un fichero a un servidor ftp usando el componente idFTP:

Código Delphi [-]
         IdFTP1.Host:= NombreDelHost;
         IdFTP1.UserName := NombreUsuario;
         IdFTP1.Password := Password;
         Try
           IdFTP1.Connect;
         except
           ShowMessage('¡ATENCION! Problema de conexion, fichero no enviado');
           Exit;
         end;
         IDFTP1.TransferType:=ftBinary;
         IDFTP1.ChangeDir('CarpetaDestino'); // Ruta fichero destino
         Try
           IDFTP1.Put('C:\RutaOrigen\NombreArchivoOrigen','NombreArchivoDestino');
         except
           ShowMessage('ATENCION! Problema al enviar el archivo');
         end;

Espero que te sirva.
Saludos

[maycampana]

Mil gracias, ya lo voy a probar y despúes les cuento. Gracias por la ayuda que dan.

[maycampana]

Hola newtron, funcionó perfectamente el código que me ofreciste, luego le agreguè una ProgressBar que me hizo renegar bastante pero logré que funcione. Ahora necesito poner en la línea del IdFTP1.Put( ) una ruta que no sea fija, debería utilizar ExtractFilePath o algo así ? Además el nombre del archivo también debería extraerlo porque en la aplicación el usuario puede guardar su backup con el nombre que quiera .zip . Bueno muchas gracias, me ayudan un montón con su sabiduría.

[ecfisa]

Empezado por maycampana

Ahora necesito poner en la línea del IdFTP1.Put( ) una ruta que no sea fija, debería utilizar ExtractFilePath o algo así ? Además el nombre del archivo también debería extraerlo porque en la aplicación el usuario puede guardar su backup con el nombre que quiera

Hola maycampana.

Las funciones ExtractFilePath y ExtractFileName no te van a funcionar para extraer la ruta y el nombre de archivo en casos como: ''http://terawiki.clubdelphi.com/Delphi/Ejemplos/Archivo.zip", pero se puede hacer unas funciones que lo hagan.

Por ejemplo:

Código Delphi [-]
function ExtractFtpPath(const aName: string): string;
var
  i,u: Integer;
begin
  if aName > '' then
  begin
    u := 0;
    for i := 1 to Length(aName) do
      if aName[i] = '/' then u := i;
    Result:= Copy(aName, 1, u);
  end;
end;

function ExtractFtpFileName(const aName: string): string;
var
  i: Integer;
begin
  if aName > '' then
  begin
    i := Length(aName);
    while ((aName[i] <> '/') and (i > 0)) do Dec(i);
    Result := Copy(aName, i+1, MaxInt);
  end;
end;

Saludos.

[ecfisa]

Hola de nuevo.

Para no dejar a medias la idea y tomando el código que te puso el amigo newtron, podrías hacer algo como:

Código Delphi [-]
function ExtractFtpPath(const aName: string): string;
var
  i,u: Integer;
begin
  if aName > '' then
  begin
    u := 0;
    for i := 1 to Length(aName) do
      if aName[i] = '/' then u := i;
    Result:= Copy(aName, 1, u);
  end;
end;

function ExtractFtpFileName(const aName: string): string;
var
  i: Integer;
begin
  if aName > '' then
  begin
    i := Length(aName);
    while ((aName[i] <> '/') and (i > 0)) do Dec(i);
    Result := Copy(aName, i+1, MaxInt);
  end;
end;

procedure TForm1.SendFileToFTP(const HostName, UserName, Password,
  Origen, Destino: string);
begin
  IdFTP1.Host     := HostName;
  IdFTP1.UserName := UserName;
  IdFTP1.Password := Password;
  try
    IdFTP1.Connect;
  except
    MessageBox(Handle,'Error al tratar de conectarse','',MB_ICONERROR + MB_OK);
    Exit;
  end;
  IDFTP1.TransferType := ftBinary;
  IDFTP1.ChangeDir(ExtractFtpPath(Destino));
  try
    IDFTP1.Put(ExtractFilePath(Origen), ExtractFtpFileName(Destino));
  except
      MessageBox(Handle,'Error al enviar el archivo','',MB_ICONERROR + MB_OK);
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendFileToFTP('HostName', 'JuanPerez', '1234', EditOrigen.Text, EditDestino.Text);
end;

Saludos.

Edito: Tendrás que hacerle las pruebas definitivas sobre el servidor, sólo controlé el resultado de las cadenas.

[maycampana]

Hola chicos, muchas gracias por la ayuda, voy a ver como aprovecho lo que me ofrecen, soy principiante y tal vez pretendo hacer cosas complicadas. Les comento, la aplicación tiene la opción de hacer el respaldo cada día que se guarda en gral. adentro de la carpeta del programa en el C:\ pero por ahí algunos la guardan el MisDocumentos o en otra carpeta. Y desde la ubicación que elija el usuario, la aplicación debe hacer que se envie al servidor.

Código Delphi [-]
IdFTP1.ChangeDir('.'); // en esta línea con el punto funciona perfecto.

mi duda es la línea del Put pero sigo probando.

También me surgiò otro problemita, si desde un botón Cancelar quiero cortar la conexíon y mostrar un mensaje que la conexión ha sido cancelada. Probé algo simple como esto pero me da error y con Close solo se tilda el programa.

Código Delphi [-]
Procedure TEnviarFTP.BotonCancelarClick(Sender: TObject);
begin
    if IdFTP1.Connected then
      try
         IdFTP1.Disconnect;
         IdFTP1.Free;
       except
         showmessage('La conexión ha sido cancelada);
       end;
     close;
end;

[maycampana]

Ya pude armar el tema de la ruta, lo que hago es guardar en un archivo de texto la ruta cuando el usuario realiza el backup, y luego la levanto con un memo en el form que hace el envio al servidor ftp. El nombre del archivo origen y destino lo dejé fijos. Lo dejo así, funciona bien.
Otro tema: si desde un botón Cancelar quiero cortar la conexíon y mostrar un mensaje que la conexión ha sido cancelada. Probé algo simple como esto pero me da error y con Close solo se tilda el programa. Gracias por ayudarme.

Código Delphi [-]
Procedure TEnviarFTP.BotonCancelarClick(Sender: TObject);
begin    
  if IdFTP1.Connected then      
    try         
      IdFTP1.Disconnect;         
      IdFTP1.Free;       
    except         
      showmessage('La conexión ha sido cancelada);       
    end;     
  close;
end;