idFTP и плохое соединение с интернетом

[mitiay]

Возникла такая проблема,в общем стоит компьютер с 3G модемом на нем нужно подсоедениться к фтп серверу.Но из за плохого соединения выходят разные ошибки и тд.Подскажите что можно сделать.

var i:integer;
R:Word;
  fs: TFileStream;
  s: AnsiString;
begin
Listbox1.Clear;
idFTP1.host :=
idFTP1.username := 
idFTP1.password :=
idFTP1.Port := 21;
idFTP1.Connect;
if idFTP1.Connected then
Label2.Caption:='Соединение с сервером: Подключено!';
idFTP1.ChangeDir('webspace/httpdocs/armada/1/777/');
//fs:=TFileStream.Create(ExtractFilePath(Application.ExeName) + '2.txt', fmCreate);
 IdFTP1.List;
for i:=0 to idFTP1.DirectoryListing.Count-1 do
ListBox1.Items.Add(idFTP1.DirectoryListing.Items[i].FileName);
ListBox1.Sorted:=true;
 try
 finally
 end;
end;

Проблема еще в том что после подключения не хочет обновлять ListBox

 IdFTP1.List;
for i:=0 to idFTP1.DirectoryListing.Count-1 do
ListBox1.Items.Add(idFTP1.DirectoryListing.Items[i].FileName);
ListBox1.Sorted:=true;

Может както этот код переделать.

В общем нужен совет

[Stilet]

Но из за плохого соединения выходят разные ошибки и тд

Может както этот код переделать.

Ты прямо как мои юзера: "Сделай мне както! Както надо штоб работало. Думай."
Ответ кроется в фразе "Плохое соединение". Понял на что я намекаю?

[mitiay]

Сообщение от Stilet

Ты прямо как мои юзера: "Сделай мне както! Както надо штоб работало. Думай."
Ответ кроется в фразе "Плохое соединение". Понял на что я намекаю?

Да это я понял что из за плохого соедениния вся трабла,Я имею в виду может какието компоненты другие использовать и т д

Подсоединяется нормально только вот список обновлять не хочет

 IdFTP1.List;
for i:=0 to idFTP1.DirectoryListing.Count-1 do
ListBox1.Items.Add(idFTP1.DirectoryListing.Items[i].FileName);
ListBox1.Sorted:=true;

Именно этот кусок кода не хочет работать

[ZuBy]

поробуй BeginUpdate, EndUpdate у ListBox использовать

[mitiay]

Сообщение от ZuBy

поробуй BeginUpdate, EndUpdate у ListBox использовать

Не помогло((((

Пробывал зайти через total commander тоже не хочет,мне кажется проблема с портами 3g модема,Ктонибудь сталкивался с такой проблемой?

[Stilet]

может какието компоненты другие использовать

Прям как мои юзера
Это из серии "Ну обнаружьте меня как-нибудь".
Эх... Представь что к тебе пришли и сказали "Надо делать, сделай как-нибудь тыжпрограммист". Вот как твой вопрос выглядит со стороны.

Ктонибудь сталкивался с такой проблемой?

Я. Каждый день. Лекарства нет. Просто привыкнуть к тормозам или от 3G отказываться.

[xxbesoxx]

Ты прямо как мои юзера: "Сделай мне както! Както надо штоб работало. Думай."

Это не только у вас ... :D :D :D тупые блондинки так и говорят , Когда они делает вид что они очень интеллектуальные

[Stilet]

тупые блондинки так и говорят

Ну не. Это стереотип. У меня на филиях лично коэффициент "умности и сообразительности" от цвета и рассы не просматривается. Все просто - тупят фсе
Наверное это профзаболевание.

[NIKOLAYY2]

mitiay Но из за плохого соединения выходят разные ошибки и тд.Подскажите что можно сделать.

Дак ты отправь килобайтный файл да проверь- пришел он или нет.
Если он неприйдет, то попробуй код ниже запустить, только данные правильно внеси, а то и он не заработает, у меня код ниже работал.

  ftp := TIdFTP.Create(Application);
    try
      ftp.Host := 'syte.ru';
      ftp.Port := 21;
      ftp.Username := 'name';
      ftp.Password := '123456';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/public_html');
      ftp.Put('faile.jpg', 'faile.jpg', false);
    finally
      ftp.Free;
    end;

[Stilet]

Мне кажется что в этом случае INDI не самый лучший помошник. Я бы на сокетах Беркли сделал. Разбил бы передачу на блоки, передаваемые в отдельных потоках. Если один из блоков не проходит, то в потоке повторял попытку соединения и передачи. Сделал бы так как торрент клиенты работают. Или Download Master, который файл заливает порциями.