Andre_2008

Nem precisa mais resolvi sozinho

Pessoal sei fazer um redirecionamento manual de um link em meu site, mais queria criar uma pagina que fizesse varios redirecionamentos em bbcode. Exemplo igual a esse site: http://abbrr.com Ele chama de abreviação do link um link que seja imenso fica reduzido com redirecionamendo deles Exemplo: http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= reduzido ou redirecionado como preferirem: http://abbrr.com/y0a Seia muito dificil criar um java igual dessa pagina?mudando o bbcode Exemplo: [ url=link][ image]link da imagem[/image][/link] para: [ url=site que eu criei][ image]link da imagem[/image][/link] fazendo esse processo com diversos links simultaneos, alguém pode me ajudar por favor isso é importante.. Att. André

Muito obrigado Micheus, pensei que eu tivesse feito algo errado, na verdade tinha ate tentado não postar aqui para não encher você. Também estou insistindo em aprender porque só se aprender a programar programando, junto com estudo que já venho fazendo. A ajuda esta sendo muito importante, sob o resultado vou ver se consigo fazer (Url + 1) - (no caso foi a função que você já fez offset := 1) algo assim no listbox para ele não limpar e sim somar um com outro... Chegando em casa vou testar o codigo!! Valeu pela ajuda!!

depois que coloquei o codigo declarei na uses a função StrUtils para PosEx mais o programa agora trava e não dá resposta nenhuma quando tento fecha-lo diz que esta fazendo "Debug", deixei uns 10 minutos e nada o delphi não trava trava o .exe do projeto.. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, Grids, ValEdit, StrUtils; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Panel2: TPanel; Panel1: TPanel; Button1: TButton; ComboBox1: TComboBox; ComboBox2: TComboBox; ComboBox3: TComboBox; Label1: TLabel; Pais: TLabel; Buscador: TLabel; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var google_br, a, b, c, Altavista_br, yahoo, resultado, brasil, url : string; PosHttp, OffSet : integer; begin resultado := resultado; google_br := 'http://www.google.com.br/search?hl=pt-BR&q='; Altavista_br := 'http://br.altavista.com/web/results?itag=ody&q='; brasil := 'http://www.google.com.br/search?hl=pt-BR&q='; yahoo := 'http://br.search.yahoo.com/search?p='; a := 'delphi'; b := 'teste'; c := 'delphphp'; if (ComboBox1.Items.Strings[ComboBox1.Itemindex]= '') and (ComboBox2.Items.Strings[ComboBox2.Itemindex] = '')and (ComboBox3.Items.Strings[ComboBox3.Itemindex] = '')then begin showmessage('Você precisa selecionar as 3 opções!' ) end; if (ComboBox1.Items.Strings[ComboBox1.Itemindex] = 'a') and //opções cambobox (ComboBox2.Items.Strings[ComboBox2.Itemindex] = 'google')and (ComboBox3.Items.Strings[ComboBox3.Itemindex] = 'Brasil')then begin resultado := google_br + a; end; if (ComboBox1.Items.Strings[ComboBox1.Itemindex] = 'a') and (ComboBox2.Items.Strings[ComboBox2.Itemindex] = 'Altavista') and (ComboBox3.Items.Strings[ComboBox3.Itemindex] = 'Brasil') then begin resultado := Altavista_br + a; end; if (ComboBox1.Items.Strings[ComboBox1.Itemindex] = 'a') and (ComboBox2.Items.Strings[ComboBox2.Itemindex] = 'Yahoo') (ComboBox3.Items.Strings[ComboBox3.Itemindex] = 'Brasil') then begin resultado := Yahoo + a; end; caption := resultado; OffSet := 1; // começamos do início do resultado PosHttp := PosEx('http://', resultado, OffSet); while PosHttp > 0 do begin Delete(resultado, 1, PosHttp -1); // apagamos o que está antes do que interessa PosHttp := PosEx('/', resultado, 8); // procuramos pela "/" após o "http://" (7 caracteres) URL := Copy(resultado, 1, PosHttp); // copiamos o endereço até a "/" ListBox1.Items.Add(URL); // aqui você insere esta URL no componente de lista que quiser PosHttp := PosEx('http://', resultado, OffSet); // a partir da última posição, busca o próximo http:// end; end; procedure TForm1.Button3Click(Sender: TObject); begin end; procedure TForm1.FormCreate(Sender: TObject); begin // adiciona itens ao ComboBox ComboBox1.Items.Add('a'); ComboBox1.Items.Add('b'); ComboBox1.Items.Add('C'); ComboBox2.Items.Add('google'); ComboBox2.Items.Add('Altavista'); ComboBox2.Items.Add('Yahoo'); ComboBox3.Items.Add('Brasil'); end; end. Desculpe tantas perguntas e questoes mais não sei mais o que fazer, nem resultado no listbox e agora trava meu projeto...

