Douglas Soares

Desculpem minha ausência pessoal, estive de férias semana passada... pelo que vi só tem 1 interessado, então o que resta fazer é pedir ao Jhonas que encerre este tópico, e demonstro minha decepção no desinteresse total que este fórum tem...

Opa, vamos começar com o Windows XP, abra uma pasta qualquer, vá ate o menu e clique em Ferramentas > Opções de Pasta. Depois clique na aba Modo de Exibição, você vera uma lista com varias opções, desça ate o final e procure uma chamada: Usar compartilhamento Simples de Arquivo (recomendável), e marque ela se não estiver marcada. Vá até Meu Computador, clique com o botão direito do mouse em Disco Local (C:), e clique em propriedades, em seguida clique na aba Compartilhamento, deve haver alguma mensagem estilo um link, dizendo: Entendo que é perigoso compartilhar, blablabla.... algo assim, clique nisso, depois clique em Compartilhar esta pasta na rede e em seguida marque Permitir que usuários da rede alterem meus arquivos. Pronto o XP tá pronto, vamos pro Vista... Vá em Iniciar, terá uma caixa de pesquisa, digite: compmgmt.msc e dê enter! Do lado esquerdo, terá umas pastas, clique em Pastas Compartilhadas, você verá que mostrará 3 pastas agora do lado direito, dê dois cliques em Compartilhamentos, novamente aparecerá alguns icones do lado direito, então você verá um chamado IPC$, outro Public$ e talvez um Users, se você ver qualquer um escrito C, ou C$, clique com o botão direito e clique em Interromper Compartilhamento... Em seguida, ainda no quadro da direita, clique em um espaço em branco com o botão direito do mouse e clique em Novo Compartilhamento, agora clique em Avançar, irá aparecer um edit para você por o nome da pasta, clique em Procurar, selecione o Disco Local (C:) e clique OK, agora dê Avançar, irá pedir uma confirmação, clique em Sim, Agora pede o Nome do Compartilhamento, você coloca C, e em Descrição coloca o que achar melhor, dê Avançar, agora terá 4 opções, clique na opção "Personalisar permissões", e em seguida no botão Personalisar... Abrirá uma nova janela com o Usuário Todos, logo abaixo terá as permissões, marquei a caixinha bem a frente de Controle Total, dessa forma ele irá marcar as 2 outras caixinhas q tem abaixo automaticamente... feito isso logo acima tem um botão Adicionar, clique nele, agora na caixa de texto digite: "Rede" e em seguida clique em Verificar nomes, feito isso clique em OK, e abaixo marque a caixinha na frente de Controle Total... Dê OK, e finalmente clique em Concluir, e depois em Concluir Novamente, feito isso, vá até sua area de trabalho, clique com o botão direito do mouse em Rede e dê Propriedades ou vá em Painel de Controle, Central de Rede e Compartilhamento, agora na parte esquerda da tela tem umas opções, clique em Alterar as configurações de compartilhamento avançadas, chegamos até uma outra tela, As seguintes opções devem estar marcadas... Ativar descoberta de rede, Ativar compartilhamento de arquivo e impressora, Ativar compartilhamento para que qualquer pessoa com acesso à rede possa ler e gravar arquivos nas Pastas públicas, e a ultima, Desativar compartilhamento protegido por senha, clique em salvar alterações....... Uuuufa, cabooo, só isso, hasuhsauas Espero ter ajudado. Abraços

Consegui Resolver... segue a query: UPDATE CLIENTES SET PAIS_ID = ( SELECT PAIS.CODIGO FROM PAIS WHERE PAIS.PAIS = CLIENTES.PAIS ) Obrigado

Bom dia pessoal, se você está interessado nesse tutorial, responda esse tópico dizendo que quer participar... Comigo já são um, então precisamos de mais 19 pessoas para iniciar esse torneio! Abraços e obrigado pela atenção!

Boa tarde... Tenho 2 tabelas, a CLIENTES, e nela tem os campos PAIS, e PAIS_ID, e uma outra tabela chamada PAIS, que tem os campos CODIGO, ID_PAIS e PAIS. Preciso atualizar a tabela clientes, setando o campo PAIS_ID = CODIGO que está na tabela pais, sendo que o field PAIS das duas tabelas tem que estar iguais... Fiz a query e ficou assim, porem da erro: UPDATE CLIENTES SET CLIENTES.PAIS_ID = PAIS.CODIGO WHERE CLIENTES.PAIS = PAIS.PAIS Espero que possam me ajudar... Obrigado

