Всем спасибо за живое участие! Был немного занят, сегодня решил снова покопаться в проблеме, есть такой метод - убрать все лишнее по максимуму! В итоге дошел до трех кнопок в клиенте, сервер на Win7 взял чужой. В итоге остались 3 строчки кода а проблема та же!!!
Может у кого-нибудь есть какие-нибудь мысли на эту тему? Буду очень рад.
Вот полный текст проги:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
FMX.StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, FMX.Layouts, FMX.Memo;
type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure IdFTP1Connected(Sender: TObject);
procedure IdFTP1Disconnected(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}
procedure TForm1.Button1Click(Sender: TObject);
// вкл FTP
begin
// из-за этой хрени не конектился к FTP-серверам в интернете!
// не нашел информацию про это свойство!
// IdFtp1.UseHOST:=false;
IdFtp1.Host:='192.168.0.98'; // Host
IdFtp1.Port:=21; // Port
idFTP1.Username:='htc820'; // User
idFTP1.Password:='12345'; // Password
IdFtp1.Passive:=true; // пассивный режим FTP
IdFtp1.Connect; // подключение к серверу
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// скачать файл с FTP-сервера
// 'имя_файла_на_сервере','имя_локального_файла'
IdFTP1.Get('ff1.txt', '/sdcard/Arxiv_telefon/z3/zzClient/ff1.txt', True); // работает на адроиде 5, не работает на 6
// IdFTP1.Get('ff1.txt', 'd:\zzClient\ff1.txt', True); // работает на Win7
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
// отправить файл на FTP-сервер
// 'имя_локального_файла','имя_файла_на_сервере'
IdFtp1.Put('/sdcard/Arxiv_telefon/z3/zzClient/ff1.txt', 'ff1.txt'); // работает на адроидах 5 и 6
// IdFtp1.Put('d:\zzClient\ff1.txt', 'ff1.txt'); // работает на Win7
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
IdFtp1.Disconnect;
end;
end.
