Discussion :

[Wilco]

Bonjour à tous,

J'utilise un TClientDataSet et un TDataSetProvider pour créer une table dans un fichier XML.

La table comporte 2 champs :

XMLogID: TStringField;

XMLData: TWideMemoField // Ce champ peut contenir plusieurs milliers de carctères en UTF8


Dans le code ci-dessous, comment je fais pour assigner la valeur de XMLData qui est un pointeur au TWideMemoField XMLogXMLData: ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Procedure TDatabase.XMLog( LogID: String; XMLData: PByte; XMLCount: Integer);
begin
 
if (Database.XMLog.State <> dsInactive)
then begin
     Database.XMLog.Append;
     Database.XMLogID.Value := LogID;
 
     Database.XMLogXMLData ??????? // comment lui passer le contenu de XMLData^
 
     end;
end;

Merci d'avance
Wilco

[ShaiLeTroll]

LoadFromStream du TBlobField si c'est un binaire pure, un TMemoryStream pour mapper ton pointeur
Sinon un TVarBytesField et SetData mais c'est un peu brut, je l'ai fait en Sybase, j'ai du gérer deux octets supplémentaires pour indiquer la taille réelle du blob aussi bien à la lecture qu'à l'écriture


TWideMemoField je ne connais pas, mais si c'est une chaine, utilise AsString ou AsWideString cela convertira selon ta version de delphi de Ansi à UTF8 ou Unicode à UTF8
Si cela ne le fait pas automatiquement UTF8Encode
Mais je te déconseille de stocker un binaire en String ou alors encode en Base64 avant

Normalement, ce n'est pas un encodage du champ mais l'ensemble du fichier XML qui est encodé en UTF8 par SaveToFile

[Wilco]

Merci Shail,

J'ai remplacer mon TWideMemoField par un TblobField.
J'ai déclaré un TMemoryStream et voici le code de la fonction :

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
18
19
20
21
22
 
 
Procedure TDatabase.XMLog( LogID: String; XMLData: PByte; XMLCount: 
Integer);
var
   LogData: TMemoryStream;
 
begin
//GetMem(LogData, XMLCount);
//LogData.SetSize(XMLCount);
 
LogData.Write(XMLData, XMLCount);
 
if (Database.XMLog.State <> dsInactive)
then begin
     Database.XMLog.Append;
     Database.XMLogID.Value := LogID;
 
     Database.XMLogXMLData.LoadFromStream(LogData);  //<- ça plante ici
 
     end;
end;

ça plante quand il veut faire le LoadFromStream. J'ai essayé en attribuant la mémoire du TMemoryStream mais ça plante toujours.

Merci d'avance,
Wilco

[Rayek]

Tu n'instancies pas LogData c'est normal

Code :

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

1
2
3
4
5
6
7
 
LogData := TMemoryStream.Create;
Try
 // ton code
finally
  LogData.Free;
End;

[ShaiLeTroll]

J'espère qu'il y avait l'instanciation, sinon le Write aura planter avant !
Pense à "rembobiner" le stream

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
18
19
20
21
22
23
24
Procedure TDatabase.XMLog( LogID: String; XMLData: PByte; XMLCount: 
Integer);
var
   LogData: TMemoryStream;
begin
  if (Database.XMLog.State <> dsInactive) then
  begin
     Database.XMLog.Append;
     Database.XMLogID.Value := LogID;
 
     LogData := TMemoryStream.Create;
     try
       LogData.Write(XMLData, XMLCount); // déplace la position, imagine le stream comme une bande 
       LogData.Position := 0;
       Database.XMLogXMLData.LoadFromStream(LogData);  //<- ça plante ici
 
     finally
       LogData.Free;
     end;
 
     Database.XMLog.Post; // faudra y penser aussi !
 
   end;
end;

[Wilco]

Merci Rayek,

Effectivement ce point est réglé.

[edam]

Bonjour à tous,

J'utilise un TClientDataSet et un TDataSetProvider pour créer une table dans un fichier XML.

si pour crée un fichier xml, t'as pas besoin de TDataSetProvider
si tu as besoin d'une base mieux voir autre chose: fb, sqllite,...
autre chose, la taille max d'un champs dans clientdataset ne dépasse pas 56700 je crois, à voir