ActiveDelphi

[felovatto]

Saudações pessoal!!

Estou com uma dúvida, preciso acessar um determinado site da internet dentro de um form do delphi. O usuário deve clicar em um botão e o programa exibirá a página.
Pelo que andei pesquisando, vi que isso pode ser feito com componentes Indy Clients, mas não encontrei nenhum exemplo de como fazer isso. Por isso, peço a ajuda dos amigos do fórum.

Valeu,
Abraços.

[johnny-walker]

Usa o componente WebBrowser... que vc conseguirar o que quer...

WebBrowser1.Navigate(\'www.activedelphi.com.br\');

tem um exemplo de uma espécie de navegador no próprio delphi em demos é somente vc procurar...


bye...

_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[gustavocco]

Olá, nao se é o q vc precisa, mas vc pode utilizar o componente TWebBrowser da paleta Internet. E usar o procedimento Navigate dele, como parâmetro a ele vc passa o site q deseja.

Ex.:
WebBrowser1.Navigate(\'www.activedelphi.com.br\');

Abraço.
_________________
Top System - www.topsystem.com.br

[felovatto]

Valeu pessoal, é isso mesmo.

Utilizei o webbrowser1.navigate, mas percebi outro problema, minha conexão com a internet se dá através de uma autenticação no servidor proxy.
Existe uma maneira de fazer essa autenticação automaticamente? Ou seja, não ficar digitando usuário e senha para acessar?

Muito obrigado pela atenção de todos,
Abraços

[johnny-walker]

Uma perguntinha... o webBrowser é um wrapper do IE, assim ele deve utilizar as mesmas configuraçoes que ele ou estou errado?

bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[johnny-walker]

encontrei isso amigo tenta ai...
em http://www.delphipraxis.net/topic49594.html

var
MyInternetProxyInfo: PInternetProxyInfo;
lbResult: boolean;
begin
MyInternetProxyInfo := New(PInternetProxyInfo);
try
MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
MyInternetProxyInfo^.lpszProxy := PChar(\'127.0.0.1:80\');
MyInternetProxyInfo^.lpszProxyBypass := PChar(\'<local>\');
lbResult := InternetSetOption(nil, INTERNET_OPTION_PROXY, MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^));
if not lbResult then
raise Exception.Create(\'Couldn\'\'t apply proxy settings!\')
else
Webbrowser.Navigate(\'http://domain.com\');
finally
Dispose(MyInternetProxyInfo);
end;


bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[felovatto]

Valeu Johnny, mas eu não consegui descobrir como utilizar este código... onde devo usá-lo... e que devo alterar..

abraços,
T++

[felovatto]

Olá pessoALL,

Esse código ai encima faz o acesso à página, mas continua perguntando o usuário e senha. Existe algum lugar em que eu possa colocar o usuário e a senha, para que o próprio sistema insira essas informações automaticamente?
Esse é meu grande problema.

Valeu pela atenção,
abraços

[adriano_servitec]

Olah amigo, nao eh soh isso que vc deseja

Usei um label
procedure TFMenu.Label1Click(Sender: TObject);
var
endereconet, url: String;
begin
if InputQuery(\'Acesso a Internet\', \'Informe o site que deseja acessar:\'+#13+#13+endereconet,url)
then
OpenURLWithDefaultBrowser(url);
end;
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[felovatto]

Valeu amigo, mas não é isso... eu preciso acessar apenas um determinado endereço (não é preciso que o usuário digite o endereço). Na empresa em que trabalho, o acesso a internet é restrito a alguns usuários, a restrição é feita através de contas no servidor NT. Só quem pertence ao grupo internet tem acesso. Por isso é necessário fazer a autenticação no proxy.
O usuário que vai trabalhar com esse programa não possui acesso a internet. Por isso, preciso fazer com o Delphi utilize as configurações de usuário e senha de uma conta que possua o acesso. Mas o usuário não deve saber essa senha, ou seja, para o usuário isso deve ser transparente, ele apenas clica no botão \"enviar o arquivo\" e o site é aberto, sem a opção de digitar outro endereço.

Talvez eu não tenha me expressado bem anteriormente, mas acho que agora descrevi todos os detalhes. Então, se alguém tiver alguma idéia de como posso resolver esse problema, estou no aguardo.

Valeu novamente pela ajuda e pela atenção de todos