pow cara nem sei como agradecer vou ver e alem disso vou estudar a rotina para enteder como fez para chegar no resultado. Estou aprendendo a programar agora e tenho diversos conteudos livros de delphi apostilas tudo estou tentando consumir o maximo possivel, algumas variaveis ainda são novas para mim mais agradeço demais a sua ajuda pois esta sendo muito util realmente!!

String (var resultado: string;)normal esta em um webrowser(WebBrowser1.Navigate(resultado);) ai aparece a real tela do google com o resultado como um navegador, não tenho necessidade disso queria apenas o links por isso disse do valuelisteditor pois acho que ele será possivel fazer isso queria assim o valuelisteditor link capturado www.xxx.com ok www.xxx2.com ignorado www.xxx3.com ok Deu para imaginar +- Micheus?

Micheus, eu entendi a ideia mais não consegui colocar em pratica ainda por alguns aspectos.. Pedi para pesquisar "teste" por exemplo no google, ai ele me retorna esse resultado no navegador: http://www.google.com.br/search?hl=pt-BR&a...vision&cd=1 Ai gostaria que ele pegasse todos os links do resultado exemplo: Ai o programa vai nas urls ou salvas as urls com a dica que você mencionou, eu tenho a variavel da pesquisa chamada "resultado" que poderia chamar ela, mais o programa entenderia que seria para salvar o resultado da pesquisa e não os links conseguidos pela pesquisa... Pela sua dica entendi como ignorar a sintaxe depois da 2 "/" do dominio... O processo seria: No caso teria um capo abaixo como o valuelisteditor que me mostraria os links se foram capturados ou não... O resultado(os links da pesquisa que pedi) exportar em txt.. Ficou mais facil de entender o projeto?Apesar de sua ajudar ter ajudado muito pois as funções do delphi não sei bem o fazem são muitas tirando o help do delphi teriam outro local para saber o que cada uma faz? Muito obrigado pela resposta! André

Muito Obrigado Micheus!!!!!!!!! vou testar o codigo e retorno aqui o resultado!

Bom mais uma duvida que tenho como estou começando desculpe pelas inumeras duvidas na verdade antes de postar eu procuro bastante tanto portugues como ingles. Vou explicar de forma detalhada: gostaria que o delphi fizesse o seguinte, consultasse uma pagina do google com uma pesquisa, feita a pesquisa o resultado são links com muitas paginas então..(essa parte eu já consegui só que mostrando em um webrowser e não é o que queria na verdade) Queria que ele salvasse todas as urls da sequinte forma: link resultado seria igual a esse http://www.humanmetrics.com/cgi-win/JTypes2.asp queria que ele ignorasse o cgi-win/JTypes2.asp salvando apenas até o index.php seria isso http://www.humanmetrics.com/ os resultados queria que fossem aparecendo dentro de um campo, suponho que o mais adequado seriam o valuelisteditor que contem o campo "key" e o campo e "Value" o key mostraria os links e o value 2 valores "url salva" ou não "salva" e o resultado salvar em txt, seria possivel isso? assim url salvo www.xxx.com salvo www.xx2.com ignorado Muito itens até sei montar com alguns erros, esse não tenho nem ideia de como fazer um geturl talvez não sei bem fiquei em duvida.. Quem puder ajudar agradeço!!

