Discussion :

[NGeVtC87]

Bonjour,

Je développe un programme sous Delphi permettant compléter un fichier odt (OpenOffice writer). Mais sur certaine instruction j'ai des exceptions concernant les macros UNO sont levés. Le message d'erreur est :

" Le projet a déclenché la classe d'exception EOleException avec le message [automaton bridge] Unexpected exception in UnoConversionUtilities<T>::VariantToAny ! "


Je vous donne un exemple de ces instructions. Par exemple l'instruction qui permet de retourner la. position du curseur :

Code :

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

1
2
3
4
5
6
7
8
 
 
FDesktop := FOffice.createInstance('com.sun.star.frame.Desktop');
oDoc:=FDesktop.LoadComponentFromURL(FileName,'_default',0,FilterParams);
 
oText = oDoc.getText();
oCursor = oText.createTextCursor();
oCursor.goToStart(FALSE);

Pouvez vous m'aider à résoudre ce problème

Merci

[zoom61]

Bonjour,

Ce code permet d'insérer du texte à la position du curseur :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Zoom61()
    Dim monDocument As Object, monTexte As Object, monCurseur As Object, monTexteCurseur As Object
 
    monDocument = ThisComponent
    monTexte = monDocument.Text
    monCurseur  =monDocument.CurrentController.getViewCursor()
    monTexteCurseur = monTexte.createTextCursorByRange(monCurseur, getStart())
    monTexte.insertString(monTexteCurseur, " Essai ", False)
End Sub

[jurassic pork]

hello,

nassim1987 a écrit :

Mais sur certaine instruction j'ai des exceptions concernant les macros UNO sont levés

Quelles instructions ? ta variable Filename est de quel type ( en pascal) ? et les autres variables ?

Ami calmant, J.P

[NGeVtC87]

Pour les instructions qui lève des exceptions c'est par exemple l'instruction:

Code :

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

 oText = oDoc.getText();

FileName c'est l'url qui permet d'accéder à mon fichier odt, elle est de type Variant n Delphi .

Code :

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

FileName := 'file:///' + GetCurrentDir + '/test_file.odt';

[jurassic pork]

hello,

avec le code suivant en lazarus ( free pascal) :

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
31
32
33
34
35
var
  Form1: TForm1;
 
  Server     : Variant;
  Desktop    : Variant;
  LoadParams : Variant;
  Document   : Variant;
  TextCursor : Variant;
  oText : Variant;
  FileName : Variant;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   try
    Server := CreateOleObject(ServerName);
  except
    ShowMessage('Unable to start OO.');
    Exit;
  end;
   Desktop := Server.CreateInstance('com.sun.star.frame.Desktop');
   LoadParams := VarArrayCreate([0, -1], varVariant);
   FileName :=  'file:///F:/temp/mondoc.odt';
   { Open existing} //you must use forward slashes, not backward!
  Document := Desktop.LoadComponentFromURL(FileName, '_blank', 0, LoadParams);
  oText := Document.getText();
  TextCursor := oText.CreateTextCursor;
  TextCursor.gotoStart(False);
  OText.insertString(TextCursor, ' Essai ', False);
end;

je n'ai pas d'exception.

Ami calmant, J.P