[DarkMoth]

День добрый. Подскажите знатоки в чём проблема.

И так.
Платформа Android. Надо содержимое MEMO загрузить на FTP в виде текстового файла.
Сейчас программа содержимое МЕМО пишет в файл, локально его сохраняет, потом файл отправляет на FTP и удаляет с телефона.

В принципе работает, текстовка появляется, НО программа зависает секунд на 20 и вылетает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure TForm.sendClick(Sender: TObject);  begin    begin    idftp1.Host := 'ftp.*************.ru';    idftp1.Username := '********';    idftp1.Password := '********';    idftp1.Port := 21;    idftp1.connect;    idftp1.ChangeDir('as');  //куда сохранять       if idftp1.Connected then  //есть ли доступ к ФТП       begin     servstat.Text := 'сервер на связи';     servstat.FontColor := TAlphaColorRec.green; //да     end     else      begin      servstat.FontColor := TAlphaColorRec.Red;  //нет            end;    end;      begin        memo1.Lines.SaveToFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) ;      idftp1.Put((TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')));      deleteFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) ;      end;         if assigned(idftp1) then       begin       idftp1.Disconnect;       idftp1.Free;       end;  end;

Админ: Пользуемся тегами при оформлении кода!

Кто подскажет, где я недоизвратился?

[DarkMoth]

Кароч. решение нашёл сам
properties
passive := true

Всем спасибо. Тема закрыта

[M.A.D.M.A.N.]

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

Кароч. решение нашёл сам
properties
passive := true

Всем спасибо. Тема закрыта

Классический метод — перевод в пассив-режим.