Carlos Rocha

Ola Passoal! Preciso de 2 funções php: A primeira função precisa varrer um diretorio e retornar o nome de cada arquivo. A segunda função precisa varrer um diretorio e retornar o numero de arquivos. Quantos arquivos teem no diretorio. Ideia: Preencher uma variavel Array(no Flash CS3) com cada um dos nomes de arquivos retornados pela primeira função. Como fazer isso?

Ola Passoal! Preciso de 2 funções: A primeira função precisa varrer um diretorio e retornar o nome de cada arquivo. A segunda função precisa varrer um diretorio e retornar o numero de arquivos. Quantos arquivos teem no diretorio. Ideia: Preencher uma variavel Array com cada um dos nomes de arquivos retornados pela primeira função. Como fazer isso?

Ola pessoal do fórum! Talves, seje simples minha duvida porem, não consegui resolver. Então vamos la? Bom, to tentando fazer um radio pra toicar mp3 em flash e estiv e estudando alguns códigos. Cheguei a esse abaixo porem, da o log de erros abaixo. Se alguém puder ajudar desde já agradeço; codigo var som:Sound = new Sound(); var musicas:Array = new Array(); var i, vol, verifica, pos:Number; var ligado:Boolean; var acao:String; stop(); musicas[0] = "audio/audio1.mp3"; musicas[1] = "audio/audio2.mp3"; musicas[2] = "audio/audio3.mp3"; if (ligado==null) { i = 0; vol = 100; ligado = false; } this.onEnterFrame = function() { som.setVolume(vol); if (ligado==false) { som.loadSound(musicas[i], true); if (i<5) i++; else i = 0; ligado = true; } artista.text = "Artista: " + som.id3.artist; musica.text = "Musica: " + som.id3.songname; verifica = som.getVolume(); if (verifica>=100) { som.setVolume(100); } if (verifica<=0) { som.setVolume(0); } v3.text = som.getVolume() + "%"; } som.onSoundComplete = function() { ligado = false; } v1.onRelease = function() { verifica = som.getVolume(); vol = verifica+5; } v2.onRelease = function() { verifica = som.getVolume(); vol = verifica-5; } stopi.onRelease = function() { som.stop(); } pausi.onRelease = function() { acao = "pause"; pos = som.position/1000; som.stop(); } plai.onRelease = function() { if (acao=="pause") { som.start(pos); acao=""; } else { som.start(); } } ff.onRelease = function() { ligado = false; som.stop(); } log

Ola Pessoal: Tenho no meu código uma parte que tem: procedure TfrmPrincipal.ImprimirClick(Sender: TObject); var Dia: Integer; Texto: String; begin Texto := ''; if InputQuery('Digite o Dia para recebimento','Impressão para Recebimento em casa',Texto) then begin try Dia := StrToInt(Texto); except ShowMessage('Dia inválido!'); Exit; end; end else begin Exit; end; Application.CreateForm(TfrmRelatorio,frmRelatorio); if not frmRelatorio.QryClientes.Locate('MelhorDia', Dia, []) then begin frmRelatorio.Close; ShowMessage('Registro não encontrado!'); Exit; end else begin frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia); frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QuickRepListagem.PreviewModal; frmRelatorio.Free; end; end; Nele tem uma inputquery, e eu preciso validar se a pessoa digitou nela letras ou numeros. Caso não tenha digitado numeros, imprimir na tela uma mensagem dizendo "Só aceita numeros". Outra coisa, é limitar o campo da inputquery a apenas 3 digitos "___"; Só que no caso de 3 digitos, eu quero fazer tipo uma mascara não permitindo um quarto digito. Obs.: não são 3 digitos e sim até 3 digitos Na verdade, eu queria usar a função abaixc para validar se foi ou não digitados numeros. Porem, não estou sabendo como usar-la no meu código(no caso, numa inputquery). function ExisteInt(Texto:String): Boolean; {Testa se em uma string existe um numero inteiro valido ou não} var i:integer; begin try i := StrToInt(Texto); Result := True; except Result := False; end; end; Preciso tambem testar se se o dia digitado no campo texto da inputquery é menor que 1 ou mAior que 31 caso afirmativo dizer que o dia tem que ser entre 1 e 31; Tentei assim mas não deu certo: if ((Dia < 1) or (Dia > 31)) then begin ShowMessage('Dia tem quer de 1 até 31!'); exit; end; Ta +pra php né? Brincadeira. Desde já meus agradecimentos. Se alguém puder me ajudar pelo menos com a 2ª parte do código seria de grande utilidade tb. Carlos Rocha

