Bonjour,
Peut-on avec le code se dispenser du WebBroser ???
Mon besoin est simple, j'envoie :
http://perso0.free.fr/cgi-bin/meteo.pl?depu
75 = n°départemet (1 à x)
Et en retour j'ai une image par l'ouverture d'une fenêtre de
l'explorateur...
-----------------------
Alors, je me demande si en code, je peux envoyer la requête Internet au
serveur Free, puis récupérer l'image dans une picturBox sans lancer l'IE ???
Le but est de se passer des objets additifs qui causent des plantages
parfois, à cause de la version de leur dll ou ocx... Par exemple, j'ai une
appliation distriibuée qui se plante avec MsCalendar, j'ai donc réécrit en
code le calendrier, et je n'ai plus de problème :o)
Bonjour,
Peut-on avec le code se dispenser du WebBroser ???
Mon besoin est simple, j'envoie :
http://perso0.free.fr/cgi-bin/meteo.pl?depu
75 = n°départemet (1 à x)
Et en retour j'ai une image par l'ouverture d'une fenêtre de
l'explorateur...
-----------------------
Alors, je me demande si en code, je peux envoyer la requête Internet au
serveur Free, puis récupérer l'image dans une picturBox sans lancer l'IE ???
Le but est de se passer des objets additifs qui causent des plantages
parfois, à cause de la version de leur dll ou ocx... Par exemple, j'ai une
appliation distriibuée qui se plante avec MsCalendar, j'ai donc réécrit en
code le calendrier, et je n'ai plus de problème :o)
Bonjour,
Peut-on avec le code se dispenser du WebBroser ???
Mon besoin est simple, j'envoie :
http://perso0.free.fr/cgi-bin/meteo.pl?depu
75 = n°départemet (1 à x)
Et en retour j'ai une image par l'ouverture d'une fenêtre de
l'explorateur...
-----------------------
Alors, je me demande si en code, je peux envoyer la requête Internet au
serveur Free, puis récupérer l'image dans une picturBox sans lancer l'IE ???
Le but est de se passer des objets additifs qui causent des plantages
parfois, à cause de la version de leur dll ou ocx... Par exemple, j'ai une
appliation distriibuée qui se plante avec MsCalendar, j'ai donc réécrit en
code le calendrier, et je n'ai plus de problème :o)
Bonjour,
Merci, mais... Winsock c'est aussi un composant additionnel.
J'ai demandé : sans composant, avec le code ou les objets de base !!!
Car mettre Winsock à la place de WebBroser, ben... heu...
Bonjour,
Merci, mais... Winsock c'est aussi un composant additionnel.
J'ai demandé : sans composant, avec le code ou les objets de base !!!
Car mettre Winsock à la place de WebBroser, ben... heu...
Bonjour,
Merci, mais... Winsock c'est aussi un composant additionnel.
J'ai demandé : sans composant, avec le code ou les objets de base !!!
Car mettre Winsock à la place de WebBroser, ben... heu...
Bonjour,
Merci, mais... Winsock c'est aussi un composant additionnel.
Bonjour,
Merci, mais... Winsock c'est aussi un composant additionnel.
Bonjour,
Merci, mais... Winsock c'est aussi un composant additionnel.
Ahhhhhhhhh.... merci Jean-Marc, ça c'est du renseignement comme je
les aime, c'est du renseignement clef-en-main, on fait un copier
coller et ça marche !!!
Remarques : heureusement que tu me l'as fait car j'aurais eu bien du
mal :o)
Je présume que ça marche, t'as dû essayer...
Merci beaucoup, au revoir et à bientôt :o)
Ahhhhhhhhh.... merci Jean-Marc, ça c'est du renseignement comme je
les aime, c'est du renseignement clef-en-main, on fait un copier
coller et ça marche !!!
Remarques : heureusement que tu me l'as fait car j'aurais eu bien du
mal :o)
Je présume que ça marche, t'as dû essayer...
Merci beaucoup, au revoir et à bientôt :o)
Ahhhhhhhhh.... merci Jean-Marc, ça c'est du renseignement comme je
les aime, c'est du renseignement clef-en-main, on fait un copier
coller et ça marche !!!
Remarques : heureusement que tu me l'as fait car j'aurais eu bien du
mal :o)
Je présume que ça marche, t'as dû essayer...
Merci beaucoup, au revoir et à bientôt :o)
Parfait, merci :o)))
Voici le programme final :
Parfait, merci :o)))
Voici le programme final :
Parfait, merci :o)))
Voici le programme final :
Ahhhhhhhhh.... merci Jean-Marc, ça c'est du renseignement comme je les
aime,
c'est du renseignement clef-en-main, on fait un copier coller et ça marche
!!!
Remarques : heureusement que tu me l'as fait car j'aurais eu bien du mal
:o)
Je présume que ça marche, t'as dû essayer... je te dirai...
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jean-marc" a écrit dans le message de news:
48b94bd2$0$2849$
| LE TROLL wrote:
| > Bonjour,
| >
| > Merci, mais... Winsock c'est aussi un composant additionnel.
|
|
| Le plus simple : utiliser l'API URLDownloadToFile
|
| voici par exemple :
|
| Option Explicit
|
| Private Declare Function URLDownloadToFile Lib "urlmon" Alias
| "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String,
ByVal
| szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
| Long
| Private Const SW_SHOWNORMAL = 1
| Private Declare Function ShellExecute Lib "shell32.dll" Alias
| "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
| lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String,
| ByVal nShowCmd As Long) As Long
|
| Function downloadFile(ByVal szUrl As String, ByVal szFile As String) As
| Boolean
| Dim ret As Long
|
| ret = URLDownloadToFile(0, szUrl, szFile, 0, 0)
|
| If ret = 0 Then
| downloadFile = True
| Else
| downloadFile = False
| End If
| End Function
|
| Private Sub Form_Load()
| Dim ret As Boolean
|
| ret = downloadFile("http://perso0.free.fr/cgi-bin/meteo.pl?depu",
| "meteo.gif")
|
| If ret Then
| ' dans une picturebox
| Picture1.Picture = LoadPicture("meteo.gif")
| ' dans une image
| Image1.Picture = LoadPicture("meteo.gif")
| ' ou ouvrir avec l'appli associée au .gif
| ShellExecute Me.hwnd, "open", "meteo.gif", vbNullString, "",
| SW_SHOWNORMAL
| ' ou tout autre traitement.
| End If
| End Sub
|
| L'image retournée est un .gif. Tu peux mettre le nom
| de fichier de ton choix, mais l'extension doit etre .gif.
|
| --
| Jean-marc Noury (jean_marc_n2)
| Microsoft MVP - Visual Basic
| FAQ VB: http://faq.vb.free.fr/
| mailto: remove '_no_spam_' ;
|
|
|
|
Ahhhhhhhhh.... merci Jean-Marc, ça c'est du renseignement comme je les
aime,
c'est du renseignement clef-en-main, on fait un copier coller et ça marche
!!!
Remarques : heureusement que tu me l'as fait car j'aurais eu bien du mal
:o)
Je présume que ça marche, t'as dû essayer... je te dirai...
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jean-marc" <jm@nowhere.invalid> a écrit dans le message de news:
48b94bd2$0$2849$ba620e4c@news.skynet.be...
| LE TROLL wrote:
| > Bonjour,
| >
| > Merci, mais... Winsock c'est aussi un composant additionnel.
|
|
| Le plus simple : utiliser l'API URLDownloadToFile
|
| voici par exemple :
|
| Option Explicit
|
| Private Declare Function URLDownloadToFile Lib "urlmon" Alias
| "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String,
ByVal
| szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
| Long
| Private Const SW_SHOWNORMAL = 1
| Private Declare Function ShellExecute Lib "shell32.dll" Alias
| "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
| lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String,
| ByVal nShowCmd As Long) As Long
|
| Function downloadFile(ByVal szUrl As String, ByVal szFile As String) As
| Boolean
| Dim ret As Long
|
| ret = URLDownloadToFile(0, szUrl, szFile, 0, 0)
|
| If ret = 0 Then
| downloadFile = True
| Else
| downloadFile = False
| End If
| End Function
|
| Private Sub Form_Load()
| Dim ret As Boolean
|
| ret = downloadFile("http://perso0.free.fr/cgi-bin/meteo.pl?depu",
| "meteo.gif")
|
| If ret Then
| ' dans une picturebox
| Picture1.Picture = LoadPicture("meteo.gif")
| ' dans une image
| Image1.Picture = LoadPicture("meteo.gif")
| ' ou ouvrir avec l'appli associée au .gif
| ShellExecute Me.hwnd, "open", "meteo.gif", vbNullString, "",
| SW_SHOWNORMAL
| ' ou tout autre traitement.
| End If
| End Sub
|
| L'image retournée est un .gif. Tu peux mettre le nom
| de fichier de ton choix, mais l'extension doit etre .gif.
|
| --
| Jean-marc Noury (jean_marc_n2)
| Microsoft MVP - Visual Basic
| FAQ VB: http://faq.vb.free.fr/
| mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
|
|
|
|
Ahhhhhhhhh.... merci Jean-Marc, ça c'est du renseignement comme je les
aime,
c'est du renseignement clef-en-main, on fait un copier coller et ça marche
!!!
Remarques : heureusement que tu me l'as fait car j'aurais eu bien du mal
:o)
Je présume que ça marche, t'as dû essayer... je te dirai...
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jean-marc" a écrit dans le message de news:
48b94bd2$0$2849$
| LE TROLL wrote:
| > Bonjour,
| >
| > Merci, mais... Winsock c'est aussi un composant additionnel.
|
|
| Le plus simple : utiliser l'API URLDownloadToFile
|
| voici par exemple :
|
| Option Explicit
|
| Private Declare Function URLDownloadToFile Lib "urlmon" Alias
| "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String,
ByVal
| szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
| Long
| Private Const SW_SHOWNORMAL = 1
| Private Declare Function ShellExecute Lib "shell32.dll" Alias
| "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
| lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String,
| ByVal nShowCmd As Long) As Long
|
| Function downloadFile(ByVal szUrl As String, ByVal szFile As String) As
| Boolean
| Dim ret As Long
|
| ret = URLDownloadToFile(0, szUrl, szFile, 0, 0)
|
| If ret = 0 Then
| downloadFile = True
| Else
| downloadFile = False
| End If
| End Function
|
| Private Sub Form_Load()
| Dim ret As Boolean
|
| ret = downloadFile("http://perso0.free.fr/cgi-bin/meteo.pl?depu",
| "meteo.gif")
|
| If ret Then
| ' dans une picturebox
| Picture1.Picture = LoadPicture("meteo.gif")
| ' dans une image
| Image1.Picture = LoadPicture("meteo.gif")
| ' ou ouvrir avec l'appli associée au .gif
| ShellExecute Me.hwnd, "open", "meteo.gif", vbNullString, "",
| SW_SHOWNORMAL
| ' ou tout autre traitement.
| End If
| End Sub
|
| L'image retournée est un .gif. Tu peux mettre le nom
| de fichier de ton choix, mais l'extension doit etre .gif.
|
| --
| Jean-marc Noury (jean_marc_n2)
| Microsoft MVP - Visual Basic
| FAQ VB: http://faq.vb.free.fr/
| mailto: remove '_no_spam_' ;
|
|
|
|