Ir para conteúdo
Fórum Script Brasil

Mauro Jr

Membros
  • Total de itens

    86
  • Registro em

  • Última visita

Sobre Mauro Jr

Contatos

  • Website URL
    http://
  • ICQ
    254010694

Perfil

  • Interests
    Programação<br>Rock (cifras,tablaturas)<br>Contra-Baixo<br>Filmes antigos<br>Desenhos (gibis,mangas, animes)

Mauro Jr's Achievements

0

Reputação

  1. Fala gurizada! Bom, para saber a existência de um arquivo, eu utilizo file_exists. Até aí tudo bem. Mas como faço para saber a existência de um arquvio sem saber sua extensão? Tipo, eu quero verificar a existência do arquivo Vend.0001 ou Vend.0002 ou Vend.0003 ... Entenderam? Eu nunca sei a numeração que vem após o "ponto". Como posso fazer isso? Como posso verificar a existência deste arquivo?
  2. Fala gurizada! Bom, para saber a existência de um arquivo, eu utilizo file_exists. Até aí tudo bem. Mas como faço para saber a existência de um arquvio sem saber sua extensão? Tipo, eu quero verificar a existência do arquivo Vend.0001 ou Vend.0002 ou Vend.0003 ... Entenderam? Eu nunca sei a numeracao que vem após o "ponto". Como posso fazer isso?
  3. Valeu gurizada. Usei as dicas de vocês e o troço funcionou.
  4. E aí Gurizada, Como faço para que meu CSS consiga ser interpretado pelo FireFox? No IE a página roda normal, mas no FireFox ela não respeita nenhuma das formataçõoes feitas no meu CSS. Aqui está o CSS: <!-- Texto --> .Texto { FONT-SIZE: 10px; FONT-FAMILY: Verdana,Tahoma,Arial; color: #000000 } .Titulo { FONT-SIZE: 13px; FONT-FAMILY: Verdana,Tahoma,Arial; FONT-WEIGHT: bold } <!-- Links --> A {color: "#0066CC"; text-decoration: none} a:hover{color: "#0099FF"; text-decoration: none} <!-- Barra de rolagem personalizada --> BODY { SCROLLBAR-FACE-COLOR: #ffffff; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #666666; SCROLLBAR-3DLIGHT-COLOR: #666666; SCROLLBAR-ARROW-COLOR: #666666; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #666666 }
  5. Mauro Jr

    Usando Trheads

    Pô cara, valeu! Valeu mesmo pela ajuda! Abraços, Mauro
  6. Mauro Jr

    Usando Trheads

    Utilizo o componente IdIcmpClient ---- IdIcmpClientNetMon.Ping; //* Evento OnTimer do Timer procedure TFormNetMonitor.TimerNetMonitorTimer(Sender: TObject); begin ClientDataSet.First; While not ClientDataSetAddressToTest.Eof do begin IdIcmpClient.OnReply := IdIcmpClientReply; IdIcmpClient.ReceiveTimeout := 2; IdIcmpClient.Host := ClientDataSet.AsString; IdIcmpClient.Ping; . . . ClientDataSet.Next; end; end;
  7. Olá, Estou desenvolvendo um programinha que fica monitorando enderços IP. Faço isso através de ping. O problema é que quando dou um ping e a resposta demora, o sistema fica "parado" até acabar aquele processo. Daí não consigo acessar as opções de configuração, ou fechar o programa, pois o mesmo está fazendo o ping e neste momento o programa fica "congelado". Pensei em utilizar Multi Thread, para que os processos trabalhem paralelamente. Mas como faço isso? Devo colocar um thread para controlar o ping e outro que cuida do resto da aplicação? Em que momento devo executar os threads? Agradeço a atenção, Mauro Jr
  8. Valeu pela dica cara! Muito obrigado... Mauro Jr.
  9. Bah, já tentei isso, mudei o nome do componente e continua o mesmo erro. Acho que terei que começar o projeto de novo. aiai fazer o q....
  10. Bom, na empresa onde trabalho a gente se vira bem com o Delphi 5, mas agora estamos migrando para o Delphi 7. Pelo pouco que entendo de Delphi, não tenho queixas com o Delphi 5. Abraços!
  11. Bah, parceiro Já verirfiquei as linhas acima e nenhuma ultrupassa os 1023 caracteres. Aqui vai a procedure onde se encontra a linha 108 que contém o erro: PS.: Alinha que está em negrito é a 108 //* Busca as conferências na data especificada procedure TFormBuscaConferenciasData.BuscaConferencia; var wDia, wMes, wAno : String[5]; wData : String; wIniPesquisa : TIniFile; ix : Integer; wLista : TStringlist; wArquivo, wArquivoMaior : String; begin //* ATENÇÃO: Estrutura do Subdiretório --> Ano/Mes/Dia //* Busca a data wData := DateToStr(DateEditData.Date); wDia := Copy(wData, 1, 2); wMes := Copy(wData, 4, 2); wAno := Copy(wData, 7, 4); wData := wAno + wMes + wDia; //* Se não existir o diretório de conferencia... if not DirectoryExists(FormPacote.wCaminhoConferencia) then FormPacote.GeraMensagem('Não existe diretório de conferência', 'Erro.ICO'); //* Se existir o diretório com a data informada... if DirectoryExists(FormPacote.wCaminhoConferencia + '\' + wData) then begin wLista := TStringlist.create; wLista.Clear; DirList(FormPacote.wCaminhoConferencia + '\' + wData + '\*', wLista); //* Se existir conferências... if wLista.Count <> 0 then begin wArquivoMaior := FormPacote.wCaminhoConferencia + '\' + wData + '\' + wLista.Strings[0]; for ix := 0 to wLista.Count - 1 do begin wIniPesquisa := TIniFile.Create(FormPacote.wCaminhoConferencia + '\' + wData + '\' + wLista.Strings[ix]); wArquivo := FormPacote.wCaminhoConferencia + '\' + wData + '\' + wLista.Strings[ix]; if FileDate(wArquivo) > FileDate(wArquivoMaior) then wArquivoMaior := wArquivo; //* Traz as conferencias da data especificada with FormPacote do begin RxMemoryDataConferenciasConferente.Insert; RxMemoryDataConferenciasConferenteCupom.Value := wIniPesquisa.ReadString('Conferencia','Cupom',''); RxMemoryDataConferenciasConferenteECF.Value := wIniPesquisa.ReadString('Conferencia','ECF',''); RxMemoryDataConferenciasConferenteQtd.Value := wIniPesquisa.ReadFloat ('Conferencia','TotalPecas',0); RxMemoryDataConferenciasConferenteTotal.Value := wIniPesquisa.ReadFloat ('Conferencia','Total',0); RxMemoryDataConferenciasConferenteCliente.Value := wIniPesquisa.ReadString('Conferencia','Cliente',''); RxMemoryDataConferenciasConferenteConferente.Value := wIniPesquisa.ReadString('Conferencia','Conferente',''); RxMemoryDataConferenciasConferenteArquivoConferencia.Value := wLista.Strings[ix]; RxMemoryDataConferenciasConferenteData.Value := DateEditData.Date; RxMemoryDataConferenciasConferente.Post; end; end; ChamaFormConferenciasConferente; end //* Se não existir conferências... else FormPacote.GeraMensagem('Nenhuma conferência encontrada', 'Aviso.ICO'); end //* Se não existir o diretório com a data informada... else begin FormPacote.GeraMensagem('Não existem conferências nesta data', 'Aviso.ICO'); DateEditData.Clear; end; end;
  12. Gurizada, Estou apavorado, não sei mais o que faço! Eu tinha um projeto feito no Delphi 5, mas agora migramos para o Delphi 7, só que na compilação está me aparecendo a seguinte mensagem de erro: [Fatal Error] uBuscaConferenciaPorData.pas(108): Line too long (more than 1023 characters). Já fiz vários testes, até eliminei a bendita linha q acusa o erro e mesmo assim a mensagem de erro aparece na mesma linha (vazia).
  13. Valeu! realmente é mais fácil. Mas notei que usando o onmouse junto com um div o comentário aparece bem mais rápido(quase que instantaneamente). Abraços! Mauro Jr.
  14. Bah cara, valeu! Era exatamente isto que eu queria!!!! Abraços, Mauro Junior
  15. E aí gurizada? Como faço para colocar um comentário em um link? Tipo, quando passar o mouse sobre o link deverá aparecer uma caixa de comentário. Se alguém puder me ajudar... Mauro
×
×
  • Criar Novo...