Mauro Jr

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?

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?

Valeu gurizada. Usei as dicas de vocês e o troço funcionou.

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 }

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

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;

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

Valeu pela dica cara! Muito obrigado... Mauro Jr.

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....

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!

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;

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).

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.

Bah cara, valeu! Era exatamente isto que eu queria!!!! Abraços, Mauro Junior

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

Tenho uma página principal composta de logo no topo da página e um menu à direita. Quando se clica em algum item do menu ele chama um iframe. A minha dúvida é a seguinte: quando estou no iframe, como faço para movimentar a borra de rolagem para cima quando clicar em algum link? Já tentei window.scroll(), mas pelo que pude notar ele funciona só para a barra de rolagem da página em questão e como estou usando iframe ele não consegue movimentar a barra de rolagem externa(da página principal). Será q alguém entendeu? Agradeço a atenção! Mauro Junior

E aí Alex, tu podes mandar um exemplo para mim também? maurojunis@homail.com Mauro

Se tu puderes, passa para mim também. Mauro Jr.

Ainda continuo com o mesmo problema. Mauro Jr.

Tenho uma animação que roda um video.avi em um Layer, e um arquivo de som em outro Layer. O problema é que não consigo fazer o som terminar quando acaba a exibição do vídeo. Alguém pode me dar uma ajudinha? Abraços, Mauro

Nobre amigo Paulo , valeu pela força e empenho! Dei uma pesquisada, e descobri uma maneira de se instalar a fonte na máquina cliente: procedure TForm1.FormCreate(Sender: TObject); var vExisteFonte : Boolean; begin //* Verifica se a fonte existe with Screen.Fonts do vExisteFonte := IndexOf(Trim('NomeFonte')) > -1; if not vExisteFonte then //* Instala a fonte no Windows AddFontResource(PChar(GetCurrentDir + '\NomeFonte.TTF')); end; //* Esta rotina está escrita no evento OnCreate do Form Abraços, Mauro

Bom... Instalei uma fonte diferente das padrões do Windows no meu computador, quero que o caption dos labels e demais componentes utilizem esta fonte independente da máquina que a aplicação for rodar, portanto, os componentes devem utilizar esta fonte mesmo se ela não estiver instalada na máquina do cliente. Como faço isso? Abraços!

Windows 2000 Professional

E aí grurizada, Estou com problemas na rede do meu serviço: Todos os micros conseguem acessar o meu micro pela rede, mas quando eu tento acessar qualquer micro pela rede, aparece a seguinte mensagem: Micro Tal não está acessível A rede não está presente ou não foi iniciada. O que devo fazer? Agradeço a atenção, Mauro Jr.

Po, valeu QDN Abraços Mauro Jr