Teaga.txt

Mesmo resolvido segue o exemplo de como verificar cada elemento do formulario se é = a "", apenas tome cuidado pois se adicionar um botão tambem sera verificado: <script type='text/javascript'> function verifica(){ for(i = 0;ab.length > i;i++){ if(ab.elements[i].value == ""){ alert("Vaziu") ab.elements[i].focus() return } } } </script>

Não tenho a minima ideia de como fazer e nem como iniciar isso, alguém pode me dar um textinho aeee ?

já tentou em outro computador, pode ser configuração do seu, normalmente abre sozinho ele só naõ abre sozinho se ele perguntar se voce quer fazer download

Você verificou se a pagina que esta sendo chamada não esta chamando nenhum outro tipo de stile diferente de outro lugar ? ou se não ele não ta chamando mesmo os style ?

Como se fose um medidor de visitas, mais tem que ser programa

Me ajudem por favor me indiquem um programa bom, tenho um servidor de web aqui, rodando IIS 5.0, queria fazer um log e uma media de numero de pessoas que entram ... fazer um relatorio geral, tenho que trocar os servidores da empresa que o site fica lento, e sabendo mais ou menos o tanto de pessoas que entram eu consigo um servidor melhor ahahha me ajudem pessual o que que eu posso colocar para monitorar isso ? Eu tenho acesso ao servidor total, só descer lá e intalar

o codigo é assim, tenho um TextBox, onde a pessoa escreve o codigo html, eu pego o que esta no textbox e jogo numa variavel, ai eu queria gerar um PopUp com este html da variavel.

Então assim naõ fuinciona, o codigo é assim, tenho um TextBox, onde a pessoa escreve o codigo html, eu pego o que esta no textbox e jogo numa variavel, ai eu queria gerar um PopUp com este html da variavel.

é assim pessual, tenho o codigo html em uma "variavel" document.form1.txt.value, quero pegar este codigo html que esta nesta "variavel" e jogar ele num popUp tem como ?

é uma coisa simples ai vai, quando apertar o enter no teclado ele fazer a função do procedure TForm1.ButtonClick(Sender: TObject); begin Showmessage('Vai Capella !!!'); end; ou se ele apertar o Button fazer a mesma função

Bom, primeiro verifique todos os Gateway´s estão certos no Windows 98 ... Clica com o Botão direito em Redes, Propriedades ... Ai em Protocolo TCP/IP do modem ... Clica em propriedades ... lá não pode ter nada configurado nem ip nem gateway ... tenta fazer isso se não der fala de novo.

valeu ... FECHADO !!!

Tem como fazer no DELPHI 7, um programa que pega o valor de uma chave do registro do windows e coloca em uma MEMO ??? ex: O conteudo da pasta Run: HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run e me mostrar o seguinte no MEMO: MEMO1: NOME DO PRIMEIRO VALOR MEMO2: DADOS DO PRIMEIRO VALOR e assim por diante ... guardando em varios memos SE NÃO DER PARA ENTENDER EU ESPLICO DE NOVO !!!

Isso mesmo ... pode fechar o POST

tenho essa função para mandar colocar a mensagem num e-mail IdMessage.Body.Text := editMG.Text; como que faço para deixar a mensagem no meu e-mail aparecendo assim editMG.Text e editSP.Text e mais ou menso assim aparecer no meu e-mail o que esta escrito no editMG e o que ta escrito no editSP juntos na mensagem ...

Como que bloqueia um campo Tedit, ... ele aparece mais não da para selecionar ele ... HELP-ME

Bom tenho um programa que envia e-mail quando o cara clicar no enviar ... na barra de Status (TStatusBar) aparecer escrito no (Simple Text) escrito enviando ... só isso ...

