Bin2Var

Dupla Var2Bin/Bin2Var e o jeito tradicional de serializar variaveis em AdvPL. Funciona com qualquer tipo: array multidimensional, objeto, etc.

Sintaxe

cBin := Var2Bin(xValor)   // serializa
xVal := Bin2Var(cBin)     // desserializa

Exemplo

// Gravar array complexo em campo memo:
aLista := { {"A", 1, .T.}, {"B", 2, .F.} }
cSerial := Var2Bin(aLista)

RecLock("ZZZ", .F.)
ZZZ->ZZZ_DADOS := cSerial  // memo field
ZZZ->(MsUnlock())

// Reconstituir depois:
cSerial2 := ZZZ->ZZZ_DADOS
aListaRec := Bin2Var(cSerial2)
// aListaRec[1][1] == "A"

Caso de uso: cache de processamento pesado

// Em vez de recalcular sempre, salva em cache (tabela ZZ1):
If !CachedExists(cChave)
    aResult := CalcularPesado(...)
    GravaCache(cChave, Var2Bin(aResult))
Else
    aResult := Bin2Var(LeCache(cChave))
EndIf

Pegadinhas

• Formato proprietario: nao da pra ler fora do Protheus. Pra interoperabilidade, use JSON
• Versionamento: mudanca de release pode quebrar deserializacao de bin antigo
• Tamanho: cresce com a estrutura. Memo aguenta ate ~64KB padrao
• Objetos com referencia ciclica: pode dar loop ao serializar