[delphi-br] Verificar data de arquivo em pasta FTP
Pesquisando sobre o assunto, encontrei uma mensagem na lista sobre o assunto. A mensagem dizia pra usar TNMFTP, mas não existe esse componente no Delphi 7. Alguém sabe que componente é esse, ou então, sabe como verificar a data do arquivo em uma pasta FTP? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Verificar data de um arquivo
Carlos, Como verificar a data de um arquivo? Que comandos vc usa? Grato, Alex Leão - Original Message - From: carlos alberto do amaral To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 20, 2005 11:54 AM Subject: [delphi-br] Re: Atualizacao de Executavel Olá, Utilizo no delphi 6, o componente MD (Tlauncher)... Um abraço, Carlos http://www.fafem2cc.hpg.ig.com.br/componentes.htm --- Em delphi-br@yahoogrupos.com.br, Catiúscia Barrilli da Cruz [EMAIL PROTECTED] escreveu Entendi. mas... como se faz para atualizar o arquivo em si, via código - Original Message - From: José Augusto S. de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 20, 2005 7:43 AM Subject: Re: [delphi-br] Atualizacao de Executavel Function DataArquivo(Arquivo : String):String;stdcall; begin DataArquivo := DateToStr(FileDateToDateTime(FileAge(Arquivo))); end; Criei essa funcao que verifica a data do arquivo, ai e o seguinte verifique a data do arquivo da maquina do cliente, e a data do arquivo que esta no servidor, quando a do servidor for mais nova, vc atualiza o cliente. Lembrando sempre que pra fazer isso, e necessario verificar antes se o arquivo que se quer atualizar esta em uso, pq se estiver a atualizacao dara erro, se ele estiver e necessario que vc mate o processo dele primeiro, qualquer duvida estamos ai ! [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] Yahoo! Grupos, um serviço oferecido por: -- 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] Yahoo! Grupos, um serviço oferecido por: -- 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 * 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] Verificar data
Oi Denis, tudo bem? Saudações Bia! Bem vinda ao grupo! Estou indo ao Rio amanhã. Vou para o bairro de Botafogo... Bem vinda, espero que guanhe e nos dê experiências nesta fantástica linguagem de programação. Denis, pelo que entendi você quer definir o formato da data que o teu sistema usará, independente do formato que o windows estiver usando. Se for isso, coloque o código abaixo no evento OnCreate do teu formulário principal: //Configura data do ambiente LongDateFormat := 'dd/mm/yy'; ShortDateFormat := 'dd/mm/yy'; Todos os formulários criados a partir do form principal, herdarão a configuração. Caso algum formulário não seja criado a partir do principal, é só fazer o mesmo, só que no formulário em questão, lembrando que isto só vai funcionar no ambiente de trabalho (.exe gerado pelo delphi). Se você usa algum banco de dados do tipo SGBD, deverá consultar a ajuda do banco. Mas, com certeza deve ter algum parâmetro de configuração. //Outras configurações e variaveis de ambiente: LongDateFormat := 'dd/mm/'; ShortDateFormat := 'dd/mm/'; TimeAMString := ''; TimePMString := ''; ShortTimeFormat := 'hh:mm'; LongTimeFormat := 'hh:mm'; LongDateFormat := 'dd/mm/yy'; ShortDateFormat := 'dd/mm/yy'; TimeAMString := 'AM'; TimePMString := 'PM'; ShortTimeFormat := 'hh:mm'; LongTimeFormat := 'hh:mm'; Best regards Carlos Antônio. olá, denis! vc vai capturar essas datas dentro de querys ou no escopo do seu código? qual o SGBD q vc usa? EncodeDate ou DecodeDate não serviriam pra vc? NovaData:=EncodeDate(15,2,04); o DecodeDate é usado p/ obter o dia, mês e ano correspondente a uma data definida em uma variável do tipo TDate Time. nesse caso, devem ser passados como parâmetros um valor do tipo TDateTime, cujo valor será convertido, e três variáveis inteiras sem sinal, tipo Word, que representam, respectivamente, o ano, o mês e o dia a serem obtidos e passados por referência. //este procedimento, por exemplo, eu uso p/ pegar a data atual do sistema, no escopo do meu código (essa é uma forma), mas tb pego em querys (eu uso o oracle). Var SYS_DAY, SYS_MON, SYS_YEAR:Word; A_DAY, A_MON, A_YEAR :String; begin DecodeDate(Date,SYS_YEAR,SYS_MON,SYS_DAY); Edit.Text:=''; A_DAY:=IntToStr(SYS_DAY); A_MON:=IntToStr(SYS_MON); A_YEAR:=IntToStr(SYS_YEAR); If SYS_DAY10 then Edit.Text:='0'+A_DAY[1]+'/' else Edit.Text:=A_DAY+'/'; If SYS_MON10 then Edit.Text:=Edit.Text+'0'+A_MON[1]+'/' else Edit.Text:=Edit.Text+A_MON+'/'; Edit.Text:=Edit.Text+A_YEAR[3]+A_YEAR[4]; //p/ pegar as 2 últimas posições end; e ae? abraços, bia. Colegas, Como existem n tipos de confirgurações de data , preciso fazer com que meu sistema aceite e interprete somente um tipo DD/MM/YY. Como fazer isso, pois tenho vários procedimentos em que preciso pegar data do servidor, e data dos arquivos que irei utilizar. Alguem sabe como fazer isso ? Sds Denis FELIZ NATAL -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM !! 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 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] Verificar data
Bem, para que as configuracoes de data e hora sejam padronizadas, independentemente do SO, no seu aplicativo faça assim: No OnCreate do form principal insira o seguinte: ShortDateFormat := 'dd/mm/yy'; TwoDigitYearCenturyWindow := 50; []'s Neto - Original Message - From: Bianca Beiruth [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, December 25, 2004 4:30 AM Subject: Re: [delphi-br] Verificar data olá, denis! vc vai capturar essas datas dentro de querys ou no escopo do seu código? qual o SGBD q vc usa? EncodeDate ou DecodeDate não serviriam pra vc? NovaData:=EncodeDate(15,2,04); o DecodeDate é usado p/ obter o dia, mês e ano correspondente a uma data definida em uma variável do tipo TDate Time. nesse caso, devem ser passados como parâmetros um valor do tipo TDateTime, cujo valor será convertido, e três variáveis inteiras sem sinal, tipo Word, que representam, respectivamente, o ano, o mês e o dia a serem obtidos e passados por referência. //este procedimento, por exemplo, eu uso p/ pegar a data atual do sistema, no escopo do meu código (essa é uma forma), mas tb pego em querys (eu uso o oracle). Var SYS_DAY, SYS_MON, SYS_YEAR:Word; A_DAY, A_MON, A_YEAR :String; begin DecodeDate(Date,SYS_YEAR,SYS_MON,SYS_DAY); Edit.Text:=''; A_DAY:=IntToStr(SYS_DAY); A_MON:=IntToStr(SYS_MON); A_YEAR:=IntToStr(SYS_YEAR); If SYS_DAY10 then Edit.Text:='0'+A_DAY[1]+'/' else Edit.Text:=A_DAY+'/'; If SYS_MON10 then Edit.Text:=Edit.Text+'0'+A_MON[1]+'/' else Edit.Text:=Edit.Text+A_MON+'/'; Edit.Text:=Edit.Text+A_YEAR[3]+A_YEAR[4]; //p/ pegar as 2 últimas posições end; e ae? abraços, bia. Colegas, Como existem n tipos de confirgurações de data , preciso fazer com que meu sistema aceite e interprete somente um tipo DD/MM/YY. Como fazer isso, pois tenho vários procedimentos em que preciso pegar data do servidor, e data dos arquivos que irei utilizar. Alguem sabe como fazer isso ? Sds Denis FELIZ NATAL -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM !! 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 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 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.809 / Virus Database: 551 - Release Date: 09/12/2004 -- 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] Verificar data
Ao inves de verificar com StrToDate, use a funcao EncodeDate, pois nela voce passa os parametros de ano, mes e dia e recebe uma data. Fernando denjabr wrote: Colegas, Como existem n tipos de confirgurações de data , preciso fazer com que meu sistema aceite e interprete somente um tipo DD/MM/YY. Como fazer isso, pois tenho vários procedimentos em que preciso pegar data do servidor, e data dos arquivos que irei utilizar. Alguem sabe como fazer isso ? Sds Denis FELIZ NATAL -- 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] Verificar data
Colegas, Como existem n tipos de confirgurações de data , preciso fazer com que meu sistema aceite e interprete somente um tipo DD/MM/YY. Como fazer isso, pois tenho vários procedimentos em que preciso pegar data do servidor, e data dos arquivos que irei utilizar. Alguem sabe como fazer isso ? Sds Denis FELIZ NATAL -- 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
