استفاده از وب سرویس net. در vb6

[Zeytoon]

از دوستان کسی اطلاعاتی در مورد استفاده وب سرویس های net. در vb6 دارند .

[Zeytoon]

همانطور که میدانید وب سرویس ها ارزش و تاثیر بسیاری در توسعه نرم افزار ها دارند
از این رو بنده قصد دارم در این تاپیک این موضوع ساده و کاربردی را آموزش بدم
تا برنامه نویسان vb6 بتوانند امکانات برنامه های خوذ را با webServise لازم افزایش بدهند
از دوستان هر مقدار که در مورد وب سرویس ها اطلاعاتی کاربردی و تئوری دارند در تاپیک قرار دهند و اطلاعات ناقص بنده رو کامل کنند ممنون میشم

با تشکر فراوان از مدیران سایت

[Zeytoon]

در ابتدا یک وب سرویس ساده را بطور عملی و ساده برسی میکنیم و در ادامه در صورت لزوم به توضیح تک تک موارد می پردازیم

1 - یک وب سرویس توسط vs2005 یا ورژنهای دیگر ایجاد میکنیم . زبان انتخابی فرقی نمیکند
میتوند هر یک از زبانهای #C یا VB.net یا #J باشد . برای تست آسان webservise در قسمت
Location = http://localhost/webservise1 باشد که براحتی تست شود
(مثل تصویر زیر عمل کنید، تصویر شماره 1)

وب سرویس ساده به شکل زیر ساخته میشود همراه با متد ساده HelloWorld
(تصویر شماره 2)

2- در Vb6 توسط برنامه نویسی Soap وب سرویس مورد نظر را فراخوانی میکنیم
برای این کار براحتی References را مثل تصویر شماره 3 به برنامه اضافه کرده و توسط کد زیر وب سرویس را
فراخوانی میکنیم .




Private Sub Command1_Click()
Dim X As New MSSOAPLib.SoapClient
X.mssoapinit "http://localhost/TestWebServise/Service.asmx?WSDL", "Service", "", ""
Text1.Text = X.HelloWorld()
Set X = Nothing
End Sub