Eder

Ola.. eu tou brincando com a seguinte situação: eu gostaria que pagina tivesse 1 input nele o usuario digitaria um nome exemplo: teste ai teria um botão: quando o usuario clickar no botão, ai ele formaria um link com a junção do nome do site+a barra de separação+input+.jpg ficando assim: http://www.site.com.br/teste.jpg ai abriria a imagem deste link... não sei se fui claro... muito Grato.

É pessoal acho que vou ter que adquirir um router já com wireless, esta na fxa de 200,00 Bom valeu..as dicas Grato Abraço

Ok..Grato...amigo abraço :)

Ola. Pessoal...hoje fui passar um anti spaware e ele encontrou um trojan dentro de uma aplicativo meu, ou seja eu criei o aplicativo, pois sou desenvolvedor delphi. a minha pergunta acho que é besta mas la vai rs... Neste caso pode o trojan entrar em meu aplicativo? bom...eu elimei o executavel e ai compilei o programa de novo ou seja criou um novo executavel, acredito que o ele não seja contaminado de novo... fiz o correto? ou tenho que fazer algo mais? Grato

Antonio44 .... carinha eu uso a dica do Micheus...e funciona perfeito no D4 abaixo a explicação de todo o processo, boa sorte :) : INSTALAR COMPONENTE TWEBBROWSER NO BRAÇO NO DELPHI 4 Dica do Micheus no Forum: http://scriptbrasil.com.br/forum/index.php...mp;#entry470561 O componente TWebBrowser é praticamente uma interface para o objeto existente no Windows: Microsoft Internet Controls Faça assim: - Vá no menu Component->Install Activex Control...; - Localize Microsoft Internet Controls (Version x.x). Observe que aparecerão em Class names: TWebBrowser_V1 e TWebBrowser; - Em Palette Page, escolha a paleta onde você deseja colocar o componente (padrão é Activex); - Em Unit Dir Name escolha o local para armazenar o fonte da unit que o Delphi irá gerar; - Click em Intall... e na tela que aparece defina em que package você quer guardar o componente - se em uma existente (pode ser a DCLUSRxx.DPK) ou em uma nova e click OK. - Na caixa que aparece (Package ... will bw rebuild. Continue?), click em Yes. ao final, você já poderá fechar o source do pacote. Ao acessar a paleta destino, você verá dois componentes sendo cada um correspondente a uma das classes que foram importadas. Se não houver nenhum imprevisto no caminho, é só utilizar o componente TWebBrowser em sua aplicação No delphi 4 ficaria assim: Insira o componente no form e depois use o codigo abaixo: procedure TForm1.Button7Click(Sender: TObject); var Flags, TargetFrameName, PostData, Headers: OleVariant; begin WebBrowser1.Navigate('www.terra.com.br', Flags, TargetFrameName, PostData, Headers); end; Carinha aqui...funcionou... Espero que ajude. Abraço :)

Ola.... pessoal...eu preciso colocar um codigo numa pagina que atualiza o cach do Squid. sei que para atualizar a pagina normalmente é: <meta http-equiv="refresh" content="15"/> porem eu precisava atualizar o cach do squid.. Tem um comando na mão que é o ctrl + f5 fiz uns teste e funciona legal... não tem algum codigo que eu coloque na pagina que simule este ctrl+f5? para não ficar fazendo na mão? Grato

Carinha....testei mas não deu certo... R.: este é o codigo que já uso. R: este não compreendi...e me perdi... :blush: Quanto ao erro, por acaso você teria trocado a versão do Indy deste o primeiro uso? O erro diz que a função não é conhecida. Pode ter sido removida ou estar em outra unit. Mas, aa pior das hipoteses, você pode criar ela na sua unit: CODE Function CreateUniqueID(HexMode:Boolean=True):String; Var A : Int64; Begin a := Trunc(Now*100000000); If HexMode Then Result := IntToHex(a,14) Else Result := IntToStr(a); Sleep(50); End; conforme a versão do seu Delphi, talvez você não possa usar o cabeçalho com a inicialização do parâmetro, então, retire a igualdade e na chamada à função passe o parâmetro (neste caso True). R. quanto ao erro que dava eu retirei a linha....e compilei sem problemas...e tudo funcionou. Ola...andei dando uma pesquisada na net e não achei nenhuma solução que não anexe a imagem como anexo....parece que quando eu insiro ela como o papel carta(logo) o codigo já põe como anexo também.. Bom acho que vou deixar por enquanto assim, e ficar dando uns bicos na net, derepente acho algo.. Mesmo assim..valeu.. Abraço

