[firebase-br] FireBirdSQL.NET

[Josauro S.J.]

Estou encontrando dificulades e nao achei um artigo certo.

Com retornar o conteudo de um campo blob sub-type1, com o caracters correto 
em DelphiPrism. (So retornar sem os caracteres de acentuação).

method getBlob(ACampo:string):string;
var
   blob : Array of byte;
   ms : MemoryStream;
  Ler : StreamReader;
  iCampo:integer;

begin
    iCampo := dr.GetOrdinal(ACampo);
    blob := new byte[DR.GetBytes(iCampo, 0, nil, 0, integer.maxValue)];
    result := '';
    try
       DR.GetBytes(iCampo, 0, blob, 0, Length(blob));
       ms := new MemoryStream(blob);
       ler := new StreamReader(ms);
       ler.BaseStream.Seek(0, SeekOrigin.&Begin);
       while (ms.Peek() <> -1)
       do begin
             if result <> '' then result := result + Chr(13) + Chr(10);
             result := result + ler.ToString();
       end;
except
end;

end;

Alguma ajuda ?