Discussion :

[nanomag]

a l'activation de ma form2 je cree l'objet document de word
je recupere le champ blob de ma base mysql

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
 if olecontainer1.State = osempty then
      olecontainer1.createobject('Word.document.8',false) ;
  vmsword := Olecontainer1.OleObject ;
  olecontainer1.DoVerb(0);
 
  vMSword.application.Selection.Font.Size:=12;
  form34.ClientDataSet1.Edit ;
  blob := form34.ClientDataSet1.CreateBlobStream(form34.ClientDataSet1.FieldByName('textfax'), bmReadWrite) ;
 
  try
    blob.Seek(0, soFromBeginning);
    fs := TFileStream.Create(chemin + 'temp.rtf', fmcreate or fmShareDenyWrite);
    try
    fs.CopyFrom(blob, blob.Size) ;
    finally
    fs.Free
    end;
  finally
    blob.Free
  end ;
  vmsword.application.Selection.InsertFile(FileName:= chemin + 'temp.rtf') ;

ensuite l'utilisateur change ce qu'il veut ds le document

j'enregistre ds ma base mysql

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
 procedure TForm37.Enregistrer1Click(Sender: TObject);
begin 
  vmsword.saveas(chemin + 'tmp.rtf') ;
 
  SQLREQ.Close ;
  SQLREQ.CommandText := 'update g_faxenv set textfax = :text '
        + ' where numaff = :numaff and nocfenv = :nocfenv' ;
 
  fic := chemin + 'tmp.rtf' ;
  SQLREQ.Params[0].LoadFromFile(fic,ftblob) ;
  SQLREQ.Params[1].AsString := form34.Edit6.Text ;
  SQLREQ.Params[2].AsString := form34.nocfenv ;
  SQLREQ.ExecSQL(false) ;
  vmsword.application.Selection.Endkey ;
  showmessage('enregistrement effectué') ;

mon bouton quitter

Code :

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

1
2
3
4
5
6
7
 
procedure TForm37.Quitter1Click(Sender: TObject);
form34.SQLdataset1.Close ;
form34.ClientDataset1.Close ;
Olecontainer1.destroyobject ;
form34.Close ;
close ;

je fais destroy object pour effacer le texte saisi lors de la derniere utilisation de cette form2

je peux fermer la form2 la réouvrir avec un autre enregistrement pas de probleme ça marche

( une forme principale avec un bouton qui va sur form2 )
( sur form 2 on choisit l'enregistrement que l'on veut faire afficher ds word .. bouton qui va sur form3 )
( form3 ..mon olecontainer et un menu Enregistrer Quitter)

mais quand je quitte la form principale de mon application , j'ai le message d'erreur :

violation d'acces a l'adresse 7FF47C10 dans le module ole32.dll

je ne peux pas faire de vmsword.close ou vmsword.application.quit (vmsword est le variant correspondant a l'oleobject du ole container )

vous remarquerez que je crée un document word et pas une instance de l'application MSWord

Code :

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

olecontainer1.createobject('Word.document.8',false) ;

si vous avez une idée de la provenance de ce message d'erreur ?..

j'ai pensé a

Code :

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

olecontainer.oleobjectinterface._release

mais je ne sais pas trop à quoi ça correspond "acces de bas niveau à l' API OLE"

Merci pour votre aide

[cmen76]

- avez-vous essayé un

Code :

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

OLEContainer1.close;

avant le destroyobject ?
- avez-vous le même problème sans le destroyobject ?

[nanomag]

oui exactement pareil

[cmen76]

Il faudrait tracer en F7 depuis le OnDestroy de la form afin de tenter de voir s'il n'y aurait pas un Free ou un release sur un objet déjà libéré... :

[nanomag]

en fait, c'est à cause du variant vmsword :

donc on remplace tous les vmsword par l'object du container et plus de problemes !!
exemple :

Code :

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

olecontainer1.OleObject.saveas(chemin + 'tmp.rtf') ;

ou encore

Code :

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

olecontainer1.oleobject.application.Selection.TypeText (Text := 'Destinataires') ;

à la fermeture de la forme Ne pas oublier

Code :

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

olecontainer1.close

sinon MSWord reste dans la liste des processus .. cette erreur fait planter l'executable

c'est tres penible les olecontainer mais l'interface est tres agréable dans votre application , le doc word est integre dans la form et les barres d'outils sont fusionnées

[cmen76]

Content que ça marche !
C'est vrai que l'intégration des outils Office dans une appli est sympa.
@ +

[nanomag]

Merci beaucoup de ton aide, c'est ça :

n'y aurait pas un Free ou un release sur un objet déjà libéré

qui m'a fait penser que le variant ne se remettait pas à vide, en fait il faisait n'importe quoi ce variant lol @+