Consulta Imagens (Server-side)

//Função do Servidor que faz a consulta de imagens e retorna para o cliente como texto
function TServer.ConsultaImagens(ACampo, ATabela, ACondicao: string): string;
var
  StringStream: TStringStream;
begin
  with ContextParam.Conn.CreateQuery do
  begin
    try
      SQL.Add('SELECT ');      SQL.Add(ACampo);
      SQL.Add('FROM ');        SQL.Add(ATabela);
      SQL.Add(ACondicao);

      Open;

      if not IsEmpty then
      begin
        StringStream := TStringStream.Create;
        try
          TBlobField(Fields[0]).SaveToStream(StringStream);
          Result := StringStream.DataString;
        finally
          StringStream.Free;
        end;
      end;
    finally
      Close;
    end;
  end;
end;