Vá em C:\WINDOWS\system32\Firebird2Control.cpl, copie esse arquivo e cole um atalho na area de trabalho! Abraços

Matheus, ele é meu amigo, ehehe, tipo, ele deve ter esquecido de botar no sobre, dps eu to um toque a ele... mas isso n importa, acho q o pessoal do proprio fórum consegue fazer... daki uns 30 dias... huahsuhusasa, zuera, força ai pessoal! Abraços

Quanto ao problema de IPS Drive error, o administrador já liberou atualização, só falta uma pessoa capacitada para tal serviço, ehehe... acho q está nahora deu melhorar meu fórum... e conquistar um espacinho, pois já estou de saco cheio desse erro também. Referente as 20 pessoas, dps eu abro um tópico e vejo quem quer... Abraços

Perfeito... só falta arrumar um profissional ehehe, conheço um, indiquem ao binho por favor ehehe www.professionalblogger.com.br esse cara manja, o nome dele é Diego, alem de atualizar sites como wordpress, ipb, joomla, drupal, magento, etc, ele manja de SEO e faz o site ir pro topo do google e outros buscadores... Abraços

Basicamente um Desafio, ele diz as regras, nós fazemos o programa, quem fizer com mais funções, menos erros, e blablabla dai ganha e vai pra segunda fase, sei lá, tipo o Torneio de Programação em JavaScript... Abraços

Olá parceiro!, gostaria de pedir uma coisinha pra você, ehehe, dá pra você fazer um torneio em delphi??? Fiz um tópico em Sugestões, e disseram que o moderador da area tem que se prontificar!, ta ai então... será q você pode fazer?? :wub: Obrigado, e desculpe pelo tópico aqui!

Bom dia pessoal, resolvi abrir esse tópico para que todos entrem nessa causa e ajudem o fórum a ter uma atualização! Para contribuir basta enviar essa mensagem no email: binho@scriptbrasil.com.br ou enviar uma MP no fórum para binho. Mensagem: Prezado Binho Venho por meio deste email, comentar sobre o fórum do ScriptBrasil. Nós usuários do fórum, realmente estamos começando a ficar decepcionados. O fórum anda com muitos problemas. Temos relatos de dezenas de usuários que reclamam que páginas com mensagens do tipo "IPS Driver Error" aparecem constantemente no período que o fórum recebe mais visitas (ou seja, na hora que eles precisam mais do fórum, ele resolve parar de funcionar, as vezes por cerca de 30 minutos). Outros relatos também, que do nada as assinaturas de posts simplesmente "sumiram". Ou seja, usuários assinam os posts pois são algo que eles realmente precisam para um futuro próximo. Algo de seu interesse, e uma coisa como essa, de as assinaturas "sumirem", é um erro fatal. Outros relatos também que o fórum tem sido "invadido" provavelmente por spams. E estes "spams" estão enviando mensagens para vários usuários. Estas mensagens possuem um estilo de uma tentativa de roubo de dinheiro. É o chamado "Golpe da Nigéria". Então, é por meio desta mensagem que todos nós usuários, gostaríamos de pedir que o fórum seja atualizado. Achamos que já esta na hora. Obrigado, Usuários do fórum do ScriptBrasil Agradeço a todos que contribuirem e derem uma resposta no tópico! Obrigado!

Fiz a minha parte tambem, enviei MP e email.... ajuda ai pessoal, mandem tambem!!! Abraços O Fórum unido, jamais será vencido.

Pra fazer esse backup, testa-lo e retesta-lo com calma, pode demorar 1 semana se pegar com calma! Meu irmão tem um portal chamado WebSapiens, não sei se alguém conhece, mas o banco dele é gitantescooooooooooooooo pois é um site de noticias estilo Digg. Ele demorou 1 mes pra conseguir migrar o site... e só agora ele está conseguindo migrar para outro sistema mais novo... é muita complicação... dá muitos erros, por isso devem começar agora... outra coisa.... Yes we can! O fórum unido, jamais será vencido!

Boa tarde pessoal.... seria possivel um torneio desses? eu ficaria mt feliz, haushusahsa, nunca vi um de delphi aqui no fórum... Obrigado!

