[Ajuda] WebBrowser Pré Definido

Delphi

11/10/2010

Olá primeiramente
então pessoal estou com um problema , sou novato na área do delphie estou pensando em fazer um pequeno negócio mais não estás dando certo
estou usando um corpo como se fosse de um WebBrowser
mais é o seguinte na barra de endereços gostária de colocar um endereço padrão , exemplo quando eu abro ele mostra o site msn.com que já é definida pelo meu firefox , mais eu queria que ele começa-se com uma imagem conforme a pessoa digita-se o código aparecia oque ela desejava exemplo
minha dúvida é o seguinte
WebBrowser1.Navigate('ComboBox1.Text');

ai ele vai tirar o site que eu digitei na barra quando eu aperto enter ele vai aparecer normal
mais eu queria deixar um site definido exemplo
http://umsite.com/('NUMERO_QUE_A_PESSOA_DIGITOU').html

ai exemplo quando ele digita esse número exemplo 01 ai ele vai cair em uma página que eu criei no meu site exemplo http://umsite.com/01.html
é bem simples oque eu quero , eu é que não sei como efetuar issoseria mais para meu site , a pessoa digita o número e aparece a página que eu criei
e tambem só mais uma pergunta gostária de retirar o corpo do webbrowser gostária de retirar as "scroll" aquelas barrinhas para descer e subir , queria deixar o formulário liso ou até mesmo a útilização de um componente "Memo" mais não sei como colocar isso como corpo para um navegador
então é isso se tiver como colocar imagem por cima dos furmulário para mim montar uma estrutura , colocar imagens por cima de tipo um webbrowser componente ou coisa do tipo
então quem poder fazer isso pra mim fico grato eu já tenho tudo certinhosó você fazer o método pra mim porque eu sei se alguem me explicar não vou entender nadica de nada ;)
Mirros - Opções - Source - Projeto


http://rapidshare.com/files/424253491/projetonavegador.rar

http://www.mediafire.com/?p2dc9yr1qu98u37
Estou grato a aqueles que me ajudarem  :) 
 
Lucas Henrique

Lucas Henrique

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

11/10/2010

Crie um botão em seu browser, e coloque o seguinte código:

if Edit1.Text='1' then begin//neste local você pode colocar o seu combobox
WebBrowser1.Navigate('http://www.google.com.br');//página que você definiu para o numero 1
end else begin
WebBrowser1.Navigate('http://');//página defaut;
end;

GOSTEI 0
Lucas Henrique

Lucas Henrique

11/10/2010


  não ficou do jeito que eu queria
e não ficou como página default.
se você conseguir fazer usando o projeto ficarei grato
exemplo quero tipo assim vou tentar explicar
tenho um diretório exemplo FORUM
ai vamo supor ele tem um valor pré definido exemplo
WebBrowser1.Navigate('http://www.google.com.br') mais automáticamente já com o .html no final
exemplo 
WebBrowser1.Navigate('http://www.google.com.br')('AI AQUI FAZ A QUERY DO VALOR DIGITADO NA BARRA').html
ai automáticamente ele já vem com o html no final , e quando eu digito exemplo 01 ai ele já vai cair automáticamente na pagina www.google.com.br/01.html
entendeu?

é bem simples já vi pessoas que fizeram isso exemplo o Cine Turbo , ele útiliza delphi tambeme faz os mesmos procedimentos

GOSTEI 0
Lucas Henrique

Lucas Henrique

11/10/2010

agora eu consegui , nossa obrigadão desculpe pelo duple post
mais ficou bem fix mesmo
único problema é que antes de abrir o programa queria que já fica-se em uma página e mostrando o catalogo que eu já tenho pronto em um site  mais só que ele começa com a pagina inicial do internet explorer e tal ;)
mais ta muito legalzinho mesmo , e mais uma coisa sabes como posso tirar os Scrolls da Componente WebBrowser?
quero deixar liso , sem bordas e tal
valeu ;)
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

11/10/2010

Tente assim


begin
  // .. 

  with WebBrowser1.Document.Body.Style do
  begin
    OverflowX := 'hidden';
    OverflowY := 'hidden';
  end; { with WebBrowser1 }

  // ..
end;


Você pode achar mais coisas aqui: http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm
GOSTEI 0
Lucas Henrique

Lucas Henrique

