Скачать: CL | DM;

IdFTPServer   Найти похожие ветки 

← →
Tonich ©   (2005-10-10 19:22) [0]

Начить так )
Есть цикл в котором пробегаюсь по стрин листу, откуда выбираю пути к файлам которые хочу отправить или обновить на стороне сервера (допустим стриг лист содержит 20 записей, путей файлов).
вот так отправляю

OnServer.Put(FileList.Strings[ii],ExtractFileName(FileList.Strings[ii]));


а вот так вот принимаю (в обработке события OnStoreFile)


 if (FileExists(FilePath) and (AAppend)) then
    begin
      VStream := TFileStream.Create(FilePath,fmOpenWrite or fmShareDenyWrite);
      VStream.Seek(0,soFromEnd);
    end else
      VStream := TFileStream.Create(FilePath,fmCreate or fmShareDenyWrite);


ну все вообщем как в примерах.
Так вот собственно вопрос, приложение зависает на отправление N файла и все, больше не риагируен ни на что.
С чем это может быть связанно?

---

← →
Tonich ©   (2005-10-10 19:28) [1]

ой да

TFileStream.Create(FilePath,fmCreate or fmShareDenyWrite);

вместо  fmShareDenyWrite - > fmShareExclusive

---

← →
Eraser ©   (2005-10-10 20:26) [2]

> Tonich ©   (10.10.05 19:22)

Виснет на инструкции OnServer.Put(FileList.Strings[ii],ExtractFileName(FileList.Strings[ii])); ?
Скорее всего проблема на стороне сервера... сервер самописный ?

---

← →
Tonich ©   (2005-10-10 21:48) [3]

да нет сервер? это компонет со страницы IndyServers FTPServer -компонент

---

← →
Tonich ©   (2005-10-11 11:37) [4]

ндааа перекинули в начинающих и ответы так и посыпались так и посыпались

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.043 c