Mauro Jr
-
Total de itens
86 -
Registro em
-
Última visita
Posts postados por 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 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).
-
é mais fácil assim:
<a href="arquivo.htm" title="teste">teste</a>
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.
-
Usa o onmouse junto com um div.
Tipo assim...
<div onmouseover="this.className='over'; Description.innerText='Informe sua duvida, critica ou sugestão.'"
onmouseout="this.className=''; Description.innerText=''">
<a href=.htm>teste</a>
</div>
<div align="left" id="Description" style="position:ABSOLUTE; Background:; top 100; left:341px; width:130px; top: 77px;
height: 22px;"></div>
Abraços
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
-
me passa o seu email que eu te mando um exemplo
MSN: alexcalciunovelli@hotmail.com
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
Existência De Um Arquvio Sem Saber Sua Extesão?
em PHP
Postado
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?