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