|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сохранение на FTP. Android
День добрый. Подскажите знатоки в чём проблема.
И так. Платформа Android. Надо содержимое MEMO загрузить на FTP в виде текстового файла. Сейчас программа содержимое МЕМО пишет в файл, локально его сохраняет, потом файл отправляет на FTP и удаляет с телефона. В принципе работает, текстовка появляется, НО программа зависает секунд на 20 и вылетает. Код:
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; Кто подскажет, где я недоизвратился? Последний раз редактировалось Admin, 06.11.2016 в 20:26. |
#2
|
|||
|
|||
Кароч. решение нашёл сам
properties passive := true Всем спасибо. Тема закрыта |
#3
|
||||
|
||||
Цитата:
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |