Cita:
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.