Espaço de Michel

Quando uma aplicações windows forms é publicada em um servidor da rede, e necessita que os usuários acessem essa aplicação, por padrão o framework do cliente não tem permissão para executar todos os recursos da aplicação remota! Por exemplo, quando a aplicação acessa o banco de dados SQL Server.

Este erro ocorre quando o usuário cliente da rede tenta acessar a aplicação remota que necessita de permissão para executar o System.Data.SQLClient:

System.Exception: BBL: Request for the permission of type 'System.Data.SqlClient.SqlClientPermission, System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' failed.

 Como solução, existe a ferramenta Code Access Security Policy Tool (Caspol.exe) onde os administradores podem alterar as políticas de segurança para:
-machine policy level

 

 

 

 

Muitas vezes você encontra projetos feitos no "ASP Classic"(Nao .net) funcionando perfeitamente que nao sera migrado para .NET. Seu gerente solicita uma alteração e voce tem de consumir um método web service .NET. Muitos desenvolvedores estão acostumados em consumir métodos Web Services em projetos feitos na plataforma .NET. Para aqueles que necessitam consumir métodos em uma linguagem nao .NET, mostrarei um exemplo passo a passo:

Neste exemplo, será utilizado ASP Classic para o desenvolvimento da página, e framework 2.0 para o web service.

Primeiro, vamos criar o Web Service. Abra o Microsoft Visual Studio 2005 e inicie um novo projeto como na figura 1.
File > New Projet  - Selecione o template "ASP.NET Web Service Application" e coloque o nome da sua aplicação.

 

Figura 1

Abra o Solution Explorer para renomear o arquivo "Service1.asmx" para "ws.asmx" como na figura 2

Figura 2

Clique com o botão direto sobre o arquivo "ws.asmx" e acesse o código fonte igual na figura 3


Figura 3

Importar a biblioteca System.Data e adicionar o método abaixo na classe do seu serviço. Esse método exemplo é necessário informar um parâmetro "fornecedorID",  para retornar o DataSet com 1 datatable, e 1 registro.

 

O código ficará assim:

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data

<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
     Inherits System.Web.Services.WebService

    <WebMethod(Description:="Método que retorna um dataset")> _
        Public Function ResgataDados(ByVal FornecedorID As Int32) As DataSet
        Dim dtsDados As New DataSet("dtsDados") 'Cria dataset
        dtsDados.Tables.Add("dtProdutos") 'Adiciona datatable
        'Adiciona colunas
        dtsDados.Tables("dtProdutos").Columns.Add("FornecedorID", GetType(Integer))
        dtsDados.Tables("dtProdutos").Columns.Add("ProdutoID", GetType(Integer))
        dtsDados.Tables("dtProdutos").Columns.Add("Descricao", GetType(String))
        dtsDados.Tables("dtProdutos").Columns.Add("Estoque", GetType(Integer))
        'Cria registro
        Dim dr As DataRow
        dr = dtsDados.Tables(0).NewRow
        dr("FornecedorID") = FornecedorID
        dr("ProdutoID") = 1010
        dr("Descricao") = "Descrição do produto"
        dr("Estoque") = 20
        'Adiciona o novo registro no datatable 'dtProdutos' do dataset
        dtsDados.Tables(0).Rows.Add(dr)
        Return dtsDados
    End Function

End Class

 

Agora vamos testar seu web service.
DEBUG > Start Debugging ou pressine a tecla F5

Será apresentada a descrição do seu serviço como na figura 4

Figura 4

Clique sobre o método "ResgataDados", informe um número de fornecedorid inteiro e depois em clique em "chamar" invocando seu método. Figura 5

Figura 5

O retorno XML do método deve ser igual a figura 6:

Figura 6

Na descrição do método, é apresentado o "envelope XML". Esse envelope, é o XML padrão que devemos formatar no ASP, e mandar para o nosso método no web service, e assim o método será invocado obtendo o resultado esperado. Figura 7

Figura 7

Artigo incompleto!