sambomb

Mais simples que eu saiba não... mais tem mais dificil.... cResultado := "" For i:= 1 to Len(cVar) if SubStr(cVar,i,i) == " " i := Len(cVar) else cResultado += SubStr(cVar,i,1) end MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Eu tambem não entendi.... deve ser alguma coisa na minha maquina, sei la.... eu não compilei o programa(xBlite) portanto não pode ter sido alguma modificação acidental e eu não consigo extrair nenhum arquivo com ele.... Sempre da a mensagem de erro: citação:"Erro... Não Foi Possível Recriar o Arquivo de Segurança..." id=quote>id=quote>Correspondente a linha 869 em xBlite.prg, que indica um .F. como resultado do HB_UnzipFile O mais estranho(ou nem tanto) é que consigo extrair com aplicativos "industrializados" (WinZip, WinRar) mas não consigo com os manufaturados(xBlite) e o meu.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Yuri, no começo eu precisava da documentação de 32 bits para poder obter os arquivos de dentro do ZIP mas conforme foi desenrolando as coisas apareceram outra necessidades e para não poluir o forum com outros tópicos sobre ZIP, acabei poluindo o tópico com outras coisas que inicialmente não eram o foco, mas sempre subentendido sob o assunto de ZIP.... Atualmente preciso de ajuda para extrair os arquivosid=red>, o xBlite que foi o mais completo que achei no forum nao funciona a extração e é basicamente o unico ponto de referencia que atua de forma similar ao que eu estou desenvolvendo. atualmente o meu código está assim: citação:**************************************************************************** METHOD Extrair(paFile,pcDestPath,lAvisa) CLASS TZIP **************************************************************************** * * Extrair arquivos de um ZIP pré existente * Parametros: * paFile = Array com os nomes dos arquivos a serem extraidos * OBS.: Também aceita caracter para o caso de apenas 1 arquivo * * pcDestPath = Caracter com o caminho completo do destino para extrair o arquivo * * lAvisa = Idenfica a necessidade de confirmação para sobreescrever * * Retorno: Lógico = .T. se conseguiu gravar, .F. se ocorreu algum erro * * Autor: Samir * 10/10/2008 - 15:17:35 * **************************************************************************** local lExtrai:=.T., i:=0, cTipoFile:=ValType(paFile), cTipoDest:=ValType(pcDestPath) Local Result := .F. Default lAvisa := .F. //-- Verifica integridade do parâmetro paFileName if cTipoFile == "U" Msg("Parâmetro de arquivos vazio") Return .F. elseif cTipoFile != "A" .and. cTipoFile != "C" Msg("Parâmetro de arquivos inválido") Return .F. elseif cTipoFile == "C" paFile := {paFile} end //-- Verifica integridade do parâmetro pcDestPath if cTipoDest == "U" Msg("Parâmetro de destino vazio") Return .F. elseif cTipoDest != "C" Msg("Parâmetro de destino inválido") Return .F. end //-- Verifica se o destino indicado existe if !IsDirectory(pcDestPath) Msg("Destino não existe") Return .F. end for i := 1 to Len(paFile) lExtrai := .T. //-- Se encontrar arquivo igual testa se o parâmetro foi indicado if lAvisa //-- Procura por arquivos iguais if CheckUnZip(pcDestPath,paFile) //-- Se o parâmetro foi indicado pergunta se deseja sobreescrever if SN("Arquivo "+paFile+" já encontrado, sobreescreve") lExtrai := .T. else lExtrai := .F. end end end //-- Testa se pode extrair ou não if lExtrai Result := HB_UNZIPFILE(::cPath+::cNome,::cPass,.T.,,pcDestPath,paFile) end end return Result id=quote>id=quote>MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

