Widestring pour l'enregistrement dans fichier Binaire ???Résolu

Question

Bonjour j'ai une sorte de base de donnée et souhait d'enregistrer dans un fichier Binaire. Voici une exemple


type
  TExemple = Record
    Data1: String[2500];
    Data2: Integer;
end;

Eh ben, il est claire qu'un string d'une taille de 2500 n'existe pas. Dont quelle solution pour enregistrer mes chaines de texte ???

Caribensila · Accepted Answer

Salut,

Quand la taille de la variable n'est pas fixée, l'astuce consiste à d'abord écrire sa taille dans le fichier sous la forme d'un Integer, puis la variable elle-même.
A la lecture, on lira d'abord cette taille et on créera une variable de cette taille du type requis. Puis on lui affectera le contenu du fichier.

Exemple :

var MaChaine : string;
    Taille : Integer; 

//Ecriture de MaChaine :
Taille :length(MaString);//Taille(en octets) longueur de la chaîne.
FileStrm.WriteBuffer(Taille,SizeOf(Taille));//On écrit d'abord la taille de la chaîne qui va suivre(un Integer, donc) ...
FileStrm.WriteBuffer(MaString[1],Taille);//...puis la chaîne en transmettant un pointeur sur son 1er caractère, et sa taille.



//Lecture de MaChaine :
FileStrm.ReadBuffer(Taille,SizeOf(Integer));//Lit la taille de la chaîne.
SetLength(MaString,Taille);//Allocation d'assez d'espace dans la chaîne.
FileStrm.ReadBuffer(MaString[1],Taille);//Lecture de la chaîne grâce à la transmission d'un pointeur (MaString[1]).



_______________________________________
Soutenez Wikimédia France aujourd'hui : http://dons.wikimedia.fr

cs_MAURICIO · Answer

Salut cari, 

il me semble d' ailleurs que tu as une source dans ce style!?

A+


Composants Cindy pour Delphi

cs_MAURICIO · Answer

On pourrait aussi (pour simplifier) définir un caractère pour séparer les différents enregistrements/champs: 
champ1=xxxxx[ESC]champ2='10.21'[ESC][ESC]
champ1=yyyyy[ESC]champ2='10.33'[ESC][ESC]
etc ...
Ord(ESC)=27

Un des gros avantages de cette méthode est qu' elle permet de récupérer la table plus facilement s' il y a eu problème lors de l' enregistrement. 

A+


Composants Cindy pour Delphi

DavKli · Answer

Bon, moi je suis un peu perdu... Le fichier que fait enregistre plusieurs types de données, entre autre des integer et des dates/times. Le longue strings sont juste une partie.  Je vais essaier avec array of char[1..2000].

cs_MAURICIO · Answer

lol, 

tu veux une bonne idée simple? le TClientDataset! 

A+


Composants Cindy pour Delphi

Caribensila · Answer

Ah ben m*** alors !

J'pensais pourtant avoir bien expliqué sur ce coup...  


_______________________________________
Soutenez Wikimédia France aujourd'hui : http://dons.wikimedia.fr

DavKli · Answer

eh m****, j'ai égaré mon dictionnaire francais - delphifr / delhifr - français. Et google Translation m'as pas beaucoup aidé sur ce coup la.

voila mes données a enregistrer : 

  
TRssFeed = record
    Index: Integer;
    Link: string[1000];
    Title: String[255];
    DateAdd: TDate;
    LastUpdate: TDateTime;
    LastResult: (Succes, Failed, New);
    Folder: Integer;
end;
TRSSFeedFile = file of TRssFeed;

et pour enregistrer, j'utilise 

for int1 := 1 to length(MyListActuelle) do
Write(TRSSFeedFile, MyListActuelle[int1-1]);


et voila, l'erreur est le string[1000]

Caribensila · Answer

Ah oué. Je comprends que tu ne comprenais pas...  Ce n'est pas un fichier binaire !   


_______________________________________
Soutenez Wikimédia France aujourd'hui : http://dons.wikimedia.fr

DavKli · Answer

Quand la taille de la variable n'est pas fixée, l'astuce consiste à d'abord écrire sa taille dans le fichier sous la forme d'un Integer, puis la variable elle-même. 
A la lecture, on lira d'abord cette taille et on créera une variable de cette taille du type requis. Puis on lui affectera le contenu du fichier.

Bonjour,

j'utilise l'exemple en haut pour ecrire mon fichier binaire mais pendant l'enregistrement, mon string est coupé en deux. En effet, seulement la moitie est enregistre malgre que j'ai indiqué la taille. 

La longuer du string est de 464. Apres enregistrement et lecture, il se trouve a 232. Est ce possible que les caracteres speciales ont besoin un buffer plus grande ? 

Mon string est :

DavKli · Answer

Si j'utilise 

Taille := length(MaString) *2;

ca marche. Une idee pourquoi ?

DavKli · Answer

Ok, le buffer ne prend pas en compte le nombre des characteres mais aussi le nombre de bytes. Par la suite, la taille doit etre

  Taille := length(MaString) * SizeOf(MaString[1]);

cs_MAURICIO · Answer

Faux: 
Taille := length(MaString) * SizeOf(MaString[1]);

car SizeOf(MaString[1] peut être différent de SizeOf(MaString[2] selon le caractère !!!

Le plus simple est de faire: 
- créer un champ de type memo. 
- utiliser un TClientdataset pour lire/écrire dans le champ memo. 

A+


Composants Cindy pour Delphi
Faites une donation.

DavKli · Answer

Alors j'ai testé SizeOf pour 10.000 Characters et j'ai toujours le meme resultat, a savoir "2".

DavKli · Answer

J'ai pu reglé le probleme de Buffer Taille par encoder le string.

Voici la procedure pour Read


var
  F : TFileStream;
  BufSize: Integer;
  Str1: UTF8String;
  Str2: String;

[...]
  F.ReadBuffer(BufSize, 4);
  SetLength(Str1, BufSize);
  F.ReadBuffer(Str1[1], BufSize);
  Str2 := UTF8ToString(Str1);
[...]


Et pour Write 


var
  F : TFileStream;
  BufSize: Integer;
  Str1: UTF8String;
  Str2: String;

[...]
  Str1 := UTF8String(Str2);
  BufSize := Length(Str1);
  F.WriteBuffer(BufSize, 4);
  F.WriteBuffer(Str1[1], BufSize);
[...]

Widestring pour l'enregistrement dans fichier Binaire ???

14 réponses

Votre réponse

Discussions similaires