Discussion :

[colorid]

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 :

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

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 ?

[colorid]

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
 
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;