محمد منصور فرايتر
07-11-2007, 05:39 AM
كيفية اضافة او استخدام web service بالموقع الخاص بي بالدوت نت
الشرح مقدم من الأخ : عبدالله جابر شقليه
__________________________________
لعمل تطبيق web services اذهب من خلال ال vs وقومي بعمل مشروع جديد واختاري التطبيق asp.net web services.
قومي بعرض الكود له وسوف يكون الكود الذي تم وضعه عن بداية انشاء مشروع جديد كالتالي:
Imports System.Web.Services
<System.Web.Services.WebService(Namespace := "http://tempuri.org/WebService3/Service1")> _
Public Class Service1
Inherits System.Web.Services.WebService
#Region " Web Services Designer Generated Code "
Public Sub New()
MyBase.New()
'This call is required by the Web Services Designer.
InitializeComponent()
'Add your own initialization code after the InitializeComponent() call
End Sub
'Required by the Web Services Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Web Services Designer
'It can be modified using the Web Services Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
'CODEGEN: This procedure is required by the Web Services Designer
'Do not modify it using the code editor.
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
#End Region
' WEB SERVICE EXAMPLE
' The HelloWorld() example service returns the string Hello World.
' To build, uncomment the following lines then save and build the project.
' To test this web service, ensure that the .asmx file is the start page
' and press F5.
'
'<WebMethod()> _
'Public Function HelloWorld() As String
' Return "Hello World"
'End Function
End Class
الأن سوف اضع مثال لعرض بيانات من قاعدة بيانات sql server، حيث سوف يتم كتابة كود عرض البيانات داخل تطبيق web services وثم نقوم بعملية الاستدعاء له من خلال تطبيق ويب.
قومي بإضافة الكود التالي في أعلى كود صفحة ال web services من أجل تعريف نوع قاعدة البيانات التي سوف نستخدمها
Imports System.Data.SqlClient
وقومي بكتابة الكود التالي من أجل عرض البيانات
<WebMethod()> _
Public Function showdata() As DataSet
Dim conn As SqlConnection
Dim dadAuthors As SqlDataAdapter
Dim ds As DataSet
conn = New SqlConnection("Server=abdullah;UID=sa;PWD=;Database=Pubs")
ds = New DataSet
dadAuthors = New SqlDataAdapter("Select top 10 * From Authors", conn)
conn.Open()
dadAuthors.Fill(ds, "Authors")
conn.Close()
Return ds
End Function
وبعدها قومي بعمل تنفيذ للكود.
الأن سوف نقوم بعملية استدعاء له خلال تطبيق web.
قومي بأنشاء مشروع جديد asp.net web application أو استخدام مشروع منشأ لديكي سابقاً.
في خانة ال Solution Explorer قومي بالضغط بالزر الأيمن على المشروع ومن ثم قومي باختيار Add Web Reference.
سوف تفتح لكي النافذة التالية:
http://www.arabmoheet.net/forum/Members_Upload_Pics/1/step1.JPG
قومي بالضغط على :Web services on the local machine
وبعدها سوف تتم عملية بحث لعرض جميع ال web services.
سوف يتم عرضها بهذا الشكل التالي:
http://www.arabmoheet.net/forum/Members_Upload_Pics/1/step2.JPG
عندها قومي باختيار ال web services التي قمنا بعملها ونريد استدعائها في مشروعنا.
سوف تظهر لك نافذه وتعرض لكي جميع الإجراءات التي عملها في web services وفي مشروعنا هذا سوف يقوم بعرض لك فقط showdata.
في نفس النافذه هذه على اليمين قومي بالضغط على Add Reference.
الأن سوف نقوم بعملية عرض البيانات داخل ال datalist.
قومي بوضع الكود التالي داخل وسم ال from في كود ال html للصفحة لتي تودين عرض البيانات بها.
<asphttp://www.arabmoheet.net/forum/editor/smiles/biggrin2.gifataList
ID="dlstAuthors"
Runat="Server">
<HeaderTemplate>
<h2>Author Phone Numbers:</h2>
</HeaderTemplate>
<ItemTemplate>
<table>
<tr>
<td align="right">First Name:</td>
<td><%# Container.DataItem( "au_fname" )%></td>
</tr>
<tr>
<td align="right">Last Name:</td>
<td><%# Container.DataItem( "au_lname" )%></td>
</tr>
<tr>
<td align="right">Phone:</td>
<td><%# Container.DataItem( "phone" )%></td>
</tr>
</table>
</ItemTemplate>
<SeparatorTemplate>
<hr>
</SeparatorTemplate>
</asphttp://www.arabmoheet.net/forum/editor/smiles/biggrin2.gifataList>
وضعي الكود التالي في حالة page load:
Dim srvce As New localhost.Service1
Dim ds As DataSet
ds = srvce.showdata
dlstAuthors.DataSource = ds
dlstAuthors.DataBind()
لكيفية التعامل مع دوال التي تم تعريفها في web services نقوم بتعريف متغير كالتالي:
Dim srvce As New localhost.Service1
حيث localhost هو الهوست المحلي لجهازك ويتم وضع نقطه لاسم ال class في تطبيق ال web services وفي مثالنا هذا فهي اسمها Service1.
الأن سوف نتعامل مع جميع الدوال التي في web services من خلال المتغير srvce.
وقومي بتنفيذ الكود وشاهدي الناتج للعمل الذي قمنا به.
وسوف تجدين في الملف المرفق المثال الذي قمنا بإنشائه.
التحميل من هنا
www.webdevelopers.doctor-egypt.com/WebService2.zip (http://www.webdevelopers.doctor-egypt.com/WebService2.zip)
الشرح مقدم من الأخ : عبدالله جابر شقليه
__________________________________
لعمل تطبيق web services اذهب من خلال ال vs وقومي بعمل مشروع جديد واختاري التطبيق asp.net web services.
قومي بعرض الكود له وسوف يكون الكود الذي تم وضعه عن بداية انشاء مشروع جديد كالتالي:
Imports System.Web.Services
<System.Web.Services.WebService(Namespace := "http://tempuri.org/WebService3/Service1")> _
Public Class Service1
Inherits System.Web.Services.WebService
#Region " Web Services Designer Generated Code "
Public Sub New()
MyBase.New()
'This call is required by the Web Services Designer.
InitializeComponent()
'Add your own initialization code after the InitializeComponent() call
End Sub
'Required by the Web Services Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Web Services Designer
'It can be modified using the Web Services Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
'CODEGEN: This procedure is required by the Web Services Designer
'Do not modify it using the code editor.
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
#End Region
' WEB SERVICE EXAMPLE
' The HelloWorld() example service returns the string Hello World.
' To build, uncomment the following lines then save and build the project.
' To test this web service, ensure that the .asmx file is the start page
' and press F5.
'
'<WebMethod()> _
'Public Function HelloWorld() As String
' Return "Hello World"
'End Function
End Class
الأن سوف اضع مثال لعرض بيانات من قاعدة بيانات sql server، حيث سوف يتم كتابة كود عرض البيانات داخل تطبيق web services وثم نقوم بعملية الاستدعاء له من خلال تطبيق ويب.
قومي بإضافة الكود التالي في أعلى كود صفحة ال web services من أجل تعريف نوع قاعدة البيانات التي سوف نستخدمها
Imports System.Data.SqlClient
وقومي بكتابة الكود التالي من أجل عرض البيانات
<WebMethod()> _
Public Function showdata() As DataSet
Dim conn As SqlConnection
Dim dadAuthors As SqlDataAdapter
Dim ds As DataSet
conn = New SqlConnection("Server=abdullah;UID=sa;PWD=;Database=Pubs")
ds = New DataSet
dadAuthors = New SqlDataAdapter("Select top 10 * From Authors", conn)
conn.Open()
dadAuthors.Fill(ds, "Authors")
conn.Close()
Return ds
End Function
وبعدها قومي بعمل تنفيذ للكود.
الأن سوف نقوم بعملية استدعاء له خلال تطبيق web.
قومي بأنشاء مشروع جديد asp.net web application أو استخدام مشروع منشأ لديكي سابقاً.
في خانة ال Solution Explorer قومي بالضغط بالزر الأيمن على المشروع ومن ثم قومي باختيار Add Web Reference.
سوف تفتح لكي النافذة التالية:
http://www.arabmoheet.net/forum/Members_Upload_Pics/1/step1.JPG
قومي بالضغط على :Web services on the local machine
وبعدها سوف تتم عملية بحث لعرض جميع ال web services.
سوف يتم عرضها بهذا الشكل التالي:
http://www.arabmoheet.net/forum/Members_Upload_Pics/1/step2.JPG
عندها قومي باختيار ال web services التي قمنا بعملها ونريد استدعائها في مشروعنا.
سوف تظهر لك نافذه وتعرض لكي جميع الإجراءات التي عملها في web services وفي مشروعنا هذا سوف يقوم بعرض لك فقط showdata.
في نفس النافذه هذه على اليمين قومي بالضغط على Add Reference.
الأن سوف نقوم بعملية عرض البيانات داخل ال datalist.
قومي بوضع الكود التالي داخل وسم ال from في كود ال html للصفحة لتي تودين عرض البيانات بها.
<asphttp://www.arabmoheet.net/forum/editor/smiles/biggrin2.gifataList
ID="dlstAuthors"
Runat="Server">
<HeaderTemplate>
<h2>Author Phone Numbers:</h2>
</HeaderTemplate>
<ItemTemplate>
<table>
<tr>
<td align="right">First Name:</td>
<td><%# Container.DataItem( "au_fname" )%></td>
</tr>
<tr>
<td align="right">Last Name:</td>
<td><%# Container.DataItem( "au_lname" )%></td>
</tr>
<tr>
<td align="right">Phone:</td>
<td><%# Container.DataItem( "phone" )%></td>
</tr>
</table>
</ItemTemplate>
<SeparatorTemplate>
<hr>
</SeparatorTemplate>
</asphttp://www.arabmoheet.net/forum/editor/smiles/biggrin2.gifataList>
وضعي الكود التالي في حالة page load:
Dim srvce As New localhost.Service1
Dim ds As DataSet
ds = srvce.showdata
dlstAuthors.DataSource = ds
dlstAuthors.DataBind()
لكيفية التعامل مع دوال التي تم تعريفها في web services نقوم بتعريف متغير كالتالي:
Dim srvce As New localhost.Service1
حيث localhost هو الهوست المحلي لجهازك ويتم وضع نقطه لاسم ال class في تطبيق ال web services وفي مثالنا هذا فهي اسمها Service1.
الأن سوف نتعامل مع جميع الدوال التي في web services من خلال المتغير srvce.
وقومي بتنفيذ الكود وشاهدي الناتج للعمل الذي قمنا به.
وسوف تجدين في الملف المرفق المثال الذي قمنا بإنشائه.
التحميل من هنا
www.webdevelopers.doctor-egypt.com/WebService2.zip (http://www.webdevelopers.doctor-egypt.com/WebService2.zip)