Utility
Home Messaggi odierni FAQ Ricerca avanzata Lo staff del forum Regolamento Utenti Archivio
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: web service

  1. 12-11-2003, 19:37 #1
    abmcr
    abmcr non è in linea
    Utente di HTML.it L'avatar di abmcr
    Registrato dal
    Aug 2001
    Messaggi
    1,156

    web service

    Questo funge in ASP, ma io voglio portarlo in aspx

    Dim objXMLHTTP, StrURL
    email="tuaemail@controllare.it"
    StrURL="http://webservices.tiscali.com/EmailServices.asmx/IsValidEmail?email="&email

    Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    objXMLHTTP.Open "GET", StrURL, false
    objXMLHTTP.Send
    risultato= CStr(objXMLHTTP.ResponseText)

    if Instr(1,risultato, "true")>0 then
    Response.Write ("email esistente")
    else
    Response.Write ("email non esistente")
    end if

    Set xml = Nothing

    Allora ho provato con una cosa grezza del tipo

    <%@Import Namespace="System.Net"%>

    <SCRIPT language="VB" runat="server">
    Sub Page_Load()

    Dim objXMLHTTP as new webclient()
    dim StrURL as string
    dim email as string
    dim risultato as string

    email="tuaemail@controllare.it"
    StrURL="http://webservices.tiscali.com/EmailServices.asmx/IsValidEmail?email="&email

    objXMLHTTP.Open "GET", StrURL, false
    risultato= CStr(objXMLHTTP.ResponseText)

    if Instr(1,risultato, "true")>0 then
    label1.text= "email esistente"
    else
    label1.text="email non esistente"
    end if

    End Sub


    ma qui
    objXMLHTTP.Open "GET", StrURL, false
    non va. C'è qualcuno che mi aiuta? Grazie
    AbmcrAO
    Script php per gestione prenotazioni.

    Calendario (Classe) in PHP - Select editabili in PHP.
    Rispondi quotando Rispondi quotando
  2. 13-11-2003, 17:42 #2
    abmcr
    abmcr non è in linea
    Utente di HTML.it L'avatar di abmcr
    Registrato dal
    Aug 2001
    Messaggi
    1,156
    Adesso ci siamo quasi: ho creato il proxy e la dll con web matrix che fa tutto da solo. Adesso nella mia pagina ho

    <%@ Page Language="vb" %>

    <script runat="server">

    Sub Page_Load()

    Dim objXMLHTTP as new TiscaliEmailServices()
    dim StrURL as string
    dim email as string
    dim risultato as string

    email="tuaemail@controllare.it"

    risultato= objXMLHTTP.isvalidmail(email)
    label1.text=risultato

    End Sub

    </script>
    <html>
    <head>
    </head>
    <body>
    <form runat="server">
    <asp:Label id="Label1" runat="server"></asp:Label>
    </form>
    </body>
    </html>


    Ma così Non va perché la dll non è referenziata: quale sintasi per importarla? Si chiama ProvaTiscali.dll, ha un namespace con lo stesso nome e ne riporto le prime righe del.vb

    Namespace ProvaTiscali

    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute() , _
    System.ComponentModel.DesignerCategoryAttribute("c ode"), _
    System.Web.Services.WebServiceBindingAttribute(Nam e:="Tiscali Email ServicesSoap", [Namespace]:="http://webservices.tiscali.com/")> _
    Public Class TiscaliEmailServices

    Sul libro di Payne della Apogeo (Asp.net guida completa) gli esempi relativi a questo problema non riportano nulla circa la modalità con cui si deve referenziare la dll, né tale dichiarazione esiste nell'esempio.
    Grazie
    AbmcrAO
    Script php per gestione prenotazioni.

    Calendario (Classe) in PHP - Select editabili in PHP.
    Rispondi quotando Rispondi quotando
  3. 17-11-2003, 17:50 #3
    abmcr
    abmcr non è in linea
    Utente di HTML.it L'avatar di abmcr
    Registrato dal
    Aug 2001
    Messaggi
    1,156
    Sono riuscito a mettere on line il proxy compilato da Web Matrix(http://abmcr.europe.webmatrixhosting...ebservice.aspx) ma il risultato che dice "server name was not found."


    <script runat="server">

    Sub Page_Load()

    Dim objXMLHTTP as new ProvaTiscali.TiscaliEmailServices()
    dim StrURL as string
    dim email as string
    dim risultato as string

    email="tuaemail@controllare.it"
    'StrURL="http://webservices.tiscali.com/EmailServices.asmx/IsValidEmail?email="&email

    'objXMLHTTP.Open "GET", StrURL, false
    risultato= objXMLHTTP.isvalidemail(email)
    label1.text=risultato

    End Sub

    </script>

    La DLL l'ha creata da questo provatiscali.vb (web matrix l'ha fatto da solo)



    Option Strict Off
    Option Explicit On

    Imports System
    Imports System.ComponentModel
    Imports System.Diagnostics
    Imports System.Web.Services
    Imports System.Web.Services.Protocols
    Imports System.Xml.Serialization

    '
    'ASP.NET Web Matrix
    '
    Namespace ProvaTiscali

    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute() , _
    System.ComponentModel.DesignerCategoryAttribute("c ode"), _
    System.Web.Services.WebServiceBindingAttribute(Nam e:="Tiscali Email ServicesSoap", [Namespace]:="http://webservices.tiscali.com/")> _
    Public Class TiscaliEmailServices
    Inherits System.Web.Services.Protocols.SoapHttpClientProtoc ol

    '<remarks/>
    Public Sub New()
    MyBase.New
    Me.Url = "http://webservices.tiscali.com/EmailServices.asmx"
    End Sub

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmail", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function SendEmail(ByVal from As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String) As String
    Dim results() As Object = Me.Invoke("SendEmail", New Object() {from, [to], cc, bcc, subject, body, smtpServer})
    Return CType(results(0),String)
    End Function

    '<remarks/>
    Public Function BeginSendEmail(ByVal from As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("SendEmail", New Object() {from, [to], cc, bcc, subject, body, smtpServer}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndSendEmail(ByVal asyncResult As System.IAsyncResult) As String
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),String)
    End Function

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmailWithNames", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function SendEmailWithNames(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String) As String
    Dim results() As Object = Me.Invoke("SendEmailWithNames", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, smtpServer})
    Return CType(results(0),String)
    End Function

    '<remarks/>
    Public Function BeginSendEmailWithNames(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal smtpServer As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("SendEmailWithNames", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, smtpServer}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndSendEmailWithNames(ByVal asyncResult As System.IAsyncResult) As String
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),String)
    End Function

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmailWithNamesAndEncoding", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function SendEmailWithNamesAndEncoding(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal encoding As String, ByVal smtpServer As String) As String
    Dim results() As Object = Me.Invoke("SendEmailWithNamesAndEncoding", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, encoding, smtpServer})
    Return CType(results(0),String)
    End Function

    '<remarks/>
    Public Function BeginSendEmailWithNamesAndEncoding(ByVal fromName As String, ByVal from As String, ByVal toName As String, ByVal [to] As String, ByVal cc As String, ByVal bcc As String, ByVal subject As String, ByVal body As String, ByVal encoding As String, ByVal smtpServer As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("SendEmailWithNamesAndEncoding", New Object() {fromName, from, toName, [to], cc, bcc, subject, body, encoding, smtpServer}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndSendEmailWithNamesAndEncoding(ByVal asyncResult As System.IAsyncResult) As String
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),String)
    End Function

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/SendEmailWithSmtpResult", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function SendEmailWithSmtpResult(ByVal from As String, ByVal [to] As String, ByVal subject As String, ByVal body As String, ByVal attachmentUrl As String, ByVal smtpServer As String) As SmtpResult
    Dim results() As Object = Me.Invoke("SendEmailWithSmtpResult", New Object() {from, [to], subject, body, attachmentUrl, smtpServer})
    Return CType(results(0),SmtpResult)
    End Function

    (...)

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/GetSMTPServer", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function GetSMTPServer(ByVal domain As String) As String
    Dim results() As Object = Me.Invoke("GetSMTPServer", New Object() {domain})
    Return CType(results(0),String)
    End Function

    '<remarks/>
    Public Function BeginGetSMTPServer(ByVal domain As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("GetSMTPServer", New Object() {domain}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndGetSMTPServer(ByVal asyncResult As System.IAsyncResult) As String
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),String)
    End Function

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/IsValidEmail", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function IsValidEmail(ByVal email As String) As String
    Dim results() As Object = Me.Invoke("IsValidEmail", New Object() {email})
    Return CType(results(0),String)
    End Function

    '<remarks/>
    Public Function BeginIsValidEmail(ByVal email As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("IsValidEmail", New Object() {email}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndIsValidEmail(ByVal asyncResult As System.IAsyncResult) As String
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),String)
    End Function

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/IsValidPassword", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function IsValidPassword(ByVal email As String, ByVal password As String) As String
    Dim results() As Object = Me.Invoke("IsValidPassword", New Object() {email, password})
    Return CType(results(0),String)
    End Function

    '<remarks/>
    Public Function BeginIsValidPassword(ByVal email As String, ByVal password As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("IsValidPassword", New Object() {email, password}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndIsValidPassword(ByVal asyncResult As System.IAsyncResult) As String
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),String)
    End Function

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/GetServicesTests", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function GetServicesTests(ByVal QuickTestsOnly As Boolean) As <System.Xml.Serialization.XmlArrayItemAttribute(Is Nullable:=false)> ServiceTest()
    Dim results() As Object = Me.Invoke("GetServicesTests", New Object() {QuickTestsOnly})
    Return CType(results(0),ServiceTest())
    End Function

    '<remarks/>
    Public Function BeginGetServicesTests(ByVal QuickTestsOnly As Boolean, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("GetServicesTests", New Object() {QuickTestsOnly}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndGetServicesTests(ByVal asyncResult As System.IAsyncResult) As ServiceTest()
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),ServiceTest())
    End Function

    '<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://webservices.tiscali.com/GetServicesStatus", RequestNamespace:="http://webservices.tiscali.com/", ResponseNamespace:="http://webservices.tiscali.com/", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
    Public Function GetServicesStatus() As Boolean
    Dim results() As Object = Me.Invoke("GetServicesStatus", New Object(-1) {})
    Return CType(results(0),Boolean)
    End Function

    '<remarks/>
    Public Function BeginGetServicesStatus(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
    Return Me.BeginInvoke("GetServicesStatus", New Object(-1) {}, callback, asyncState)
    End Function

    '<remarks/>
    Public Function EndGetServicesStatus(ByVal asyncResult As System.IAsyncResult) As Boolean
    Dim results() As Object = Me.EndInvoke(asyncResult)
    Return CType(results(0),Boolean)
    End Function
    End Class

    '<remarks/>
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://webservices.tiscali.com/")> _
    Public Class SmtpResult

    '<remarks/>
    Public Result As String

    '<remarks/>
    Public SmtpLog As String
    End Class

    '<remarks/>
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://webservices.tiscali.com/")> _
    Public Class ServiceTest

    '<remarks/>
    Public time As Date

    '<remarks/>
    Public description As String

    '<remarks/>
    Public expectedResult As String

    '<remarks/>
    Public actualResult As String

    '<remarks/>
    Public success As Boolean
    End Class
    End Namespace
    AbmcrAO
    Script php per gestione prenotazioni.

    Calendario (Classe) in PHP - Select editabili in PHP.
    Rispondi quotando Rispondi quotando
« Discussione precedente | Prossima discussione »

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  

Regole del Forum

Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.