Boa mensagem, eu gostei... se o resto do pessoal concordar, dai nós começamos enviar pra ele... Abraços

creio que sim olha o link aqui! http://forum.sosinvision.com/index.php?showtopic=85 Vamos la pessoal! vamos começar elaborar a mensagem agora... começando.... Prezado Binho Venho por meio deste email, solicitar..... Continuem ou alterem, eheheh Abraços

uma atualização facial??? huahsuhsua vo apela agora! Sr. Binho cade voceeeeee???? :( bora todos aqui do fórum enviar um email ou mp pra ele, só assim pra gente conseguir! huashuas e outra coisa... O fórum unido jamais será vencido!

Se alguém ao menos soubesse um email do dono fórum... um que ele ve sempre... ou se algum hacker estiver disposto a invadir o fórum e atualizar, qualquer solução será aceita, ahsusahuhasu (brincadeira a parte do hacker) :rolleyes: S2 Script Brasil :wub:

Jhonas, fiz tantos e tantos testes que cheguei a ponto de achar que era macumba... num funcionava de jeito nenhum... em um ato de desespero deletei o IdFTP e o readicionei, configurei, e fui testar... num é que o @#%¨&@%$ funcionou! o componente tava macumbado :blink: hasushausa Abraços e obrigado por toda a ajuda prestada!

Olá Jhonas, como sempre você estava certo, testei o código em separado e funcionou... Tentei adapta-lo de todas as formas ao meu código mas não deu muito certo... gostaria de uma ajudinha nisso, segue o código: procedure TfrmGerenciaBackups.btn_backupsClick(Sender: TObject); var i, tipo : integer; ano, dia, mes : string; list1, list2, list3 : TStringList; begin list1 := TStringList.Create; list2 := TStringList.Create; list3 := TStringList.Create; if (idftp1.Size(cdsParamCODIGO_I.AsString) < 0) then begin //TOTAL try IdFTP1.ChangeDir('/' + cdsParamCODIGO_I.AsString); IdFTP1.List(list1, '*.zip', false); except Abort; end; //SEC try IdFTP1.ChangeDir('/' + cdsParamCODIGO_I.AsString + '/SEC'); IdFTP1.List(list2, '*.zip', false); except end; //TES try IdFTP1.ChangeDir('/' + cdsParamCODIGO_I.AsString + '/TES'); IdFTP1.List(list3, '*.zip', false); except end; end; ListBox1.Items.AddStrings(list1); ListBox1.Items.AddStrings(list2); ListBox1.Items.AddStrings(list3); cdsBackups.Open; for i := 0 to ListBox1.Items.Count - 1 do begin cdsBackups.Append; cdsBackupsnome.Text := tira_extensao(ListBox1.Items[i]); if copy(cdsBackupsnome.Text, 1, 4) = 'back' then begin cdsBackupstipo.Text := 'Total'; tipo := 0; end; if copy(cdsBackupsnome.Text, 1, 4) = 'sec_' then begin cdsBackupstipo.Text := 'Secretaria'; tipo := 1; end; if copy(cdsBackupsnome.Text, 1, 4) = 'tes_' then begin cdsBackupstipo.Text := 'Tesouraria'; tipo := 2; end; if tipo = 0 then begin IdFTP1.ChangeDir('/'); IdFTP1.ChangeDir(cdsParamCODIGO_I.Text); ano := copy(cdsBackupsnome.Text, 7, 4); mes := copy(cdsBackupsnome.Text, 11, 2); dia := copy(cdsBackupsnome.Text, 13, 2); end; if tipo = 1 then begin IdFTP1.ChangeDir('/'); IdFTP1.ChangeDir(cdsParamCODIGO_I.Text); IdFTP1.ChangeDir('SEC'); ano := copy(cdsBackupsnome.Text, 11, 4); mes := copy(cdsBackupsnome.Text, 15, 2); dia := copy(cdsBackupsnome.Text, 17, 2); end; if tipo = 2 then begin IdFTP1.ChangeDir('/'); IdFTP1.ChangeDir(cdsParamCODIGO_I.Text); IdFTP1.ChangeDir('TES'); ano := copy(cdsBackupsnome.Text, 11, 4); mes := copy(cdsBackupsnome.Text, 15, 2); dia := copy(cdsBackupsnome.Text, 17, 2); end; ListBox1.Selected[i] := true; bytesToTransfer := IdFTP1.Size(ListBox1.Items.Strings[i]); cdsBackupstamanho.AsInteger := bytesToTransfer; cdsBackupsdata.AsDateTime := strtodate(dia + '/' + mes + '/' + ano); cdsBackups.Post; end; end; Abraços!

Boa tarde pessoal, não sei se é só aqui em casa, mas nos ultimos dias o fórum ta pior que carroça, demora 3 dias pra abrir uma página, e quando consigo abrir da IPS Drive Error :wacko: acho que já ta mais do que na hora de uma atualização eim??? eheheh Abraços

Não dá certo... Eu estou exibindo os arquivos do meu FTP, esses arquivos estão em 3 pastas... '/downloads/arquivos/ + cdsparam.Codigo_I.text + /' ou '/downloads/arquivos/ + cdsparam.Codigo_I.text + /SEC' ou '/downloads/arquivos/ + cdsparam.Codigo_I.text + /TES' eu jogo pra 3 string list e dps pra um listbox... bobera minha.... tentei fazer com um listbox sem as stringlists mas tava sobrepondo... pelo menos ta funcionando, asuuhasuhasuh.... consigo exibir todos os valores que preciso menos o tamanho do arquivo... da uma olhada no código, a parte que tento ler o tamanho ta la na penultima linha... cdsBackupstamanho.AsInteger := IdFTP1.Size(ListBox1.Items.Strings); procedure TfrmGerenciaBackups.btn_backupsClick(Sender: TObject); var i, tipo : integer; ano, dia, mes : string; list1, list2, list3 : TStringList; bytesToTransfer: integer; begin list1 := TStringList.Create; list2 := TStringList.Create; list3 := TStringList.Create; if (idftp1.Size(cdsParamCODIGO_I.AsString) < 0) then begin //TOTAL try IdFTP1.ChangeDir('/' + cdsParamCODIGO_I.AsString); IdFTP1.List(list1, '*.zip', false); except Abort; end; //SEC try IdFTP1.ChangeDir('/' + cdsParamCODIGO_I.AsString + '/SEC'); IdFTP1.List(list2, '*.zip', false); except end; //TES try IdFTP1.ChangeDir('/' + cdsParamCODIGO_I.AsString + '/TES'); IdFTP1.List(list3, '*.zip', false); except end; end; ListBox1.Items.AddStrings(list1); ListBox1.Items.AddStrings(list2); ListBox1.Items.AddStrings(list3); cdsBackups.Open; for i := 0 to ListBox1.Items.Count - 1 do begin cdsBackups.Append; cdsBackupsnome.Text := tira_extensao(ListBox1.Items[i]); if copy(cdsBackupsnome.Text, 1, 4) = 'back' then begin cdsBackupstipo.Text := 'Total'; tipo := 0; end; if copy(cdsBackupsnome.Text, 1, 4) = 'sec_' then begin cdsBackupstipo.Text := 'Secretaria'; tipo := 1; end; if copy(cdsBackupsnome.Text, 1, 4) = 'tes_' then begin cdsBackupstipo.Text := 'Tesouraria'; tipo := 2; end; if tipo = 0 then begin ano := copy(cdsBackupsnome.Text, 7, 4); mes := copy(cdsBackupsnome.Text, 11, 2); dia := copy(cdsBackupsnome.Text, 13, 2); end; if tipo = 1 then begin ano := copy(cdsBackupsnome.Text, 11, 4); mes := copy(cdsBackupsnome.Text, 15, 2); dia := copy(cdsBackupsnome.Text, 17, 2); end; if tipo = 2 then begin ano := copy(cdsBackupsnome.Text, 11, 4); mes := copy(cdsBackupsnome.Text, 15, 2); dia := copy(cdsBackupsnome.Text, 17, 2); end; cdsBackupsdata.AsDateTime := strtodate(dia + '/' + mes + '/' + ano); cdsBackupstamanho.AsInteger := IdFTP1.Size(ListBox1.Items.Strings[i]); cdsBackups.Post; end; end; Abraços

Não existe essa paleta no meu delphi :wacko: , tem como me passar o link do componente? ou então me passar um exemplo com IdFTP... Abraços

onde fica esse componente no meu delphi? se não existe, me passe o link por favor... Abraços