Ola...estou voltando a este tópico, porque alem de não conseguir nada até hoje a respeito de anexar a imagem no email. agora o codigo quando compilo da este erro nesta linha: imgID1 := CreateUniqueID; [Error] Unit1.pas(44): Undeclared identifier: 'CreateUniqueID' alguém sabe o porque do erro? quanto a anexar a imagem acontece o seguinte: o codigo funciona perfeito exceto pelo seguinte: ele anexa a imagem como anexo mesmo....eu não queria anexar a imagem como anexo e sim que ela apareça como logo no inicio do email...isto ele ta fazendo certinho...só que sempre anexa a imagem como anexo...e eu não queria....pois fica feio aparecer a logo no inicio...e ao final como ela aparece no anexo...aparece de novo no final do email. fiz assim: //Adiciona o HTML ao corpo da mensagem newText := TIdText.Create(IdMessage1.MessageParts,nil); newText.ContentType := 'text/html'; newText.Body.Add('<HTML><BODY>'); newText.Body.Add('<IMG SRC="cid:'+imgID1+'">'); // Troca imagens pelo ID unico newText.Body.Add('<H2>Teste de Envio de Email CORPO DO EMAIL</H2>'); newText.Body.Add('<p><hr></p><br>'+Memo1.Text); newText.Body.Add('</BODY><HTML>'); tentei mexer nesta parte mas não deu certo também: Grato

Ola.. tenho uma impressora que esta numa maquina que tem WinME e ela esta compartilhada certinho....por completo. quando tento instalar esta mesma impressora num notebook que tem WINVista na rede da o seguinte erro: O WINDOWS NÃO PODE SE CONECTAR A IMPRESSORA. Não foi possivel concluir esta operação: (erro: 0x00000866) o estranho é que ela aparece no notebook para ser instalada....só depois vem o erro quando tento instalar. O que pode ser? Grato

era problema com vírus.. :blush: valeu...muito grato

Ola... tenho um modem dlink 500 g. existe por acaso algum adaptador que eu posso blugar neste modem dlink e ai usar meu notebook via werelles? ou tenho que aposentar meu dlink500g e comprar um modem já wireless? Grato

Ok...Jonathan Ótimo Código, bem comentado. muito Obrigado :)

Ok...valeu.. Grato :)

Ok. Obrigado. :)

Ola...eu tenho vários inputs na pagina e gostaria de deixar dois deles sem que o usuário possa digitar algo, porque eles são o resultado de uma operação, por isto não podem ser digitados ou redigitados. muito Grato

Ola... Pessoal eu tenho uma pagina onde tem varios input´s e para manipula-los é usado o Tab. Tem como fazer funcionar com enter? Grato

R.: perdão Jonathan....é fácil este situação ...nem me toquei...era só alterar o codigo: resultado+=".0" Para este: resultado+="0" ai deu certo... Carinha...valeu..a força, muito grato pela ajuda... Grande Abraço :)

valeu..Jonathan...até que quase deu certo 100% exceto pelo seguinte calculo: quando o resultado for 27.50 ele não põe 27.50 e sim 27.5.0 que pena...somente por este detalhe... acredito que seja o IF não deve estar fechando com esta condição né? pelo que entendi o resultado é 27.5 e ai ele acrescente o .0 - distorcendo o resultado. tens ideia de como contornar esta situação? Muito Grato. Abraço

carinha...com números inteiros funciona perfeito...porem se não for inteiro sai incorreto. valeu...Grato.

