[delphi-br] [APLICACAO OFF-LINE]
Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line, ou seja o representante comercial vai até o cliente, digita o pedido e mais tarde transmite o pedido a fabrica. vou preciar criar uma base de dados no cliente. o que fica melhor ?? dados em txt ? xml ? banco(qual). qual componete devo utilizar para fazer a comunicacao/sincronizacao dos dados ?? se alguem algum material para estudar , algumas dicas .. o que nao fazer .. att. Marcio
Re: [Rotulagem] RE: [delphi-br] [APLICACAO OFF-LINE]
Nao entendi o binarios do clientdataset ??? pode me clarear as ideias. att. Marcio. At 09:06 19/1/2010 -0800, you wrote: Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line, ou seja o representante comercial vai até o cliente, digita o pedido e mais tarde transmite o pedido a fabrica. vou preciar criar uma base de dados no cliente. o que fica melhor ?? --binarios do clientdataset dados em txt ? xml ? banco(qual). qual componete devo utilizar para fazer a comunicacao/sincronizacao dos dados ?? --DataSnap sem nenhuma duvida se alguem algum material para estudar , algumas dicas .. o que nao fazer .. --http://cc.embarcadero.com/author/795118http://cc.embarcadero.com/author/795118 --http://www.yahoogrupos.com.br/group/nddv att. Marcio Click here https://www.mailcontroller.altohiway.com/sr/7VabMuUReGrTndxIhttps://www.mailcontroller.altohiway.com/sr/7VabMuUReGrTndxI!oX7Up4RmTWEAj2hIPAGCwfUkYrMziPwCZeGZFOzQIlXLpimr8xudnTOzjv1lqOECv!Swg== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio Email Delphi 2010 (indy 10) e gmail
tive muitos problemas com o Indy 9 o Indy 10 , mudei
para o Synapse .. otimo pratico
att. Marcio
At 16:18 10/1/2010 -0300, you wrote:
Boa tarde,
Eu preciso de uma ajuda de vocês sobre envio de emails usando o Delphi 2010
que usa o Indy 10 e uma conta no Gmail.
Eu tinha desenvolvido do Delphi 7 (Indy 9) e gmail e funcionava
perfeitamente, porém, com a mudança de versão do Indy, agora apresenta
vários erros de programação.
var
newText: TIdText;
with IdSMTP1 do
begin
AuthenticationType := atLogin;
Host := 'smtp.gmail.com';
IOHandler := IdSSLIOHandlerSocket1;
Password := 'exemplo';
Port := 465;
Username := 'exemplo @gmail.com'; //não esqueça o @gmail.com!!
end;
IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2;
IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient;
newText := TIdText.Create(IdMessage1.MessageParts, nil);
newText.ContentType := 'text/html';
newText.Body.Add('HTMLBODY');
newText.Body.Add('BIFont size=3pxAbertura de novo chamado
para informática!/font/I/B');
newText.Body.Add('BRBR');
Os problemas que apresentaram foram os seguintes:
- o componente IdSSLIOHandlerSocket não foi encontrado. As DLLs já fiz o
download e estão na pasta System32
- O componente IdSMTP não reconhece o comando AuthenticationType := atLogin
- O Delphi não reconhece o tipo de variável TIdText.
Por favor, alguém sabe como eu posso alterar esse código para que ele
funcione com o Indy 10? Estou migrando um sistema que desenvolvi no Delphi
7.
Eu utilizo o Windows 7 (x64) e Delphi 2010.
Obrigado.
Att.
Ricardo Ravelli.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tratamento de XML
Diego , voce esta gerando o XML ou esta lendo ?? At 16:59 10/12/2009 -0200, you wrote: Sim, mas imagine o seguinte... eu tenho vários nós filhos (50 por exemplo) e não sei se alguns deles tem ou não tem valor. para todos os nos filhos eu verifico se o valor que pretendo gravar esta em branco, caso esteja eu não adiciono o no filho mas para chegar nessa etapa eu obrigatoriamente tenho que adicionar o nó o pai, nessa o nó pai pode ficar vazio no final. *Diego Garcia* Twitter: http://www.twitter.com/drgarcia1986 2009/12/10 Marcio Luis mar...@sulfabril.com.br se voce estiver gerando o no filho , simplismente nao gere ele . att. Marcio. At 16:09 10/12/2009 -0200, you wrote: Amigos boa tarde... Gostaria de saber se existe alguma maneira de *limpar* os nós sem valor de um xml. Pro exemplo, estou montando um *XML* com o *TXMLDocument *, adiciono um nó que será um *nó pai* de outros nós que viram na sequencia... Por ventura, nenhum *nó filho possui valor *ou seja, terei o que chamamos de *nó perneta *. Gostaria de saber se existe alguma forma de remover esses nós do xml final de preferência utilizando o próprio *TXMLDocument *ou mesmo tratamento de texto mesmo.. *xml de exemplo*: *pessoa* *nome*João*/nome* * idade*50*/idade* *ende / * esse nó seria um nó pai de outros 5 nós filhos por exemplo */pessoa* Preciso disso pois, alguns *WebServices *(como por exemplo *NFe*) obrigam a remoção desses nós. desde já, muito obrigado. -- *Diego Garcia* Twitter: http://www.twitter.com/drgarcia1986http://www.twitter.com/drgarcia1986 [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
Re: [delphi-br] Tratamento de XML
se voce estiver gerando o no filho , simplismente nao gere ele . att. Marcio. At 16:09 10/12/2009 -0200, you wrote: Amigos boa tarde... Gostaria de saber se existe alguma maneira de *limpar* os nós sem valor de um xml. Pro exemplo, estou montando um *XML* com o *TXMLDocument *, adiciono um nó que será um *nó pai* de outros nós que viram na sequencia... Por ventura, nenhum *nó filho possui valor *ou seja, terei o que chamamos de *nó perneta *. Gostaria de saber se existe alguma forma de remover esses nós do xml final de preferência utilizando o próprio *TXMLDocument *ou mesmo tratamento de texto mesmo.. *xml de exemplo*: *pessoa* *nome*João*/nome* * idade*50*/idade* *ende / * esse nó seria um nó pai de outros 5 nós filhos por exemplo */pessoa* Preciso disso pois, alguns *WebServices *(como por exemplo *NFe*) obrigam a remoção desses nós. desde já, muito obrigado. -- *Diego Garcia* Twitter: http://www.twitter.com/drgarcia1986http://www.twitter.com/drgarcia1986 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quick Report
eu transformo em JPG. At 16:36 30/11/2009 +, you wrote: Boa tarde. Estou com uma duvida, gostari de saber se tem como enviar os relatorios em quick report por email. Ou entao salvar a imagem e enviar a imagem por email. Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [QuickRep.preview ]
Ola pessoal , Mostro o relatorio na tela para o usuario atravez do QuickRep.preview . existe uma maneira de eu pegar ou executar uma acao se o usuario imprimir atravez do botao print ??? tenho que saber quantas vezes ele imprimiu . att. Marcio
Re: [delphi-br] Problemas com arredondamento
Ja tentou aplicar as funcoes div e mod talvez resolva seu caso .. att. Marcio.
Re: [delphi-br] Pesquisar Arquivos PDFs
Isso pode te ajudar ... utilizo a mascara abaixo para pesquisar arquivos da nota fiscal eletronica , pois tenho varios pontos de emissao de notas .. no seu caso : E1João.pdf ??João.pdf att. Marcio gMaskPesquisa:= ''; //42090782636911000174550010009320539884052403-nfe.xml gMaskPesquisa := '??' + paEmp.CNPJ + paEmp.modNF + paEmp.SerieNF + '' + paEmp.empcod + '?' ; function procuraArquivos(const pastaProcura : String; Mascara : String; const tipoArquivo:String):TstringList; var Mask : String; ResultFile: Boolean; SearchArquivo: TSearchRec; StringList : TStringList; begin Result := TStringList.Create; try mask := pastaProcura + Mascara + tipoArquivo; ResultFile := (FindFirst(Mask, faArchive, SearchArquivo) = 0); try if ResultFile then repeat result.add(SearchArquivo.Name); until(FindNext(SearchArquivo) 0); finally FindClose(SearchArquivo); end; except FreeAndNil(Result); raise; end; end; At 15:37 17/11/2009 -0300, you wrote: Caro amigos, preciso localizar uns arquivos PDFs baseado em um critério qualquer, filtrar os arquivos localizados e quando eu der um clique ele abrir o arquivo pdf. Exemplo: Numa pasta tenho n arquivos do tipo E1João.pdf, E2Maria.pdf, E3João.pdf, E1Marcos.pdf, Se eu escolher o cliente João ele deve localizar, filtrar e mostrar na tela os arquivos: E1João.pdf, E3João.pdf, Existe algum componente para isso? Preciso de uma luz! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Página Zerada no fast report
Se voce usa o quick report .. de um prepare antes pegue o nemero de paginas , guarde depois de um print. att. MArcio. At 08:51 7/10/2009 -0300, you wrote: Experimente Página [Page#] de [TotalPages#] abraços Rod Em Tue, 06 Oct 2009 08:43:34 -0300, Guilherme Ventura de Souza ventur...@gmail.com escreveu: Pessoal, alguém aí já passou por isso, o código para mostrar a numeração de página que estou usando eh o seguinte: Página [Page] de [TotalPages] Porém quando gero o relatório ele me retorna Página 1 de 0 por exemplo =/ Talvez tenha alguma coisa a ver com o fato de que eu quero recomeçar a contagem de página a cada novo grupo que aparecer no relatório. Alguma sugestão? Abraços Att, Guilherme Ventura de Souza MSN: ventur...@hotmail.com http://venturalp.kinghost.net [As partes desta mensagem que não continham texto foram removidas] -- Usando o revolucionário cliente de e-mail do Opera: http://www.opera.com/mail/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] QuickReport Layout Criado em runtime
ehhh mostra ai tambem achei interresante !! Marcio.
Re: [delphi-br] Anexos Indy9
nem me fala mai em indy !!! com o Indy9 , meu provedor colocava os email todo como Spam , nao teve jeito intalei o Indy10 resolvi este problema , entao comecou erros com autenticacao mais uma novela .. meus problemas acabaram qundo comecei a usar os pas do Synapse .. é isso ai .. foi dica de um companheiro aqui da lista .. boa sorte Marcio.
Re: [delphi-br] [help funcao com record]
Humm .. bom ideia , mas na utilizacao o delphi pede para eu passar o parametro REC. o que eu informo ? if leXML_ReciboLoteEnviado(arquivo,REC) then .
Re: [delphi-br] Contador no e-mail
para o php funcionar ele deve estar instalado em um servidor, como o codigo fonte tambem. visualizacoes do email ??? o destinatario vai ler o email na maquina dele , como vc pretende atualizar isso?? explique-se melhor. att. Marcio. At 05:27 30/9/2009 -0300, you wrote: Pessoal, gostaria de enviar um e-mail no formato html e fazer um contador em php, ou seja, o e-mail mostrará o html e o php atualizaria o bd para contar as visualizações do e-mail... Estou utilizando o formato ContentType := 'text/html', porém quando abro o e-mail ele só mostra o html sem executar o código php. Alguém sabe? Obrigado! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [help funcao com record]
Pessoal , tenho algumas funcoes aqui que utilizo o retorno como Record. Gostaria de uma ajuda dos mais experientes no assunto, se é correto isso , ou tem forma mais pratica de usar. o mais esquisito é qundo quero tratar se teve resultado . numa funcao normal faria assim if minhaFuncao(valor) then agora com um recorde é mais complicado tenho que passar um valor . teria outro jeito de usar isso ?? att. Marcio TDadosRecibo = record cStat : String; xMotivo: String; nRec: String; end; function TfrmEnvio.leXML_ReciboLoteEnviado(ArquivoEnder:String): TDadosRecibo; var achou : Boolean; begin achou := FAlse; if achou = false then begin result.cStat:= 'ERRO_404'; Result.nRec := 'ERRO_404'; Result.xMotivo := 'Arquivo nao encontrado' + ArquivoEnder; end else begin result.cStat:= cStat; Result.nRec := nRec; Result.xMotivo := xMotivo; end; end; if
[delphi-br] [ Problema com DeleteFile e MoveFile ]
Pessoal, estou com problemas com os comando DeleteFile e MoveFile , as vezes
nao deixa mover os arquivos. com a funcao MoverCopiarArquivo tambem ocorre
isso .
o que pode ser o arquivo nao esta em uso;
if not CopyFile(PChar(sOrigem), PChar(sDestino), false) then
ShowMessage('Erro ao copiar ' + sOrigem + ' para ' +
sDestino);
if not DeleteFile(sOrigem) then
ShowMessage('Não consegui excluir ' + sOrigem);
MoveFile(PAnsiChar(PastaPreEnvia + NumNota + '-' +
EMPRESA.empcod + '-nfe.txt'),
PAnsiChar(PastaPreEnvia + 'movidos\' + NumNota + '-'
+ EMPRESA.empcod + '-nfe.txt'));
function MoverCopiarArquivo(const Origem, Destino : string; Operacao,
Modo:Integer) : Boolean;
// Requer a unit ShellApi na clausula uses da unit
Const
Aborted : Boolean = False;
var
shfo : TSHFileOpStruct;
begin
FillChar(shfo,SizeOf(shfo),$0);
with shfo do
begin
lpszProgressTitle := 'Aguarde, realizando copia...';
if Operacao 2 then
begin
operacao := 2;
end;
if Modo 5 then
begin
modo := 1;
end;
case operacao of
1: wFunc := FO_MOVE;
2: wFunc := FO_COPY;
end;
case operacao of
1: lpszProgressTitle := 'mlb - Movendo';
2: lpszProgressTitle := 'mlb - Copiando';
end ;
pFrom := Pchar(Origem);
pTo := Pchar(Destino);
case Modo of
1: fFlags := FOF_SILENT;
2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY; // usar 2
3: fFlags := FOF_RENAMEONCOLLISION;
4: fFlags := FOF_NOCONFIRMATION;
5: fFlags := FOF_SIMPLEPROGRESS;
end;
end;
Result := (SHFileOperation(shfo)= 0) and (not Aborted);
end;
Re: [delphi-br] PervasiveSql e Delphi
se souber me avisa, que tambem preciso. att. Marcio.
[delphi-br] socorro INDY10 autenticacao
Socorro pessoal !! Indy10 e Delphi7. alguem ja passou por uma situacao dessa ; estou utilizando o Indy10 para enviar email para nossos cliente . na fase de teste estava usando meu email , como teste , funciona 100% entao criei o email oficial para a situacao . e o Indy nao autentica de jeito nenhum , tentei com outros emais, (com o mesmo dominio) e nao tem jeito , so o meu funciona. parece que o Indy10 tem algum problema . algume ja passou por algo parecido??? att. Marcio.
Re: [delphi-br] socorro INDY10 autenticacao
Alexandre , todos sao do '@sulfabril.com.br' . nao sei mais o que fazer , ja fiz varios programinhas e nada . usamos um servidor de email proprio em lixux. att. Marcio At 15:24 24/9/2009 -0300, you wrote: Prezado Marcio Os outros e-mails são do mesmo domínio que o teu (ex.: @sulfabril.com.br)? Se forem de outro domínio, o problema pode ser a utilização de porta diferente ou autenticação segura. Dê uma olhada nisso e veja se está tudo bem configurado no componente. Um exemplo disso são os servidores de e-mail do Terra e do Yahoo. Eles andaram mexendo esse tipo de configuração de seus servidores e não avisaram publicamente isso. Até eu descobrir que tinha mudado a configuração, eu apanhei um monte para enviar e-mails por eles. Segundo eles, as mudanças foram feitas com o intuito de reduzir o envio de SPAM. Atenciosamente Alexandre - Original Message - From: Marcio Luis mar...@sulfabril.com.br To: delphi-br@yahoogrupos.com.br Date: Thu, 24 Sep 2009 14:45:12 -0300 Subject: [delphi-br] socorro INDY10 autenticacao Socorro pessoal !! Indy10 e Delphi7. alguem ja passou por uma situacao dessa ; estou utilizando o Indy10 para enviar email para nossos cliente . na fase de teste estava usando meu email , como teste , funciona 100% entao criei o email oficial para a situacao . e o Indy nao autentica de jeito nenhum , tentei com outros emais, (com o mesmo dominio) e nao tem jeito , so o meu funciona. parece que o Indy10 tem algum problema . algume ja passou por algo parecido??? att. Marcio. E-mail verificado pelo Terra Anti-Spam. Para classificar esta mensagem como spam ou não spam, visite http://ecp.terra.com.br/cgi-bin/reportspam.cgi?+_d=SCYxMDEwNDI2MyNwZXJtIXRlcnJhJjEsMTI1MzgxNTYzOC4zNDQ4NDguMzcxNi5hbGRhYnJhLmhzdC50ZXJyYS5jb20uYnIsMTk5MzY=TerraMail Verifique periodicamente a pasta Spam para garantir que apenas mensagens indesejadas sejam classificadas como Spam. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] Re: socorro INDY10 autenticacao
Mais uma coisa estranha acontece resolvi alterar minha senha de email no servidor .. puft !!! agora nao consigo mais enviar nem com esse email !! alterei para a semha antiga , funciona !!! Tem alguma explicacao cientifica para isso que coisa louca !! att. Marcio
[delphi-br] [TXT - COMO SABER SE ARQUIVO ESTA EM USO]
Ola , ola ... Help companheiros ... estou abrindo um arquivo TXT(xml). vXMLDoc.LoadFromFile(ArquivoEnder); so que qndo o arquivo esta em uso da pau !! tem alguma funcao para testar se o arquivo esta em uso ?? Marcio .
Re: [delphi-br] Gerar Vetor Dinâmico
Para gerar um numero faco assim ..
chavearquivo := FormatDateTime('hhmmss',now) ;
O que isso tem a ver com vetor??
att. Marcio
At 15:45 1/4/2009 -0300, you wrote:
Você poderia, ao invés de usar a variável k, usar a variável i acrescida de
algum fator. Você poderia pegar um valor a partir da hora atual pra gerar
esse fator. O exemplo abaixo cria um número com 3 algarismos a partir do
final da hora.
var iFator : Integer;
sHora : String;
begin
sHora := DateTimeToStr(Now);
sHora := StringReplace(sHora, '/', '', [rfReplaceAll]);
sHora := StringReplace(sHora, ':', '', [rfReplaceAll]);
sHora := StringReplace(sHora, ' ', '', [rfReplaceAll]);
iFator := StrToInt(Copy(sHora, Length(sHora)-2, 3));
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gerar Vetor Dinâmico
Para vedor dinamico voce pode usar assim .. Var arrayValue : array of variant; begin SetLength(arrayValue,Length(arrayValue) + 1); arrayValue[Length(arrayValue) - 1] := dataFinal; att. Marcio. At 15:45 1/4/2009 -0300, you wrote: Você poderia, ao invés de usar a variável k, usar a variável i acrescida de algum fator. Você poderia pegar um valor a partir da hora atual pra gerar esse fator. O exemplo abaixo cria um número com 3 algarismos a partir do final da hora. var iFator : Integer; sHora : String; begin sHora := DateTimeToStr(Now); sHora := StringReplace(sHora, '/', '', [rfReplaceAll]); sHora := StringReplace(sHora, ':', '', [rfReplaceAll]); sHora := StringReplace(sHora, ' ', '', [rfReplaceAll]); iFator := StrToInt(Copy(sHora, Length(sHora)-2, 3)); end; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
