Discussion :

[tanith]

Bonjour,

en prévision d'un projet, j'aimerais savoir s'il est possible (via macro) de :

1) générer une requete http (genre recherche sur www.google.fr)
2) récupérer la réponse du serveur
3 ) travailler sur cette réponse (l'afficher dans Write, voir sa taille, ...)

merci d'avance
_________________
OpenOffice 2.3, XP pro

[tanith]

Suite à des recherches, il se trouve que la barre d'outils " barre d'hyperliens " fait en partie ce que je souhaite. Cependant l'enregistreur de macro ne capte pas mes actions quand je l'utilise. Y a-t-il moyen de trouver le code des macros de cette barre ?

[tanith]

Bon...voila l'état d'avancement de mes recherches :

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
Sub TestBasic() 
Dim oConnector as object 
Dim aByteArray as object 
Dim nBytesRead as object 
Dim oConnection as object 
Dim socket as object 
   oOutput = StarDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, Array() ) 
 
   oConnector = createUnoService( "com.sun.star.connection.Connector" ) 
   oConnection = oConnector.connect("socket,host=www.google.fr,port=80") 
   cCR = Chr(13) 
    cLF = Chr (10) 
   oConnection.write( StringToByteArray( "GET / HTTP/1.0" + cCR + cLF+ cCR + cLF ) ) 
    aByteArray = Array() 
    nBytesRead = oConnection.read( aByteArray, 200) 
 
    Writer_PrintLn( oOutput, "bytes lus : " ) 
   Writer_PrintLn( oOutput, nBytesRead ) 
 
 
End Sub

Il me fait dit : "sous procédure ou procédure non définie" à cette ligne là :

oConnection.write( StringToByteArray( "GET / HTTP/1.0" + cCR + cLF+ cCR + cLF ) )

peut-on caster oConnection en com.sun.star.connection.Connector.XConnection ?