WEBSERVICES X VB6

LIZANDRO 04/06/2007 14:37:56
#219638
Alguém tem idéia de como se chama um webservice via VB6
ADRIANO.007 04/06/2007 14:44:15
#219645 Resposta escolhida
Como assim vc que so codigo em HTML ?
LIZANDRO 04/06/2007 14:46:30
#219647
Olha só, quero dentro de um aplicativo VB puxar o resultado de um webservice
ADRIANO.007 04/06/2007 14:59:09
#219654
No modulo adiciona o codigo abaixo

Private Const BUFFER_LEN As Integer = 256

Private Declare Function InternetOpen Lib "Wininet.dll" _
Alias "InternetOpenA" ( _
ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long

Private Declare Function InternetOpenUrl Lib "Wininet.dll" _
Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, _
ByVal sURL As String, _
ByVal sHeaders As String, _
ByVal lHeadersLength As Long, _
ByVal lFlags As Long, _
ByVal lContext As Long) As Long

Private Declare Function InternetReadFile Lib "Wininet.dll" ( _
ByVal hFile As Long, _
ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Private Declare Function InternetCloseHandle Lib "Wininet.dll" (ByVal hInet As Long) As Integer


Private Function GetUrlSource(ByVal sURL As String) As String

  Dim sBuffer   As String * BUFFER_LEN
  Dim sData     As String
  Dim hInternet As Long
  Dim hSession  As Long
  Dim lReturn   As Long

   Debug.Print "Conectando-se ao servidor..."

   If IsConnected Then
      If Left$(sURL, 7) <> "http://" Then
         sURL = "http://" & sURL
      End If

      hSession = InternetOpen("VBURLSource", 1, vbNullString, vbNullString, 0)

      If hSession Then
         hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, &H4000000, 0)
      End If

      If hInternet Then
         Debug.Print "Requisitando endereço..."
         InternetReadFile hInternet, sBuffer, BUFFER_LEN, lReturn
         sData = sBuffer

         Do While lReturn <> 0
            InternetReadFile hInternet, sBuffer, BUFFER_LEN, lReturn
            sData = sData + Mid$(sBuffer, 1, lReturn)
            DoEvents
         Loop

      End If
      InternetCloseHandle hInternet
      GetUrlSource = sData
    Else
      Debug.Print "Erro: Não foi possível Conectando-se ao servidor..."
   End If

End Function
ADRIANO.007 04/06/2007 15:02:36
#219657
No modulo adiciona o codigo abaixo

Private Const BUFFER_LEN As Integer = 256

Private Declare Function InternetOpen Lib "Wininet.dll" _
Alias "InternetOpenA" ( _
ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long

Private Declare Function InternetOpenUrl Lib "Wininet.dll" _
Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, _
ByVal sURL As String, _
ByVal sHeaders As String, _
ByVal lHeadersLength As Long, _
ByVal lFlags As Long, _
ByVal lContext As Long) As Long

Private Declare Function InternetReadFile Lib "Wininet.dll" ( _
ByVal hFile As Long, _
ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Private Declare Function InternetCloseHandle Lib "Wininet.dll" (ByVal hInet As Long) As Integer

Private Function GetUrlSource(ByVal sURL As String) As String

  Dim sBuffer   As String * BUFFER_LEN
  Dim sData     As String
  Dim hInternet As Long
  Dim hSession  As Long
  Dim lReturn   As Long


      If Left$(sURL, 7) <> "http://" Then
         sURL = "http://" & sURL
      End If

      hSession = InternetOpen("VBURLSource", 1, vbNullString, vbNullString, 0)

      If hSession Then
         hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, &H4000000, 0)
      End If

      If hInternet Then
         Debug.Print "Requisitando endereço..."
         InternetReadFile hInternet, sBuffer, BUFFER_LEN, lReturn
         sData = sBuffer

         Do While lReturn <> 0
            InternetReadFile hInternet, sBuffer, BUFFER_LEN, lReturn
            sData = sData + Mid$(sBuffer, 1, lReturn)
            DoEvents
         Loop

      End If
      InternetCloseHandle hInternet
      GetUrlSource = sData

End Function
LIZANDRO 04/06/2007 15:07:13
#219658
If IsConnected Then ????
ADRIANO.007 04/06/2007 15:28:30
#219665
IsConnected
seria uma função para verificar se esta conectado a internet
mais vc pode tira
Tópico encerrado , respostas não são mais permitidas
Voltar