79440509

Date: 2025-02-14 20:34:04
Score: 0.5
Natty:
Report link

Thank“s to Remy, the code bellow works for my case.

  _Stream := _Qry.CreateBlobStream(_Qry.FieldByName('Script'), bmRead);
  _StrStream := TStringStream.Create;
  try
    _StrStream.LoadFromStream(_Stream);
    Query.Sql.LoadFromStream(_StrStream, TEncoding.Unicode);
  finally
    _Stream.Free;
    _StrStream.Free;
  end;
Reasons:
  • Has code block (-0.5):
  • Self-answer (0.5):
  • Low reputation (0.5):
Posted by: Leo Bruno