закачка файла на ftp

[hacknet]

привет всем!я вот таким образом отправляю файл на фтп

sPath := copy(sIn, 5, Length(sIn) - 5 + 1); // путь к файлу/папке

if sCmd = 'bla ' then begin 
IdFTP1.host := 'ftp.land.ru';
IdFTP1.username := '222222';
IdFTP1.password := '222222';
if not IdFTP1.Connected then IdFTP1.Connect();
idFTP1.put(sPath,ExtractFileName(sPath),True);

если путь с пробелами, то файл не зальёться... выдаёт ошибку на том месте где пробел, помогите как это исправить? спасибо

[BARNEY]

если память не изменяет то что то типо

idFTP1.put('+sPath+',ExtractFileName(sPath),True);

[Stilet]

idFTP1.put('"'+sPath+'"',ExtractFileName(sPath),True);

Т.е. окаймить двойными ковычками.
P.S. Этот фокус кстаии не везде проходит

[hacknet]

не работает! а другого способа нет?

[fucil]

если просто удалить пробелы то Функция Trim удаляет пробельные и управляющие символы (такие как перевод строки) в начале и в конце строки. Можно и через цикл поискать пробелы !
а вообще я делаю так:

  FTP:=TIdFTP.Create(nil);
  FTP.Passive:=True;
  FTP.ReadTimeout:=0;
  FTP.AutoLogin := True;
  FTP.Host:=FrmMain.Lhost.Text;
  FTP.Username:=FrmMain.Luser.Text;
  FTP.Password:=FrmMain.Lpass.Text;
  path:=FrmMain.Lpath.Text;
  FTP.Connect();

try
    FTP.Put('C:\123.rar',path+'/123.rar');
    FrmMain.addToLog('Отправка на FTP ...');

except
  FrmMain.addToLog('Ошибка отправки фала');
end;

finally
  FrmMain.addToLog('Файл успешно загружен: ');
  FTP.Disconnect;
  FTP.Free;
end;