Corposemalma

Seuhost.com.br (smtp.bol.com.br) EXATo Seu Nome do usuário th1687 <- pro BOL, alguns outros usam o endereco completo.. depende do servidor

Os dois dependem muito, por exemplo, o fato da maquina ter reiniciado, só leva a crer que estava dar algum curto dentro da fonte, é bem provavel que ele ficou chaveando (abrindo e fechando o circuito) e não tenha queimado nada... Por isso seria bom dar uma olhada com um multimetro nas tensoes de saida E a coca não precisa ser liquida, pode ser solida ou gasosa O que interessa é a condutividade dela... nem todo liquido conduz eletricidade...

Na verdade, voce pode arranjar outro reset, ou comprar um switch e substituir o do Power....

CTRL ENTER NO ICQ envia tambem

Verifica se o arquivo está na pasta Delphi\Libs... Se ele estiver em instalado em algum outro lugar, voce vai ter que comfigurar o caminho pro Delphi saber... Voce configura em: Tools / Environment options... / Library / Library path digite o caminho da pasta onde ta o .pas e pressione ADD

Mas não esquece de testar o HD, se ele tiver com problema.... Pode ate ser....

hummm... estranho tenta: if TRIM tabela.fieldbyname('campo').AsString= '' then begin end;

voce que checar um campo? bem... if TRIM tabela.fieldbyname('campo').value = '' then O trim remove os espacos antes do valor... É uma maneira de proteger.. tipo um campo com um espaco somente vai ser considerado vazio... Ou se voce quer checar a tabela toda: If tabela.IsEmpty = true then

Reparar é perigoso! Da ate pra fazer, mas sempre bom fazer um belo backup antes.. já aconteceu comigo de o Reparar limpar os emails, favoritos, etc....

Para que alguém possa te ajudar, existem varias maneiras de enviar um email com delphi (inclusive componentes diferentes) De que maneira voce está adicionando o texto ao email? Acho que seu problema é o seguinte: para enviar emails com HTML, a mensagem tem que estar em formato MIME(tente setar a mensagem como MIME, não sei se voce esta armazenando ela num componente antes de mandar... Eu estou acostumado a trabalhar com Indy, que possue o Componente TIdMessage para essa finalidade...), me parece que voce esta mandando somente como texto.... Quanto mais voce especificar a sua duvida, mais facil das pessoas te ajudarem

então vamus lá! Vo só copia e colar aqui... (Esse saiu do Site www.delphi.eti.br, se quiser da uma passada lá tem mais alguns tutoriais) Enviando email’s com componentes Indy Por Marcos P. Gomes Salve amigos e amigas, neste pequeno artigo vamos fazer um sistema de envio de email usando componentes Indy. O uso destes componentes é muito simples e prático, como podemos confirmar abaixo. Crie uma nova Application no delphi, adicione e modifique a propriedades dos seguintes componentes. Componentes Nome Valor Label1 Caption Para : Label2 Caption CC : Label3 Caption CCO : Label4 Caption Assunto Edit1 Text Name EdtPara Edit2 Text Name EdtCC Edit3 Text Name EdtCCO Label Caption Prioridade ComboBox Name CbxPrioridade Items Alta Normal Baixa CheckBox cbxConfirmaLeitura &Solicitar confirmação de leitura Memo Lines Name MmMensagem BitBtn Name btnEnviar Caption &Enviar BitBtn Name btnAnexar Caption Anexar Memo Name mmAnexos Lines ScrollBars SsVertical OpenDialog Name odAnexos Title Anexando Arquivos Filter | Filter Name Todos os Arquivos (*.*) Filter | Filter *.* Agora vá até a paleta Indy Clients e adicione o componente IdSMTP, depois vá até a paleta Indy Misc e adicione o componente IdMessage e altere as seguintes propriedades. Componente Nome Valor IdMessage Name IdMessage From | Address seuemail@provedor.com From | Name Seunome IdSMTP Name IdSMTP Host Seuhost.com.br UserId Seu Nome do usuário Bom todos os componentes necessários para que possamos enviar um email já estão em nosso formulário, agora vamos começar a codificar (é a parte que mais gosto de um sistema, odeio instanciar componentes). Apenas confira se seu formulário está com a aparência igual a imagem abaixo. Dê um duplo clique em btnAnexar, e adicione o seguinte código : //Insere o nome do arquivo no memo mmAnexos if odAnexos.Execute Then mmAnexos.Lines.Add(odAnexos.FileName); Nesse ponto cada vez que você clicar no botão Anexar e você selecionar um arquivo ele vai gravar o nome e o caminho do arquivo no Memo mmAnexos. Agora dê clique duplo no btnEnviar e adicione mais esse código : 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; Nosso sistema de envio de email já está concluído agora é só você realizar seus testes, os indy são muito uteis principalmente para enviar email com anexos, tendo em vista que quando você usa o ShellExecute para enviar email ele não envia email anexo. Mas os componentes Indy não resume-se apenas a isso, vale a pena você dar uma olhada com mais calma e descobrir a potencialidade dos mesmos. Confira abaixo como ficou o código completo do sistema. unit fSendIndy; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Menus, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP; type TForm1 = class(TForm) Label1: TLabel; edtPara: TEdit; Label2: TLabel; Label3: TLabel; edtCC: TEdit; edtCCo: TEdit; cbxConfirmaLeitura: TCheckBox; mmMensagem: TMemo; btnEnviar: TBitBtn; Label4: TLabel; edtAssunto: TEdit; IdSMTP: TIdSMTP; IdMessage: TIdMessage; btnAnexar: TBitBtn; mmAnexos: TMemo; odAnexos: TOpenDialog; cbxPrioridade: TComboBox; Label5: TLabel; procedure btnEnviarClick(Sender: TObject); procedure btnAnexarClick(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. Marcos P. Gomes é Formado em Tecnologia em Informática e trabalha como Tecnólogo em Processamento de Dados em uma empresa do ramo automobilístico, desenvolve sistemas em diversas linguagens e é um dos fundadores do site http://www.delphibr.com.br/artigos/www.delphibr.com.br. Também faz parte do grupo de moderadores da lista de discussão lista-delphi@yahoogrupos.com.br. Pode ser contatado pelo e-mail marcos@delphibr.com.br. Caro felipeee.. A sua pergunta eu respondo no teu tópico...

