Progr'amador

HeHeHe! Pode deixa que eu fecho. (só mod. pode fechar) Fechando...

Ok! precisando, posta ae falow! Tá resolvido? podemos fechar então?

Ae gelara, valeu pela força, já tudo resolvido. De volta pra mod. Abs. Progr'amador

Voce pode usar so duas variáveis se quizer: Nesse exemplo to usando as var. Linha1 e FormaLinha. procedure TForm1.Button2Click(Sender: TObject); var ArqTxt : TextFile; Linha1, FormaLinha, tam1, tam2 : string; begin AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT'); Rewrite(ArqTxt); Query1.Close; Query1.Open; while not Query1.Eof do begin FormaLinha := Query1.FieldByName('LAST_NAME').AsString; tam2 := ' '; // tamanho 15 letras tam1 := IntToStr(15-length(FormaLinha)); tam2 := Copy(Tam2,1,StrToInt(Tam1)); Insert(FormaLinha,tam2,1); Linha1 := Linha1+tam2; FormaLinha := Query1.FieldByName('FIRST_NAME').AsString; tam2 := ' '; // tamanho 10 letras tam1 := IntToStr(10-length(FormaLinha)); tam2 := Copy(Tam2,1,StrToInt(Tam1)); Insert(FormaLinha,tam2,1); Linha1 := Linha1+tam2; FormaLinha := Query1.FieldByName('SS_NUMBER').AsString; Linha1 := Linha1+FormaLinha; Writeln(ArqTxt, Linha1); Linha1 := ''; Query1.Next; end; CloseFile(ArqTxt); end; Abs.

Olá felippe. A programação com certeza é possível sim, agora a duvida é como fazer essa integração do seu sistema com o sistema de alarme, você já tem como fazer essa ligação? porque esse alarme deve ter um sistema próprio num é mesmo? Abs.

Valeu alexandre, pela força. Obrigado. Então, Resolvido...

Ops! voce falou em ordem, não sei se entendi, mas você gostaria de ordenar os registros tipo assim: A B C ... ou por numeros? é isso? Outra coisa, a lista ta saindo em linha, um em baixo do outro certinho??? porque aki saiu certinho um em baixo do outro, tudo em linha. Se não tiver em linha certinho, observe que eu usei os tamanhos 15 e 10, talvez os seu registro tenho ultrapassado esse numero de caracteres. Abs.

Olá Alexandre. Então use esse: procedure TForm1.BitBtn1Click(Sender: TObject); var ArqTxt : TextFile; Linha1, campo1, campo2, campo3, tam1, tam2 : string; begin AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT'); Rewrite(ArqTxt); Query1.Close; Query1.Open; while not Query1.Eof do begin campo1 := Query1.FieldByName('LAST_NAME').AsString; campo2 := Query1.FieldByName('FIRST_NAME').AsString; campo3 := Query1.FieldByName('SS_NUMBER').AsString; tam2 := ' ';//tamanho 15 letras (tam.do campo1) tam1 := IntToStr(15-length(campo1)); tam2 := Copy(Tam2,1,StrToInt(Tam1)); Insert(campo1,tam2,1); campo1 := tam2; tam2 := ' ';//tamanho 10 letras (tam.do campo2) tam1 := IntToStr(10-length(campo2)); tam2 := Copy(Tam2,1,StrToInt(Tam1)); Insert(campo2,tam2,1); campo2 := tam2; Linha1 := campo1+campo2+campo3; Writeln(ArqTxt, Linha1); Query1.Next; end; CloseFile(ArqTxt); end; Abs. Progr'amador