//oMyget:cPicture:="999999999999" oMyget:oGet:Picture:="999999999999"id=red> oMyget:assig() oMyget:refresh() tentou assim? MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:Bom dia moçada, Tenho um Get que com ON CHaNGE desvia para uma função, e junto a essa função é enviada a veriavel desse mesmo GET , porem ele é enviada vazia " " e só vai ser preenchida na proxima vez que entrar nessa função ex: digito a letra "A " na função a variavel aparece vazia digito a letra "B" na função vai aparecer a letra "A" digito a letra "C" na função vai aparecer as letras "AB" digito a letra "D" na função vai aparecer as letras "ABC" ou seja, sempre esta com um atrazo a primeira letra que é teclada só pode ser lida apos ser teclado a segnda letra , assim sucessivamente, sempre com um atrazo :[ caso alguem saiba.. id=quote>id=quote>O que você esqueceu é de passar o buffer e não a variável... if ValType(NomeDoObjeto:oGet:Buffer) != "U" NomeDoObjeto:oGet:Bufferid=red> else Variávelid=red> end PS.: esse if é pra verificar se o buffer esta carregado ou nao, caso ele não esteja carregado utiliza a variavel, serve para quando vc seta o foco no get... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 29/10/2008 13:59:05

Ninguem? Basicamente só falta isso para eu terminar esse projeto.... alguem da uma luz ae.... PS.: sorry pelo double post MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

"o que estou precisando é verificar na rede onde está o servidor em copiar os dados" Mapeie a rede(o que pode ser feito a partir de um bat) sempre com a mesma unidade, de preferencia acima de H (ou seja I a Z) e busque da unidade mapeada. Ex.: No servidor a pasta se chama C:\programa\fglogist\ você vai mapear essa pasta no terminal como S:\ ou seja, S:\ é aonde você vai procurar os arquivos Sendo assim basta dar um: dVerifica := fDate("S:\FGLOGIST.EXE") if fDate("C:\FGTRANSP\FGLOGIST.EXE") != dVerifica Winexec("caminho do seu BAT") end É isso que você queria ? OBS.: para criar o bat você abre o notepad e digita os comandos DOS(1 por linha) depois salva ele como .bat para mapear a rede procure pelo comando net use do DOS MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:isso vai dah namoro... queimaaaaaaaaa.... id=quote>id=quote>Olha o outro com ciume... ahuahuahua MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação: citação: citação: citação:Putz, to me sentindo velho pra caramba, eu tambem comecei com uma SINCLAIR , 1K de memoria, mas comprei um expansor de memória, ai a coisa mudou, tinha 16K!!! Meu primeiro XT tinha HD de 10 Mb, era um luxo. Hoje com 56 tenho muita coisa pra contar para meus filhos... daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 1.1.0 + Vlib + Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e muita luta. Cuanto mas conozco a la gente, mas quiero a mi perro. id=quote>id=quote>HAHAHAHAHA. Cuanto mas conozco a la gente, mas quiero a mi perro. Quanto mais Conheço as pessoas mais gosto do meu cachorro. Quanto mais voces falam do passado, mais eu gosto do PRESENTE e do FUTTURO que é VINDOURO e PROMISSOR! Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Quanto mais eu conheço o Kapiaba mais eu rio.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>ME CONHECE??? DE ONDE?? RIDES, DO QUE?? COMIGO OU DE MIGO?? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Estou conhecendo, do fórum. Rindo as vezes de você as vezes com você. MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

johnson, não aceita sobreescrever arquivos em execução e estava supondo que ele saiba disso.... e que esse executavel que vai conter esse codigo é similar a um atualizador ou algo do gênero... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 27/10/2008 11:35:05

