[RISOLTO]Visualizzare emoticon

[bonmario]

Ciao a tutti,
ho un progetto, con cui scarico i dati dei miei "allenamenti" da SportsTracker, e li emetto.

Se nell'app dello smartphone metto un commento usando le emoticon, questo viene salvato con qualcosa di simile a questo:

Codice: [Seleziona]

Grandissima prestazione \uD83D\uDE04\uD83E\uDD23\uD83D\uDE02\uD83D\uDE00\uD83D\uDE01

Da quel che ho capito, ognuna delle sequenze di 6 caratteri che inizia con "\u", è una emoticon.

Quando nel mio progetto tento di emettere quella stringa, al posto di ogni emoticon, mi ritrovo un punto di domanda.

Sapete se c'è già qualcosa che mi permetta di emettere le emoticon al posto dei punti di domanda?

Grazie in anticipo, Mario

[Mimmo]

Ciao,
devi trovare il sistema di convertire da UTF-16 a utf-8 e poi sperare che venga renderizzato nel controllo.
Forse con qualcosa del genere (è un abbozzo, preso da qui https://forum.lazarus.freepascal.org/index.php/topic,38893.0.html, tanto per capire)...

Codice: [Seleziona]

var
  s, c1, c2 : String;
  list : TStringList;
  i, couples : integer;
begin
  list := TStringList.Create;
  try
    list.Delimiter:= '\';
    list.DelimitedText:= '\uD83D\uDE04\uD83E\uDD23\uD83D\uDE02\uD83D\uDE00\uD83D\uDE01';
    s := '';
    couples := list.Count div 2;
    for i:= 0 to couples - 1 do
    begin
      c1 := '$' + Copy(list.Strings[(i * 2) + 1], 2, 99);
      c2 := '$' + Copy(list.Strings[(i * 2) + 2], 2, 99);
      S+=WideChar(StrToInt(c1))+WideChar(StrToInt(c2));
    end;
    ShowMessage(S);
  finally
    list.Free;
  end;

[bonmario]

Grazie !!!

Il tuo codice funziona benissimo ... ma nel mio programma c'è qualcosa che non va.
Provando il tuo codice, mi sono accorto che la stringa che mi arriva, non è quella letta nel file, ma è "rovinata".
Adesso devo indagare, per capire dove avviene questa cosa.

Grazie, Mario

[xinyiman]

In ogni caso, dai un occhiata al progettino che ti allego. Secondo me può tornarti utile.

[bonmario]

Ok, grazie !

[bonmario]

Ciao,
devi trovare il sistema di convertire da UTF-16 a utf-8 e poi sperare che venga renderizzato nel controllo.
Forse con qualcosa del genere (è un abbozzo, preso da qui https://forum.lazarus.freepascal.org/index.php/topic,38893.0.html, tanto per capire)...

Grazie al tuo link, ho capito che il problema che avevo era un bug, risolto con FPC 3.2.0.

Grazie, Mario