Discussion :

[FireWolf]

Je suis en [Delphi] 2007 édition entreprise et j’utilise [Open Office] 2.1 et [Oracle 9].
J’ai un document au format Word stocké dans un THugeBlob dans une base de données oracle. Je le lis grâce en Stream sur le champ d’une TQuery et un [TConteneur]…et tout ce passe très bien. Mais aujourd’hui je voudrais l’ouvrir avec [Open Office]. Mais le TConteneur me l’ouvre toujours Word or mon but est de m’affranchir de Word. Avez-vous une idée pour résoudre mon PB ?? (Je voudrais bien qu'Open Office lise directement le stream ou le Champ HugeBlob.)

[FireWolf]

Me sent un peu seul...là...

[devyan]

Peux-tu préciser comment tu réalisais l'ouverture de ton fichier avec Word ?

Cela pourrait aider à comprendre d'où vient ton problème...

Yan.

[Clorish]

Une fois en cherchant autre chose je suis tombé la dessus.

Ca repond peut etre a tes questions.

[FireWolf]

Comme dans la base j'ai un document Word, celui-ci se lance automatiquement quand je double clique sur le Tcontainer.

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
27
28
29
30
 
procedure TForm1.LectureDocDansOleContainer;
var QueryDyn : TQuery;
    Bf: TBlobField;
    Bs: TBlobStream;
begin
  if ( not DBLocal.Connected) then //DBLocal = TDataBase
    DBLocal.Connected := True;
  // Recuperation du champ BLOB modèle
  QueryDyn := TQueryLisia.Create(self);
  with QueryDyn do
  begin
    DataBaseName := 'ALiasDBLocal';
    ParamCheck := False;
    SQL.Clear;
    SQL.Add('SELECT CLEF1,CLEF2, MON_THUGEBLOB');
    SQL.Add('FROM TABLE_DOCUMENT');
    SQL.Add('WHERE CLEF1 = Val1 AND CLEF2 = Val2');
    Open;
  end;
  Bf  := QueryDyn.FieldByName('MON_THUGEBLOB') as TBlobField;
  Bs  := TBlobStream.Create(Bf, bmRead);
  try
    MainForm.OleContainer1.LoadFromStream(Bs);
    MainForm.OleContainer1.DoVerb(0);  // edit
  finally
    QueryDyn.Close;
    Bs.Free;
  end;
end;

D'après ce que j'ai lu sur les forums pour manipuler l'objet Wold du TOleContainer on peut utiliser:

Code :

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

1
2
3
4
5
 
var MyWord : Variant;
begin
    MyWord := OleContainer1.OleObject.Application.WordBasic;
end;

[FireWolf]

Mon Pb est de réussir dans mon application à lire un document word stocké dans une base de donné oracle. Je peu le récupérer dans un champ TBlobField ou dans un TBlobStream et je voudrais le lire avec open office (je n'aurais pas word sur la machine cliente). j'espère que je suis plus clair cette fois. Merci a devyan et a Clorish pour l'intérêt que vous porté à mon pb.

[Jipété]

je n'aurais pas word sur la machine cliente

Donc les documents Word (les ".doc") seront ouverts avec OO suite à installation de celui-ci (et enregistrement dans la BdR, et association des .doc à sWriter).
Donc ton truc devrait fonctionner.
Évidement c'est difficile à tester sur une machine où tu as les 2 progs installés, mais tu peux changer la manière dont tu ouvres les .doc sur la machine de test (clic droit sur un .doc, "ouvrir avec...", "choix de programme...", tu choisis sWriter et tu coches "Toujours utiliser..."), pour voir.

Mes 2 cts,
--
jp