![]() |
|
|
#1
|
|||
|
|||
![]() находит файлы отсылает на ftp но не удаляет...
Помогите пожалуйста разобратса Код:
if ftp.Login=True then begin ftp.ChangeWorkingDir(ip+'/voice'); if FindFirst(edt1.Text+'*.wav',faAnyFile,search)=0 then begin repeat if search.Size > 600000 then begin ftp.DataStream.LoadFromFile(edt1.Text+search.Name); ftp.StoreFile(search.Name, False); DeleteFile(edt1.text+search.Name); end; until FindNext(search)<>0; FindClose(search); ftp.Logout; ftp.Free; |
#2
|
||||
|
||||
![]() смотри что GetLastError после DeleteFile возвращает. Stream может держит.
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
![]() Как-то была похожая проблемка, нужно было удалить файл, однако никакими стандартными способами это не выходило (причем ошибка не возникала). Оказалось, что во время удаления этот же файл использовался другим приложением.
Delphicode.org - справочник Delphi |
#4
|
|||
|
|||
![]() Цитата:
da vi pravi.. vot kak ras iz za etovo ne udaliaet... spasibo |