Ola. use 4 aspas ''''. Falow!

configurar, como assim? você quer que fique um em baixo do outro tipo assim: CODIGO NOME CPF 0001 JOAO 11111111111 0002 MARCOS 22222222222 0003 MARIA 33333333333 É isso?

estranho, aki num deu erro não. faz o seguinte cria esse arquivo em branco: C:\Meus documentos\TXTITENS.TXT

É o seguinte esse ta usando uma tabela do DBDEMOS que já vem com o delphi. Faz o seguinte, troca tudo aquilo por isso: procedure TForm1.BitBtn1Click(Sender: TObject); var ArqTxt : TextFile; Linha1 : string; begin AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT'); Rewrite(ArqTxt); Query1.Close; Query1.Open; while not Query1.Eof do begin Linha1 := Query1.FieldByName('LAST_NAME').AsString+' '+ Query1.FieldByName('FIRST_NAME').AsString+' '+ Query1.FieldByName('SS_NUMBER').AsString; Writeln(ArqTxt, Linha1); Query1.Next; end; CloseFile(ArqTxt); end; falow!!!

tu tem o BDE ae?

Olá Alexandre. Ae vai procedure TForm1.BitBtn1Click(Sender: TObject); var ArqTxt : TextFile; Linha1 : string; begin AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT'); Rewrite(ArqTxt); {$I+} if (IOResult <> 0) then MessageBox(handle,PChar('Houve um erro na criação do Arquivo: TXTITENS.TXT'),'ATENÇÃO',MB_OK or MB_ICONEXCLAMATION) else begin Query1.Close; Query1.Open; while not Query1.Eof do begin Linha1 := Query1.FieldByName('LAST_NAME').AsString+' '+ Query1.FieldByName('FIRST_NAME').AsString+' '+ Query1.FieldByName('SS_NUMBER').AsString; Writeln(ArqTxt, Linha1); Query1.Next; end; CloseFile(ArqTxt); end; end; ou se quizer pega o exemplo ae: http://geocities.yahoo.com.br/pgdelphi/ArquivoTexto.zip Qualquer dúvida, já sabe! Abs.

Valeu hencker! OBrigado pela força. Abs.

Ae elienaicm@ig.com.br Ate+

Olá Alexandre. Num esqueta com isso não cara, afinal esse forum é pra isso mesmo, eu faço isso por prazer mesmo! falou!!! Com relação a sua pergunta, infelizmente eu ainda num sei não cara, mas sempre é bom agente aprender, por isso vou pesquisar sobre esse assunto, e se encontrar alguma coisa eu posto aki, e se alguém souber POSTA ae galera. Abs.

Cara o problema é Outlook x Hotmail. O Hotmail usa servidor de e-mail HTTP e não o POP3, e no outlook num tem essa opção (ou não achei), fiz um teste aki no Outlook Express e ele envia normalmente, só que eu num entendo esse negócio direito não. Pra usar o Outlook você tinha que usar outro provedor. Abs.

É muito estranho mesmo Arlon. por exemplo aki usamos esse mesmo modelo de login a 6 anos, e numca deu problema. Abs.

Valeu Arlon! voce sempre foi uma grande força cara. Brigadão!!!

é amigo, acredito que seja a questao da autenticação. se voce escrever direto no outlook, envia normalmente?

Olá felippe! obrigado cara, tambem espero voltar logo. Abs.

E ae galera, é o seguinte vocês devem ter estranlhado a minha saida sem explicação da moderação, né. É o siguinte houve um mal entendido por parte do Binho e acabou tirando eu, o Error404 e o LucianO da moderação, só que os dois já voltaram e so falta eu. Estamos tentado entrar em contato com ele pra regularizar isso. Pra vocês entenderem melhor o que acontecei leia este tópico que o próprio binho abriu: *http://scriptbrasil.com.br/forum/index.php?showtopic=39229* ----------- Editado -------------- Ae galera tópico referente ao link acima foi movido, e não poderar ser mais lido. ----------------------------------- Espero o mais breve esta de volta como mod. Abs. Progr'amador.

bom você quer dizer enviar direto do delphi. no delphi 7 tem o componente IdSMTP na paleta Indy Clients. so não sei como usar. Só que já ouvi falar que todos os provedores requerem autenticação do servidor e com isso não daria certo tambem. (Não tenho certeza disso) de qual forma não custa tentar né? e quem souber usar esse componente (IdSMTP) galera, posta ae falou!!! Abs.

o problema pode ser a configuração do seu outlook, sua conta ta configura corretamente lá? é estranho cara , deveria funcionar!!!