sygecom escreveu:Dica:
Se está usando MemoWrit, então enviar .F. o 3º parâmetro.
Isso é xharbour, no Harbour é hb_MemoWrit()
Mas..... estou salvando no MySQL.
Já conferi os caracteres, e não tem nenhum especial.
Código: Selecionar todos
REQUEST HB_CODEPAGE_PTISO
PROCEDURE Main
LOCAL x, cLetra, aList, aItem
aList := Directory( "d:\fontes\integra\resource\*.*" )
FOR EACH aItem IN aList
? aItem[1]
x := hb_Base64Encode( "d:\fontes\integra\resource\" + aItem[1] )
FOR EACH cLetra IN x
DO CASE
CASE Asc( cLetra ) >= Asc( "A" ) .AND. Asc( cLetra ) <= Asc( "Z" )
CASE Asc( cLetra ) >= Asc( "a" ) .AND. Asc( cLetra ) <= Asc( "z" )
CASE cLetra $ "0123456789"
CASE cLetra == "+"
CASE cLetra == "/"
CASE cLetra == "="
OTHERWISE
? cLetra, Asc( cLetra ), cLetra:__EnumIndex, Substr( x, cLetra:__EnumIndex - 20, 50 )
ENDCASE
NEXT
NEXT
Inkey(0)
Conferi fui tudo que é resource, só mesmo +/= de diferentes, mas no MySQL são normais.
Se eu passo pra função usando #pragma no fonte ok
Se eu passo usando hb_base64Decode( cTxt ), harupdf não se dá com ela
Se eu passo usando MemoRead( "imagem.jpg" ) tudo bem também
Salvo usando hb_base64Encode(), pego de volta usando hb_base64Decode()
Salvando no disco mostra a imagem, o que aparentemente seria equivalente ao MemoRead() que foi feito.
A não ser que..... vou testar um Inkey(2) ou algo assim após pegar do MySQL... vai saber...