Converter string em Binary64

[Wanderlei]

Olá Pessoal, estou precisando converter um campo string em base64Binary para enviar arquivo do SNGPC, alguen sabe ou tem alguma função para fazer isso. :% :%

[Pablo César]

Experimentou HB_BASE64 da hbtip ?

Código: Selecionar todos

HB_FUNC( HB_BASE64 )
{
char * szItem = hb_parc( 1 );
int nLen = hb_parni( 2 );
char * szRet = szItem ? base64enc( szItem, nLen ) : NULL;

Ou HB_Base64Encode da xhb ?
http://www.creasolgroup.com/xOraclipLan ... _f.en.html

[Wanderlei]

Valeu Pablo, deu certo agora só falta a Anvisa me responder sobre o erro do Webservice do envio do XML. :)Pos

[filizola]

Wanderlei, pode me passar exemplo dessa conversão, uso clipper, como seria com harbour.

desde já, agradeço.

[Wanderlei]

Olá Filizola,
Eu estou usando xHarbour e uso assim:
cString := MemoRead( cArquivo ) //Leio o arquivo XML
cString64 := HB_Base64( cString, Len( cString ) ) //Gero a criptografia em 64, está função é do Xharbour mas o Harbour também tem uma função similar.

[filizola]

Obrigado Wanderley. so mais uma duvida, eu primeiro gero base64 e depois compacto ou o inverso. ja que tentei zipar e depois gerar base64 com aplicativo de terceiro e nao aceitou na anvisa.

[Wanderlei]

Você tem que gerar o arquivo e compactar com a extensão zip e depois gerar a base64 e transmitir, este base64 gerar um tipo de MD5 e ai vc pode transmitir para anvisa.