Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

IdFTPServer [D7]

Tonich © (2005-10-10 19:22:00)
Начить так )
Есть цикл в котором пробегаюсь по стрин листу, откуда выбираю пути к файлам которые хочу отправить или обновить на стороне сервера (допустим стриг лист содержит 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-11 11:37:00) [1]
ндааа перекинули в начинающих и ответы так и посыпались так и посыпались

Tonich (2005-10-10 21:48:00) [2]
да нет сервер? это компонет со страницы IndyServers FTPServer -компонент

Eraser (2005-10-10 20:26:00) [3]

> Tonich © (10.10.05 19:22)

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

Tonich (2005-10-10 19:28:00) [4]
ой да
TFileStream.Create(FilePath,fmCreate or fmShareDenyWrite);
вместо fmShareDenyWrite- > fmShareExclusive

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »