tolstii

Так и делаю, но понял что вопрос был мой не корректен!

Спасибо!

Всем доброго вечера.

На Delphi XE8 и выше имею проблему!

 В Projects - options / Provisioning Build Type выбираю Android-Application Store,

            создаю keystore, alias как обычно - нажимаю OK,

Захожу опять в Projects - options / Provisioning Build Type стоит - Android development. 

       ставлю опять Android-Application Store - появляются настройки мои keystore, нажимаю ОК и все по кругу.

Вообщем на сохраняется в настройках Android-Application Store, постоянно слетает в Android development.

На XE6 и XE7 все работает, в чем проблемы, помогите.

Спасибо.

при подключении убрал

idtcpclient1.Create();

при отключении добавил

IdTCPClient1.Socket.Close;

все, заработало. 

Всем добрый день.

Наблюдаю проблемы с TCPClient в работе с Android. Проверить проблему очень просто:

Connect:

procedure TForm2.Button1Click(Sender: TObject);
begin
  idtcpclient1.Create();
  idtcpclient1.Host:='192.168.5.24';
  idtcpclient1.Port:=8728;
  idtcpclient1.Connect;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
if idTcpClient1.connected then
begin

  IdTCPClient1.Disconnect;
  if IdTCPClient1.IOHandler <> nil then
    IdTCPClient1.IOHandler.InputBuffer.Clear;
end;

1)windows, 2)android, 3)ios  

Всем привет.

имеется хост IP 95.143.123.82 - TCP 8728 без ssl используя TIdTCPClient подключаеться отлично.

на этот же хост  95.143.123.82 - TCP 8729 (другой порт) c ssl не могу подключиться, помогите разобраться в чем проблема 

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;

begin

IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

//IdSSLIOHandlerSocketOpenSSL1.Destination := '192.168.5.128:8729';
IdSSLIOHandlerSocketOpenSSL1.Host := '192.168.5.128';
IdSSLIOHandlerSocketOpenSSL1.MaxLineAction := maException;
IdSSLIOHandlerSocketOpenSSL1.Port := 8729;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [];
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;

idtcpclient1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;

IdTCPClient1.Create(nil);
idtcpclient1.Host:='192.168.5.128';
idtcpclient1.Port:=8729;
idtcpclient1.Connect;


end;

приватный IP для проверке из вне можете заменить  на публичный указанный выше

заранее спасибо!

Ааа, Андрей, огромное спасибо!!!!

Добрый день.

Не могу побороть проблему с кодировкой в приложениях для Android

Пример задачи простой:

имею Hex string:   ed6a3e6589bd4536f36a7d5624757d9c  

который нужно преобразовать в string для дальнейших операций 

под windows все нормально: получаю íj>e‰½E6ój}V$u}œ  используя функцию:

function TForm1.HexToStr2(const source: string): string;
var
  i, idx:Cardinal;
  StrAsBytes:TBytes;
begin
  SetLength(StrAsBytes, length(source) div 2);
  i:=1;
  idx:=0;
  while i<=length(source) do
  begin
    StrAsBytes[idx]:=StrToInt('$'+source[i]+source[i+1]);
    i:=i+2;
    idx:=idx+1;
  end;
  result:=TEncoding.ansi.GetString(StrAsBytes);
end;

MDD555.ZIP