Affichage pdf via un Blob sans création de fichier

Version imprimable

23/10/2008, 15h01
orphee13

Affichage pdf via un Blob sans création de fichier

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
23/10/2008, 17h14
anapurna

salut

tu peut utilise les stream avec oleContainer

Code:

Olecontainer1.LoadFromStream(vStream);

@+ Phil

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

Voici mon code :

Code:

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:

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;