sambomb

citação:[vagner] "... não existia ainda o DOS que depois veio a ser MSDos qndo a Micro$oft comprou ..." Desculpe, mas eu sou anterior a essa época. O correto é que a IBM avaliou o mercado e achou que não valia desenvolver um S.O. para o PC. O CP/M 8 bits era muito bom mas a empresa não terminava o CP/M 16. Como uma empresa pequena tinha desenvolvido um interpretador Basic muito bom, a IBM encomendou um sistema operacional. Essa empresa entregou o S.O. nomeado IBM-DOS. Após algumas versões (poucas), a pequena empresa lançou a propria versão do S.O., chamado MS-DOS. Após algum tempo a IBM parou de lançar o IBM-DOS e mandava as máquinas com o MS-DOS. O IBM-DOS tinha o núcleo igual ao MS-DOS. Apareceram alguns outros S.O. para PC, mas não evoluiram. Alguns daqui do forum devem lembrar do SISNE. Pirataria pura do MS-DOS. - Só para constar, a M$ nunca liberou toda a tabela de interrupção da BIOS ou do DOS. Ah! O meu primeiro contato foi com um NEZ8000 - 1Kb de memória.id=red> id=quote>id=quote>Quentinho direto da Pangéia MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

2 Horas * 60 min 120 min * 60 seg 7200 seg * 10 miliseg 72000 eu coloquei milisegundos errado né... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Define Timer oTempo ; Interval 72000 ;id=red> Of oObj:oWnd MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Eu já joguei Donkey Kong!! joguei para super nintendo quando eu era pirralho...... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Mais alguém se arrisca? Não to conseguindo extrair também.... 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) 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 Alert(::cPath+::cNome + CRLF + pcDestPath + CRLF + paFile) citação:Esse alert me retorna todos os valores corretos, fui pegar os arquivos de um zip em C:\Teste.Zip: ::cPath+::cNome retorna C:\Teste.Zip pcDestPath retorna C:\ paFile o arquivo que eu quero extrair id=red> id=quote>id=quote> HB_UNZIPFILE(::cPath+::cNome,,,,pcDestPath,paFile) end end return nil id=quote>id=quote>Obs.: HB_UNZIPFILE(::cPath+::cNome,,,,pcDestPath,paFile) sempre me retorna falso, ja tentei com lWithPath .T. também HB_UNZIPFILE(::cPath+::cNome,,.T.,,pcDestPath,paFile) e deu no mesmo MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 24/10/2008 14:27:46

tempos melhores irão aparecer.... um tempo aonde você apenas descreve o que vai ser feito através de comandos de voz e o computador codificará a informação.... Mas infelizmente quando esse tempo chegar nossos empregos estarão por 1 fio pois vai ficar muito fácil programar... ahuahua acho que fui longe agora mas pelo menos da pra equilibrar com a época da em que esses computadores Made In Pangéia foram feitos.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Eu nem era nascido na época! MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

http://fivetechsoft.com/forums/viewtopic.php?t=13096&highlight=tree http://fivetechsoft.com/forums/viewtopic.php?t=11428&highlight=tree Tem alguns exemplos ae, espero ter ajudado.... MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02