Bom, consegui. O processo é o mesmo que pqara o Delphi 7 com uma pequena diferença: A caixa de dialogio que abrr no Delphi 7 no centro da janela para compilar e instalar a package, no Delphi 2007 abre na lateral direita só isso e o arquivo a ser aberto ZeosDbo.groupproj.

Pois é, Baixar os Zeos eu baixei, porem, o tutorial ensina como instalar no delphi 7 e não no 2007. Continuo sem conseguir instalar.

alguém poderia me ajudar a instalar o Zeos no Delphi 2007? Andei procurando na net mas não consegui. Grato! Carlos Rocha

Ola Michael Micheus, Quando voltei aqui, você já havia respondidso. Valeu, Mas fis assim, Puz um QrExpress mesmo e na propriedade expression pus somente COUNT. Deu certo. Agora é testar e partir pra mais um desafio: Paginação desses resultados Valeu

Vejam a Situação: Do frmPrincipal do meu aplicativo, faço um filtro na tabela clientes do frmRelatorio frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia); frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QuickRepListagem.PreviewModal; frmRelatorio.Free; E no frmRelatorio, na qryClientes de la puz na propriedade Sql: Select * from clientes where ReceberCasa= "Sim" Até ai, tudo bem. Chegando no relatório ele filtra todos os registros que satisfazem a condição de MelhorDia=dia escolhido no frmPrincipal e ReceberCasa= SIM. Agora(pasmem), to com difuculdade em contar quantos registros foram listados no QuickReports . Estou usando um QrExpress na SummaryBand, e não estou encontrando uma formula na propriedade Expression da QrExpress. Se alguém puder ajudar.

Consegui> Como não consegui fazer emitir 2 filtros a partir do frmPrincipal para lança-lo nio frmRelatorio, isei: frmPrincipal: Apenas 1 filtro frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia); frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QuickRepListagem.PreviewModal; frmRelatorio.Free; E no frmRelatorio, na qryClientes de la puz na propriedade Sql: Select * from clientes where ReceberCasa= "Sim" Ai deu certo. Obrigado a todos.

Tentei dessa forma e ainda não deu. Retorna vazio o Relatorio. Porem, se eu tirar o ReceberCasa = SIM, ai ele retorna o valor procedure TfrmPrincipal.ImprimirClick(Sender: TObject); var Dia: Integer; Texto: String; Receber : String; begin Texto := ''; if InputQuery('Digite o Dia para recebimento','Impressão para Recebimento em casa',Texto) then begin try Dia := StrToInt(Texto); except ShowMessage('Dia inválido!'); Exit; end; end else begin Exit; end; Application.CreateForm(TfrmRelatorio,frmRelatorio); if not frmRelatorio.QryClientes.Locate('MelhorDia', Dia, []) then begin frmRelatorio.Close; ShowMessage('Registro não encontrado!'); Exit; end else begin frmRelatorio.QryClientes.First; frmRelatorio.QryClientes.SQL.Add('Select * from Clientes where MelhorDia = :Dia AND ReceberCasa = Receber order by Bairro'); Receber := 'SIM'; with frmRelatorio do begin // inicializamos o parâmetro frmRelatorio.QryClientes.ParamByName('Dia').AsInteger := Dia; // usar o Open aqui, caso você não o coloque na inicialização do relatório // frmRelatorio.QryClientes.Open; // mostramos o relatório QuickRepListagem.PreviewModal; Free; end; end; end;

