Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Вниз

FTP-клиент   Найти похожие ветки 

 
Дмитрий Ботвин   (2004-10-14 09:20) [0]

Всем привет! У меня прога, которая показывает видеоклипы и
графические файлы на форме и параллельно в отдельном потоке с
заданного ftp-сервера подкачивает новые файлы. Сам ftp-клиент
написан на IdFTP. Проблема в том, что если канал до ftp-сервера
узкий то подкачка новых файлов происходит крайне медленно и при
этом демонстрация файлов подтормаживает. Приоритет потоку с ftp-
клиентом ставил разный - не помогло. Подскажите что делать?


 
alecsoid   (2004-10-14 09:59) [1]

Скинь прогу, точнее сам блок скачки в отдельном потоке плиз!


 
Reindeer Moss Eater ©   (2004-10-14 10:01) [2]

Подскажите что делать?

Увеличивать размер буфера. Больше ничего не поможет при тонком каналею


 
Дмитрий Ботвин   (2004-10-14 10:52) [3]

Вот сам модуль скачки:

procedure FTPThread.DownloadFiles;
 var Name, ext: String;
     LS: TStringList;
     i: integer;
 begin
   //Подключаемся
   Form1.IdFTP1.Username := Form1.User.Text;
   Form1.IdFTP1.Password := Form1.Pswd.Text;
   Form1.IdFTP1.Host := Form1.Server.Text;
   Form1.IdFTP1.Passive :=true;
   try
     Form1.IdFTP1.Connect;
   except
     exit;
   end;
   LS := TStringList.Create;
   Form1.IdFTP1.ChangeDir(Trim(Form1.CurDir.Text));
   Form1.IdFTP1.TransferType := ftASCII;
   Form1.IdFTP1.List(LS);
   if LS.Count=0 then
     begin
       LS.Free;
       Form1.IdFTP1.Quit;
       exit;
     end;
   Form1.IdFTP1.TransferType := ftBinary;
   for i:=0 to LS.Count-1 do
      begin
        if not(Form1.IdFTP1.Connected) then
          begin
            LS.Free;
            exit;
          end;
        if not(Form1.IdFTP1.DirectoryListing.Items[i].ItemType = ditFile) then continue;
        Name := Form1.IdFTP1.DirectoryListing.Items[i].FileName;
        if Name[1]="~" then continue;
        //Проверяем, нет ли уже такого файла
        if FileExists(Form1.PathAVI.Text+"\"+Name) then continue;
        //Проверяем, нужен ли режим докачки
        if FileExists(Form1.PathAVI.Text+"\~"+Name) then
          //Докачка файла
          try
            Form1.IdFTP1.Get(Name, Form1.PathAVI.Text+"\~"+Name, false, true);
          except
            //Не докачали
            continue;
          end
        else
          try
            Form1.IdFTP1.Get(Name, Form1.PathAVI.Text+"\~"+Name, false);
          except
            //Не скачали
            continue;
          end;
        //Скаченный файл нужно переименовать
        RenameFile(Form1.PathAVI.Text+"\~"+Name, Form1.PathAVI.Text+"\"+Name);
      end;
   LS.Free;
   Form1.IdFTP1.Quit;
 end;

А как увеличить размер буфера???


 
Reindeer Moss Eater ©   (2004-10-14 11:36) [4]

Проигрыватель проигрывает скачиваемый файл из буфера.
В буфер качает фтп клиент.

Если проигрыватель "сосет" из буфера икс килобайт в секунду (битрейт фильма), а канал позволяет пополнять буфер со скоростью игрек килобайт в секунду, и икс > игрек то никакими приоритетами скачивающего потока дело не улучшить.

Только увеличивать буфер.

А как увеличить размер буфера???
Сначала поискать его реализацию в программе.


 
Дмитрий Ботвин   (2004-10-14 11:40) [5]

Да я его нашел - он равен 32кб. Как думаете скока ему поставить
то надо? Какой предел, если он есть? И как увеличение размера
буфера влияет на работу FTP?


 
Reindeer Moss Eater ©   (2004-10-14 11:45) [6]

И как увеличение размера
буфера влияет на работу FTP?


Никак не влияет.
Размер влияет на работу плеера.


 
Дмитрий Ботвин   (2004-10-14 11:48) [7]

Reindeer Moss Eater спасибо, щас попробую!!!



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

Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.039 c
14-1101995436
TButton
2004-12-02 16:50
2004.12.26
Internal Server Error задолбаллллллллллллл!!!


3-1101809249
wmicha6666
2004-11-30 13:07
2004.12.26
Изменение данных в таблице


9-1085643700
xman
2004-05-27 11:41
2004.12.26
Игра дурак


1-1102588333
Tornado
2004-12-09 13:32
2004.12.26
Форма в DLL


11-1084318593
Dilma
2004-05-12 03:36
2004.12.26
Как сделать табуляцию у элементов контейнеров?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский