Discussion :

[colorid]

Bonjour,

avec une base InterBase voici le problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
  Refl,WorkStr: AnsiString;
  ReflStream: TMemoryStream;
begin
  ReflStream:= tMemoryStream.Create;
// ... lancement de la requête qui fonctionne
      (FieldByName(MON_CHAMP_BLOB) as tBlobField).SaveToStream(ReflStream);
      SetLength(WorkStr, ReflStream.Size);
      ReflStream.ReadBuffer(Pointer(WorkStr)^, ReflStream.Size);
      Refl := WorkStr;

j'ai vérifié au pas à pas ReflStream.Size est correct 61 ko et des..
L'erreur se produit à la lecture du buffer :
EReadError erreur de lecture du flux

Quel chapitre ais-je manqué ? et sutout comment corriger ?

Merci d'avance

[tourlourou]

essaye ReflStream.ReadBuffer(@WorkStr[1], ReflStream.Size);

[colorid]

J'ai l'erreur à la compilation :
E2197 : un objet constante ne peut être passé comme paramètre var

[colorid]

Voila la solution à la conversion en texte du memorystream lu dans le champ blog :

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;
    //Convertit l'objet contenu dans MS en 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;

Pour ceux que cela interesse...