Comment convertir un memorystream lu dans un blob en string

Bonjour,

A la lecture d'une requête IBQuery sur une IBTable je récupère les données d'un champ déclaré Blob Sub_Type 1 dans un memorystream après l'avoir créé tel que :

Code:

---

1 2	(FieldByName(CHAMP_BLOB) as tBlobField).SaveToStream(Memorystream);

---

J'ai vérifié Memorystream.Size est correct. (61 ko et des brouettes)

Question : Comment convertir MemoryStream dans un AnsiString, memo, etc. que je puisse lire caractère par caractère ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function MemoryStreamToString( MS : TMemoryStream ): AnsiString; var SS: TStringStream; format: TStreamOriginalFormat; begin SS:= TStringStream.Create(Result); try MS.Seek(0,soFromBeginning);//Se place au début du flux MS. format := sofText; //Objet binaire contenu dans MS => texte et le place dans SS. ObjectBinaryToText(MS,SS, format); SS.Seek(0,soFromBeginning);//Se place au début du flux SS. Result :=SS.DataString;//On accéde au texte du flux. finally SS.Free; end; end;

---

:king: