Como ler um json de um campo Blob? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como ler um json de um campo Blob?

 

Olá pessoa!

Seguidamente gosto de fazer testes com o que há disponível na ferramenta.

Nesta linha me deparei com a seguinte situação:
Precisava fazer a leitura de um json que estava salvo em um campo Blob,
como posso fazer a leitura do mesmo?

Para resolver o problema, criei o seguinte método:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure ExtrairJson(DataSet: TDataSet; FieldName : string);
var
  FMemoryStream  : TMemoryStream;
  FStringStream  : TStringStream;
  vtext : string;
  I : Integer;
begin
  if not DataSet.FieldByName(FieldName).IsEmpty then
  begin
    FMemoryStream := TMemoryStream.Create;
 
    FStringStream := TStringStream.Create( DataSet.FieldByName(FieldName).AsString , TEncoding.ASCII);
 
    TNetEncoding.Base64.Decode(FStringStream, FMemoryStream);
    FMemoryStream.Position := 0;
 
    SetString(vtext, PAnsiChar(FMemoryStream.Memory), FMemoryStream.Size);
 
    { Para visualizar }
    MemoJson.Text := vtext;
 
    FMemoryStream.Free;
    FStringStream.free;
  end;
end;

Claro que o melhor é criar uma função que retorne uma string ou mesmo um TJsonValue,
Até os parâmetros podem ser substituídos por um aField : TBlobField, mas ai deixo a
critério de vocês criarem a solução que melhor se aplique a sua necessidade.

Caso criei uma melhoria ou tenha alguma sugestão, deixe o seu comentário!

Facebook Comments

Posts Relacionados

  • Giovani Da Cruz
  • 340 views
  • 0 comentários
  • 26 de maio de 2017

 

Publicidade

 

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2017 Infus Soluções em Tecnologia - Todos os Direitos Reservados