Форум: "Начинающим";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c