Redefine ListBox olbx Fields Trans(Acao->codigo,"999999"),Acao->nome; Header "CODIGO","TIPO DE ACAO" ID 101 of odlg1 oLbx:bKeyDown := {|nKey| if(nKey = 13,"insira aqui sua função"id=purple>,"")}id=red> Assim toda vez que você apertar enter e o foco estiver no grid vai executar a função que você definiu no lugar em roxoid=purple>... No botão pesquisa você usa "objeto":SetFocus() ou se te entendi bem, apenas da um select na tabela que está sendo usada no banco de dados e: xVariavel := TABELA->CAMPO Se entendi o que você quis dizer isso deve ajudar, qualquer coisa tente explicar melhor o que você quer para tentarmos ajudar MSN: samirabreu@hotmail.com Skype: SamirAbreu Email:samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:hehehehe, perco o amigo menos a píada.... Capturaram o Crisvam, só ele não respondeu KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> id=quote>id=quote>AHUAHUAHUA sera que ele vai ser salvo pelo menos? alguem vai dar um commit? ahuahaua MSN: samirabreu@hotmail.com Skype: SamirAbreu Email:samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:"Pera-lá" Vc não está querendo saber quais são os arquivos que estão dentro do Zip ? Se sim, é o HB_GETFILESINZIP, que lhe retorna um array contendo todos os arquivos que estão nele, agora se não for isso, não entendi nada Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>sim e não... Sim porque era realmente dele que eu estava falando e não porque eu já estou conseguindo resgatar os valores de dentro dele apesar de não ter a sintaxe completa dele, o que quis dizer é que o help que me foi passado estava incompleto e essa era uma das funções que eu não tenho os parametros completos.... Estou tendo dificuldade para "editar" um arquivo Zip, o Array de caminhos que recebo atraves do GetFilesInZip aparentemente nao é o suficiente... Utilizo a função GetFilesInZip() e jogo os caminhos em um dbf temporário e do dbf retiro um array que jogo para a função Hb_ZipFile () mas grava um Zip vazio.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:Olá, Vc não estaria confundindo com o HB_UnZipFile ? HB_UnZipFile("Programa.Zip",{|cFile,nPos| oMeter1:MeterSet(nPos)},.F.,"",cDriv+oSistema:cDiretPadra,aFiles) Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>Creio que não... o hb_GetFilesInZip() retorna esses valores que informei, o HB_UnZipFile() extrai os arquivos que vc passa em um array, e o retorno dele é lógico não uma matriz... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:Olá, Desculpe, não entendi, de qual parametro vc está falando ? Já q ele lhe retorna um array multi, com todos os files dentro do zip ? Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>exato é o hb_GetFilesInZip() achei um exemplo que usa assim : HB_GETFILESINZIP("caminho do arquivo em caracter","dados completos como lógico") não sei se tem alguma outro parametro ou entao alguma outra função relacionada a Zip.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:Olá, aDire := Directory("SeuExe.Exe") Isso lhe retornará um array multi com os dados do arquivo, como nome, data, hora, tamanho Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>o retorno é assim: ************************************* * aRetorno = Array com 5 dimensões * * 1- cName * * 2- nSize * * 3- dDate * * 4- cTime * * 5- cAttributes * ************************************* Se for para pegar subdiretórios também utilize: DirectoryRecurse() samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

os retornos são esses: //-- Verifica qual informação está sendo obtida If j = 1 Result := "Nome: " elseif j = 2 Result := "Tamanho: " elseif j = 3 Result := "Status: " elseif j = 4 Result := "Tamanho Comprimido: " elseif j = 5 Result := "% Compressão: " elseif j = 6 Result := "Data: " elseif j = 7 Result := "Hora: " elseif j = 8 Result := "Código: " elseif j = 9 Result := "Propriedades: " end OBS.: j = a dimensão da matriz Só o que não tenho são os parâmetros, e desconfio que existam outras funções também... como por exemplo os substitutos para GetFirstInZip() e GetNextInZip() PS.: esse código(j = 8) é o código CRC32 para redundancia () samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 23/10/2008 10:27:19