é bom se tu poder pegar um multimetro e medir as tensoes de saida fa fonte, e passar um teste de memoria (procura por MemTest86+)

Esse é um assunto meio complicado.... É crime sim, mas somente se voce pretende fazer em algum programa do qual os direitos autorais não são seus.... Mesmo assim não conheco nenhum decompilador....

Pra mim as placas tem 3 categorias então, MSI -> placas de primeira linha XFX -> (antigamente era outro nome, Pine, não é bom sinal essa troca! Pode ser pilantragem ) -> placas de segunda, ainda assim, melhor que de terceira A qualidade das placas MSI é muito boa! Os coolers tambem, fora os acessorios e software que vem junto... suporte tambem é otimo Eu amo MSI, como amo Zalman e AMD O fato da XFX ser bastante vendida... hehehe barata!

Ué uma coisa eu não entendo de vocês: Se a proposta foi feita, e uma resposta dada... Por que continuam com o tópico? Foi feito a proposta de criar as colunas, a gente aceitou a ideia, disse que era boa, falamos pros interessados mandaram as devidas MP para os ADMINS, o binho passou ai e disse: Resposta E você Heitor me vem com respostas do tipo: Eu acho que voces querem mesmo é fusuê, se o cara pediu pra dar um tempo, de um tempo pra ele Se não me engano, uma das regras do nosso fórum: * Não é permitido: Palavras de baixo calão, chulas, ofensivas, e outras pérolas da má educação! QUALQUER comentário desmerecedor à QUALQUER empresa, indivíduo ou produto será removido sem advertência do fórum e o usuário advertido, na reincidência o mesmo é destituído do login, caso faça parte da equipe perde seu cargo. então, qual o problema de trancar o tópico anterior? Agora imagina, se os Admins tirassem os moderadores que hoje são ocupados, e no lugar deles botassem gente que não tivesse ocupação, mas tambem nem o minimo de auto-controle e respeito pelos demais.... há de convir comigo que já basta de xingamentos, e aceitamos criticas sim, mas ninguém tá aqui trabalhando pra passar por babaca e ficar lendo posts com os varios xingamentos com os que voce postou.... Garanto que muitos moderadores não estao gostando das suas atitudes, mas nem por isso estão te atacando então respeito mutuo...

Coloca na tua unit essa funcao: function CriarArquivo(NomeArq,Dados: String):Boolean; ArqLogico:TextFile; begin try AssignFile(ArqLogico,NomeArq); if not FileExists(NomeArq) then ReWrite(ArqLogico) else Append(ArqLogico); Result:=True; except Result:=False; end; if Result then begin WriteLn(ArqLogico,Dados); CloseFile(ArqLogico); end; end; POR Ricardo Scache Belardinuci para usar: CriarArquivo(NomeDoArquivo, edit1.text + 'BLA BLA BLA' + edit2.text);

coloque a descricao da funcao no cabeçalho junto com as outras function IsInteger(TestaString: String) : boolean; o código pode ficar em quanlquer lugar da unit, depois do {Implemantation} e antes do end. function IsInteger(TestaString: String) : boolean; begin try StrToInt(TestaString); except On EConvertError do result := False; else result := True; end; end; para usar: if IsInteger(edit1.text) = true then // faca o que precisar Da uma olhada aqui tambem: http://scriptbrasil.com.br/forum/index.php...ndpost&p=109750 <- explicacao legalzim

Maluco como ???? Uma vez depois que instalei um desses drivers multimedia o teclado queimou...

mal... o botao ate tem AQUI de graça....

tambem serve

Problema Resolvido, tópico fechado!

você quer o bitmap, ou um botao que tenha aparencia dos do Windows XP?

Só chutando (to sem o delphi ainda) Use IntToFloat e transforme o inteiro em float, depois multiplique

'Where Dataniver =:DataBusca'; <- Dataniver é um campo data e DataBusca uma String, não da para comparar Tente assim: Query1.Params[0].AsDate := Strtodate(DataBusca) Ou melhor! declare a var como: DataBusca : Tdatetime; Ai voce pode mudar as duas linhas e tirar as conversoes desnecessarias DataBusca := Date; Query1.Params[0].AsDate := DataBusca;

acho que passar varias vezes não ajuda não, o que pode optimizar a desfragmentacao é liberar mais espaço na unidade, ou se tu puder e tiver como... copia todo o conteudo pra outro hd e volta pra esse ai... 100% desfragmentado Algo que voce pode fazer para evitar a fragmentacao e melhorar a desfragmentacao é criar uma particao de 1Gb e jogar toda a memoria de swap do windows para lá (dizem que se a particao for fat16 fica mais rapido tambem....)