18.09.2010, 16:04
|
Новичок
|
|
Регистрация: 25.04.2010
Сообщения: 99
Репутация: 9
|
|
Поиск, и отправка на фтп
Код:
//....тут код подключения , скачка файл с фтп,запуск.
FindFirst('C:\Temp\*.doc', faAnyFile , f);
path:= 'C:\Temp\' + f.Name;
// Writeln(path);
FindClose(f);
if idftp1.Connected then
idftp1.put('C:\Temp\*.doc', '*.doc', false );
// idftp1.Put(path, GetComputerName+f.name,true);
except
//...
//idftp1.Connect();
// if idftp1.Connected then
// idftp1.Put('c:\temp\123.mpf', GetComputerName+'123.mpf',true);
end;
нужно чтоб в папке temp нашел файл *.doc и отправил на фтп,
отправить не получаетья
|