Discussion :

[orphee13]

Bonjour,

je travaille en Dephi2006 avec les composants ODAC, sur une base Oracle 10g.

Sur ma base, j'ai une table qui contient une colonne BLOB dans laquelle se trouve des fichiers au format PDF.

Dans mon appli, via une procédure stockée, je récupère mon blob dans une variable de type ToraLob.
Le problème que j'ai, c'est qu'ensuite je dois afficher le pdf contenu dans le blob, dans mon appli, mais sans passer par une sauvegarde du pdf sur le disque dur....
J'ai essayer de mettre le blob dans des objets comme DbImage, TRichEdit, DBMemo ou encore DBRichEdit, mais rien ne fonctionne, soit l'objet ne prend pas ce type de blob (pdf), soit il affiche le blob sous forme de caractères illisibles...

Quelqu'un aurait-il une idée pour afficher le pdf contenu dans une variable BLOB dans un objet à l'écran ?

Merci d'avance

[anapurna]

salut

tu peut utilise les stream avec oleContainer

Code :

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

Olecontainer1.LoadFromStream(vStream);

@+ Phil

[orphee13]

Merci, mais avec le Olecontainer, j'ai l'erreur "Invalid Class Typecast" lors de la création du vStream...

Voici mon code :

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
19
20
21
22
23
24
25
26
 
var
    vStream: TMemoryStream;
 
begin
 
  // SmartQuery1 est un select * sur une table dans laquelle la colonne PIC est un BLOB.
  SmartQuery1.Open;
  SmartQuery1.Execute;
 
  try
    vStream := TADOBlobStream.Create(TBlobField(Smartquery1.FieldByName('PIC')), bmread);
 
    if (OleContainer1.State = osOpen) or (OleContainer1.State = osUIActive) then
    begin
      OleContainer1.DestroyObject;
    end;
    vStream.Position := 0;
    Olecontainer1.LoadFromStream(vStream);
 
  Except
    on E : Exception do
    begin
      MessageDlg('Erreur Fichier Aff_Rap.pas, proc ''LitRapport'' : ' + E.Message,mtError,[mbYes], 0);
    end;
  end;

Ou l'erreur "Invalid Stream Format" avec la méthode suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
begin
 
  // SmartQuery1 est un select * sur une table dans laquelle la colonne PIC est un BLOB.
  SmartQuery1.Open;
  SmartQuery1.Execute;
 
    vStream :=TMemoryStream.Create;
    TBlobField(Smartquery1.FieldByName('PIC')).savetoStream(vStream);
    vStream.position:=0;
    Olecontainer1.LoadFromStream(vStream);
end;