Ir para conteúdo
Fórum Script Brasil

Carlos Rocha

Membros
  • Total de itens

    1.300
  • Registro em

  • Última visita

Tudo que Carlos Rocha postou

  1. Ta ai: Sabe o que me deixa curioso é o fato de um PC ter acesso as pastas do usuario publico(desde que essa opção esteja marcada no centro de compartilhamento) do outro PC e as demais pastas não ter acesso mesmo o compartilhamebto de arquivos e impressoar e a descoberta de rede estando liberadas no centro de compartilhamentos(propriedades da rede) detalhe: os usuarios etsão com permissão total nos 2 PCS Inclusie segui a risca o tutorial abaixo(só a parte do vista). Nem assim deu: http://www.guiadohardware.net/tutoriais/co...ws/pagina3.html
  2. Veja só: Propriedades do disco D (e o C da a mesma coisa); Propriedades da pasta Arquivos de AutoCad que esta no disco D (e o C da a mesma coisa); Propriedades da conta de Usuario
  3. Observei que o compartilhmento simples não esta disponiovel para grandes pastas como por exemplo: C: D: Arquivos de Programas Usuarios, porem, as pastas internas tem a opção de compartilhmento simples. O pior é que continuo não conseguindo acessar. Mesmo adiocionmanmdo o //maquina/login do windpows e dando controle total a ele.
  4. Achei uma coisa interessante: Quando se vai no comparilhamento da pasta que se deseja compartilhar, tem la 2 opções: 1 - Compartilhar 2 - Compartilhameto avançado A opção Compartilhar esta desabilitada e, se eu for em Compartihmento Avançado, clko em compartilhar pasta e escolho o nome do tal compartilhamento, as opções logo aaixo Adicionar e Remover tambem não estão disponiveis. Somente as opções Permissão e Cache mais em baixo estão disponiveis. Sera que pode ser por ai? Como habilito o compartilhmento simples no vista?
  5. Opa Rafael. Ontem a noite, eu desfi tudo e fiz novante, porem deixei no automatico, ou seja o proprio modem desgnar ips. Compartilhei o Disco D das duas maquinas, é o Disco D mesmo não é o C não. É que particionei Meu HD em 2. no Disco C puz o Windows e os Programas instalados e no HD D, os meus arquivos pessoais. Depois, entrei em compartilhamento avançado - permissoess e la tem o usuario chamado todos. Dei permissão total para ele. Porem, no ambinte de rede até aparece o Disco D porem da que não teo acesso. "procure o administrador de rede" E não consigo acessar o Bendido Disco. Porem, como último recurso, estou indo nas propriedades da rede, Painel de Controle\Centro de Rede e Compartilhamento, e ativndo o compatilhamento da pasta publica. Dai tenho acesso ao diretório do usuario Publico na outra mquina e jogo os arquivos la. Depois, uma vez os arquivos na pasta no outro PC, pego os arquivos da pasta publica e jogo para ouro lugar no HD. Só assim pra dar certo. não to conseguindo acessar direto o Disco D.
  6. Configurei sim a primeira maquina 192.168.254.1 e a segunda 192.168.254.3 pinga normal. uma jopga arquivos para a pasta publico da outra. Puixca de la tb Só não joga para o Discdo comparetilhado a não ser que a pasta esteja dentro de c:/uuarios/publico configurei tb o gateway padrão das 2 192.168.254.254 e os DNDs do servidor. Ta tudo normal.; quer dizer quase tudo
  7. Sabe, antes de vir ao forum, costumo fazer todos os testes possiveis. E, essa ajuda do Vista foi uma das minhas primeiras pesquisas. Tentei usar os assistentes mas sem exito. Continuo semconseguir.
  8. O Grupo de trabalho é o mesmo.: CARCLEO Os nomes das maquinas são: CARLOS; CLEONICE Os nomes dos usuarios de login no windows nas 2 maquinas é o mesmo: Familia Rocha. Tb tentei desabilitar o Firewal e até o Antivirus e nada. Entrando na aba de segurança da pasta que compartilhei, deu plenos poderes para todos os usuarios(nas duas maquinas) e o maximo que eu cheguei é que o usuario default(lista de usuarios de loguim no windows) ficou disponiovel na rede. obs.: O meu windows tem 3 usuarios: Default publico carlinhos O que esta errado?
  9. Da a Mesma coisa. A proposito, a conta Familia já tinha privilegios de Administrador O interessante é que, eu não consigo acessar os arquivos do HD mas se eu jpogar para a pasta publico, aí, la na outra maquina eu tiro da pasta publico e jogo pro HD. Estranho
  10. Veja só. Ta funcionando: Na verdade consegu fazer a rede funcionar porem, há um só problema que talves voces saibam resolver. O meu windows tem 3 usuarios: Default publico carlinhos Apenas o uuario publico tem acesso a rede. Eu compartilhei o HD todo porem, apenas as pastas do usuario publico estão disponiveis para a rede. O HD compartilhado até aparece no ambiente de rede porem diz que eu não tenho autorização para acessar seu conteudo. Detalhe, no momento que fiz a compartilhamento, dei plenos poderes para (total). Caso eu copie uma pasta oui arquivo do HD de um e, atraves da rede jogar para a pasta public do outro, funciona normal,o quie não to conseguindo é jogar do HD(usuario Faimlia) de uma jogar para o HD do outro sem passar pela pasta(usuario) Publc(publico)
  11. Tenho um notebook e um PC. Ambos com Windows Vista Ultimate. Ambos conectados à internet atraves de uma suite que por sua vez conectada a um Modem ADSL SpeedStream 5200. Gostaria de configurar um rede entre os dois usando a suite e sem ligar cabo de rede entre os dois. Na verdade consegu fazer a rede funcionar porem, há um só problema que talves voces saibam resolver. O meu windows tem 3 usuarios: Default publico carlinhos Apenas o uuario publico tem acesso a rede. Eu compartilhei o HD todo porem, apenas as pastas do usuario publico estão disponiveis para a rede. O HD compartilhado até aparece no ambiente de rede porem diz que eu não tenho autorização para acessar seu conteudo. Detalhe, no momento que fiz a compartilhamento, dei plenos poderes para (total). Como resolvo isso? Desde já agradeço! Carlos Rocha
  12. O Pedido é filtrado sim. A partir do menu. Seguinte: Quando o cliente, la na confecção dele, abre o programa e quer ver o que foi especifiado no pedido, por exemplo 2. Ele vai no menu->Imprimir Pedido e quando poe na caixa de dialogo "informe o numero do pedido" o numero 2, abre o formulario do QuikReport(O form mesmo. Mostrando as Qry's os Qrdbtexts e os outros componentes) por +ou- 2 segundos e depois sim aparece o prewil. Isso o cliente vendo. Como resolver isso? Não sei se tem alguma coisa a ver com como se faz o filtro por isso colequei o código la do menu. Esse é o código que uso para filtrar o numero do pedido(Esta no menu principal do programa) function IsNumeric(const S: String): Boolean; var x: SmallInt; begin Result:= True; For x:= 1 to Length(S) do begin if not(S[x] in['0'..'9']) then begin Result:= False; Break; end; end; end; procedure TFormPrincipal.Impressao1Click(Sender: TObject); var NumPedido : Integer; Texto: String; begin Texto := ''; if InputQuery('Digite o Numero Pedido','Impressão do Pedido',Texto) then begin If Texto = '' then begin ShowMessage('Qual o Numero do Pedido para o Relatório? Você não preencheu!'); Exit; end; if not(IsNumeric(Texto)) then begin ShowMessage('Aqui, somente números são permitidos'); Exit; end; if Length(Texto) > 6 then begin ShowMessage('Os Numeros de Pedidos teem no maximo 6 digitos'); Exit; end; try NumPedido := StrToInt(Texto); except ShowMessage('Pedido inválido!'); Exit; end; end else begin Exit; end; Application.CreateForm(TRPedidos,RPedidos); if not RPedidos.QryPedidos.Locate('CodigoPedido', NumPedido, []) then begin RPedidos.Close; ShowMessage('Registro não encontrado!'); Exit; end else begin RPedidos.QryItens.Filter := 'NumeroPedido = ' + inttostr(NumPedido); RPedidos.QryItens.Filtered := true; RPedidos.QuickRepPedidos.PreviewModal; RPedidos.Free; end; end;
  13. Carlos Rocha

    Pesquisa

    Não sei se entendi direito mas parece que você tem 4 tabelas na tua base e dados. Perguntas, Respostas, Opções e Pesquizas. Onde você fara 3 formularios Cadastro de Perguntas; Cadastro de Opções; Cadastro de Pesquizas; No cadastro das Perguntas(não na tabela - apoenas no form), você deixa uma campo pra respostaque vai gravar na tabela de respostas os camos 1- Numero da resposta, 2- Numero da Pergunta, 3-Descrição da resposta; No cadastro das Opções, vara cadastrara asw opções que estarão disponiveis nos outros formularios; No cadastro das Pesquizas, Voce criara um formulario para cadastro de pesqui]zas; Não sei se ajudei. Mas se não ajudei pelo menos tentei!
  14. Acho que consegui, mas ainda tenho um problema. O que eu fiz: Esse é o código que uso para filtrar o numero do pedido(Esta no menu principal do programa) function IsNumeric(const S: String): Boolean; var x: SmallInt; begin Result:= True; For x:= 1 to Length(S) do begin if not(S[x] in['0'..'9']) then begin Result:= False; Break; end; end; end; procedure TFormPrincipal.Impressao1Click(Sender: TObject); var NumPedido : Integer; Texto: String; begin Texto := ''; if InputQuery('Digite o Numero Pedido','Impressão do Pedido',Texto) then begin If Texto = '' then begin ShowMessage('Qual o Numero do Pedido para o Relatório? Você não preencheu!'); Exit; end; if not(IsNumeric(Texto)) then begin ShowMessage('Aqui, somente números são permitidos'); Exit; end; if Length(Texto) > 6 then begin ShowMessage('Os Numeros de Pedidos teem no maximo 6 digitos'); Exit; end; try NumPedido := StrToInt(Texto); except ShowMessage('Pedido inválido!'); Exit; end; end else begin Exit; end; Application.CreateForm(TRPedidos,RPedidos); if not RPedidos.QryPedidos.Locate('CodigoPedido', NumPedido, []) then begin RPedidos.Close; ShowMessage('Registro não encontrado!'); Exit; end else begin RPedidos.QryItens.Filter := 'NumeroPedido = ' + inttostr(NumPedido); RPedidos.QryItens.Filtered := true; RPedidos.QuickRepPedidos.PreviewModal; RPedidos.Free; end; end; La no quick, fiz o que voce falou: Informe-me, se o pedido a ser impresso será filtrado, ou seja, o usuário seleciona um determinado pedido ou se será impresso o pedido que está correntemente selecionado em um DBGrid. Uma vez definido na QryProdutos o parâmetro NumeroPedido, este dataset deve ter sua propriedade DataSource ligado a um componente datasource que tenha como dataset a consulta QryPedidos. Assim, os itens do produto serão filtrados de acordo com o NumeroPedido na consulta QryPedido. A query ficou assim(E até bem mais simples) select * From produtos p left outer join Itens I on (I.NumeroPedido=:NumeroPedido and P.CodigoProduto = I.CodigoProduto) E no parametro QryItens.NumeroPedido Agora ta funcionando legal. Mas. Volte no inicio e observe a procidure que usei para informar qual vai ser o pedido a ser impresso Quando escolha la por exemplo o Pedido 2, abre o QuikReport por 2 segundos +ou- e depois sim aparece o prewil. Isso o cliente vendo. Como resolver isso?
  15. Eu troquei o dataset do Quickreports e do dos QRDBText's. O objetivo era acrescer à query Produtos, valores do query itens? Mas. se eu faço select I.CodigoProduto, I.Referencia, P.Descricao, I.PrecoUni, (I.Quantidade * I.PrecoUni) As Soma, I.Tamanho As Tamanho, I.Quantidade As Quantidade, I.NumeroPedido As NumeroPedido from Produtos P left outer join Itens I on (I.NumeroPedido=1 and P.CodigoProduto = I.CodigoProduto) No MySql Front, a resposta é certa mas, se eu atribuo um valor de consulta(Até confiro depois e o delphi retorna certinho) no Delphi assim> select I.CodigoProduto, I.Referencia, P.Descricao, I.PrecoUni, (I.Quantidade * I.PrecoUni) As Soma, I.Tamanho As Tamanho, I.Quantidade As Quantidade, I.NumeroPedido As NumeroPedido from Produtos P left outer join Itens I on (I.NumeroPedido=NumeroPedido and P.CodigoProduto = I.CodigoProduto) Não retorna correto. Observe que eu resgato o numero do pedido da taela ítens com a expressão: ... I.NumeroPedido As Numero Pedido ... Veja: Tela no Delphi http://www.carcleo.com/delphi.jpg Tela no MySql Front http://www.carcleo.com/MySqlFront.jpg A ideia é, alem dos itens do pedido que foram escolhidos no ato do preenchimento do pedido sairem o relatorio, o cliente quer tb que saiam os itens(são poucos) que não foram escolhidos porem, esses, sairam apenas com os campos nativos preenchidos(Id, Referencia, Nome, PreçoUni), os demais campos, como por exemplo, o quantidade e total, o proprio c ara ira preencher à mão mesmo caso(no cliente dele) haja a nescessidade de escolher(inserir ao pedido) um novo produto na lista do pedido.
  16. Pessoal, preciso muiito disso. Se alguém puder ajudar ficarei grato!
  17. Ola pessoal, estou usando essa consulta no MySql Front e retorna direitinho os valores select P.CodigoProduto, P.Referencia, P.Descricao, P.PrecoUni, (I.Quantidade * P.PrecoUni) As Soma, I.Tamanho As Tamanho from Produtos P left outer join Itens I on (I.NumeroPedido=2 and I.CodigoProduto = P.CodigoProduto) No Delphi, na query produtos, to usando o seguinte: select P.CodigoProduto, P.Referencia, P.Descricao, P.PrecoUni, (I.Quantidade * P.PrecoUni) As Soma, I.Tamanho As Tamanho from Produtos P left outer join Itens I on (I.NumeroPedido=:NumeroPedido and I.CodigoProduto = P.CodigoProduto) Usando como parametro NumeroPedido = QryPedidos.CodigoPedido na atribuição de valor ao parametro nas propriedades da query Meu QuickReports, ta no dataset QryItens e todos os QRDBText's, estão setados para receberem valor dos campos do QryProdutos. O que esta acontecendo: Os campos da QryProdutos que teem atribuição na QryItens estão recebendo valor mas os campos da QryProdutosque não teem atribuição na QryItens não estão recebendo valor. Como por exemplo: (I.Quantidade * P.PrecoUni) As Soma, I.Tamanho As Tamanho No Mysql Front da certinho mas n o Quick não! O que fazer pra corrigir isso? Onde estou errando?
  18. Rapaz tentei mas o player ficou maluquinho. Ele ficou saltando musica, não achando outras (undefinided).
  19. Carlos Rocha

    2 funções

    Ola. Preciso de uma função que adicionada a escrita abaixo, só possibilite o php varrer o que seja arquivos com extensão mp3. <?php $dir = 'audio/'; $dir_musicas = scandir($dir); $quais_musicas = array_splice($dir_musicas, 2); $quantas_musicas = count($quais_musicas); $qual_musica = implode(",",$quais_musicas); echo "dados=".$qual_musica; ?> E outra, para que, quando no meu cadastro de musicas, não permita ao usuario fazer upload de arquivo que não seja .mp3. Ou seja só possibilitar upload de mp3
  20. Ola Pessoal! Estou na seguinte situação: O código abaixo é de um Player MP3 com varredura de diretório via php. Tudo funciona ok exceto o Botão volar(rr). Ele só volta ao inicio a musica que ta rolando no momento. O que fazer para voltar para a musica anterior?Obs.: O Avançar(ff) ta normal: Veja em: http://www.carcleo.com/player5.swf var som = new Sound(); var musicas = new Array(); var i; var vol; var verifica; var pos; var ligado; var acao; var myLV:LoadVars = new LoadVars(); myLV.load("musicas.php"); myLV.onLoad = function(sucess:Boolean){ if(sucess==true){ musicas = this.dados.split(","); musicas[i]; }else{ trace("Problemas ao carregar o arquivo"); } } var som:Sound = new Sound(); var musicas:Array; var i:Number = 0; var vol:Number = 100; var verifica:Number; var pos:Number; var ligado:Boolean; var acao:String; stop(); if (ligado == null) { i = 0; vol = 100; ligado = false; } // end if function passai(dir) { if (dir == "rr") { i--; } } this.onEnterFrame = function () { som.setVolume(vol); if (ligado == false) { passai(dir); som.loadSound("audio/"+musicas[i], true); if (i < musicas.length) { ++i; } else { i = 0; } // end else if ligado = true; } // end if if (som.id3.artist == undefined) { artista.text = "Artista = aguarde..."; }else{ artista.text = "Artista: " + som.id3.artist; } if (som.id3.songname == undefined) { musica.text = "Artista = aguarde..."; }else{ musica.text = "Musica: " + som.id3.songname; } verifica = som.getVolume(); if (verifica >= 100) { som.setVolume(100); } // end if if (verifica <= 0) { som.setVolume(0); } // end if v3.text = som.getVolume() + "%"; }; som.onSoundComplete = function () { ligado = false; }; pausi.onRelease = function () { acao = "pause"; pos = som.position / 1000; som.stop(); }; stopi.onRelease = function () { som.stop(); }; plai.onRelease = function () { if (acao == "pause") { som.start(pos); acao = ""; } else { som.start(); } // end else if }; v1.onRelease = function () { verifica = som.getVolume(); vol = verifica + 5; }; v2.onRelease = function () { verifica = som.getVolume(); vol = verifica - 5; }; ff.onRelease = function () { ligado = false; som.stop(); }; rr.onRelease = function () { ligado = false; passai("rr"); som.stop(); };
  21. Estou fazendo um player mp3 em flash, e estou observando uma c oisa: Tem essa parte do código que carrega as mp3: ... som.loadSound("audio/"+musicas[i], true); ... No ultimo parametro, tanto false como true, as mp3 tocadas n o player são baixadas para o computador do usuario pra depois ser tocado. O que eu gostaria de fazer: Gostaria de que o player funcionasse como se fosse uma radio web, poir bufeer sem baixar as mp3. Tem jeito?
  22. Ainda sou meio cru em flash. Tem como dar um exemplo?
  23. Obrigado, ficou assim: <?php $dir = 'audio/'; $dir_musicas = scandir($dir); $quais_musicas = array_splice($dir_musicas, 2); $quantas_musicas = count($quais_musicas); $qual_musica = implode(",",$quais_musicas); print $qual_musica; ?> Agora, e pra mandar essa variavel $qual_musica pro flash? Como fazer?
  24. Ok, quanto ao editar. Tudo berm, voce esta correto. Agradeço pelo esclarecimento e peço desdulpas pelo ocorrido. Mas o problema agora é o seguinte: fiz: <?php $dir = 'audio/'; $dir_musicas = scandir($dir); $quais_musicas = array_splice($dir_musicas, 2); $quantas_musicas = count($quais_musicas); foreach ($quais_musicas as $qual_musica) { $qual_musica = implode(",",$qual_musica); print $qual_musica; } ?> E ta dando o seguinte erro: Warning: implode() [function.implode]: Bad arguments. in C:\Program Files\Apache Group\Apache2\htdocs\php\player\musica.php on line 8 Warning: implode() [function.implode]: Bad arguments. in C:\Program Files\Apache Group\Apache2\htdocs\php\player\musica.php on line 8 Warning: implode() [function.implode]: Bad arguments. in C:\Program Files\Apache Group\Apache2\htdocs\php\player\musica.php on line 8 Warning: implode() [function.implode]: Bad arguments. in C:\Program Files\Apache Group\Apache2\htdocs\php\player\musica.php on line 8 Warning: implode() [function.implode]: Bad arguments. in C:\Program Files\Apache Group\Apache2\htdocs\php\player\musica.php on line 8 E agora?
  25. ola. Como diz a propria função: <?php $dir = 'audio/'; $files1 = scandir($dir); $row = count($files1); print_r($row); print_r($files1); ?> A resposta ficaria assim? 7 Array ( [0] => . [1] => .. [2] => bar.php [3] => foo.txt [4] => somedir ) O que eu poderia fazer para conseguir como resultado o seguinte?: 5 Array ( [0] => bar.php [1] => foo.txt [2] => somedir ) obrigado, já consegui. Ficou assim: <?php $dir = 'audio/'; $dir_musicas = scandir($dir); $quais_musicas = array_splice($dir_musicas, 2); $quantas_musicas = count($quais_musicas); ?> Agora, preciso saber como enpregar essa matriz php em um arquivo xml Outra coisa é que o código acima imprime assim: Array ( [0] => audio1.mp3 [1] => audio2.mp3 [2] => audio3.mp3 [3] => audio4.mp3 [4] => audio5.mp3 ) 5 E eu preciso faze-lo imprimir assis: arquivo1mp3,arquivo2.mp3,arquivo3.mp3,,arquivo4.mp3,,arquivo5.mp3 Mas como? Mas na verdade o que to precisando é criar uma variavel que receba o valor do foreach com os arquiv os separados por virgula sendo que o último não tem virgula depois. Tipo assim: $var_final = 'arquivo1mp3,arquivo2.mp3,arquivo3.mp3'; E depois vou fazer &dados = $var_final; e mandar pro flash. É isso que não tou conseguindo fazer!
×
×
  • Criar Novo...