Amigo.....teste e não deu certo....não sei se fiz correto. :blush: segue o codigo completo: <HTML><HEAD> <script language=JavaScript> <!-- function Arredonda(numero,casas){ if (numero-parseInt(numero)>0.5){ //O valor decimal é maior que 0.5 (sendo assim, aproxima para um inteiro com "x" casas decimais e soma 1 numero=1 }else{ numero=0 } numero+=parseInt(numero*10^casas)/10^casas } function CalcTotals() { var p1_Float = parseFloat(document.Form1.p1.value); var q1_Float = parseFloat(document.Form1.q1.value); var Total = 0; var resultado=p1_Float*q1_Float resultado = Arredonda(resultado, 2) document.Form1.SubTotal1.value = resultado; if (parseInt(resultado)==resultado){ document.Form1.SubTotal1.value+=".00" } } </SCRIPT> </HEAD> <BODY bgColor=#ffffff><FORM name=Form1> <TABLE width="829" align="center"> <TR> <TD vAlign="middle" align=middle width="105" bgcolor="#000099" style="border-width:1px; border-style:solid;"> <p align="right"><font color="white"><b>Frete Peso:</b></font></TD> <TD align=middle width="176" style="border-width:1px; border-style:solid;"> <p align="right"><INPUT onfocus="this.value=''" name="p1" size="8" style="text-align:right;"></TD> <TD align=middle width="245" style="border-width:1px; border-style:solid;"> <p align="right"><INPUT onfocus="this.value=''" name="q1" size="8" style="text-align:right;"></TD> <TD align=right width="277" style="border-width:1px; border-style:solid;">:<INPUT name=SubTotal1 style="text-align:right;" size="8"></TD></TR> <TR> <TD vAlign=top align=middle colSpan="4" width="823"></TD></TR> <TR> <TD vAlign=top align=middle width="107"> <p align="right">&nbsp;</TD> <TD align=middle width="178"> <p align="left">&nbsp;</p> </TD> <TD align=middle width="247"></TD> <TD align=right width="277" style="border-width:1px; border-style:solid;"><INPUT onclick=CalcTotals() type=button value="Calcular" name=Button1 style="font-weight:bold; color:navy; background-color:rgb(232,246,246); border-width:1px; border-style:solid;"> </TD></TR></TBODY></TABLE></FORM> <p>&nbsp;</p> </BODY></HTML> Grato

Jonathan....agora me perdi...não entendo quase nada de Javascript... pergunto: seria possivel você montar um código prontinho digamos 3 input´s somando o input1+input2=input3? porque ai eu visualizaria como você fez o exemplo e adaptaria a minha necessidade... :blush: muito Grato

Ola..Jonathan... fiz assim partindo da tua idéia: var totsicms = (subtot1+subtot2+ subtot3+subtot4); rtoticms = parseInt(totsicms*100)/100; document.Form1.Total.value = (rtoticms); funciona certinho....ele formata assim co duas casas decimais: 13.65 mas eu lhe pergunto... como o resultado anterior daria no total 13.649999 e ai ele arredondou para 13.65 mas no caso de dar um resultado assim: 13 ele não põe as casa decimais tipo assim: 13.00 fica só o 13 :blush: dentro daquele exemplo acima..teria como adaptar também .....ai ficaria beleza.... hoje ta saindo assim: note que fica feio assim.. seria legal ficar assim: muito Grato

Ola..estou usando este codigo abaixo...eu precisaria formatar o campo tipo assim: &lt;script language=JavaScript> <!-- function CalcTotals() { var p1_Float = parseFloat(document.Form1.p1.value); var q1_Float = parseFloat(document.Form1.q1.value); var Total = 0; document.Form1.SubTotal1.value = (p1_Float*q1_Float); } </SCRIPT> muito Grato

Ola.. um estranho programa ocorre numa rede com 2 computadores, os emails funcionam corretamente via outlook express, porem as paginas não abrem com se não tivesse internet nos dois computadores. alguém poderia me dizer o que pode estar acontecendo? nunca passei por isto antes. Seria alguém problema com o modem? Grato

Micheus....alterei conforme mencionou...e ai tentei adicionar o componente de novo...e deu outro erro: [Error] DSPack.pas(2556): Undeclared identifier: 'Get8087CW' valeu..Abraço