citação: citação:Putz, to me sentindo velho pra caramba, eu tambem comecei com uma SINCLAIR , 1K de memoria, mas comprei um expansor de memória, ai a coisa mudou, tinha 16K!!! Meu primeiro XT tinha HD de 10 Mb, era um luxo. Hoje com 56 tenho muita coisa pra contar para meus filhos... daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 1.1.0 + Vlib + Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e muita luta. Cuanto mas conozco a la gente, mas quiero a mi perro. id=quote>id=quote>HAHAHAHAHA. Cuanto mas conozco a la gente, mas quiero a mi perro. Quanto mais Conheço as pessoas mais gosto do meu cachorro. Quanto mais voces falam do passado, mais eu gosto do PRESENTE e do FUTTURO que é VINDOURO e PROMISSOR! Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Quanto mais eu conheço o Kapiaba mais eu rio.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Não sei se entendi bem o que você quer, mas para fazer a cópia, criar o diretório e etc... não seria mais fácil rodar um arquivo bat do servidor? Ex.: uma máquina na rede roda o programa, testa se o arquivo no servidor tem data e hora diferente( fDate() e fTime() ) Se estiver com a data e hora diferente roda um bat que contem as linhas de comando para copiar (e sobrescrever se necessário) o arquivo do servidor. Se o arquivo nao existir roda um outro bat que cria o diretorio e depois roda o 1º bat para copiar o arquivo. Acho que isso resolve né? MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Easter eggs legais.... testei alguns aqui MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:Error Cmtr2Pix() y com o label fica como se fose quadrado o que ue quero é fazer uma linha reta na horizontal apos isso inserir outras linhas iguais porem abaix dela juntinhas ------------------------------------------------- ------------------------------------------------ colado na de cima como se fose 1 so MSN --[ lailton.webmaster@hotmail.com ]-- FiveWin 8.5 | Xharbour 1.1.0 | BCC55 | C Pelles | Designer.LIB id=quote>id=quote>Ahh.... agora que eu entedi o que vc quer fazer..... Mas também da pra fazer pelo Pelles.... Adicione as linhas, no "on init" da dialog coloque "visible" dos bitmaps como false, e coloque "visible" true conforme achar necessário Acho que isso resolve seu problema né.... fica até mais fácil de controlar e programar usando um array de objetos: citação:local / private / public oLinha := Array(numero de linhas) para declarar você pode usar um for: For i := 1 to Len(oLinha) ReDefine Bitmap oLinha; ID i;// considerando o ID 1,2,3 etc.... ou faz uma soma com o i of oDlg end id=quote>id=quote>MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Se for estático não serviria no Pelles? Insira um bitmap e altere o style dele, da para fazer molduras, linhas horizontais e linhas verticais.... e via programação pode aumentar o bitmap para fazer ele se tornar dinâmico... podendo se ajustar, mas acho que o calculo vai ser chato uma vez que a medida do pelles é um enigma pra mim MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