Oi Michaels, obrigado, mas num deu certo ainda Da uma luz ai de como ficaria esse filtro c om clausula were? Um abç!

Seguinte: Na tabela 14º campo ReceberCasa 15º campo MelhorDia fiz assim procedure TfrmPrincipal.ImprimirClick(Sender: TObject); var Dia: Integer; Texto: String; begin Texto := ''; if InputQuery('Digite o Dia para recebimento','Impressão para Recebimento em casa',Texto) then begin try Dia := StrToInt(Texto); except ShowMessage('Dia inválido!'); Exit; end; end else begin Exit; end; Application.CreateForm(TfrmRelatorio,frmRelatorio); if not frmRelatorio.QryClientes.Locate('MelhorDia', Dia, []) then begin frmRelatorio.Close; ShowMessage('Registro não encontrado!'); Exit; end else begin frmRelatorio.QryClientes.Filter := 'ReceberCasa = '+'''SIM'''; frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia); frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QuickRepListagem.PreviewModal; frmRelatorio.Free; end; end; Continua desconsiderando o SIM. Compila sem erro, roda sem erro mas não filtra o SIM

Desse jeito, begin frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia); frmRelatorio.QryClientes.Filtered := true; // frmRelatorio.QryClientes.Filter := 'ReceberCasa = SIM'; frmRelatorio.QryClientes.Filter := 'ReceberCasa = '+'''SIM'''; frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QuickRepListagem.PreviewModal; frmRelatorio.Free; end; ele esta desconsiderando o o primeiro filtro MelhorDia, só ta filtrando o SIM

É, quando gravei o 2º Cliente, a data tanto gravou certo no Banco quanto exibiu normalmente no DBEdit. O que acontece sera? Como posso resolver isso? já pensou se o cliente vai gravar o 1º Cliente e da isso? Quem puder ajudar agradeço.

Bom, de repente apareceu uma 2 dúvidas que to um tempão e não consigo resolver; É o seguinte: Na tabela cadastro, tem o campo datacadastro que é tipo DATE. No evento onnewrecord do ZQuery, puz: QryClientesDataCadastro.AsDateTime:= Date; Bom, na hora que cliko no botão "novo", aparerce a data certinha do dia,' 22/02/2008', no Banco, gravo 1899-12-30. Porem, quando abro o formulario de cadastro e somente visualiso os registros, la estão todos os campos da tabela: Nome, Cpf, Endereco, menos o campo DataCadastro que retorna vazio. Se eu for e trocar a correspondencia do DBedit por exermplo para mostrar o nome, ele aparece. Mas a data,essa não. O que fazer? A outra situação é a seguinte: To abrindo o relatorio com o código: procedure TfrmPrincipal.ImprimirClick(Sender: TObject); // var // Dia: Integer; // Texto: String; begin Texto := ''; if InputQuery('Digite o Dia para recebimento','Impressão para Recebimento em casa',Texto) then begin try Dia := StrToInt(Texto); except ShowMessage('Dia inválido!'); Exit; end; end else begin Exit; end; Application.CreateForm(TfrmRelatorio,frmRelatorio); if not frmRelatorio.QryClientes.Locate('MelhorDia', Dia, []) then begin frmRelatorio.Close; ShowMessage('Registro não encontrado!'); Exit; end else begin frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia); frmRelatorio.QryClientes.Filtered := true; // frmRelatorio.QryClientes.Filter := 'ReceberCasa = SIM'; // frmRelatorio.QryClientes.Filtered := true; frmRelatorio.QuickRepListagem.PreviewModal; frmRelatorio.Free; end; end; Detalhes: o texto comentado: [code] // var // Dia: Integer; // Texto: String; Essas variaveis tiveram que serem declaradas como globais pois na procidure tava dando que elas nunca foram usadas; E... Preciso por essa parte pra funcionar: // frmRelatorio.QryClientes.Filter := 'ReceberCasa = SIM'; // frmRelatorio.QryClientes.Filtered := true; A query cliente filtrat tb o ReceberCasa com o valor SIM, e do jeito que puz não ta retornando valor mas quando comento, ai retorna. Como resolver isso?