fDate() fTime() samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Hoje após analisar com calma constatei que não está completa a documentação, falta por exemplo a função HB_GETFILESINZIP que é essencial pois com ela se obtem os arquivos que estão incluidos dentro de um ZIP, servindo para edição.... e se falta uma quantas outras podem faltar? PS: todas as funções existentes nesse help eu ja havia obtido no forum internacional e havia postado aqui quais eram.... Mas, mais uma vez obrigado pela tentativa samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação: citação:Boa tarde amigos, Parece que pra participar do encontro fivewin este ano, vamos ter que ir ao Chile, http://www.fivetech soft.com/ forums/viewtopic .php?t=13142 []´s Luiz Augusto São José dos Pinhais - PR Harbour47 + Five2.8 + Verce Vamos Aderir:"Retorne avisando se a dica funcionou" id=quote>id=quote>Quem vai ?????????????????????? Fivewin 2.7 + XHarbour Build 0.99.60 + WorkShop + vLib + SqlLib + MySQL 5.0.27 + xDev Studio E-mail: Leandroptu@success.inf.br Msn: leandroptu@ada.com.br Paracatu/MG Vamos Aderir:"Retorne avisando se a dica funcionou" id=quote>id=quote>Eu nãoid=yellow> vou! samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Se for fazer pelo com printscreen + paint use a extensão .PNG, não tem perda visivel de qualidade e é muito menor.... Se for via programação suponho que as funções: oWnd:nHorzRes(), oWnd:nVertRes(), SaveScreen() possam te ajudar samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:srs, PDFs não podem ser editados diretamente. PDF é marca registrada da Adobe e só podem ser editados a partir de um PDF Write (da própria Adobe) e que não é free.!.!.! A única parte free do PDF é a possibilidade de geração do arquivo a partir de um "driver virtual" de impressora! ps: talvês exista algum software pela internet afora que permita fazer isso! más não seria Legal. []s.. Marllon Figueiredo Tecnologia de Sistemas siscat@siscat.com.br FWH+xHb+SQL+SQLRDD+xDevStudio Os desenvolvedores não podem viver sem estas ferramentas! Editado por - siscat on 22/10/2008 14:32:47 id=quote>id=quote>Mas existem PDF's dinâmicos que poderiam receber informação externa de alguma forma... apesar de que os pdfs dinâmicos que eu conheço nunca permitirem gravação de dados, apenas edição..... Ainda acho que o método mais simples é utilizar data+hora do arquivo que pode ser obtido com FDate() e FTime() respectivamente.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação: citação: citação:Alias, coloquei no 4shared: http://www.4shared.com/file/67885156/2c19b7a5/doc_xhb.html Leonardo Machado Porto Alegre-RS Hwgui + Mysql / xHarbour 1.0.0 id=quote>id=quote>Valew Por um acaso vc não encontrou nenhum help do Bcc 5.5 né ? Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>Pior que tenho, mas esse não da pra colcoar no 4shared... Me add no MSN que depois das 18:30 te envio ele. suporte@sygecom.com.br Leonardo Machado Porto Alegre-RS Hwgui + Mysql / xHarbour 1.0.0 id=quote>id=quote>Ao menos o tópico serviu para ajudar outras pessoas também, obrigado a todos que colaboraram samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Eroni, não bastaria você adicionar um comentário no arquivo depois de pronto? Até onde eu sei tem como fazer isso com arquivos zip, adicionar um comentário no arquivo zip... citação:************************************************************************************* HB_GETZIPCOMMENT() //Return the comment of an zip file SYNTAX: HB_GETZIPCOMMENT( ) --> ARGUMENTS: File to get the comment from RETURNS : The comment that was stored in DESCRIPTION: This function receives a valid zip file name as parameter, and returns the global comment stored within. EXAMPLES: ? "The comment in test.zip is ", HB_GETZIPCOMMENT( "test.zip" ) ************************************************************************************* HB_SETZIPCOMMENT() //Set an Zip archive Comment SYNTAX: HB_SETZIPCOMMENT( ) --> Nil ARGUMENTS: Comment to add to the zip archive RETURNS this function always return NIL DESCRIPTION : This function stored an global comment to an zip archive. It should be called before any of the compression functions. EXAMPLES: HB_SETZIPCOMMENT( "This is an Test" ) hb_zipfile( "test.zip", { "\windows\ios.ini", "\windows\win.ini" } ) ************************************************************************************* id=quote>id=quote>Acho que deve ter como você fazer o controle pela data/hora tb, através das funções FDate() e FTime() PS: nunca testei nenhum dos 2 métodos que postei é só pra te abrir outros horizontes.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 22/10/2008 15:41:20

Valeu!! Alguem sabe como converter vários *.htm em um *.xCHM(arquivo de ajuda do xDev)... que assim eu adicionava ao help.... Ou então quem sabe adicionar as funções para a lista que define o autocompletar... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:kkkkkkkkkkkkkk. Voce é o único BAMBI, que não assume... Nós CORINTHIANOS, ganhamos de voces, até na SEGUNDA DIVISÃO -> TIMÃO, bateu todos os RECORDES de público... NA SEGUNDA, NA TERÇA, QUARTA... SÃBADO OU DOMINGO.id=red> Nóis, é nóis. 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>Se não leio sábado e domingo ia pensar que você estava falando da segunda divisão, terceira divisão.... PS: sei que tava escrito Terça e não tem como ser terça divisão, mas pra quem escreveu um nóis é nóis isso é apenas um detalhe samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 21/10/2008 18:09:01

Agora é esperar ele dar as graças em meu humilde tópico.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02