Ir al contenido


Foto

intentando hacer mi primer webservice en delphi prism


  • Por favor identifícate para responder
1 respuesta en este tema

#1 pjesus

pjesus

    Member

  • Miembros
  • PipPip
  • 13 mensajes

Escrito 09 octubre 2009 - 05:41

Hola.
Estoy volviendome  loco con el codigo... digo es la primera vez que abro el delphi prism  y quiero escribir un webservice desarrollando en visual basic .net,  pero no doy  con bola.
Bueno realmente alguien me puede dar un norte de por donde empezar a buscarle pra programar en este lenguaje.
Les dejo el un pequeña parte del codigo de visual basic, a ver si alguien me puede apoyar a traducirlo a prism.

Saludos..




csharp
  1. Imports System.Web
  2. Imports System.Web.Services
  3. Imports System.Web.Services.Protocols
  4. Imports System.Data
  5. Imports System.Data.Odbc
  6. Imports System.IO
  7.  
  8. Public Class Service
  9.     Inherits System.Web.Services.WebService
  10.     Public CadenadeConexion As String = "Dsn=ibdalsa;uid=admin;pwd=mexico"
  11.     Dim Conector As New OdbcConnection(CadenadeConexion)
  12.     <WebMethod()> _
  13.     Public Function Buscar() As DataSet
  14.         Dim Datas As New OdbcDataAdapter
  15.         Datas = New OdbcDataAdapter("SELECT * from compañias", Conector)       
  16.         Conector.Open()
  17.         Dim SetData As New DataSet
  18.         Datas.Fill(SetData, "Datos")
  19.         Conector.Close()
  20.         Return SetData
  21.     End Function
  22.  
  23.  
  24.     <WebMethod()> _
  25.     Public Function INSERTA_FICHA_CONTACTO(ByVal cve_cia As Integer, ByVal cve_ofi As Integer, ByVal cve_age As Integer, ByVal nombre_cte As String) As Boolean
  26.         Dim v_c1 As String = "execute procedure sp_inserta_ficha_contacto(" & cve_cia & "," & cve_ofi & "," & cve_age & ",'" & nombre_cte & ")"
  27.         Dim consulta As New OdbcCommand(v_c1 , Conector)
  28.         Try
  29.             Conector.Open()
  30.             consulta.ExecuteNonQuery()
  31.             Conector.Close()
  32.             Return True
  33.         Catch ex As Exception
  34.             MsgBox(ex.Message, MsgBoxStyle.Critical)
  35.             Conector.Close()
  36.             Return False
  37.         End Try
  38.     End Function
  39. End Class


  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 09 octubre 2009 - 06:20

Hola,

Tal vez estos articulos de Dr.Bob te pueden ayudar

ASP.NET Web Services with Delphi Prism 2009

Consuming Web Services with Delphi Prism

Salud OS

PD, Edité tu código para que se vea mejor,
  • 0




IP.Board spam blocked by CleanTalk.