11/10/2010

então não consegui usar esse seu comando , como devo útiliza-lo ?precisso retirar as scrolls
eu queria deixar a barra transparente você sabe como ?
achei desnecessário criar um tópico novo , e útilizar este

ali na barra de pesquisa queria deixar da cor do fundo o componente edit deixa-lo transparente , está funcionando certinho até o botão "OK"

e não acho nada sobre frames no delphi , chamar está função quando eu precisso sem necessidade de criar outro menu
exemplo eu clico em canais , ai ele chama o frame e aparece por cima com a lista ai a pessoa clica no escolhido e joga para o webbrowser
isso já sei fazer o problema é que não sei chamar o frame e tambem quando eu chamo um não consigo fechar exemplo criei um botao para fechar usando Close; , mais ele em vez de fechar só o frame ele fecha a aplicação enteira

e tambem estava fazendo o efeito "hover" exemplo eu passo o mouse por cima e ele muda de imagem
exemplo tem uma imagem passo o mouse por cima ela muda , estou usando oimage1.picture.loadfromfile( 'Diretório da foto.jpg ' )

porém quando passo o mouse por cima no evento "ONmoveMouse" ele da um erro no aplicativo

e tambem se é possivel definir a página inicial do webbrowser eu não estou conseguindo , eu quero que ele já comece em uma determinada página entende? ele começa na página default do internet explorer e eu não quero isso
então só isso espero não estar pertubando 
 

[img]http://img683.imageshack.us/img683/5969/megaxa.png[/img]
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

11/10/2010

Vamos por parte:

1 - Scrolls: Encontrei isto aqui, Você deverá ter dois botões, e colocar um comando no evendo de seu web browser Document complete

procedure Seu_formulário.WBDocumentComplete (Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); pDisp const: IDispatch; var url: OleVariant); begin Desligar as barras de rolagem! while WB.ReadyState <> READYSTATE_COMPLETE do enquanto WB.ReadyState> Application.ProcessMessages; Application.ProcessMessages; / / Isso é o que transforma as barras de rolagem em hide! WB.OleObject.document.body.style.overflowX := 'hidden'; WB.OleObject.document.body.style.overflowX: = 'hidden'; WB.OleObject.document.body.style.overflowY := 'hidden'; WB.OleObject.document.body.style.overflowY: = 'hidden'; end; efeito; procedure Seu_formulário.Seu_botao1(Sender: TObject); WB.OleObject.document.parentWindow.scrollBy(0,-100); WB.OleObject.document.parentWindow.scrollBy (0, -100); end; efeito; procedure Seu_formulário.seu_botao2(Sender: TObject); begin WB.OleObject.document.parentWindow.scrollBy(0,100); WB.OleObject.document.parentWindow.scrollBy (0100); end; efeito;


2- Frame: Bom se você ja sabecriar um frame, após ter criado o mesmo, você terá que colocar um componente no formulario que você deseja que o frame seja mostrado, o componente você encontra na paleta Standard, é o primeiro item chamado "FRAMES". Após você colocar este componete em seu formulario irá abrir uma janela para que você possa selecionar o frame respectivo para seu formulario. Após ter selecionado seu Frame, na guia propriedades encontre a opção Visible e coloque False.
//este comando faz acom que seu frame apareça
Frame231.Visible:=true;

//no frame você podera colocar um buttom e o seguinte codigo
nomedoseuframe.Visible:=false;


3-Botão com imagem
acho que este artigo vai resolver o problema.

GOSTEI 0
Lucas Henrique

Lucas Henrique

11/10/2010

obrigado amigo, então está ficando legal
em questão do edit eu queria deixa-lo transparente , botões de imagens foram tranquilos
agora acho que para finalizar "acho eu"
só falta o efeito over quando passa o mouse por cima muda de imagem , e o edit transparente para que eu crie um campo de pesquisa útilizando a imagem , exemplo ele só fica totalmente transparente
então obrigado pela colaboração
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

11/10/2010

O seu problema para o botão de pesquiza ;e muito facil, você apenas precisará colocar o Edit da cor da sua imagem designado para pesquiza, após realizar isso você irá na propriedade do Edit chamada de : border Style: você colocara o valor: BsNone.
O efeito over você manipula ele na guia propriedades chamda de OnmouseMove.
GOSTEI 0
POSTAR