Realmente está muito confuso o seu raciocínio, mas veja se é isto que está querendo // Para uma seleção determinada procedure TForm1.Button1Click(Sender: TObject); begin if (ComboBox1.Items.Strings[ComboBox1.Itemindex] = 'A') and (ComboBox2.Items.Strings[ComboBox2.Itemindex] = 'F') then begin showmessage('opção escolhida : A + F ' ) end; end; // Para qualquer seleção escolhida procedure TForm1.Button2Click(Sender: TObject); begin showmessage('opção escolhida :' + ComboBox1.Items.Strings[ComboBox1.Itemindex] + ' + ' + ComboBox2.Items.Strings[ComboBox2.Itemindex]); end; abraço era exatamente isso que eu queria muito obrigado novamente!!

assim: combobox1 tem a opção a, b e c combobox2 tem a opção c, d e f para efetuar uma pesquisa na web precisa definiar combobox 1 e 2 mais não sei definiar as condições do segundo "combinando" com o primeiro exemplo combobox1 "A" + combobox2 "F" = pesquisa Para definir apenas um eu usei a opção if, existe como definir 2 condições no if? ex: If combobox1.text = 'alguma escolha' and combobox2.text = 'segunda escolhe' then (variavel) - resultado := opção1 + opção2; Melhorou a pergunta? Obrigado par

Estou com um problea estou usando o Combobox para escolher opções então fiz o seguinte: criei combobox1, combobox2 e combobo3 Queria saber se é possivel isso If combobox1.text = 'alguma escolha' and combobox2.text = 'segunda escolhe' then (variavel) - resultado := opção1 + opção2; como faço isso?tentei outras condições e tb não consegui... Obrigado

exatamente Ao final do projeto, basta gerar o pacote de instalação da aplicação na web. Sua aplicação feita em Delphi for PHP poderá ser executada em qualquer plataforma com PHP (Linux, Windows, Solaris etc). Valeu cara pela ajuda, pena não ter livro, nem muito assunto dele por ai e muitas pessoas reprovando o delphi for php vou dar uma fuçada obrigado!

Sugiro a voce usar o delphi for php http://br-linux.org/linux/delphi-para-php abraço Jhonas obrigado pela resposta, tenho outra duvida se puder me ajudar agradeço novamente Apenas esse delohi for php pode ser feito o que eu preciso ou o delphi win32 faz tb?OU O delphi for php faz de modo mais facilmente o que preciso? Pode-se colocar codigos java nele pelo que li e escripts php dentro do programa ou ele gera paginas em php?porque não entendi se ele gera programas ou paginas pergunta estupida eu sei mais vi algumas pessoas rodando em paginas com host local e não programas como nos exemplos do delphi win32 Obrigado!

Bom pessoal a duvida e bem de iniciante mesmo, estou estudando delphi sql lendo tudo que é possivel comprei algumas video aulas então estou absorvendo tudo que posso desse mundo de programação, sei tb que não vou aprender o que vocês sabem em 1 semana, nem é minha ambição mais quero conhecer coisas novas!! Estou com um projeto que um programa navegará na internet e fará algumas coisas automatizadas, ex um login no meu email pessoal, pegar informações e salvar em txt..esse projeto não é para venda nem nada apenas teste e aperfeiçoamento de conhecimentos. Qual delphi vocês me indicam?porque assim sei que tem o delphi 7 tem a possibilidade de fazer aplicativos web, e tem o delphi para php, queria saber qual é o extato para isso e se para essas coisas eu preciso de banco de dados Ps. na navegação ele não mostrará o browser apesar retornara informação que pegou exportando em txt Obrigado a todos!