WebBrowser - paramétrage d'un proxy

Bonjour,

j'utilise l'activeX Microsoft Web browser et j'aimerai paramétrer un
proxy avant un >>Navigate. pour cela j'ai réalisé une fonction qui ne
me retourne pas d'erreur mais qui ne fonctionne pas !!!
Avez-vous une idée ?
Merci d'avance

PROCEDURE XWEB_Proxy(IpProxy="", Port="")
SI IpProxy="" ALORS
AppelDLL32("WININET.DLL", "InternetSetOptionA", 0,
INTERNET_OPTION_PROXY, 0, 0)
RETOUR
FIN

INTERNET_PROXY_INFO est un sINTERNET_PROXY_INFO

INTERNET_PROXY_INFO:dwAccessType=INTERNET_OPEN_TYPE_PROXY
INTERNET_PROXY_INFO:lpszProxy="http="+IpProxy+":"+Port
INTERNET_PROXY_INFO:lpszProxyBypass=""

SI PAS AppelDLL32("WININET.DLL", "InternetSetOptionA", 0,
INTERNET_OPTION_PROXY, &INTERNET_PROXY_INFO,
Dimension(INTERNET_PROXY_INFO)) ALORS
Trace(ErreurInfo())
FIN





CONSTANTE
INTERNET_OPEN_TYPE_PRECONFIG = 0
INTERNET_OPEN_TYPE_DIRECT = 1
INTERNET_OPEN_TYPE_PROXY = 3
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4

INTERNET_OPTION_REFRESH = 37
INTERNET_OPTION_PROXY = 38
INTERNET_OPTION_SETTINGS_CHANGED = 39
FIN

sINTERNET_PROXY_INFO est une structure
dwAccessType est entier
lpszProxy est string
lpszProxyBypass est string
FIN

--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "