Agusto Xaverius P Sipahutar

Job:Making some bugs and patch
Moss/Wss,C#,Sql Server,WWF,K2.BP
Motto : Keep Study and study
See also: Other Geeks@INDC

News

My Certification



MCP ID# 3552391

My Curiculum Vitae


Other Article

My Community

My Article/Share Knowledge

Others Moss/Wss Site

May 2006 - Posts

XML Web Services dan Visual basic 6.0
Maen Maen dengan XML Web Services dan Visual basic 6.0
Lagi mengerjakan project untuk satu client dari perusahaan kami, tapi sebelumnya sich gw waktu itu harus mempelajari sample fabrikam yang menggunakan Sharepoint Team Services 2.0,  sebab di sample itu ada cara buat aplikasi workflow.

Setelah selesai ternyata kebutuhan client bisa melakukan approved bisa melalui aplikasi web dan juga bisa melalui template nya yaitu Microsoft Word.

Finaly, akhirnya solusi nya adalah menggunakan Web Service .Net, tetapi untuk kebutuhan client tetap menggunakan Visual Basic (VBA) untuk melakukan Approval untuk mencegah client nantinya terlalu banyak penginstalan.

HTTP POST

The following is a sample HTTP POST request and response. The placeholders shown need to be replaced with actual values.

POST /SharePointRoutingServiceWS/SharePointRoutingServiceWS.asmx/GetUserInfo HTTP/1.1
Host: fabrikam1
Content-Type: application/x-www-form-urlencoded
Content-Length: length
Logon=string
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length
<?xml version="1.0" encoding="utf-8"?>
<UserInfo xmlns="http://fabrikam.com/internalwebservices/SharePointRoutingService/">
  <Logon>string</Logon>
  <Fullname>string</Fullname>
  <Email>string</Email>
</UserInfo>
Ini sample contoh penggunangan web services dengan VBA, dimana di web service mau menampilkkan data dari Active Directory

Dim xmlhttp As New xmlhttp
xmlhttp.Open "POST",            "http://fabrikam1:8080/SharePointRoutingServiceWS/SharePointRoutingServiceWS.asmx/GetUserInfo", False, "logonxxxx", "passwordxxxx"
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send ("Logon=fabrikam\administrator")

If (xmlhttp.Status = 4) Then
     MsgBox xmlhttp.responseText 
End If
Set xmlhttp = Nothing

Dengan cara ini saya rasa saya bisa dapatkan data dari sharepoint atau pun mengupdate sharepoint, semoga sebab lagi belajar nich.

Share this post: | | | |
Posted: May 25 2006, 05:10 AM by agusto | with 3 comment(s)
Filed under: