Guardar un archivo en sitio web

[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.