O interessante é que tentei com 2 cd's diferentes e deu a mesma coisa. Tb tentei na minha casa e no computador la do escritorio. Mesma coisa. Acho que vou formatar. Porem, um detalhe ten-se que considerar: Caso eu volte para o office 2003(e eui já tentei isso nos 2 pc's), o problema continua. Dai chego a conclusao que o problema não esta no cd. Então, onde sera essa problema?

já. Incluisive desisnstalei e instalei de diversas formas. So da esse erro.

Oh pessoal ajuda ai!'

Pois é. No caso da maquina la do escritorio, ela veio com o vista e o office funcionando direito. Dai tirei o 2007 e instalei o 2003 e agora instalei novamente o 2007 e deu esse erro. O interessante é que aqui na minha maquina nunca tive o 2007 e deu o memo erro e pra piorar, quaquer radio web não funciona nem mesmo aqueles gadgets da barra lateral do vista. Só + um detalhe,os aplicativos do office abrem e funcionam normalmente porem antes de abrir eles forçam o instalador do office que fica instalando durante +ou- 3 minutos e depois abre o aplicativo. Sim, os 2 micros usam vista ultimate e as configurações se equivalem.

Boim dia. Olha a situação. Tenho o Windows Vista Ultimate instalado. Office 2003 Tudo funcionando bem. Resolvi desisnstalat o office 2003 e instalar o office 2007. Surpresa: Instalou normal mas toda vez que abro algum aplicativo como por exemplo cliko no word, starta o instalador do Office 2007 e demora, demora, demora e depois de muito tempo abre o o word. Detalhe: uma vez aberto o aplicativ o, se eu abri outro arquivo do word não ocorre o problema poorem se eu fechar todos os documentos do word e abrir um ai da o problema. outra coisa. Estando com um arquiv o do wor aberto, o abrir outro n ão ocorre o problema mas se eu abrir um arquiovo por exemplo do excel, ai da o problema. Foi pela instalação personalizada que eu instalei o office e tambem tentei pelo "Ins]talar Agora" Como resolver isso?

Eu fiz o motion twen e não acontece o que eu querio: qUANDO SE CLIKA DO FRAME 01 AO 70, NOTA-SE QUE O MOVIE CLIPE QUE CONTEM AS FIGURINHAS VAI SE MOVENDO PARA CIMA A CADA FRAME NO MOTION TWEN.

E ai fera, consegui transformar o swf dele em .fla e observei o seguinte: TEM 4 LAYERS: ACOES, MASCARA, CONTEUDO, SCROW NA LAYER CONTEUDO, TEM AS FIGURINHAS E ESTA COM UM MOTION TWEEN DO FRAME 01 AO 70. qUANDO SE CLIKA DO FRAME 01 AO 70, NOTA-SE QUE O MOVIE CLIPE QUE CONTEM AS FIGURINHAS VAI SE MOVENDO PARA CIMA A CADA FRAME NO MOTION TWEN. cOMO CONVERTI DE SWF PARA FLA , MUITA COISA VEIO COMO LIXO ELETRONIO. cOMO FAZER ISSO.? ESSE DETALHE DE A CADA FRAME DO MOTION TWENN O MOVIE CLIPE SUBIR E DESCER?

Salve, salve flashistas e um Feliz 2008 para todos! Seguinte: Andei procurando informações sobre um tipo de mascara ms não fui feliz na busca. Preciso fazer um efeito de mascara semnelhmnte ao que esta no link: (nem sei por onde começar) www.agenciahabil.com.br no menu portifólio. Me ajudem em mais essa aí. Muito obrigado.

Seguinte: Eu só quero acessar novamente o painel de administração do modem ss5200 E240 Aconteceu o que eu escrevi antes(acima) e tentei as opções acima. E num consigo. Esse 192.168.254.254 que to querendo acessar ta na propria maquina.