 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
marcieldeg
Colaborador
Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
|
 Enviada: Ter Jan 17, 2012 2:42 pm Assunto: TWebBrowser + proxy |
 |
|
| Como configurar o proxy para o componente TWebBrowser? Testei vários exemplos pegos pela internet e nada... |
|
| Voltar ao Topo |
|
 |
leogazio
Colaborador
Registrado: Domingo, 18 de Fevereiro de 2007
Mensagens: 1047
Localização: Alto Paraná - PR
|
| Enviada: Ter Jan 17, 2012 7:49 pm Assunto: Re: TWebBrowser + proxy |
|
|
| marcieldeg escreveu: | | Como configurar o proxy para o componente TWebBrowser? Testei vários exemplos pegos pela internet e nada... |
Cara o TWebBrowser usa o Internet Explorer, sendo assim a configuração de proxy deve ser feita no Internet Explorer...
_________________
Leonardo Gazio - Consultoria e Suporte a Desenvolvedores.
Suporte para todo o Brasil via;
E-mail: leonardogazio@delphimasters.com
Msn: lngsmattos@hotmail.com
Claro: (21) 7301-7243 |
|
| Voltar ao Topo |
|
|
marcieldeg
Colaborador
Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
|
| Enviada: Qua Jan 18, 2012 7:48 am Assunto: |
|
|
Bom dia,
Eu preciso configurar na aplicação.
Usando a WinInet até consegui configurar proxy e porta, mas não consegui configurar usuário e senha.
Estou tentando usar esse código, adaptado do componente TEmbeddedWB.
| Código: | uses WinInet;
function SetProxy(UserAgent, Address, UserName, Password: string;
Port: Integer): Boolean;
var
list: INTERNET_PER_CONN_OPTION_LIST;
dwBufSize: DWORD;
hInternet, hInternetConnect: Pointer;
Options: array [1 .. 3] of INTERNET_PER_CONN_OPTION;
begin
Result := False;
dwBufSize := SizeOf(list);
list.dwSize := SizeOf(list);
list.pszConnection := nil;
list.dwOptionCount := High(Options);
Options[1].dwOption := INTERNET_PER_CONN_FLAGS;
Options[1].dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
Options[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
Options[2].pszValue := PChar(Address);
Options[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
Options[3].pszValue := '<local>';
list.pOptions := @Options;
hInternet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_DIRECT, nil,
nil, 0);
if hInternet <> nil then
try
hInternetConnect := InternetConnect(hInternet, PChar(Address), Port,
PChar(UserName), PChar(Password), INTERNET_SERVICE_HTTP, 0, 0);
if hInternetConnect <> nil then
begin
Result := InternetSetOption(hInternet,
INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
Result := Result and InternetSetOption(hInternet,
INTERNET_OPTION_REFRESH, nil, 0);
end;
finally
InternetCloseHandle(hInternet)
end;
end; |
|
|
| Voltar ao Topo |
|
|
leogazio
Colaborador
Registrado: Domingo, 18 de Fevereiro de 2007
Mensagens: 1047
Localização: Alto Paraná - PR
|
| Enviada: Qua Jan 18, 2012 12:20 pm Assunto: |
|
|
| marcieldeg escreveu: | Bom dia,
Eu preciso configurar na aplicação.
Usando a WinInet até consegui configurar proxy e porta, mas não consegui configurar usuário e senha.
Estou tentando usar esse código, adaptado do componente TEmbeddedWB.
| Código: | uses WinInet;
function SetProxy(UserAgent, Address, UserName, Password: string;
Port: Integer): Boolean;
var
list: INTERNET_PER_CONN_OPTION_LIST;
dwBufSize: DWORD;
hInternet, hInternetConnect: Pointer;
Options: array [1 .. 3] of INTERNET_PER_CONN_OPTION;
begin
Result := False;
dwBufSize := SizeOf(list);
list.dwSize := SizeOf(list);
list.pszConnection := nil;
list.dwOptionCount := High(Options);
Options[1].dwOption := INTERNET_PER_CONN_FLAGS;
Options[1].dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
Options[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
Options[2].pszValue := PChar(Address);
Options[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
Options[3].pszValue := '<local>';
list.pOptions := @Options;
hInternet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_DIRECT, nil,
nil, 0);
if hInternet <> nil then
try
hInternetConnect := InternetConnect(hInternet, PChar(Address), Port,
PChar(UserName), PChar(Password), INTERNET_SERVICE_HTTP, 0, 0);
if hInternetConnect <> nil then
begin
Result := InternetSetOption(hInternet,
INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
Result := Result and InternetSetOption(hInternet,
INTERNET_OPTION_REFRESH, nil, 0);
end;
finally
InternetCloseHandle(hInternet)
end;
end; |
|
Cara isso não tem nada a ver com o TWebBrowser, essa função faz a injeção do proxy no navegador que o TWebBrowser usa e o título do tópico e o texto do tópico em si não sugerem o que você quer... Sobre você não achar informação sobre na Internet, você deve estar usando palavras-chave erradas pra pesquisar, se você pesquisar no Google "TWebBrowser + Proxy" tenho certeza absoluta de que você não vai achar nada...
_________________
Leonardo Gazio - Consultoria e Suporte a Desenvolvedores.
Suporte para todo o Brasil via;
E-mail: leonardogazio@delphimasters.com
Msn: lngsmattos@hotmail.com
Claro: (21) 7301-7243 |
|
| Voltar ao Topo |
|
|
marcieldeg
Colaborador
Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
|
| Enviada: Qui Jan 19, 2012 7:32 am Assunto: |
|
|
Como não tem nada a ver? O TWebBrowser usa o Internet Explorer; estou tentando setar as configurações de proxy do Internet Explorer, logo por consequência setar as configurações do TWebBrowser.
Desculpe, mas sua última resposta não ajudou em nada. Que está errado eu já sei, pois não funcionou. Não precisa dizer isso se não vai sugerir uma solução.
Enfim, se alguém souber como fazer essa configuração, agradeço qualquer ajuda. |
|
| Voltar ao Topo |
|
|
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
|
| Voltar ao Topo |
|
|
leogazio
Colaborador
Registrado: Domingo, 18 de Fevereiro de 2007
Mensagens: 1047
Localização: Alto Paraná - PR
|
| Enviada: Qui Jan 19, 2012 12:13 pm Assunto: |
|
|
| marcieldeg escreveu: | Como não tem nada a ver? O TWebBrowser usa o Internet Explorer; estou tentando setar as configurações de proxy do Internet Explorer, logo por consequência setar as configurações do TWebBrowser.
Desculpe, mas sua última resposta não ajudou em nada. Que está errado eu já sei, pois não funcionou. Não precisa dizer isso se não vai sugerir uma solução.
Enfim, se alguém souber como fazer essa configuração, agradeço qualquer ajuda. |
Pô meu irmão! Você sabe ler português? Escrever eu vi que você sabe! Mas ler você sabe??
Vai por mim, o TWebBrowser usa o Internet Explorer maluco! Qualquer função ou rotina que você achar, o que ela vai fazer é injetar as configurações de proxy NO Internet Explorer, dá o teste aí depois abre o Internet Explorer e nas "Opções de Internet" você vai na aba conexões, vão estar lá as configurações que a sua função injetou meu amigo. Deu pra entender agora a minha língua meu irmão?
_________________
Leonardo Gazio - Consultoria e Suporte a Desenvolvedores.
Suporte para todo o Brasil via;
E-mail: leonardogazio@delphimasters.com
Msn: lngsmattos@hotmail.com
Claro: (21) 7301-7243 |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
