sambomb Posted December 17, 2010 Report Share Posted December 17, 2010 Olá, como faço para converter um texto qualquer para binário? Queria gravar um texto em formato binário e depois recuperar. Exemplo: cVar := "texto QUALQUER 12345 AbCdE" cBin := GravaBinario(cVar) ? cBin //-- Retorna: 100111101010101010101.... cVar := RecuperaBinario(cBin) ?cVar //-- Retorna: "texto QUALQUER 12345 AbCdE" SamirSSabreu@gmail.com samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02id=black> "Acreditar é mais fácil do que pensar: Daà existem muito mais crentes do que pensadores.†Bruce Calvert Quote Link to comment Share on other sites More sharing options...
sambomb Posted December 17, 2010 Author Report Share Posted December 17, 2010 Olá, como faço para converter um texto qualquer para binário? Queria gravar um texto em formato binário e depois recuperar. Exemplo: cVar := "texto QUALQUER 12345 AbCdE" cBin := GravaBinario(cVar) ? cBin //-- Retorna: 100111101010101010101.... cVar := RecuperaBinario(cBin) ?cVar //-- Retorna: "texto QUALQUER 12345 AbCdE" SamirSSabreu@gmail.com samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02id=black> "Acreditar é mais fácil do que pensar: Daà existem muito mais crentes do que pensadores.†Bruce Calvert Quote Link to comment Share on other sites More sharing options...
DonJuan Posted December 17, 2010 Report Share Posted December 17, 2010 citação:Olá, como faço para converter um texto qualquer para binário? Queria gravar um texto em formato binário e depois recuperar. Exemplo: cVar := "texto QUALQUER 12345 AbCdE" cBin := GravaBinario(cVar) ? cBin //-- Retorna: 100111101010101010101.... cVar := RecuperaBinario(cBin) ?cVar //-- Retorna: "texto QUALQUER 12345 AbCdE" SamirSSabreu@gmail.com samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02id=black>"Acreditar é mais fácil do que pensar: Daà existem muito mais crentes do que pensadores.†Bruce Calvert id=quote>id=quote>tente usar esta função do xHarbour HB_DeSerialize( ) --> xValue HB_Serialize( ) --> cBinary Acesse: http://programafontefivewin.blogspot.com/ FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL" Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.