Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sexta-feira, 4 de março de 2016

DELPHI - Como Salvar o conteudo de um tblobfield em um TStream

Reações: 
  PRecord : ^RRecord;
  RRecord : Record;
    Teste : String[10];
    IDTeste : Integer;
  end;
// caso contenha um conteudo do tipo record dentro do blob
var
  AStream : Tstream;
  VarRecord : RRecord;
begin
  AStream := Self.ClientDataSet1.CreateBlobStream(TBlobField(Self.CDS.FieldByName('BL_CAMPO_BLOB')), bmRead);
  AStream.Read(VarRecord, SizeOf(VarRecord));
  // resgata o valor do record:
  VarRecord.Teste;
  VarRecord.Idteste;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer