Discussion :

[ads42]

Bonjour,
je dois envoyer des GUID generés avec un TGuid vers une base qui n'a que caractères pour ce champ là. La Conversion en string GUIDTOString donne 36 caractères, mais de memeoire un GUID tient sur 16 octets.
Une idée comment faire pour le faire tenir dans 16 caractères ?
Merci
ads

[Paul TOTH]

tu peux au mieux en faire une représentation binaire, la représentation hexadécimale prenant évidemment 2 fois plus de place.

Code :

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

1
2
3
4
5
6
7
 
var
  s: AnsiString;
begin
  SetLength(s, 16);
  Move(GUID, s[1], 16);
end;

[ShaiLeTroll]

Attention à stocker cela dans un champ qui ne va pas gérer de CharSet
Une conversion binaire brute doit être géré brut tout du long !

D'ailleurs, Paul Toth a choisi le AnsiString par précaution d'un Delphi Unicode
conserve tout du long du AnsiString même sur le TField via AsAnsiString
Après faut espérer que la base ne va pas vouloir jouer avec cette chaine et donc pourri les données par des conversions d'accent non souhaitées !

[ads42]

Merci de vos réponses.
La conversion est valable dans les 2 sens ?
car si j'envoie la valeur convertie vers cet autre system, il faudra aussi que je retrouve le mien dans l'autre sens.

[Paul TOTH]

Merci de vos réponses.
La conversion est valable dans les 2 sens ?
car si j'envoie la valeur convertie vers cet autre system, il faudra aussi que je retrouve le mien dans l'autre sens.

en fait ce n'est pas une "conversion" c'est juste un stockage brutal de données binaires dans une chaîne de la taille de ces données.

dans ce contexte, le "move" est utilisable dans les deux sens en effet, encore faut-il comme l'indique Shai que le destinataire accepte des données binaires.

[ads42]

Ok, merci à vous deux.