[delphi-br] Ajuda com Relátorio
Bom dia pessoal. Tenho uma query com a seguinte expressão: select a.Nome, a.Fonecasa, b.codnota, b.datavcto, b.valorrestante from clientes a, notas b where a.codcliente = b.codcliente order by a.nome, b.dataVcto Ela me traz os dados da seguinte forma: Cliente TelefoneNotaVencimento Valor = Cliente01 3421-4552 152120/08/2009 50,00 Cliente01 3421-4552 152225/08/2009 60,00 Cliente02 3421-4555 152822/08/2009 20,00 Cliente02 3421-4555 152929/08/2009 40,00 Cliente02 3421-4555 153215/08/2009 150,00 Cliente03 3421-4511 153717/08/2009 510,00 Cliente03 3421-4511 153919/08/2009 10,00 Eu preciso de um relatório no Qreport que me apresente isso da seguinte forma: Cliente Telefone Cliente01 3421-4552 152120/08/2009 50,00 152225/08/2009 60,00 Cliente02 3421-4555 152822/08/2009 20,00 152929/08/2009 40,00 153215/08/2009 150,00 Cliente03 3421-4511 153717/08/2009 510,00 153919/08/2009 10,00 Alguem poderia me ajudar? Como faço para os dados saírem dispostos dessa forma? Emerson Cassio
[delphi-br] SQL - Onde está o erro?
Pessoal, bom dia. seguinte: exemplo tenho duas tabelas: Tabela01 com um unico campo com os dados: primeiro segundo terceiro quarto quinto sexto setimo Tabela02 com um unico campo com os dados: segundo quarto quinto quero uma sql que me retorne os dados que estão em Tabela01 excluindo-se os que estão na tabela02 deveria ficar então os dados: primeiro terceiro sexto setimo estou usando a seguinte clausula e não está retornando nada. select * from numeracao where not exists (select * from numtemporario) me deem uma luz por favor. Grato Emerson Cassio [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SQL - Onde está o erro?
Pessoal, bom dia. seguinte: exemplo tenho duas tabelas: Tabela01 com um unico campo com os dados: primeiro segundo terceiro quarto quinto sexto setimo Tabela02 com um unico campo com os dados: segundo quarto quinto quero uma sql que me retorne os dados que estão em Tabela01 excluindo-se os que estão na tabela02 deveria ficar então os dados: primeiro terceiro sexto setimo estou usando a seguinte clausula e não está retornando nada. select * from Tabela01 where not exists (select * from tabela02) me deem uma luz por favor. Grato Emerson Cassio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida com Quick Report
Pessoal, Preciso fazer um relatório no Quick Report onde a folha 01 tem um layout a folha 02 tem outro layout e a folha 03 tem outro layout, Os dados que serão impressos são dados inseridos em um formulário já criado, não há banco de dados. Preencho todo um formulário (Edits) e mando imprimir gerando 03 folhas diferentes. Alguém me dá uma luz. Emerson Cassio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] compactação e descompactação
Eu utilizo o Zipmaster é simples e funcional. Emerson Cassio - Original Message - From: Clovis iTelefonica To: delphi-br@yahoogrupos.com.br Sent: Sunday, November 11, 2007 9:46 PM Subject: Re: [delphi-br] compactação e descompactação Me passe seu email que mando um bem simples Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Anderson F. de Rossi To: delphi-br@yahoogrupos.com.br Sent: Sunday, November 11, 2007 10:34 PM Subject: [delphi-br] compactação e descompactação Pessoal , boa noite. Alguem conhece alguma unit (free) p/ fazer a compactação e descompactação de arquivos ??? Nada muito complexo , algo bem simples ... Obrigado a todos. Anderson F. de Rossi []s [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2652 (2007) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Aperfeiçoar um programa
Ola! Tenho um programa feito em delphi e preciso melhorar o mesmo, sobretudo na parte de controle de estoque que abragem mais de uma loja, caso alguem se interessar ganha uns troquinhos a mais entre em contato. Reinaldo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: obter dados do sintegra
O serasa e o banco central eu sei que tem acesso a esses dados cadastrais atras da Receita federal e isto é pago. Agora com certeza esses dados não estão disponiveis pra nós pobres mortais. Emerson Cassio - Original Message - From: fmmattos1976 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 16, 2007 7:04 AM Subject: [delphi-br] Re: obter dados do sintegra De onde voces acham que as administradoras de cartão obtem dados para enviar cartão de crédito sem solicitção? Experimentem, na sua próxima declaração de IR, colocar um caracter diferente no endereço para distingui-lo dos demais. Ja ouvi dizer que a Receita vende o cadastro (uma associacao comercial comprava para ajustar o spc). Mas não é pra qualquer um, e prepare o bolso. Também já vi reportagem de camelos na regiao da 25 de março em SP vendendo o CD com estes dados. (No Brasil tem de tudo!!) --- Em delphi-br@yahoogrupos.com.br, Emerson Cassio [EMAIL PROTECTED] escreveu Infelismente a Receita não possui este serviço. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 13, 2007 7:37 PM Subject: Re: [delphi-br] obter dados do sintegra Eu acho meio dificil da receita liberar estas informações. ja busquei ha muito tempo so que para CPF e nao achei nada. Em 12/01/07, Fco Carlos [EMAIL PROTECTED] escreveu: Existe a possibilidade de se obter os dados cadastrais das empresas contidas na receita federal ou no sintegra como se faz com os correios. Ex: tenho aqui uma rotina onde eu coloco o nr do cep e ja obtenho os dados referente a rua, bairro,cidade e estado estava pensando na possibilidade de digitar o nr do cnpj da empresa e ja aparecer razaosocil, nome fantasia, insc.estadual, etc.. na pagina da receita ou do sintegra, digitase o cnpj e ja aparece os dados da empresa como colocar isso na minha aplicacao ? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1976 (20070113) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1981 (20070116) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] obter dados do sintegra
Infelismente a Receita não possui este serviço. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 13, 2007 7:37 PM Subject: Re: [delphi-br] obter dados do sintegra Eu acho meio dificil da receita liberar estas informações. ja busquei ha muito tempo so que para CPF e nao achei nada. Em 12/01/07, Fco Carlos [EMAIL PROTECTED] escreveu: Existe a possibilidade de se obter os dados cadastrais das empresas contidas na receita federal ou no sintegra como se faz com os correios. Ex: tenho aqui uma rotina onde eu coloco o nr do cep e ja obtenho os dados referente a rua, bairro,cidade e estado estava pensando na possibilidade de digitar o nr do cnpj da empresa e ja aparecer razaosocil, nome fantasia, insc.estadual, etc.. na pagina da receita ou do sintegra, digitase o cnpj e ja aparece os dados da empresa como colocar isso na minha aplicacao ? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1976 (20070113) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usar serviço do correio para consegu ir CEP através da aplicação
Essa mensagem retorna qdo não encontra o cep na base de dados, já tentou outro
cep?
- Original Message -
From: galvao_em
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 10, 2007 1:07 PM
Subject: Re: [delphi-br] Usar serviço do correio para conseguir CEP através
da aplicação
Olá, fiz como está descrito no passo a passo abaixo, mas na hora de
pesquisar ele me retorna que o cep não foi encontrado. que devo fazer?
Att.
Rodrigo
Emerson Cassio escreveu:
Crie um novo Projeto (Delphi 7 em diante)
Salve o projeto e a unit.
Clique File..New...Other
Selecione a Aba WebServices
WSDL Importer...Ok
em Location of WSDLFileor URL digite:
http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
Clique Next...Finish
Salve a unit criada com o nome CEP
Selecione o Form Principal do Projeto
Clique File...Use Unit...Selecione CEP e clique OK.
Adicione no Form o componente HTTPRIO da aba WebServices
Propriedade WSDLLocation coloque
http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
Propriedade Service coloque CEPService
Propriedade Port coloque CEPServicePort
Adicione no Form um Componente Edit e um Botão
De dois Clique no Botão e adicione o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
ObjSoap : CEPServicePort;
Num : string;
begin
ObjSoap:=HTTPRIO1 as CEPServicePort;
Num:=Edit1.text;
memo1.Lines.Add(ObjSoap.obterLogradouro(Num));
end;
Pronto rode o projeto, digite o cep no Edit tanto faz o formato
7800 ou 78000-000
clique o botão e no memo aparecerá o respectivo endereço, bastando
usar a criatividade para usar da forma que melhor convir.
Codigo completo da Unit Principal
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient;
type
TForm1 = class(TForm)
HTTPRIO1: THTTPRIO;
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses cep;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ObjSoap : CEPServicePort;
Num : string;
begin
ObjSoap:=HTTPRIO1 as CEPServicePort;
Num:=Edit1.text;
memo1.Lines.Add(ObjSoap.obterLogradouro(Num));
end;
end.
Codigo Completo da Unit CEP
//
//
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL :
http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
// Encoding : utf-8
// Version : 1.0
// (06-01-07 00:54:32 - 1.33.2.5)
//
//
unit cep;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
//
//
// The following types, referred to in the WSDL document are not being
represented
// in this file. They are either [EMAIL PROTECTED] of other types
represented
or were referred
// to but never[!] declared in the document. The types from the latter
category
// typically map to predefined/known XML or Borland types; however,
they could also
// indicate incorrect WSDL documents that failed to declare or import
a schema type.
//
//
// !:string - http://www.w3.org/2001/XMLSchema
http://www.w3.org/2001/XMLSchema
ArrayOfstring = array of WideString; { urn:CEPService }
//
//
// Namespace : urn:http://www.byjg.com.br http://www.byjg.com.br
// soapAction: urn:CEPServiceAction
// transport : http://schemas.xmlsoap.org/soap/http
http://schemas.xmlsoap.org/soap/http
// style : rpc
// binding : CEPServiceBinding
// service : CEPService
// port : CEPServicePort
// URL : http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep
http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep
//
//
CEPServicePort = interface(IInvokable)
['{EC28595B-95D2-DE51-E5B1-57B81D4826D3}']
function obterVersao: WideString
Re: [delphi-br] Usar serviço do correio para consegu ir CEP através da aplicação
then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; initialization InvRegistry.RegisterInterface(TypeInfo(CEPServicePort), 'urn:http://www.byjg.com.br', 'utf-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(CEPServicePort), 'urn:CEPServiceAction'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfstring), 'urn:CEPService', 'ArrayOfstring'); end. Emerson Cassio - Original Message - From: Valfrid-Ly Silva Couto To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 04, 2007 5:42 PM Subject: Re: [delphi-br] Usar serviço do correio para conseguir CEP através da aplicação A lista não aceita anexos! Marcio Cruz [EMAIL PROTECTED] escreveu: Olá amigos, este arquivo em anexo eu consegui no site do correios... Agora, como será que faríamos uma aplicação que, ao clicarmos em buscar, ele traria as informações de endereço referente ao CEP? Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1957 (20070104) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usar serviço do correio para consegu ir CEP através da aplicação
Amigo tem a opção de usar WebService http://thespoke.net/blogs/thiagocf/archive/2005/08/31/353202.aspx neste link o cara explica como fazer em VS.Net tem até um exemplo quem manjar. Eu peguei um WebService desses para Office2003 e consegui utilizar em Delphi, mas faz muito tempo vou ver se acho aqui, éra pra consultar Restritivos no ChequeExpress na faixa, funciona até hoje. Abraço. - Original Message - From: Valfrid-Ly Silva Couto To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 04, 2007 5:42 PM Subject: Re: [delphi-br] Usar serviço do correio para conseguir CEP através da aplicação A lista não aceita anexos! Marcio Cruz [EMAIL PROTECTED] escreveu: Olá amigos, este arquivo em anexo eu consegui no site do correios... Agora, como será que faríamos uma aplicação que, ao clicarmos em buscar, ele traria as informações de endereço referente ao CEP? Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1957 (20070104) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como resolver este erro ?
Dá uma lida nesse link. http://www.activedelphi.com.br/modules.php?op=modloadname=XForumfile=viewthreadtid=6146 - Original Message - From: Emílio Rudolfo To: delphi-br@yahoogrupos.com.br Sent: Monday, October 09, 2006 9:03 AM Subject: Re: [delphi-br] Como resolver este erro ? Experimente fechar os arquivos quando sair do sistema. - Original Message - From: Delphi - Fórum [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: delphi-br@yahoogrupos.com.br Sent: Monday, October 09, 2006 9:33 AM Subject: [delphi-br] Como resolver este erro ? Em brancoBom dia amigos, alguem saberia me dizer porque quando acesso o sistema logo na tela inicial aparece esta mensagem? Lock file has grown too large. e nao sai disso, para resolver preciso apagar uma porcao de arquivos que sao criados sozinhos junto com o execultavel e reiniciar a maquina, isso acontece apenas nos clientes que sao 24 hs e nao finalizam o sistema por um certo tempo. Se alguem puder me ajudar fico muito grato. Obrigado Atenciosamente William - Atual Sistemas. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 1.1794 (20061006) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [URGENTE] Showmodal nao funciona mais
Tente assim try form1 := tform1.create(application); form1.showmodal; finally form1.free; form1:= nil; end; - Original Message - From: Rafael Jorge To: delphi-br Sent: Friday, October 06, 2006 4:12 PM Subject: [delphi-br] [URGENTE] Showmodal nao funciona mais criei um novo projeto no meu delphi 2006 com update 1 e quando eu invoco um form com o showmodal ele simplesmente roda o form como um show normal. ou seja form1 := tform1.create(application); form1.showmodal; form1.free; form1:= nil; ao chegar no form1.showmodal ele deveria abrir o form e mostralo na tela e esperar ele ser fechado pelo usuario ou entao de algum modo se fechado, o sistema nao espera apos o showmodal ele vai logo pro form1.free; e de pois o form1:= nil, nao importa o que tenha no form. criei um form em branco e sem nada e chamei ele e ele tb abra e fecha nao importando se é modal ou nao. o mais estranho é que utilizo estes mesmo forms em outro projeto e nao acontece isso.. -- Rafael jorge alves www.itrecife.com - para verem meus artigos e trabalhos t+ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1793 (20061006) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Iniciante .. Podem me ajudar...
Em www.alberteije.com tem um curso para iniciante, creo que seja um bom começo. - Original Message - From: Rick (v4ca) xD To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 28, 2006 11:53 AM Subject: [delphi-br] Iniciante .. Podem me ajudar... Alguem pode me informar um site, um tutorial, um método de estudo bom para eu começar a mexer com o Delphi ??? Se possível, qual versão do Delphi eu pego e aonde pegar.. Porfavor. Muito obrigado. __ Informação do NOD32 IMON 1.1781 (20060928) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Somando Data
Já experimentou fazer assim : Resultado := DataAtual + 1; Resultado tem que ser do Tipo Date DataAtual tem que ser do Tipo Date - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 28, 2006 4:06 PM Subject: [delphi-br] Somando Data Caros da lista, mais uma vez solicito a ajuda de vcs. Estou com o seguinte problema: Como eu faço para somar a data atual mais 1. Ex1: HOJE = 28/10/2006 então teria que somar essa data mais um = 29/10/2006 Ex2: HOJE= 31/12/2006 então teria que somar essa data mais um = 01/01/2007 e por ai vai. Desde já agradeço a todos pela atenção. __ Informação do NOD32 IMON 1.1781 (20060928) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Print Screen
297 - Simular Print Screen
Uma coisa que pode ser muito útil em suporte a distância, ou até mesmo pra
outros objetivos, é a realização de um print-scrren coisa que muitas vezes um
usuário não dá conta de realizar e fica complicado, de certa maneira, explicar
por telefone. Por este motivo criamos uma rotininha que simula a tecla
PrintScreen. A baixo a rotina de como realizar tal processo:
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_PRINT, 0, 0, 0);
keybd_event(VK_PRINT, 0, KEYEVENT_KEYUP, 0);
end;
Obs: Tentei a dica sitada logo acima e não deu certo!!! Procurei ajuda no Help
do delphi e encontrei essa logo abaixo e funcionaou (estou usando PENTIUM III
128 Ram, Win98 e Delphi 4)
Simular Print Screen 2
keybd_event(vk_snapshot,0, 0, 0); {Tela Toda}
keybd_event(vk_snapshot,1, 0, 0); {Janela Ativa}
- Original Message -
From: Fabio Dantas
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 25, 2006 1:18 PM
Subject: RES: [delphi-br] Print Screen
Galera como eu dou um print screen na tela em delphi?
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Fabio Dantas
Enviada em: segunda-feira, 25 de setembro de 2006 07:41
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Print Screen
Pessoal eu tenho um sistema que roda de madrugada aqui na empresa nas
portarias. Algumas noites os vigias falam que deu problema no sistema.
Eu estava pensando em fazer um programa delphi que desse print screen de
10 em 10 minutos para que eu possa ver e saber o que está acontecendo.
Já vi comentários na lista de alguns de vocês que fizeram algo parecido.
Vocês teriam exemplos de como fazer isso ?
Abraço Galera Valew
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__ NOD32 1.1773 (20060925) Information __
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Testar Arquivo Zip
Boa Tarde Amigos, Seguinte, Eu utilizo o componente TZipMaster para Compactar e Descompactar Arquivos, porem eu preciso testar os Arquivos Criados para ver se não estão Corrompidos, e não sei Como faze-lo. Alguem poderia me ajudar? Emerson Cassio [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Testar Arquivo Zip
Já Achei, só falta aprendr usar. obrigado. - Original Message - From: Rodrigo O. Farias To: delphi-br@yahoogrupos.com.br Sent: Friday, September 22, 2006 1:21 PM Subject: RES: [delphi-br] Testar Arquivo Zip Já tentou olhar as propriedades e metodos do componente? Se ele faz isso é lá que vc vai achar. Digita: TZipMaster. E espera aparecer a lista das propriedades e métodos, isso serve pra qualquer componente do Delphi. Olhar a documentação que acompanha o componente tb ajuda -- Rodrigo Othávio Farias -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Emerson Cassio Enviada em: sexta-feira, 22 de setembro de 2006 12:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Testar Arquivo Zip Boa Tarde Amigos, Seguinte, Eu utilizo o componente TZipMaster para Compactar e Descompactar Arquivos, porem eu preciso testar os Arquivos Criados para ver se não estão Corrompidos, e não sei Como faze-lo. Alguem poderia me ajudar? Emerson Cassio [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 1.1768 (20060922) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Criar um form a partir de uma variavel
Amigo por acaso é isso que está procurando?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unfuncoes, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
Procedure CriaForm (NomeForm: TFormClass);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2, unit3;
{$R *.dfm}
Procedure TForm1.CriaForm (NomeForm: TFormClass);
Begin
Try
TForm (NomeForm) := NomeForm.Create(self);
TForm (NomeForm).ShowModal;
Finally
FreeAndNil(NomeForm);
End; // Try
end; // CriaForm
procedure TForm1.Button1Click(Sender: TObject);
begin
criaform(TForm2);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
criaform(TForm3);
end;
end.
//
- Original Message -
From: Tavares_Tavares
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 20, 2006 3:14 PM
Subject: [delphi-br] Criar um form a partir de uma variavel
Boa tarde a todos.
Preciso passar para uma procedure, como um parametro, uma variavel contendo
um nome de um novo form que a rotina deve abrir.
Alguem sabe como faco para que nessa rotina o delphi permita abrir o
formulario que é igual ao nome do conteudo da variavel?
Da forma que estou fazendo nao esta correto.
Ex.:
var nomeform : TForm
Begin
Application.CreateForm( NomeForm, nomequalquer);
nomequalquer.BringToFront;
nomequalquer.ShowModal;
FreeAndNil(nomequalquer);
End;
agradeco todo ajuda
Tavares
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1.1764 (20060920) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Impressora Codigo de Barras
Pessoal, Tenho que agregar ao aplicativo de um Cliente a Geração e Impressão de Código de Barras, ele Tem a Impressora Argox Mod. OS-214TT Pelo que Pesquisei ela usa Linguagem PPLA. Alguem tem alguma rotina ou coisa parecida para imprimir nessa impressora? Qualquer ajuda será bem vinda, uma vez que nunca trabalhei com essas impressoras. Emerson Cassio [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [Off] Projeto exige diploma para atividades na area de Informatica
Eu Acho Isso um Absurdo, Se for por esse Rumo, daqui a pouco, todo Dono de Empresa Obrigatóriamente deverá ter Diploma de Administrador, Todo Pedreiro Deverá ter Diploma de Engenheiro, Toda Dona de Casa Deverá ter Diploma de Ciencias Domésticas (hehehehe). Eu acho meio dificil de se aprovar isso. Emersom Cassio - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Thursday, September 14, 2006 6:09 PM Subject: RES: [delphi-br] [Off] Projeto exige diploma para atividades na area de Informatica Antes de iniciarmos a Thread, vamos combinar uma coisa NADA DE Discutir se diploma é ou não importante na nossa area ou se quem tem diploma é mais homem que quem não tem ou se pega mais mulher que quem não tem. PELAMORDEDEUS! Agora a minha opinião: Num ano eleitoreiro, duvido que iriam sancionar uma lei que iria gerar desemprego pois a regulamentação da profissão irá excluir muitos que não vierem a atender os critérios propostos pelo projeto de lei. Isto pra mim só seria votado no ano que vem e mesmo assim olhe lá. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de construção!! -Mensagem original- De: Welson Avelar [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 14 de setembro de 2006 17:58 Para: Delphi-BR Assunto: [delphi-br] [Off] Projeto exige diploma para atividades na area de Informatica Um companheiro de curso na faculdade me enviou essa matéria, mas infelizmente não soube informar a fonte, porque ele também recebeu de outra pessoa. Mas o projeto de lei é esse aqui http://www.camara.gov.br/sileg/Prop_Detalhe.asp?id=325794 e pode ser lido na íntegra aqui http://www.camara.gov.br/sileg/MostrarIntegra.asp?CodTeor=398392 Eu gostaria de saber dos demais amigos o que acham dessa proposta, afinal, ela nos afeta em cheio, não é mesmo !? []s. ---x--- Projeto exige diploma para atividades na área de informática Quarta-feira, 13 de Setembro de 2006, 20h40 A Câmara analisa o Projeto de Lei 7109/06, de autoria do deputado Bonifácio de Andrada (PMDB-MG), que regulamenta as atividades profissionais das áreas de informática, computação e sistemas de informação. Se aprovado, o projeto restringirá o direito de exercer essas atividades aos portadores de diploma universitário dos cursos de informática ou computação, processamento de dados, sistemas de informação e áreas correlatas reconhecidas pela legislação do ensino. Quem estudou no exterior deverá validar o diploma no Brasil. Os tecnólogos e os formados em cursos seqüenciais e técnicos da área de informática e computação também poderão exercer a profissão, desde que observem as leis vigentes. Aqueles que não tiverem formação superior ou técnica, mas que comprovarem por meio de documentos que trabalham na área há pelos cinco anos, poderão continuar trabalhando, mas terão que regularizar a sua situação profissional no Ministério do Trabalho. Caso o projeto seja aprovado, o Executivo deverá enviar ao Congresso Nacional, no prazo de 60 dias, um projeto de lei criando o Conselho Federal de Informação e Computação e os conselhos regionais, estabelecendo as definições legais para a atividade profissional e sindical dessas áreas de trabalho. Enquanto esses conselhos não forem implantados, os profissionais com formação superior deverão registrar o diploma no Ministério do Trabalho. O projeto tramita em caráter conclusivo e será analisado pelas comissões de Educação e Cultura, de Trabalho, de Administração e Serviço Público, e de Constituição e Justiça e de Cidadania. = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] __ NOD32 1.1756 (20060914) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse:
Re: [delphi-br] Assunto do momento (Orkut)
Sei que não ajudo muito, rss, mas jeito tem até porque já programinhas pra fazer isso. - Original Message - From: Hudson To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 13, 2006 8:19 PM Subject: [delphi-br] Assunto do momento (Orkut) Gente, tive essa semana, um cliente afim de contratar o meu serviço... Pra montar um programa assim o usuário faz login e senha no orkut tem o acesso aos dados do mesmo.. e pode mandar scrap (mensagem) pra todos da lista no mesmo tempo... Isso e possível? Valeu [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1755 (20060913) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Aplicacao exemplo em Delphi, aguma sugestao???
Acesse esse Link do Site do Amigo Albert Eije, trata-se se um curso Delphi em Video Aula Gratis, creio que lhe servirá. http://www.alberteije.com/cursodelphini.php Emerson Cassio - Original Message - From: Renan Nucci To: Lista delphi Sent: Wednesday, September 06, 2006 4:25 PM Subject: [delphi-br] Aplicacao exemplo em Delphi, aguma sugestao??? Ola pessoal, estou começando agora no Delphi 7 e gostaria de algum exemplo que desenvolvesse uma aplicação desde o começo ateh o fim dela em Delphi. Alguem tem alguma sugestao? Atenciosamente, R E N A N N U C C I MSN: [EMAIL PROTECTED] Depto Informática MULTIFRIO Refrigeração [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1742 (20060906) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Rotina Genérica
Pessoal, como posso criar uma rotina genérica para o seguinte:
por Exemplo no campo db_FoneRes qdo teclo Enter o foco passa para o Db_FoneCel.
Como abaixo.
procedure Tf_Vendas.db_FOneResKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0 { Suprime o som } ;
db_fonecel.SetFocus;
end;
end;
Quero criar uma rotina genérica mas ou menos como a seguir:
procedure PulaCampo(Campo : Strting);
begin
if Key = #13 then
begin
Key := #0 { Suprime o som } ;
Campo.SetFocus;
end;
end;
Pra usar assim:
procedure Tf_Vendas.db_FOneResKeyPress(Sender: TObject; var Key: Char);
begin
PulaCampo(db_fonecel);
end;
..
Sei que um monte de gente vai passar outras formas de fazer a mesma coisa, mas
a minha intenção é aprender, e estou querendo aprender a construir essas
consultas genéricas para melhorar e limpar meus códigos.
Grato Emerson Cassio
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Show ou Showmodal
Eu Utilizo Assim: procedure TformPrincipal.butChDevClick(Sender: TObject); begin Application.CreateForm(TFormChDevolvido, FormChDevolvido); FormChDevolvido.ShowModal; end; procedure TformChDevolvido.FormClose(Sender: TObject; var Action: TCloseAction); begin FormChDevolvido.Release; end; - Original Message - From: Jefferson - Fórum To: delphi-br@yahoogrupos.com.br Sent: Monday, July 31, 2006 5:27 PM Subject: [delphi-br] Show ou Showmodal Gostaria de saber do pessoal da lista, qual o método mais indicado para aberturar de um Form, usado em sistemas comerciais. Usar Show ou ShowModal. Abraços - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Thursday, July 27, 2006 10:42 AM Subject: RES: [delphi-br] Access violation!!! Oi Tamara. Eu lhe sujiro usar da seguinte forma: frmSobre := TfrmSobre.Create(nil); try frmSobre.ShowModal; finally FreeAndNil(frmSobre); end; tem uma regra pra voce entender a diferença do .Create(nil) pro .Creste(self) pro .Create(owner) pro Application.Createform, mas eu nunca consegui memorizá-la. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de construção!! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Moked - Tamara (Brazil) Enviada em: quinta-feira, 27 de julho de 2006 10:34 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Access violation!!! http://www.moked.com.br/ Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Bom dia, Pessoal, estou com um probleminha na abertura(e fechamento) de alguns form's dentro do meu sistema. Utilizo a seguinte função para abrir um form: try Application.CreateForm(TfrmSobre,frmSobre); frmSobre.ShowModal; finally frmSobre.Free;//aki já tentei o FreeAndNil(frmSobre) end; Consigo abrir e fechar ele normalmente, meu problema está quando eu vou abrir o form pela segunda vez, me deparo com Access Violation at andrees q td mundo aqui ja deve conhecer muito bem...rs... e ñ estou consguindo resolver este problema, q ñ ocorre apenas com 1 form e sim com tds q eu abro e fecho desta forma... Se alguém puder me ajudar, agradeço muito! Obrigada, Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000 Serviços prestados no Brasil na área de segurança pessoal e empresarial: Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos | Auditoria e Sindicância | Software de Gestão | Help-desk 24hs O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1685 (20060731) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Qtde linha arquivo txt
procedure TForm1.Button1Click(Sender: TObject); var arq: TextFile; numlinhas: integer; linha: String; begin numlinhas:=1; AssignFile ( arq, 'C:\eu.txt' );//seu arquivo txt Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin numlinhas:=numlinhas+1; ReadLn ( arq, linha ); end; CloseFile ( arq ); label1.Caption:=inttostr(numlinhas); end; Emerson Cassio - Original Message - From: Luis To: delphi-Br Sent: Monday, July 17, 2006 1:29 PM Subject: [delphi-br] Qtde linha arquivo txt galera como faço para pegar a Qtde linhas arquivo texto? tenho um arquivo para importar com varias linhas e gostaria de saber a quantidade de linhas que contem neste arquivo texto? -- Grato pelo atenção Luís ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ __ Informação do NOD32 IMON 1.1663 (20060716) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Qtde linha arquivo txt
Antes de começar o looping atribuindo a X o valor 1 como está na rotina abaixo, já resolve esse problema. - Original Message - From: Alex - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Monday, July 17, 2006 4:41 PM Subject: Re: [delphi-br] Qtde linha arquivo txt Eu tentei fazer dessa forma uma vez e ele não pegava a ultima linha do txt. Eu tinha que criar uma linha em branco depois da ultima linha do arquivo. Alguem sabe como resolver de forma diferenti? Alex - Original Message - From: Francisco Carlos de Andrade To: delphi-br@yahoogrupos.com.br Sent: Monday, July 17, 2006 3:12 PM Subject: Res: [delphi-br] Qtde linha arquivo txt Var arq : TextFile; Linha : String; x : Integer; Begin AssignFile(arq,'nome_do_arquivo.txt'); Reset(arq); ReadLn(arq,Linha); x:=1; While not Eof(arq) do Begin x:=x+1 ..rotinas ReadLn(arq,Linha); end; closefile(arq); ---Mensagem original--- De: Luis Data: 17/07/2006 14:28:08 Para: delphi-Br Assunto: [delphi-br] Qtde linha arquivo txt galera como faço para pegar a Qtde linhas arquivo texto? tenho um arquivo para importar com varias linhas e gostaria de saber a quantidade de linhas que contem neste arquivo texto? -- Grato pelo atenção Luís ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 1.1663 (20060716) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1664 (20060717) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Dbgrid - Selecionar registros e depois gravar numa tabela osselecionados
Amigo, isso pode te ajudar: 089 - Gerenciando mais de uma linha selecionada num DBGrid (Multiselect) O DBGrid tem uma propriedade não documentada chamada SelectedRows (Tbookmark). Com ela você pode gerenciar Multiselect da seguinte forma: var contador: Integer; begin With Dbgrid1 do Begin for contador:= 0 to Pred(SelectedRows.Count) do Begin Datasource.Dataset.Bookmark:= SelectedRows[contador]; // posiciona nos registros selecionados do DBGrid end; end; Aí é só mandar gravar as linhas selecionadas, deletar, fazer o que vc quiser. Emerson Cassio - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br Sent: Saturday, July 15, 2006 10:12 PM Subject: [delphi-br] Dbgrid - Selecionar registros e depois gravar numa tabela osselecionados Ola amigos... Tenho um Dbgrid mostrando alguns registros, preciso poder selecionar todos ou somente alguns registros nesse dbgrid e apertando no botao adicionar, ele tem que gravar esses registros selecionados em uma tabela... Entenderam ? tipo por exemplo se eu selecionar os registros: pagamento de agua e pagamento de luz que estão no dbgrid. Ele tera que gravar numa tabela, criando o registro pagamento de agua e depois o registro pagamento de luz. Abraço todos... __ Informação do NOD32 IMON 1.1662 (20060715) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] List Index out of Bounds (0)
Pessoal, qdo executo minha aplicação, está dando a seguinte mensagem 'List Index out of Bounds (0)' porem o delphi não me retorna em qual linha está o erro, como faço para saber? Emerson [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criar Form
Pessoal, Eu crio e carrego meus formulário da seguinte maneira: procedure TformPrincipal.Button6Click(Sender: TObject); begin formrelatorio := Tformrelatorio.create ( application ); try formrelatorio.ShowModal finally formrelatorio.Release; formrelatorio:=nil; end; end; Queria criar uma procedure genérica para não precisar repetir esses comandos toda hora Mas estou levando uma surra, r. O que me veio na cabeça foi o seguinte: Procedure TformPrincipal.CarregaForm(NomeForm: string); begin NomeForm := TNomeForm.create ( application ); try NomeForm.ShowModal finally NomeForm.Release; NomeForm:=nil; end; end; Mas, não deu certo. Alguém pode me ajudar? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Enviar e-mails com anexos usando o Indy 10 para Delphi 5
- Introduza num Form o coponente IdSmtp (no delphi6 está na paleta
IndyClients)
- Introduza num Form o coponente IdMessage (no delphi6 está na paleta
IndyMisc)
Segue Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
idsmtp1.AuthenticationType:=atlogin;//Conexão com autenticação
idsmtp1.Host:='smtp.roo.terra.com.br';//Servidor no caso o Terra como
exemplo
idsmtp1.Password:='suasenhadeemail';//senha
idsmtp1.Port:=25;//porta é sempre essa não mude isso
idsmtp1.UserId:='usuarioteste';//Usuário do email (login)
idmessage1.From.Address:='[EMAIL PROTECTED]';//email de quem está
enviando
idmessage1.From.Name:='Fulano da Silva';//nome que sairá na menssagem
idmessage1.From.Text:='Fulano da Silva[EMAIL PROTECTED]' //Texto
composto do Nomeemail
idmessage1.Body.Add('Envio de email para testar se dá certo'); //corpo da
mensagem
idmessage1.Recipients.EMailAddresses:='[EMAIL PROTECTED]';//o
email do destinatario
idmessage1.Subject:='Email de Teste do Programa Delphi';//assunto da
mensagem
TIdAttachment.create(idmessage1.MessageParts,
TFileName('c:\Answer.txt'));//Arquivo a ser enviado como anexo
//**
idsmtp1.Connect;//conecta ao servidor de email
try
idsmtp1.Send(idmessage1);// envia a menssagem
finally
idsmtp1.Disconnect;//Disconecta do servidor
end;
end;
Emerson Cassio
- Original Message -
From: Carlos Antonio Pereira [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, June 24, 2006 8:43 PM
Subject: [delphi-br] Enviar e-mails com anexos usando o Indy 10 para Delphi
5
Pessoal, não consigo enviar e-mails com anexo usando o componente Indy 10
para Delphi 5.
Alguém já fez isso? Poderia me ajudar?
Desde já, agradeço a atenção dispensada
Carlos Antonio
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
__ Informação do NOD32 IMON 1.1622 (20060625) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Impressão em LX 300
Amigo, como vc faz essa impressão? Eu utlizo para tal o componente InsPrinters, ele imprime diretamente para a impressora, e vc escolhe o quanto o papel deve ser empurrado após a impressão. Eu acho excelente para imprimir em bobina. Emerson Cassio - Original Message - From: Allan [EMAIL PROTECTED] To: brDelphi - BR delphi-br@yahoogrupos.com.br Sent: Friday, June 16, 2006 6:35 PM Subject: [delphi-br] Impressão em LX 300 Prezados, estou, a pedido de um cliente, imprimindo orçamentos em uma bobina duas vias com 80mm de largura, ocorre que está imprimindo tudo certinho, mas logo após a impressão, a impressora empurra a bobina uns 30cm a mais em branco pra fora, tentei fazer de tudo um pouco, configurações de papel, modo de impressão entre outras, e nada de resolver o problema.Será que alguém já passou por isso e possa me ajudar? Obrigado desde já. DEUS É PAI. []'s Allan msn [EMAIL PROTECTED] Skype allan_gabriel Conheça o grupo OPEN PDV, acesse: http://br.groups.yahoo.com/group/OpenPDV [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Fw: INFORMAÇÕES
Valdernaque Nesse site do Amigo Albert Eije tem disponibilizado gratuitamente um curso em video aula bem interessante para iniciantes. Basta baixar as videos clicando nos numeros das lições, http://www.alberteije.com/cursodelphini.php Emerson Cassio - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, June 16, 2006 2:21 PM Subject: Re: [delphi-br] Fw: INFORMAÇÕES http://br.groups.yahoo.com/group/Curso_Delphi_Iniciante/ Começa por aqui depois vc vai evoluindo Clovis - Original Message - From: Eng.Melo .'. To: delphi-br@yahoogrupos.com.br Sent: Friday, June 16, 2006 12:45 AM Subject: [delphi-br] Fw: INFORMAÇÕES Figura1 Boa noite a todos da comunidade !! Pretendo apredender a linguagem Delphi , sou engenheiro civil e gostaria de saber qual literatura vocês recomendariam para um iniciante como eu ? Um grande abraço Valdernaque .'. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Campo edit
No evento OnEnter do edit vc coloca: edit1.Color:=clinfobk; //essa cor é amerelo clarinho e no evento OnExit do edit vc coloca: edit1.Color:=clwindow; //volta para cor padrão. - Original Message - From: Wesley Romualdo da Silva [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br; Delphi-Total [EMAIL PROTECTED] Sent: Tuesday, May 30, 2006 1:28 PM Subject: [delphi-br] Campo edit como faço para colori um edit toda vez que o foco estir nele - Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Re: Download por FTP ou Compartilahmetno de Arquivos
Amigo, no Delphi já tem exemplos de programas de FTP. - Original Message - From: pcinfowave [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 24, 2006 1:58 PM Subject: [delphi-br] Re: Download por FTP ou Compartilahmetno de Arquivos Ola... Isso q vc me diz me resolve a questao, porem nao tenho experiencia em trab c/ FTP, nem no delphi nem na net, portanto se alguem puder dar uns toques ou um pequeno exemplo de enviar e receber via FTP, me ajudaria muito. Outra coisa que tenho duvida é p/ q servidor de FTP as filiais enviaraiam? tenho que me cadastrar em algum lugar? o ideal seria as filiais enviarem para a máquina da matriz q fica sempre on na NET. Qualquer ajuda será muito bem vinda. []´ Paulo --- Em delphi-br@yahoogrupos.com.br, Luiz F B Escobar [MEGASISTEMA] [EMAIL PROTECTED] escreveu num adianta um lado ser 1GB se o outro é 300KB, vc vai receber no maximo a 300KB.. a vantagem é que vc pode receber de 3 filias ao mesmo tempo... hehehhe Abraço... monta um programinha em DELPHI mesmo, para fazer todo o processo... nas filiais: COPIA o banco ZIPA, (zipa um arquivo de cada vez e manda, ENVIA no FTP da MATRIZ gera um relatorio, do que copiou, zipou e enviou e envia um email pra alguem da filial, que vai chegar se tudo foi certim... na matriz...um outro aplicativo: chega o diretorio, sempre que chegar algo novo, descompacta, checa a integridade do banco, faz a atualização... gera um relatório para alguem de todo o processo para chegar se tudo foi certim... a checagem dos relatorios, tambem pode ser por um programa que vai analizar o LOG o programa deve saber qual o conteudo que o LOG deve ter, se faltar algo ele gera um outro LOG avizando, faltou tal coisa... Luiz Escobar - Original Message - From: pcinfowave To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 23, 2006 6:55 PM Subject: [delphi-br] Download por FTP ou Compartilahmetno de Arquivos Ola... Tenho um sistema q roda em mais varias cidades. A matriz precisa receber backups diariamente das filiais. Os arquivos de dados são em media de 10 a 50MB de tamanho. Preciso criar uma maneira de enviar estes arquivos para a matriz de maneira automatizada. Qual a sujestão que os colegas dariam? - FTP (e como fazer, ou onde encontrar referencia?) - Compartilhaamento de arquivos (Para q a matriz simplesmemnte mandasse baixar do micro da filial) - Outra sujestao... Atualmente faço assim: 1 - A filial gera um backup ao fim do dia, compactado pelo winzip; 2 - este backup é enviado por email pelo yahho-mail; 3 - se o backup possuir + de 10MB, o .ZIP é dividido em partes (opção split do winzip) e enviado pelo yahoo-mail; 4 - a matriz recebe os backups e restaura atraves de minha aplicação (tanto as partes individuais quanto as partes divididas) 5 - Este procimento funciona, porem envolve muito trabalho e pessoas fazendo essas operçaões tanto nas filiais quanto na matriz, entao o q gostaria era de criar uma maneira de baixar estes arquivos de forma mais rapida, principalemtne pelo lado da filial, para que esta nao fique encarregada de envia e-mails diariamente com os backups. Experimentei um compartilhador de arquivos chamado AVVENU q é bom, porem só roda em XP (e tenho a maioria das maquinas em WIN98), além do que é muito demorado a baixa, pois um pequeno arquivo de 3MB demora + de 5 min p ser baixado em uma conexao velox de 1GB enviado por uma filial c/ velox de 300K Qualquer ajuda será muito bem vinda []´s Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Download por FTP ou Compartilahmetno de Arquivos
Elazar, esse programa foi concebido utilizando exatamente essa alternativa o Email, depois foi migrado para FTP justamente para automatizar o sistema, pois com email pelo menos na matriz alguem teria que salvar esses arquivos dos email nas pastas certas do software. Mas mesmo assim, obrigado pela atenção. - Original Message - From: elazar [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 24, 2006 3:45 PM Subject: RES: [delphi-br] Download por FTP ou Compartilahmetno de Arquivos Emerson; fiz algo parecido, mas com email os programas das filiais, envian um email, com um anexo este emails e baixado pela matriz... Atenciosamente; -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Emerson Cassio Enviada em: quarta-feira, 24 de maio de 2006 14:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Download por FTP ou Compartilahmetno de Arquivos Opa, esse assunto me interessa. Caros Amigos, Eu tenho um software que desenvolvi para uma empresa que faz exatamente isso, compacta os arquivos, conecta à internet nas filiais (no caso discada), conecta a um FTP (brturbo) e envia os arquivos de fechamento diario da matriz, por outro lado, a Matriz conecta no FTP baixa os arquivos, descompacta e processa os mesmos. Porem dá muito problema, são 6 filiais, e sempre acontece de alguma não conseguir conectar ao FTP para enviar os arquivos. Minha duvida é como resolver? Se o problema seria com o FTP Brturbo, se existe algum mais eficiente, ou se existe outra maneira das filiais enviar esses arquivos. Qualquer sugestão será bem vinda. Emerson Cassio - Original Message - From: Luiz F B Escobar [MEGASISTEMA] [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 24, 2006 11:25 AM Subject: Re: [delphi-br] Download por FTP ou Compartilahmetno de Arquivos num adianta um lado ser 1GB se o outro é 300KB, vc vai receber no maximo a 300KB.. a vantagem é que vc pode receber de 3 filias ao mesmo tempo... hehehhe Abraço... monta um programinha em DELPHI mesmo, para fazer todo o processo... nas filiais: COPIA o banco ZIPA, (zipa um arquivo de cada vez e manda, ENVIA no FTP da MATRIZ gera um relatorio, do que copiou, zipou e enviou e envia um email pra alguem da filial, que vai chegar se tudo foi certim... na matriz...um outro aplicativo: chega o diretorio, sempre que chegar algo novo, descompacta, checa a integridade do banco, faz a atualização... gera um relatório para alguem de todo o processo para chegar se tudo foi certim... a checagem dos relatorios, tambem pode ser por um programa que vai analizar o LOG o programa deve saber qual o conteudo que o LOG deve ter, se faltar algo ele gera um outro LOG avizando, faltou tal coisa... Luiz Escobar - Original Message - From: pcinfowave To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 23, 2006 6:55 PM Subject: [delphi-br] Download por FTP ou Compartilahmetno de Arquivos Ola... Tenho um sistema q roda em mais varias cidades. A matriz precisa receber backups diariamente das filiais. Os arquivos de dados são em media de 10 a 50MB de tamanho. Preciso criar uma maneira de enviar estes arquivos para a matriz de maneira automatizada. Qual a sujestão que os colegas dariam? - FTP (e como fazer, ou onde encontrar referencia?) - Compartilhaamento de arquivos (Para q a matriz simplesmemnte mandasse baixar do micro da filial) - Outra sujestao... Atualmente faço assim: 1 - A filial gera um backup ao fim do dia, compactado pelo winzip; 2 - este backup é enviado por email pelo yahho-mail; 3 - se o backup possuir + de 10MB, o .ZIP é dividido em partes (opção split do winzip) e enviado pelo yahoo-mail; 4 - a matriz recebe os backups e restaura atraves de minha aplicação (tanto as partes individuais quanto as partes divididas) 5 - Este procimento funciona, porem envolve muito trabalho e pessoas fazendo essas operçaões tanto nas filiais quanto na matriz, entao o q gostaria era de criar uma maneira de baixar estes arquivos de forma mais rapida, principalemtne pelo lado da filial, para que esta nao fique encarregada de envia e-mails diariamente com os backups. Experimentei um compartilhador de arquivos chamado AVVENU q é bom, porem só roda em XP (e tenho a maioria das maquinas em WIN98), além do que é muito demorado a baixa, pois um pequeno arquivo de 3MB demora + de 5 min p ser baixado em uma conexao velox de 1GB enviado por uma filial c/ velox de 300K Qualquer ajuda será muito bem vinda []´s Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Re: [delphi-br] Select
O order by vem depois do where. - Original Message - From: Anderson [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br Sent: Monday, May 15, 2006 1:11 PM Subject: [delphi-br] Select Onde estou errando nesta linha de codigo: query1.CommandText := 'select * from Agenda order by '+ combobox1.text +' where '+ combobox1.text +' = like%Edit1.Text%'; utilizo ado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] A VERDADE
Que maravilha!!! Eu tbm tenho algo a confessar, ainda não tomei banho hoje. K - Original Message - From: Carlos Augusto [EMAIL PROTECTED] To: ASP. NET [EMAIL PROTECTED]; Asp.net 2003 [EMAIL PROTECTED]; augusto [EMAIL PROTECTED]; [EMAIL PROTECTED]; DANIELA RIO VERDE [EMAIL PROTECTED]; welington [EMAIL PROTECTED]; tiago [EMAIL PROTECTED]; thalys dessaune moreira moreira [EMAIL PROTECTED]; [EMAIL PROTECTED]; Projetando. NET [EMAIL PROTECTED]; [EMAIL PROTECTED]; Moreno [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br Sent: Tuesday, April 04, 2006 9:01 PM Subject: [delphi-br] A VERDADE Caros colegas Já não posso mais negar este sentimento. Estou tendo um caso homossexual a dois anos. Espero que compreendam. Beijos a todos. Carlos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Porque o Arquivo não é apagado?
Pessoal, estou com um problema com a função deletefile.
Tenho duas Variaveis do tipo String: Caminho e Arquivo.
Ex:
Caminho:='c:\meudiretorio';
Arquivo:='meuarquivo.txt';
DeleteFile(caminho+'\'+arquivo);
== Dessa forma o arquivo não é apagado
Já se eu colocar DeleteFile('c:\meudiretorio\meuarquivo.txt'); o arquivo é
apagado normalmente.
O que fazer para conseguir apagar usando variáveis?
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Porque o Arquivo não é apagado?
MEsma coisa,
Não apagou.
Alguem please me dá uma luz.
- Original Message -
From: Eduardo Silva dos Santos [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 04, 2006 10:39 AM
Subject: Re: [delphi-br] Porque o Arquivo não é apagado?
A principio teria que funcionar... tenta assim pra ver:
Ex:
Caminho:='c:\meudiretorio';
Arquivo:='meuarquivo.txt';
cFile := Caminho + Arquivo;
DeleteFile( cFile );
é redundante... mas tenta aí pra ver...
- Original Message -
From: Emerson Cassio [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 04, 2006 11:27 AM
Subject: [delphi-br] Porque o Arquivo não é apagado?
Pessoal, estou com um problema com a função deletefile.
Tenho duas Variaveis do tipo String: Caminho e Arquivo.
Ex:
Caminho:='c:\meudiretorio';
Arquivo:='meuarquivo.txt';
DeleteFile(caminho+'\'+arquivo);
== Dessa forma o arquivo não é apagado
Já se eu colocar DeleteFile('c:\meudiretorio\meuarquivo.txt'); o arquivo
é
apagado normalmente.
O que fazer para conseguir apagar usando variáveis?
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Porque o Arquivo não é apagado?
Já fiz isso.
E o caminho está correto.
Não entendo porque não apaga.
- Original Message -
From: Gabriel Filho [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 04, 2006 12:28 PM
Subject: Re: [delphi-br] Porque o Arquivo não é apagado?
Um jeito de verificar se esta tudo correto é vc usar um
showmessege(caminho+'\'+arquivo) uma linha antes da linha com o delete,
assim vc tem certeza do que está nas variáveis, pois qdo se esta mexendo com
funções de manipulação de arquivos e diretorios, o path atual muda sempre
para o ultimo utilizado.
Em 04/04/06, Emerson Cassio [EMAIL PROTECTED] escreveu:
Pessoal, estou com um problema com a função deletefile.
Tenho duas Variaveis do tipo String: Caminho e Arquivo.
Ex:
Caminho:='c:\meudiretorio';
Arquivo:='meuarquivo.txt';
DeleteFile(caminho+'\'+arquivo);
== Dessa forma o arquivo não é apagado
Já se eu colocar DeleteFile('c:\meudiretorio\meuarquivo.txt'); o arquivo é
apagado normalmente.
O que fazer para conseguir apagar usando variáveis?
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Porque o Arquivo não é apagado?
Amigo tbm já tentei.
E não deu certo.
- Original Message -
From: José Henrique (Zote) [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 04, 2006 12:50 PM
Subject: RES: [delphi-br] Porque o Arquivo não é apagado?
Cara, posso estar viajando muito, mas tenta assim:
Caminho := 'c:\meudiretorio';
Arquivo := 'meuarquivo.txt';
DeleteFile(PChar(caminho + '\' + arquivo));
[]'s
--
José Henrique (Zote)
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Emerson Cassio
Enviada em: terça-feira, 4 de abril de 2006 13:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Porque o Arquivo não é apagado?
Já fiz isso.
E o caminho está correto.
Não entendo porque não apaga.
- Original Message -
From: Gabriel Filho [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 04, 2006 12:28 PM
Subject: Re: [delphi-br] Porque o Arquivo não é apagado?
Um jeito de verificar se esta tudo correto é vc usar um
showmessege(caminho+'\'+arquivo) uma linha antes da linha com o delete,
assim vc tem certeza do que está nas variáveis, pois qdo se esta mexendo com
funções de manipulação de arquivos e diretorios, o path atual muda sempre
para o ultimo utilizado.
Em 04/04/06, Emerson Cassio [EMAIL PROTECTED] escreveu:
Pessoal, estou com um problema com a função deletefile.
Tenho duas Variaveis do tipo String: Caminho e Arquivo.
Ex:
Caminho:='c:\meudiretorio';
Arquivo:='meuarquivo.txt';
DeleteFile(caminho+'\'+arquivo);
== Dessa forma o arquivo não é apagado
Já se eu colocar DeleteFile('c:\meudiretorio\meuarquivo.txt'); o arquivo é
apagado normalmente.
O que fazer para conseguir apagar usando variáveis?
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
Received: (qmail 62255 invoked by uid 0); 4 Apr 2006 13:46:36 -0300
Received: from 66.163.187.202 by poseidon.bludata.com.br (envelope-from
[EMAIL PROTECTED]
om, uid 0) with qmail-scanner-1.25
(clamdscan: 0.85/974. spamassassin: 3.0.2.
Clear:RC:0(66.163.187.202):SA:0(-1.8/5.0):.
Processed in 8.758304 secs); 04 Apr 2006 16:46:36 -
X-Qmail-Scanner-Mail-From:
[EMAIL PROTECTED]
m via poseidon.bludata.com.br
X-Qmail-Scanner: 1.25 (Clear:RC:0(66.163.187.202):SA:0(-1.8/5.0):. Processed
in 8.758304 secs)
Received: from unknown (HELO n11c.bullet.sc5.yahoo.com) (66.163.187.202)
by poseidon.bludata.com.br with SMTP; 4 Apr 2006 13:46:27 -0300
Received: from [66.163.187.121] by n11.bullet.sc5.yahoo.com with NNFMP; 04
Apr 2006 16:46:09 -
Received: from [66.218.69.2] by t2.bullet.sc5.yahoo.com with NNFMP; 04 Apr
2006 16:46:08 -
Received: from [66.218.66.30] by t2.bullet.scd.yahoo.com with NNFMP; 04 Apr
2006 16:46:08 -
X-Yahoo-Newman-Property: groups-email
X-Sender: [EMAIL PROTECTED]
X-Apparently-To: delphi-br@yahoogrupos.com.br
Received: (qmail 12610 invoked from network); 4 Apr 2006 16:46:07 -
Received: from unknown (66.218.66.216)
by m24.grp.scd.yahoo.com with QMQP; 4 Apr 2006 16:46:07 -
Received: from unknown (HELO itapoa.terra.com.br) (200.176.10.194)
by mta1.grp.scd.yahoo.com with SMTP; 4 Apr 2006 16:46:07 -
Received: from moroto.terra.com.br (moroto.terra.com.br [200.176.10.5])
by itapoa.terra.com.br (Postfix) with ESMTP id A8A9B634F7E
for delphi-br@yahoogrupos.com.br; Tue, 4 Apr 2006 13:45:32 -0300 (BRT)
X-Terra-Karma: -2%
X-Terra-Hash: e597fe5ab37a016c82a4fbd06036cee1
Received-SPF: pass (moroto.terra.com.br: domain of terra.com.br designates
200.176.10.5 as permitted sender) client-ip=200.176.10.5;
[EMAIL PROTECTED]; helo=Emerson;
Received: from Emerson (unknown [200.96.203.249])
(authenticated user [EMAIL PROTECTED])
by moroto.terra.com.br (Postfix) with ESMTP id 4E8FE14CC190
for delphi-br@yahoogrupos.com.br; Tue, 4 Apr 2006 13:45:32 -0300 (BRT)
Message-ID: [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
References: [EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2800.1106
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
X-Originating-IP: 200.176.10.194
X-eGroups-Msg-Info: 1:12:0:0
From: Emerson Cassio [EMAIL PROTECTED]
X-Yahoo-Profile: ecassio_santos
Sender: delphi-br@yahoogrupos.com.br
MIME-Version: 1.0
Mailing-List: list delphi-br@yahoogrupos.com.br; contact
[EMAIL PROTECTED]
Delivered-To: mailing list delphi-br@yahoogrupos.com.br
List-Id: delphi-br.yahoogrupos.com.br
Precedence: bulk
List-Unsubscribe: mailto:[EMAIL PROTECTED]
Date: Tue, 4 Apr 2006 12:43:05 -0400
Subject:
=?iso-8859-1?Q?Re:_=5Bdelphi-br=5D_Porque_o_Arquivo_n=E3o_=E9_apagado=3F?=
Reply-To: delphi-br@yahoogrupos.com.br
Content-Type: text/plain; charset=ISO
[delphi-br] String para DbiName
Pessoal alguem tem alguma ideia de como converto uma variavel do tipo string para DbiName? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] String para DbiName
Estou usando algo assim para incluir um campo em uma tabela em tempo de
execução:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables,Grids, DBGrids, BDE, DBCtrls, Menus,
ComCtrls,
Buttons;
type
TForm1 = class(TForm)
Table1: TTable;
Button1: TButton;
Button2: TButton;
Table2: TTable;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
type
ChangeRec = packed record
szName: dbiname;
iType: Word;
iSubType: Word;
iLength: Word;
iPrecision: Byte;
end;
var
MyChangeRec: ChangeRec;
procedure AddField(Table: TTable; NewField: ChangeRec);
implementation
{$R *.DFM}
procedure AddField(Table: TTable; NewField: ChangeRec);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
pFlds: pFLDDesc;
pOp: pCROpType;
B: byte;
begin
if Table.Active = False then
raise EDatabaseError.Create('A tabela precisa estar aberta');
if Table.Exclusive = False then
raise EDatabaseError.Create('A tabela precisa estar aberta em modo
Exclusivo');
Check(DbiSetProp(hDBIObj(Table.Handle), curxltMODE, integer(xltNONE)));
Check(DbiGetCursorProps(Table.Handle, Props));
pFlds := AllocMem((Table.FieldCount + 1) * sizeof(FLDDesc));
FillChar(pFlds^, (Table.FieldCount + 1) * sizeof(FLDDesc), 0);
Check(DbiGetFieldDescs(Table.handle, pFlds));
for B := 1 to Table.FieldCount do begin
pFlds^.iFldNum := B;
Inc(pFlds, 1);
end;
try
StrCopy(pFlds^.szName, NewField.szName);
pFlds^.iFldType := NewField.iType;
pFlds^.iSubType := NewField.iSubType;
pFlds^.iUnits1 := NewField.iLength;
pFlds^.iUnits2 := NewField.iPrecision;
pFlds^.iFldNum := Table.FieldCount + 1;
finally
Dec(pFlds, Table.FieldCount);
end;
pOp := AllocMem((Table.FieldCount + 1) * sizeof(CROpType));
Inc(pOp, Table.FieldCount);
pOp^ := crADD;
Dec(pOp, Table.FieldCount);
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Close the table so the restructure can complete...
TableDesc.iFldCount := Table.FieldCount + 1;
Tabledesc.pfldDesc := pFlds;
TableDesc.pecrFldOp := pOp;
Table.Close;
// Call DbiDoRestructure...
try
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, FALSE));
finally
FreeMem(pFlds);
FreeMem(pOp);
Table.Open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
NumCampos:integer;
CampoAtual:SmallInt;
NomedoCampo,Inserir:string;
codloja:string;
begin
table1.Open;
table2.Open;
if length(inttostr(table2.Fields[0].value))=1
codloja:='0'+inttostr(table2.Fields[0].value)
else
codloja:=inttostr(table2.Fields[0].value)
//AQUI DÁ O
ERRO
MyChangeRec.szName := 'qtdlj'+CodLoja;///Aqui preciso atribuir como nome do
campo qtdlj+conteudo da variavel codloja
//porem da mensagem de erro [Error] Unit1.pas(148): Incompatible types:
'DBINAME' and 'String' pois o szName é do tipo DBINAME
//
MyChangeRec.iType := fldPDXNUM;
MyChangeRec.iSubType:=0;
MyChangeRec.iLength := 0;
MyChangeRec.iPrecision := 0;
Table1.Close;
Table1.Exclusive := True;
Table1.Open;
AddField(Table1, MyChangeRec);
Table1.Close;
Table1.Exclusive := False;
Table1.Open;
End;
- Original Message -
From: Rubem Nascimento da Rocha [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 21, 2006 11:26 AM
Subject: RE: [delphi-br] String para DbiName
DbiName? De onde vc tirou isso?
Sds.
From: Emerson Cassio [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] String para DbiName
Date: Tue, 21 Mar 2006 11:17:20 -0400
Pessoal alguem tem alguma ideia de como converto uma variavel do tipo
string
para DbiName?
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail
[delphi-br] Novo Campo Tabela Paradox
Pessoal, como faço para incluir um novo campo a uma tabela paradox em tempo de execução? Obrigado Emerson -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fw: POR FAVOR PASSEM PRA FRENTE...
Clear Day - Original Message - From: Willis To: Amigos Cc: viviane marques paz ; Valter Bispo ; valgomes ; TonyUbiratan ; Samuel Ferretti ; Planasa ; nsaragon ; Maria Celeste Lopes ; Luis Carlos Bortoletto ; Joseane ; Jhosy Bruxinha ; IURI ; IMPRESUL DE SILVA VILANI LTDA ; Gisele ; Fernanda Bratz Silva ; Fabio Sica ; Emerson Cassio ; Emanuele Moraes ; Editora Conceito ; Devalci Oliveira ; Cursos Humanistas ; Comercial N.Concept ; Claudio Gott ; CDV Despachante ; Cansian ; C. Moretti ; Bernadete Fortes ; Barbara Marçal ; Andre ; Amigos Sent: Monday, March 13, 2006 3:37 PM Subject: Fw: POR FAVOR PASSEM PRA FRENTE... POR FAVOR PASSEM PRA FRENTE... QUE DEUS AJUDE A ENCONTRAR ESSA LINDA MENINA! Boa Tarde ! A menina da foto em anexo é filha do Jean da escola Wisdom Idiomas, nosso conhecido. Favor enviar e-mail para conhecidos, em qualquer lugar do Brasil. Obrigado Meu nome é Jean e sou pai da PIETRA esta menina que aparece nas fotos. Estou escrevendo para solicitar sua ajuda pois ela esta Desaparecida desde o dia 28/11/05. ESTOU ENVIANDO ESTE E-MAIL PARA VOCÊS PARA QUE POSSAM REENVIA-LO PARA O MAIOR NRO DE PESSOAS POSSÍVEL E CASO TENHAM ALGUMA INFORMAÇÃO POR FAVOR ENTREM E CONTATO COMIGO. Estou pedindo pelo amor de DEUS que se você tiver qualquer informação sobre ela me avise. MUITO OBRIGADO, Jean Cel (47) 8413-4431 e-mail [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Problema No Envento OnChange Do Edit
if length(Edit1.text)0 then begin comandos; end; - Original Message - From: Cleiton [EMAIL PROTECTED] To: Delhpi delphi-br@yahoogrupos.com.br Sent: Tuesday, February 21, 2006 2:21 PM Subject: [delphi-br] Problema No Envento OnChange Do Edit Oi pessoal... Mais uma vez venho lhes pedir ajuda sobre um pequeno problema que estou tendo no evento OnChange dos meus Edits. O que acontece é seguinte: Em alguns Edits, no seu evento OnChange coloco alguma instrução, normalmente pra pesquisa de algum valor. Acontece que, quando é digitado um valor que não existe o usuário vai apagar o que ele digitou e quando apaga tudo acaba dando erro pois o valor no Edit está em branco, está nulo. Eu tentei resolver esse problema mais ou menos assim: if Edit1.text ' ' then begin comandos; end; Ou seja, se o valor for diferente de vazio de vazio execut aos comandos, caso contrário nao faz nada. Mas não está dando certo. Acontece o mesmo erro anterior. Alguém teria uma forma de resolver isso? Desde já muito obrigado a todos. -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componente para enviar email pelo delphi
Amigo, segue uma dica que publiquei tempos atrás na pagina delphi.eti, creio
que possa te ajudar.
Pessoal, a algum tempo vinha tentando incluir em um software a função
de
enviar email, porem usando o SMTP da TERRA, não dava certo de jeito
algum,
muitas perguntas em foruns sem respostas que levassem ao exito e muita
pesquisa na net frustradas depois, através de perssistencia e
tentativas
consegui resolver o problema, e assim sendo achei que não devo ser o
unico a
ter tido esse problema resolvi compartilhar a solução como segue
abaixo:
- Introduza num Form o coponente IdSmtp (no delphi6 está na paleta
IndyClients)
- Introduza num Form o coponente IdMessage (no delphi6 está na paleta
IndyMisc)
Segue Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
idsmtp1.AuthenticationType:=atlogin;//Conexão com autenticação
idsmtp1.Host:='smtp.roo.terra.com.br';//Servidor no caso o Terra
idsmtp1.Password:='suasenhadoterra';//senha
idsmtp1.Port:=25;//porta é sempre essa não mude isso
idsmtp1.UserId:='usuarioteste';//usuario terra
idmessage1.From.Address:='[EMAIL PROTECTED]';//email terra
idmessage1.From.Name:='Fulano da Silva';//nome que sairá na menssagem
idmessage1.From.Text:='Fulano da Silva';//Texto
composto do NomeEmail
//corpo da mensagem
idmessage1.Body.Add('Envio de email para testar se dá certo');
idmessage1.Body.Add(datetostr(date));
idmessage1.Body.Add(timetostr(now));
idmessage1.Body.Add('Deu Certo');
idmessage1.Recipients.EMailAddresses:='[EMAIL PROTECTED]';//o
email do destinatario
idmessage1.Subject:='Email de Teste do Programa Delphi';//assunto da
mensagem
//**
idsmtp1.Connect;//conecta ao servidor de email
try
idsmtp1.Send(idmessage1);// envia a menssagem
finally
idsmtp1.Disconnect;//Disconecta do servidor
end;
end;
Autor: Emerson Cassio ([EMAIL PROTECTED])
Adiconada dia: 13/05/05 às 13:04:52, por: Emerson
Visualizada 740 vezes.
- Original Message -
From: auristonlopes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 31, 2006 11:28 AM
Subject: [delphi-br] Componente para enviar email pelo delphi
Estou precisando de um componente para enviar email, tanto na internet
discada e na banda larga, alguem que ja usa e esta tendo sucesso,
favor me dar uma dica.
sds
auriston
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] [Off Topic ] Servidor ftp
Amigo, segue um tutorial. http://www.boadica.com.br/layoutdica.asp?codigo=439 Emerson Cassio - Original Message - From: Carlos Eduardo Carvalho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 31, 2006 6:05 PM Subject: Re: [delphi-br] [Off Topic ] Servidor ftp Desculpem, não me expressei bem O que preciso é colocar um servidor FTP rodando no meu servidor (Windows XP). Não preciso que este seja feito em Delphi, nem quero ter esse trabalho - pelo menos por enquanto... Basta colocar um ftp no ar pra disponibilizar e/ou trocar arquivos pertinentes a nossa comunidade (Delphi). Este servidor já está rodando como servidor de internet e de arquivos (intranet) e a partir de hoje, como hospedeiro de um site, que estarei logo mais divulgando aqui. Cadu. - Original Message - From: José Henrique (Zote) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 31, 2006 2:33 PM Subject: RES: [delphi-br] [Off Topic ] Servidor ftp Se queres apenas colocar um servidor FTP pra rodar, se usares windows, podes colocar o do próprio IIS, senão podes usar um dos vários disponíveis em www.superdownloads.com.br procura por servidor ftp. Agora, se for pra desenvolver um em delphi, complica um pouco mais, mas acho que o pessoal do Indy pode te ajudar. Abraço -- José Henrique (Zote) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Eduardo Carvalho Enviada em: terça-feira, 31 de janeiro de 2006 11:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [Off Topic ] Servidor ftp Boa noite amigos. Primeiro descupem o off porem não tenho mais a quem recorrer. Aguem aqui sabe como montar um servidor FTP ? Sei alguns amigos daqui tem um servidor para compartilhar alguns arquivos em seu micro pessoal, gostaria de fazer o mesmo, inclusive material sobre delphi. Se alguem puder me ajudar, pode me contatar em PVT [EMAIL PROTECTED] Grato a todos PS: Tenho um micro que pretendo deixar rodando 24 p/ dia com um HD de 200gb para servidor de arquivos e de internet, onde pretendo hospedar meu site (em construção) se alguem estiver interessado em lugar pra deixar arquivos para compartilhar com amigos, pretendo deixar aprox. 120 gb de espaço livre. ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Received: (qmail 22158 invoked by uid 0); 31 Jan 2006 11:09:53 -0200 Received: from 66.94.237.36 by poseidon.bludata.com.br (envelope-from [EMAIL PROTECTED] om, uid 0) with qmail-scanner-1.25 (clamdscan: 0.85/974. spamassassin: 3.0.2. Clear:RC:0(66.94.237.36):SA:0(-2.2/5.0):. Processed in 7.640078 secs); 31 Jan 2006 13:09:53 - X-Qmail-Scanner-Mail-From: [EMAIL PROTECTED] m via poseidon.bludata.com.br X-Qmail-Scanner: 1.25 (Clear:RC:0(66.94.237.36):SA:0(-2.2/5.0):. Processed in 7.640078 secs) Received: from unknown (HELO n2a.bullet.scd.yahoo.com) (66.94.237.36) by poseidon.bludata.com.br with SMTP; 31 Jan 2006 11:09:46 -0200 Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=hotel; d=yahoogrupos.com.br; b=KSlbOD2Y1VLIMO4JNbo4+w4+qr8PUOxp88BrCWSggK5wK2mw8NAmkc4uhAREyiV+aFLUUhVDh1 gREqBPJYEorreC2RJffMQ+DX2uXkhB4igyGEEJjgVCN3mOijs8ow52; Received: from [66.218.69.2] by n2.bullet.scd.yahoo.com with NNFMP; 31 Jan 2006 13:09:20 - Received: from [66.218.66.98] by t2.bullet.scd.yahoo.com with NNFMP; 31 Jan 2006 13:09:20 - X-Yahoo-Newman-Property: groups-email X-Sender: [EMAIL PROTECTED] X-Apparently-To: delphi-br@yahoogrupos.com.br Received: (qmail 26436 invoked from network); 31 Jan 2006 13:09:18 - Received: from unknown (66.218.66.216) by m15.grp.scd.yahoo.com with QMQP; 31 Jan 2006 13:09:18 - Received: from unknown (HELO smtp109.mail.mud.yahoo.com) (209.191.85.219) by mta1.grp.scd.yahoo.com with SMTP; 31 Jan 2006 13:09:18 - Received: (qmail 86074 invoked from network); 31 Jan 2006 13:09:06 - Received: from unknown (HELO COMP004) ([EMAIL PROTECTED] with login) by smtp109.mail.mud.yahoo.com with SMTP; 31 Jan 2006 13:09:05 - Message-ID: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2800.1409 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409 X-Originating-IP: 209.191.85.219 X-eGroups-Msg-Info: 1:12:0:0 From: Carlos Eduardo Carvalho [EMAIL PROTECTED] X-Yahoo-Profile: cc_camp2005 Sender: delphi-br@yahoogrupos.com.br MIME-Version: 1.0 Mailing-List: list delphi-br@yahoogrupos.com.br; contact [EMAIL PROTECTED] Delivered-To: mailing list delphi-br@yahoogrupos.com.br List-Id: delphi-br.yahoogrupos.com.br Precedence: bulk List-Unsubscribe: mailto:[EMAIL PROTECTED] Date: Tue, 31 Jan 2006 11:09:00 -0200 Subject: [delphi-br] [Off Topic ] Servidor ftp Reply
[delphi-br] Envio Arquivo para Matriz
Envio Arquivo para Matriz Pessoal, eu tenho uma aplicação rodando em uma empresa, na Matriz e em suas Filiais. Todo dia no fim do dia as filiais enviam alguns arquivos (de fechamento) para um determinado FTP e a Matriz por sua vez baixa esses arquivos do FTP. Isso tudo está implementado no meu sistema e ocorre de forma automatizada. Porem, ocorre muitos problemas de conexão com o servidor FTP e isso está inviabilizando o processo. Tem alguma forma (deve ter mas como nunca fiz desconheço) das filiais enviarem esses arquivos diretamente para a Matriz? Quais ferramentas usar? Não espero que ninguem me de de badeja não mas me mostre o caminho. Atc. Emerson Cassio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Atualização de StatusBar
Pessoal é o seguinte tenho um StatusBar com 02 Panels, no segundo agreguei um Progresbar que mostra o andamento da execução de 03 procedures. Tenho uma procedure de Processamento de Vendas, uma de Processamento de Trocas, e uma de Processamento de Calculo de Médias, denominadas de Vendas, Trocas, e Medias; No evento de clique de um botão tenho o seguinte: begin statusbar1.Panels[0].Text:='Aguarde. - Processando as Trocas!'; trocas; statusbar1.Panels[0].Text:='Aguarde. - Processando as Vendas!'; vendas; statusbar1.Panels[0].Text:='Aguarde. - Processando as Médias!'; medias; end; não sei porque motivo essas atualizações do panels[0] do status bar não ocorre, o progressbar faz mosta a evolução dos 03 procedimentos certinho, porem o panels[0] não aparece as atualizações como deveria, informando que procedimento esta em execução, somente após o termino dos três aparece a ultima ocorrencia 'Aguarde. - Processando as Médias!'. Como resolver isso? Grato Emerson Cassio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SQL
Pessoal sei que é simples, mas estou ficando doido aqui e não estou conseguindo fazer. Tenho uma tabela com os seguintes campos (paradox): Codigo Qtd Valor Tipo Presico que um comando sql me retorne a soma do campo Qtd, a soma do campo Valor agrupando pelo código, porem somente para os registros onde Tipo=Venda. Alguem qpode me dar uma luz. Emerson Cassio. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Para os Novatos e tbm Veteranos que não conheçam
Pessoal, tem muitas duvidas que são postadas nos foruns que são simples de resolver para quem não conhece baixem esse programa de consulta que é excelente e muito bem feito (não é de minha autoria, é apenas uma dica), grande parte das minhas dúvidas eu consigo sanar com o mesmo. http://sites.uol.com.br/disco_virtual/lloydsoft/compartilhada/dtdelphi27.zip Emerson Cassio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: [lista-delphi] Strings...
Primeira coisa voce deve definir quantos espaços vai ter cada coluna
EXEMPLO:
==
ColunaDescricao = 25 Espaços e Alinhado a Esquerda
ColunaQuantidade = 03 Espaços e Alinhado a Direita
ColunaValor = 12 Espaços e Alinhado a Direita
Espaço entre as colunas = 03
-Digamos que Vamos obter os dados de 01 Tabela que tem os 03 campos na ordem
acima sendo String, Integer e Currency respectivamente.
A função abaixo Faz o alinhamento da String a Direita dentro de um
Determinado espaço
function AlinhaStr(s:string;n:integer):string;
{alinha uma string à direita}
begin
Result:=Format('%'+IntToStr(n)+'.'+IntToStr(n)+'s',[s]);
end;
procedure formprincipal.button1.click;
var
arq: TextFile;
Descricao, Quantidade: String;
Valor: Currency;
Begin
AssignFile ( arq,'c:\ArquivodeExemplo.txt');
Rewrite ( arq );
WriteLn (arq,StringOfChar(' ',14)+'R E L A T O R I O');
WriteLn (arq,StringOfChar('=',46));
WriteLn (arq,'DESCRICAO+StringOfChar(' ',16+3)+'QTD VALOR / ITEM');
WriteLn (arq,StringOfChar('-',25)+' 'StringOfChar('-',3)+'
'+StringOfChar('-',12));
If Tabela1.recordcount0 then
begin
Repeat
Descricao:=Tabela1.fields[0].text;
Quantidade:=inttostr(Tabela1.fields[1].value);
Valor:=Tabela1.fields[2].Value;
WriteLn (arq,Descricao+StringOfChar('
',25+3-length(descricao))+alinhastr(quantidade,3)+alinhastr(formatcurr('R$
##,##0.00',valor),3+12);
Tabela1.Next;
until Tabela1.eof;
end;
CloseFile ( arq );
end;
Emerson Cassio
- Original Message -
From: Jackson D. Savitraz [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Saturday, May 14, 2005 2:35 PM
Subject: [lista-delphi] Strings...
Estou gerando um relatório em .txt e gostaria de criá-lo em colunas de
caracteres fixos...
Tipow em vez de tabulação, dar espaços.
NOME TIPO VALOR
OBJ1 A R$ 400,00
TESTEEE B R$ 10,00
GERARC R$ 45,00
Abraços,
Jackson.
Não deixe de visitar o site oficial da lista:
http://www.delphibr.com.br
Comunidade Delphibr no Orkut:
http://www.orkut.com/Community.aspx?cmm=753495
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Enigma Envio de Email pelo Terra
Pessoal, a algum tempo vinha tentando incluir em um software a função de
enviar email, porem usando o SMTP da TERRA, não dava certo de jeito algum,
muitas perguntas em foruns sem respostas que levassem ao exito e muita
pesquisa na net frustradas depois, através de perssistencia e tentativas
consegui resolver o problema, e assim sendo achei que não devo ser o unico a
ter tido esse problema resolvi compartilhar a solução como segue abaixo:
- Introduza num Form o coponente IdSmtp (no delphi6 está na paleta
IndyClients)
- Introduza num Form o coponente IdMessage (no delphi6 está na paleta
IndyMisc)
Segue Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
idsmtp1.AuthenticationType:=atlogin;//Conexão com autenticação
idsmtp1.Host:='smtp.roo.terra.com.br';//Servidor no caso o Terra
idsmtp1.Password:='suasenhadoterra';//senha
idsmtp1.Port:=25;//porta é sempre essa não mude isso
idsmtp1.UserId:='usuarioteste';//usuario terra
idmessage1.From.Address:='[EMAIL PROTECTED]';//email terra
idmessage1.From.Name:='Fulano da Silva';//nome que sairá na menssagem
idmessage1.From.Text:='Fulano da Silva[EMAIL PROTECTED]';//Texto
composto do NomeEmail
//corpo da mensagem
idmessage1.Body.Add('Envio de email para testar se dá certo');
idmessage1.Body.Add(datetostr(date));
idmessage1.Body.Add(timetostr(now));
idmessage1.Body.Add('Deu Certo');
idmessage1.Recipients.EMailAddresses:='[EMAIL PROTECTED]';//o
email do destinatario
idmessage1.Subject:='Email de Teste do Programa Delphi';//assunto da
mensagem
//**
idsmtp1.Connect;//conecta ao servidor de email
try
idsmtp1.Send(idmessage1);// envia a menssagem
finally
idsmtp1.Disconnect;//Disconecta do servidor
end;
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Problema com Filter, utilizando data
Use assim: Var Texto : String; Begin Table1.Filter := 'state = '+QuotedStr(Texto); Table1.Filtered := True; End; Onde state é o nome do campo da tabela, e texto é o valor do filtro. Emerson Cassio - Original Message - From: Rogério Ribeiro Macêdo [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 03, 2005 10:30 AM Subject: [delphi-br] Problema com Filter, utilizando data Estou tendo problemas em acertar o uso da propriedade Filter utilizando data, se alguém puder me ajudar agradeço. Não consigo acertar corretamente a sintaxe, quando utilizo o tipo de dados Data. Rogério -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
=?iso-8859-1?Q?Re:_=5Bdelphi-br=5D_Criar_uma_Conex=E3o_DialUp?=
Thiago, eu já estou quase convencido, de que não tem jeito de fazer essa proeza, pelo menos não que eu tenha conseguido, porem como paleativo farei como o discador terra usa. Vou criar uma conexão sem login, sem senha e sem numero para discagem, e farei com que minha aplicação use essa conexão e que insira esses dados no momento da discagem, Tudo automaticamente. Mas caso vc encontre algo me avise tbm. Emerson Cassio - Original Message - From: Thiago Luiz [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 03, 2005 10:25 AM Subject: Re: [delphi-br] Criar uma Conexão DialUp Emerson, estou a procura disso já faz muito tempo, a única coisa que consegui foi chamar o Wizard de criação do Windows, mas isso para mim não serve. Se for isso, tem uma porrada de exemplos na net, e acho até que tenho alguns aqui, mas se for do jeito que eu preciso, por favor se achar algo, não deixe de me avisar. grato. []s Thiago - Original Message - From: Artur Guerra To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 03, 2005 10:15 AM Subject: Re: [delphi-br] Criar uma Conexão DialUp Emerson, tenho um componente para discagem para Delphi 5. Caso haja interesse me avise que lhe envio em pvt. Abraço. On 5/2/05, Emerson Cassio [EMAIL PROTECTED] wrote: Pessoal, eu preciso fazer o seguinte, em um computador que não tem nenhuma Conexão DialUp criada, preciso via programa, criar uma conexão DialUp, Conectar usando essa Conexão, Disconectar e por fim Excluir essa Conexão Criada. Alguem pode me ajudar? Emerson Cassio [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- Artur Rodrigo Guerra mail: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] tabelas no richedit
Para listas os dados de uma tabela em um richedit, você deve fazer um loopyng na tabela para tribuir os dados do registro a linha do richedit.lines.add - Original Message - From: Thiago [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, April 15, 2005 9:54 AM Subject: [delphi-br] tabelas no richedit Alguém sabe como usar tabelas no richedit? vlw [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DbGrid com MultiSelect
Pessoal, tenho um form com 02 DbGrid casa um ligado a uma tabela com estruturas identicas. Minha duvida é: preciso ao clicar um botão os registros selecionados(MultiSelect) no DbGrid1(tabela1) sejam gravados no DbGrid2(tabela2) e deletados do DbGrid1(tabela1). Desde já agradeço a atenção. Emerson Cassio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] IdFtp - Palheta IndyCliente
Pessoal, tenho pouca experiência com componentes para interação com a internet, porem eu fiz um pragraminha que se conecta a determinado ftp, eu preciso do seguinte: - verificar dentro da pasta /teste , se existe algum arquivo, caso exista preciso que seja feito o download de todos os arquivos arquivos desta pasta. como seria este procedimento. No aguardo, conto com a experiencia d etodos. Emerson Cassio. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