AE ... deu ... fica assim o CODIGO unit Mail; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; edtPara: TEdit; Label2: TLabel; Label3: TLabel; edtCC: TEdit; edtCCO: TEdit; cbxConfirmaLeitura: TCheckBox; btnEnviar: TButton; Label4: TLabel; edtAssunto: TEdit; IdSMTP: TIdSMTP; IdMessage: TIdMessage; btnAnexar: TButton; mmAnexos: TMemo; odAnexos: TOpenDialog; cbxPrioridade: TComboBox; Label5: TLabel; Label6: TLabel; mmMensagem: TMemo; procedure btnAnexarClick(Sender: TObject); procedure btnEnviarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnEnviarClick(Sender: TObject); Var xAnexo : Integer; begin IdMessage.Recipients.EMailAddresses := edtPara.Text; IdMessage.CCList.EMailAddresses := edtCC.Text; IdMessage.BccList.EMailAddresses := edtCCO.Text; //Trata a Prioridade da mensagem Case cbxPrioridade.ItemIndex Of 0 : IdMessage.Priority := mpHigh; 1 : IdMessage.Priority := mpNormal; 2 : IdMessage.Priority := mpLow; End; IdMessage.Subject := edtAssunto.Text; IdMessage.Body.Text := mmMensagem.Lines.Text; if cbxConfirmaLeitura.Checked Then idmessage.ReceiptRecipient.Text := IDMessage.From.Text; // Auto Resposta //Tratando os arquivos anexos For xAnexo := 0 to mmAnexos.Lines.Count-1 do TIdAttachment.create(idmessage.MessageParts, TFileName(mmAnexos.Lines.Strings[xAnexo])); IdSMTP.Connect; Try IdSMTP.Send(IdMessage); Finally IdSMTP.Disconnect; Showmessage('Enviado'); End; end; procedure TForm1.btnAnexarClick(Sender: TObject); begin //Insere o nome do arquivo no memo mmAnexos if odAnexos.Execute Then mmAnexos.Lines.Add(odAnexos.FileName); end; end.

Não é possivel não tem nada q envie certo .... alguém sabe ???

Qual eu uso então ??

Opis ... não funcionou uma coisa .... a mensagem ... não aparece ... aparece tudo assunto e tudo mais a mensagem não chega O CODIGO DE FONTE ESTA ASSIM: unit Mail; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; edtPara: TEdit; Label2: TLabel; Label3: TLabel; edtCC: TEdit; edtCCO: TEdit; cbxConfirmaLeitura: TCheckBox; mmMensagem: TMemo; btnEnviar: TButton; Label4: TLabel; edtAssunto: TEdit; IdSMTP: TIdSMTP; IdMessage: TIdMessage; btnAnexar: TButton; mmAnexos: TMemo; odAnexos: TOpenDialog; cbxPrioridade: TComboBox; Label5: TLabel; procedure btnAnexarClick(Sender: TObject); procedure btnEnviarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnEnviarClick(Sender: TObject); Var xAnexo : Integer; begin IdMessage.Recipients.EMailAddresses := edtPara.Text; IdMessage.CCList.EMailAddresses := edtCC.Text; IdMessage.BccList.EMailAddresses := edtCCO.Text; //Trata a Prioridade da mensagem Case cbxPrioridade.ItemIndex Of 0 : IdMessage.Priority := mpHigh; 1 : IdMessage.Priority := mpNormal; 2 : IdMessage.Priority := mpLow; End; IdMessage.Subject := edtAssunto.Text; IdMessage.Sender.Text := mmMensagem.Lines.Text; if cbxConfirmaLeitura.Checked Then idmessage.ReceiptRecipient.Text := IDMessage.From.Text; // Auto Resposta //Tratando os arquivos anexos For xAnexo := 0 to mmAnexos.Lines.Count-1 do TIdAttachment.create(idmessage.MessageParts, TFileName(mmAnexos.Lines.Strings[xAnexo])); IdSMTP.Connect; Try IdSMTP.Send(IdMessage); Finally IdSMTP.Disconnect; End; end; procedure TForm1.btnAnexarClick(Sender: TObject); begin //Insere o nome do arquivo no memo mmAnexos if odAnexos.Execute Then mmAnexos.Lines.Add(odAnexos.FileName); end; end.

Ae deu tudo certo ... da para colocar um alerta no final falando seu e-mail foi enviado ???

Ops ... eu não coloquei senha ...

Bom eu fiz mais esta dando um erro ... =( ... ERRO: Command failed. Mailbox is unavailable o que seria isso ???

Bom ainda tenho algumas duvidas ... Seuhost.com.br (smtp.bol.com.br) <--- Isso está certo ... é para colocar o smtp ?? Seu Nome do usuário (th1687 ou th1687@bol.com.br) <--- Qual que coloco ???