Lecture/écriture de fichiers UTF 16 LE

Version imprimable

18/12/2006, 17h31
Pill_S

Lecture/écriture de fichiers UTF 16 LE

Bonjour à tous,

je cherche à lire et écrire des fichiers textes au format Unicode UTF16 Little Endian avec Delphi 7, mais je rencontre quelques problèmes...

Tous les caractères de ce fichier font partie du jeu ASCII, mais lorsque je les lis, cela me donne des trucs bizarres, genre "ÿ&¬HH"...

Comment convertir une chaîne unicode vers une chaîne normale? Et comment lire/écrire des fichiers dans ce format?

Merci d'avance ;)
18/12/2006, 17h57
Eric Boisvert

je crois qu'en utilisant les WideString dans delphi...et les TFilestream...

j'imagine que WideCharToStrVar() sera surment ton ami?

Citation:

Envoyé par Aide de Delphi

Wide strings are strings composed of 16-bit Unicode characters

Bon, je suis peut-être à côté de la traque?
18/12/2006, 18h06
Pill_S

Non, ça à l'air pas mal... enfin c'est un bon début!

et comment on lit un de ces fichiers ligne par ligne en stockant chaque ligne dans une WideString?

Merci de ton aide
18/12/2006, 18h08
Eric Boisvert

Tu peux m'envoyer un bout du fichier à lire... j'en ai pas sous la main:aie: ....
ca va aider beaucoup...
18/12/2006, 18h12
Pill_S

1 pièce(s) jointe(s)

Voilu :)

ça ne contient que de l'ASCII, mais si tu l'ouvre avec un edi hexa, tu verras que les caractères sont sur 2 octets

Désolé mais je ne suis pas capable de downloader ton fichier...

Donc voici ce que ca pourrait donner...
La fonction de lecture lit un fichier au complet et met toutes les
ligne dans un TStringList....

pour la sauvegarde, on Reconverti en WideString avant la sauvegarde.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
//=======================================================
//=== Lecture d'un fichier sous forme WideString et met toutes les lignes
//=== disponible dans un TStringList.
procedure LectureUTF16LE(FileName:string;ItemsListe:TStrings);
var
    TempStream:TMemoryStream;
    TempStr:string;
begin
    TempStream:=TMemoryStream.Create();
    TempStream.LoadFromFile(FileName);
    TempStream.Position:=0;
    try
        TempStr:=WideCharToString(TempStream.Memory );
        ItemsListe.Text:=TempStr;
    finally
        TempStream.Free;
    end;
end;
 
//=======================================================
//=== Ecrit le contenue d'un TString dans un fichier sous forme WideString
procedure EcritureUTF16LE(FileName:string;ItemsListe:TStrings);
var
    TempStream:TMemoryStream;
    Buffer:pWideChar;
    SizeWC:Cardinal;
begin
    TempStream:=TMemoryStream.Create();
    SizeWC:=(Length(ItemsListe.Text)+1)*SizeOf(WideChar);
    Buffer:=AllocMem(SizeWC);
    try
        StringToWideChar( ItemsListe.text,Buffer,SizeWC);
        TempStream.Write(Buffer[0],SizeWC);
        TempStream.SaveToFile(FileName);
    finally
        freeMem(Buffer);
        TempStream.Free;
    end;
end;
 
//========================================================
//=== Exemple d'utilisation:
procedure TForm1.Button1Click(Sender: TObject);
var
    AllLine:TStringList;
begin
    AllLine:=TStringList.Create;
    try
        AllLine.Add('allo');
        AllLine.Add('Toi');
        AllLine.Add('Merci');
        EcritureUTF16LE('c:\test.txt',AllLine);
 
        LectureUTF16LE('c:\test.txt',AllLine);
    finally
        AllLine.Free;
    end;
end;

18/12/2006, 20h34
Eric Boisvert

ok! j'ai réussi à downloader ton fichier...
notepad m'affiche bien son contenue (a part les changements de ligne)
et je reconnais dans mon éditeur Hex...

y a quelque chose de bizard... c'est la paire FF FE au début du fichier...
je crois qu'il faudrait nous aussi l'ajouter dans notre traitement...
mais je ne connait pas sa signification....

Bon Voilà ce que ca donne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
procedure LectureUTF16LE(FileName:string;ItemsListe:TStrings);
var
    TempStream:TMemoryStream;
    TempStr:string;
    i:integer;
begin
    TempStream:=TMemoryStream.Create();
    TempStream.LoadFromFile(FileName);
    TempStream.Position:=0;
    i:=(TempStream.Size-2)div sizeOf(WideChar);
    try
        TempStr:=WideCharLenToString(@PWideChar(TempStream.Memory)[1],TempStream.Size );
        ItemsListe.Text:=copy(TempStr,1,i);
    finally
        TempStream.Free;
    end;
end;
 
 
procedure EcritureUTF16LE(FileName:string;ItemsListe:TStrings);
var
    TempStream:TMemoryStream;
    Buffer:pWideChar;
    SizeWC:Cardinal;
    bidon:array [0..1]of Char;
    TempStr:String;
begin
    TempStream:=TMemoryStream.Create();
    //Remplace CRLF by LF only
    TempStr:=StringReplace(ItemsListe.Text,#13#10,#10,[rfReplaceAll]);
    SizeWC:=(Length(TempStr)+1)*SizeOf(WideChar);
    Buffer:=AllocMem(SizeWC);
    try
 
        StringToWideChar( TempStr,Buffer,SizeWC);
        //Write Header FFFE ?
        bidon[0]:=#$FF;
        bidon[1]:=#$FE;
        TempStream.Write(BIDON,2);
 
        TempStream.Write(Buffer[0],SizeWC);
        TempStream.SaveToFile(FileName);
    finally
        freeMem(Buffer);
        TempStream.Free;
    end;
end;

19/12/2006, 18h08
Pill_S

Extra merci ;)