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 -компонент

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

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