Discussion :

[Laskar]

[Delphi RIO]
Salut à tous.
Après quelques migraines, j'ai enfin pu faire fonctionner mon appli Android. Je voulais que mon téléphone vienne consulter/insérer/modifier/effacer les données d'une base Firebird tournant sur ma machine Linux placée derrière ma FreeBox V6. C'est fait, ça marche. (Serveur et client DataSnap REST).
Le seul problème que j'ai encore, c'est l'encodage. Ma base a été créée en UTF8. Si je compile le module client pour la plateforme W32, tout se passe bien. Quand je compile ce même module pour Android sans rien changer au code, je perds les accents et caractères spéciaux. J'ai beau essayer UTF8ToString, ça ne change rien.
Une piste ?

Merci

[pprem]

Bonjour

Es-tu sur la 10.3 ou as-tu déjà pu essayer avec la 10.3.1 sortie hier ?

Et si tu es sur la 10.3, as-tu installé les 5 patch disponibles ?

[Laskar]

Bonjour
Es-tu sur la 10.3 ou as-tu déjà pu essayer avec la 10.3.1 sortie hier ?

Delphi 10.3 Version 26.0.32429.4364 (architect)

J'ignorais l'existence de la 10.3.1. Je doute toutefois qu'un patch puisse résoudre mon problème. Je vais tout de même tenter une mise à jour au cas où ...

[SergioMaster]

Bonjour,

il faudrait peut-être faire un tour sur cette page http://docwiki.embarcadero.com/RADSt...puis_le_bureau
- utiliser des UTF8String plutôt que des strings ?

Quand je compile ce même module pour Android sans rien changer au code, je perds les accents et caractères spéciaux

question : du serveur vers le client, du client vers le serveur où dans les deux sens ?


À vérifier s'il y a eu des évolutions depuis XE5 dans le forum EDN à cette adresse Remy Lebeau (TeamB) propose trois manières de contourner le problème

[ALWEBER]

Penses aussi à ce genre de fonction : StringList1.LoadFromFile('Traduc2018.txt', TEncoding.UTF8);

[Laskar]

Bon, bin en codant les paramètres en dur, tout fonctionne avec ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TServerMethods1.DSServerModuleCreate(Sender: TObject);
begin
    With FDConnection Do
    Begin
        Close;
        With Params Do
        Begin
            Add('DriverID=FB');
            Add('Database=/var/bases/DBDEMO_25.FDB');
            Add('UserName=UserName');
            Add('Password=Password');
            Add('CharacterSet=UTF8'); // <--- Bingo !
        End;
        LoginPrompt:= False;
        Open;
    End;
end;

Finalement, mon tort est de toujours chercher midi à 14 heures ...

Merci.