É.... pelo visto ninguem sabe uma escapatória, "e agora quem poderá me ajudar?" PS.: Kapiaba, o Xlite não ta extraindo nenhum arquivo aqui no meu PC, não sei se é um erro do programa ou se talvez seja alguma coisa relacionada ao PC pois eu tb nao consigo extrair nada no meu programa.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Se der modifica o título do tópico pra Resolvido pra ajudar na organização MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:acho eu que aqui soh tem menininhos(a), media de idade deve ser de 21 anos. vai somando: eu 39 --- media 39 quem se habilita? vamos diminuir isso gente. id=quote>id=quote>nMedia := (39+20) / 2 ?nMedia //retorna 29.5 MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação: citação:Eu faço assim. MAIN() PUBLIC nChildWnd := 0, lChildWnd .... ModuloCR() nChildWnd nChildNum := 1 // Numero unico desta janela if lChildWnd // Se alguma janela estiver aberta... if nChildWnd == nChildNum // Se a janela for esta mesma... return nil // retorna sem modificar endif endif nChildWnd := nChildNum lChildWnd := .T. id=code>id=code>FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio id=quote>id=quote>...Tambem pode ser criado um arquivo.txt e toda vez que abrir uma MDI , voce abre esse .TXT como exclusive, quando for abrir outra MDI , verifica se este mesmo arquivo ja esta aberto e não deixa a MDI ser aberta. Não é a solução mais bonita, mas vai funcionar com 100% de acerto. té++ ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com C:\Xharbour Free\fivewin 8.05\workshop\VSX id=quote>id=quote>Looks like Gambiarra.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:Fiz o que pediu ele criou dois erros 1º hb_cdxIndexFree: index file still locked. 2º Descricao: Erro BASE/1003 Variable does not exist: OSECRET Chamadas ao Stack ================= CHAMADA DE (b)PATIMPR(401) a linha 401 é: SET FILTER TO &cText Entretanto a variável eu visualizo antes de criar o filtro como teste de seu conteudo Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org) id=quote>id=quote>O registo não ta bloqueado não? Tente um unlock após o Select... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Local cText := "" if !empty(oSecret) cText := "PAT_SECRET = oSecret" endif Select "insira a tabela a ser filtrada aqui" set filter to //-- exatamente assim para limpar filtro antigo set filter to &cText MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:Boa tarde, Pessoal estou migrando um sistema para um cliente e me deparei com um probleminha, estou fazendo um filtro da seguinte forma: IF ! EMPTY( oSecret ) // IF ! EMPTY(cFiltro) ; cFiltro += " .AND. " ; ENDIF cFiltro := "PAT_SECRET ="+id=blue> oSecret"id=red> ENDIF IF ! EMPTY(cFiltro) SET FILTER TO &cFiltro // Está dando erro /* se eu colocar assim SET FILTER TO PAT_SECRET = oSecret não dá erro */ ELSE PATRIMO->(DBCLEARFIL(NIL)) ENDIF Alguem pode me explicar o que tem de errado, porque sempre fiz assim e não me dá problemas. Abraços Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org) id=quote>id=quote>Tente adicionar o texto em azul e retirar o em vermelho MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

E eu achava que meu PC era ruim.... Meu primeiro foi um Atlhon 1,2 , 256 MB DDR, HD 20 GB monitor CRT 15' Meu ultimo PC é um Atlhon 1,2 com 512 MB DDR, HD 20 GB monitor CRT 15' 6 anos com ele e só dei upgrade na memória... ja passou da hora de eu aposentar ele... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Hoje em dia monitor embutido no computador é luxo!! tipo um gabinete que vem com um monitor LCD embutido na lateral.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

citação:Veja se ajuda: http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=6757 Leonardo Machado Porto Alegre-RS Hwgui + Mysql / xHarbour 1.0.0 id=quote>id=quote>Tem essa parte aqui que eu preciso: "aExtract := hb_GetFilesInZip( vNome_zip ) HB_UNZIPFILE( vNome_zip,,.F.,"senha", aDir1, aExtract )" id=red>Mas eu faço o mesmo.... citação: //-- Obtém informações dos arquivos contidos no zip aZip := HB_GETFILESINZIP(pcPath+pcNome,.T.) //-- pcPath é o caminho e pcNome o nome do arquivo For i := 1 to Len(aZip) aAdd(Result,"C:\"+aZip[i,1],aZip[i,2],aZip[i,6],aZip[i,7],aZip[i,9]}) end id=quote>id=quote>Uso assim pois preciso de outros dados além do nome do arquivo, vou testar se do jeito que você faz resolve meu problema, mas para extrair está identico: PS.: o a 1ª dimensão do retorno com o parametro sendo indicado como .T. é identica ao retorno de quando não se indica o parametro, então não é isso.... e tirar ou adicionar o caminho no meu caso "C:\" não altera o resultado para as outras funções... (editado 24/10/08 16:42) citação:HB_UNZIPFILE( vNome_zip,,.F.,"senha", aDir1, aExtract )id=blue> Result:=HB_UNZIPFILE(::cPath+::cNome,,.F.,,pcDestPath,paFile) id=red>Eu uso como caracter e você como array mas na documentação está dizendo que pode ser os 2 e também ja testei essa hipótese.... id=quote>id=quote>MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 24/10/2008 16:42:12