2 RichEdit - Detector de link ( tipo msn )

[webrodex 0]

E o seguinte gostaria de saber o seguinte como eu faço isso tenho 2 RichEdit 1 aonde o usuario digita a mensagem e o outro RichEdit que a pessoa recebe as mensagem. Queria fazer o seguinte quando a pessoa digita no campo mensagem exemplo www.uol.com.br ou http://www.uol.com.br e quando envia a mensagem a mensagem vai para a parte recebida e aparece em azul com o link do site que a pessoa passou e se a pessoa clicar abre o site como posso fazer isso ! isso que quero fazer e tipo o msn quando agente manda um link para uma pessoa isso que quero saber ! Obrigado !!

[Paulo Afonso Cordeiro 0]

webrodexPrimeiro é preciso verificar o que é link, como site.com ou usuario@email.com e depois destacar a link de outra cor e no clique fazer com que o mesmo abra com o browser padrão ou programa de email.Nunca fiz coisa assim, vou tentar fazer e posto uma solução mais palpável.Vlz

[webrodex 0]

Tipo paulo tenho uma ideia tipo poderia fazer assim ele so pega os inicial tipo o valor quando digitão http://www.x ou www.x

[marcio.theis 3]

Veja neste link acredito que seja exatamente o que deseja fazer...

[webrodex 0]

Marcio seria isso mesmo que queria so que nao ta dando certo aki e tb baxei o codigo fonte que ja tem compactado eu coloco para copilar da erro eu tou usando o delphi 7 .Erros encontrados ao copilar !1 erro - Unable to create process : acesso negado2 erro - [Warning] Unit1.pas(78): Constant 0 converted to nilTa dando esses erro !

[marcio.theis 3]

Estranho... tb baixei aqui... e compilou e funcionou certinho... tenta corrigir esses erros...

[webrodex 0]

não ta dando certo nao marcio tentei reinstala o delphi 7 tb mas ta dando erro mesmo assim no delphi 2005 funcionu sera que nao tem outro exemplo para o delphi 7 eu preciso para o 7?

[marcio.theis 3]

Mas vai copiando os fontes e colocando em um novo projeto... para ver se o erro continua...

[webrodex 0]

Exatamente eu ja fiz isso tb ! ja tentei de tudo

[marcio.theis 3]

Você criou um programinha separado testando ? Caso sim, consegue disponibilizar para nós ?

[webrodex 0]

Marcio sim tem como eu disponibilizar sim segui aki o link http://www.jtweb.com.br/detecta_link.zip eu postei no arquivo winzip a foto do erro quando copilo tipo nao consigo criar o exe ve se acontece isso com você tb valew qualquer coisa me da resposta eu nao sei se pode ser meu windows tb ou componente do meu RichEdit ta correto mas instalei normal do delphi 7 qualquer coisa tem como so reinstalar ele ou pegar o componente ? obirgado estarei aguardando

[Vinicius Callegaro 0]

Compilei aqui e compilou certinho. O único probleminha é um Warning, porque a linha:

 

ShellExecute(Handle, 'open', PChar(sURL), 0, 0, SW_SHOWNORMAL);

Tem 0´s. É só trocá-los por nil, para não ter mais Warnigs:

 

ShellExecute(Handle, 'open', PChar(sURL), nil, nil, SW_SHOWNORMAL);

Sobre o erro de compilação: Você chegou a conseguir compilar alguma vez? Tem permissão de escrita no local onde está o fonte? Você não está com o executável aberto (Desculpa mas tenho que perguntar :P)

[marcio.theis 3]

Extranho... para mim o único problema que deu foi o mesmo que o Vinicius falou, no mais ele compilou e rodou certinho...

[Hugo Slepicka 0]

Bom, compilei na boa em casa e sem erros...

 

verifique o que foi dito pelos amigos acima...

 

e posta aew pra gente tentar te ajudar...

 

 

abraço!

 

 

feliz natal! http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif

[webrodex 0]

Bom galera meu pc tinha pegado virus por isso que nao tava dando certo coloquei no outro pc e funcionou beleza . E o seguinte nesse caso quando a pessoa clica abre o site ne eu teria que fazer o seguinte supor o meu site é www.jtweb.com.br quando a pessoa digita o link no rickedit teria que abrir no internet explorer assim exemplo ele digitou www.uol.com.brIra abrir assim no internet explorerwww.jtweb.com.br/link.php?=www.uol.com.brcomo faço isso essa e minha duvida ?

[Hugo Slepicka 0]

não tem como você mesclar o evento on click com o que verifica se é link???se o cara clicar e a palavra for um link ele chama o .php

[marcio.theis 3]

Mas isso você poderia fazer no esquema do ShellExecute, ali você pega o link e formata da forma desejada.

[webrodex 0]

Seria assim para abrir o link ?

 

ShellExecute(Handle, 'open', http://www.jtweb.com.br/link.php?=+PChar(sURL), nil, nil, SW_SHOWNORMAL);

[marcio.theis 3]

Ou então assim:

 

sURL:='http://www.jtweb.com.br/link.php?=' + CE.SelText;	 ShellExecute(Handle, 'open', PChar(sURL), 0, 0, SW_SHOWNORMAL);