Delphi BlueTooth Android UTF8

02/11/2021

Estou desenvolvendo um aplicativo de comunica��o via BlueTooth com um dispositivo,os comandos est�o ok,mas � muito �til que eu transfira e receba texto,e utilizando as rotina que tenho me deparei com um problema de decodifica��o nos caracteres acentuados(portugu�s).
A rotina que uso � essa;

function TBTMethod.SendData( nPair:integer; sData:string ) : Boolean;
var
  ToSend: TBytes;
  LDevice: TBluetoothDevice;
begin
  result := FALSE;
  if ManagerConnected then
  try
    if (FSocket = nil) or ( ItemIndex <> nPair ) then
    begin
      if nPair > -1 then
      begin
        LDevice := FPairedDevices[ nPair ] as TBluetoothDevice;
        FSocket := LDevice.CreateClientSocket( StringToGUID( FServiceGUID ), False);
        if FSocket <> nil then
        begin
          ItemIndex := nPair;
          FSocket.Connect;
          ToSend := TEncoding.GetEncoding(860).GetBytes( sData );
          FSocket.SendData(ToSend);
          result := TRUE;
        end
        else
          ShowMessage(''Out of time -15s-'');
      end
      else
        ShowMessage(''No paired device selected'');
    end

    else
    begin
      ToSend := TEncoding.UTF8.GetBytes( sData );
      FSocket.SendData(ToSend);
      result := TRUE;
    end;

  except
      on E : Exception do
      begin
        ShowMessage(E.Message);
        FreeAndNil(FSocket);
      end;
    end;
end;

N�o consigo imaginar uma saida para as letras acentuadas,que aparecem duas juntas ''erradas''.
Algu�m tem uma ideia de implementa��o?

Vtrx

Curtir t�pico + 0

Responder

Posts

03/11/2021

Vtrx

function TBTMethod.SendData( nPair:integer; sData:string ) : Boolean;
var
  ToSend: TBytes;
  LDevice: TBluetoothDevice;
begin
  result := FALSE;
  if ManagerConnected then
  try
    if (FSocket = nil) or ( ItemIndex <> nPair ) then
    begin
      if nPair > -1 then
      begin
        LDevice := FPairedDevices[ nPair ] as TBluetoothDevice;
        FSocket := LDevice.CreateClientSocket( StringToGUID( FServiceGUID ), False);
        if FSocket <> nil then
        begin
          ItemIndex := nPair;
          FSocket.Connect;
          ToSend := TEncoding.GetEncoding(860).GetBytes( sData );
          FSocket.SendData(ToSend);
          result := TRUE;
        end
        else
          ShowMessage(''Out of time -15s-'');
      end
      else
        ShowMessage(''No paired device selected'');
    end

    else
    begin
      ToSend := TEncoding.UTF8.GetBytes( sData );
      FSocket.SendData(ToSend);
      result := TRUE;
    end;

  except
      on E : Exception do
      begin
        ShowMessage(E.Message);
        FreeAndNil(FSocket);
      end;
    end;
end;

N�o consigo imaginar uma saida para as letras acentuadas,que aparecem duas juntas ''erradas''.
Algu�m tem uma ideia de implementa��o?

Acabei achando o meu erro...
Tenho que alterar tamb�m na linha;

...
    else
    begin
      ToSend := TEncoding.UTF8.GetBytes( sData );//faltou alterar aqui tamb�m.
      FSocket.SendData(ToSend);
      result := TRUE;
    end
...

Responder

Gostei + 0