Konsep Dasar Soap

*equest<0h6>'; echo '

' . htlspecialchars($client->request3 78_927%) . '<0pre>'; echo '
*esponse<0h6>'; echo '
' . htlspecialchars($client->response3 78_927%) . '<0pre>'; ?>



 <%+-78D/7nvelope %+ 78D/enco&ing%t4le="http/00scheas.@lsoap.org0soap0enco&ing0" @lns/%+78D="http/00scheas.@lsoap.org0soap0envelope0" @lns/@s&="http/00www.wE.org06:0FGC%chea" @lns/@si="http/00www.wE.org06:0FGC%chea-instance" @lns/%+78="http/00scheas.@lsoap.org0soap0enco&ing0"> <%+-78D/Ho&4>  <__nueric_ @si/t4pe="@s&/string">1a&i 2taa<0__nueric_> <0nsIJ/hello> <0%+-78D/Ho&4> <0%+-78D/7nvelope>



SOAP Respose@ HTTP/1.1 200 OK Date: Sat, 01 Apr 2006 07:43:14 GMT Server: Apache/1.3.23 (!"32# $%P&'ere%)*: PHP/4.1.1 $%SOAP%Server: +SOAP/0.7.2 (1.-# &"te"t%e"th: 7 &""ect!&": c&e &"te"t%T*pe: te5t/5 charet89SO%-%1 ;5 ver!&"8<1.0< e"c&!"8<9SO%-%1<;= SOAP%>+?:>"ve&pe SOAP% >+?:e"c&!"St*e8+?8+8+?:)&*=



5":SOAP%



5":SOAP%



 "1:he&@ep&"e 5":"18+?:)&*= /SOAP%>+?:>"ve&pe=



a$a ontoh program $i atas, aplikasi ser2er 4?ehoStringSer2er.php@ men%e$iakan ser2ie $engan nama operasi ?hello@, kemu$ian melakukan registrasi operasi ke aplikasi ser2er: $server->register('hello');



Setelah itu aplikasi ser2er men%e$iakan se+uah metho$ ?hello@ $engan parameter Hparam %ang +erfungsi untuk menerima input %ang $ikirimkan oleh lient. arameter ini kemu$ian $iga+ung ke $alam se+uah 2aria+el string HreturnA2alue untuk kemu$ian $ikirim ke lient: function hello($para) ! $return_value = "#allo $para<r>%elaat &atang pa&a perograan we service..."; return $return_value;  $#_*+,_%_++ = isset($#_*+,_%_++) ? $#_*+,_%_++ / ''; $server->service($#_*+,_%_++);



emu$ian, aplikasi lient 4?ehoString#lient.php@ menunjuk ke se+uah 9*7 %ang men%e$iakan ser2ie: $client = new soapclient('http/00localhost0soap0contoh0echo%tring%erver.php');



erhatikan $i sini, aplikasi lient merujuk pa$a 9*7 aplikasi ser2er %ang men%e$iakan ser2ie 4?ehoStringSer2er.php@. emu$ian aplikasi lient melakukan pemanggilan la%anan $engan mengeksekusi metho$ all $engan paramater nama operasi $an input operasi Hparam. )asil response %ang $iterima kemu$ian $ietak ke la%ar +oser: $para="1a&i 2taa"; $result = $client->call('hello'3arra4($para)); if (5ept4($result)) echo $result;



&pa+ila ontoh $i atas $ijalankan $i +roser, maka akan tampak hasil tampilan +erikut ini:



 am+ar >e+ ser2ie lient %ang $ijalankan pa$a +roser 



#%#!



Implemet*si D*t*b*se De4* Me44,*-* ADOD& P/P



emrograman e+ ser2ie $apat $ilakukan $engan mengakses $ata+ase $an men%ertakan $ata hasil akses $ata+ase terse+ut ke $alam ser2ie. Dalam melakukan akses ke $ata+ase, kita akan menggunakan &D/D< se+agai tool open soure %ang $apat $igunakan untuk  mengakses $ata+ase. &lasan $igunakann%a &D/D< a$alah $ukungann%a pa$a +an%ak tipe $ata+ase sehingga apa+ila terja$i pergantianmigrasi ke $ata+ase tertentu, maka kita ti$ak perlu pusing untuk  melakukan pengko$ean ulang. )al ini $ikarenakan &D/D< telah menangani koneksi $an akses ke +er+agai $ata+ase %ang $ipilih.



9ntuk meng3install &D/D<, $apat $ilakukan $engan ara +erikut: •



Donloa$ file $ari situs http:php.e+logs.oma$o$+



•



Ekstrak file Cip



•



#op% file a$o$+.in.php ke lokasi $irektori tertentu



•



7akukan inlu$e lass $alam ko$e ): reBuireAone4Fa$o$+.in.phpG 9ntuk menggunakan &D/D<, ko$e ) %ang $igunakan a$alah se+agai +erikut:



$& = K+8ewonnection($&_t4pe); $&->onnect($&_host3 $&_user3 $&_passwor&3 $&_nae);



 $rs = $&->7@ecute($sql);



eterangan: 3 $+At%pe



:



Tipe $ata+ase %ang $igunakan 4misal: m%sBlt



3 $+Auser



:



9ser $ata+ase 4misal: root



3 $+Apassor$ :



assor$ $ata+ase



3 $+Aname



ama $ata+ase



:



Setelah melakukan instalasi &D/D<, sekarang kita akan meno+a ontoh  pemrograman e+ ser2ie $engan mengakses se+uah $ata+ase M%S7. 9ntuk memulain%a, se+elumn%a kita +uat terle+ih $ahulu se+uah $ata+ase +aru $engan menggunakan ?phpM%&$min@: 1. 


am+ar Mem+uat $ata+ase ?$+Asoap@ '. 


am+ar Mem+uat ta+el ?ontat@



". Tentukan nama3nama fiel$ $an struktur $atan%a:



 am+ar Menentukan nama3nama fiel$ $an struktur $ata (. Masukkan +e+erapa reor$ $ata ke $alam ta+el ?ontat@:



am+ar Melakukan entr% reor$ $ata ke $alam $ata+ase



Setelah memasukkan reor$ $ata ke $alam ta+el, $ata terse+ut akan $itam+ahkan ke $alam $ata+ase:



am+ar Daftar seluruh reor$ $ata



Setelah men%iapkan $ata+ase ?$+Asoap@, selanjutn%a kita akan mem+uat se+uah aplikasi ser2er %ang akan men%e$iakan ser2ie untuk menampilkan list seluruh reor$ $ata  pa$a ta+el ?ontat@ %ang telah $imasukkan terse+ut.



Dalam ontoh kali ini, kita +uat se+uah aplikasi ser2er ?ontatSer2er.php@ $an se+uah aplikasi lient ?ontat#lient.php@: cot*ctSer.er%p3p register('contact'); function contact() ! $& = K+8ewonnection('4sqlt'); $&->onnect('localhost'3 'root'3 'root'3 '&_soap'); $rs = $&->7@ecute("select L fro contact"); $result = $rs->Met+rra4();



 foreach($result as $row=>$value) ! $return_valueNO = arra4( 'nae'=> $valueN'nae'O3 'copan4'=> $valueN'copan4'O3 'a&&ress'=> $valueN'a&&ress'O3 'phone'=> $valueN'phone'O3 'eail'=> $valueN'eail'O );  return $return_value;  $#_*+,_%_++ = isset($#_*+,_%_++) ? $#_*+,_%_++ / ''; $server->service($#_*+,_%_++); ?>



cot*ctliet%p3p



get7rror(); if ($err) ! echo '
onstructor error<0h6>
' . $err . '<0pre>';  $para=""; $result = $client->call('contact'3arra4($para)); if (5ept4($result)) ! echo ""; echo ""; echo "8ae<0th>"; echo "opan4<0th>"; echo "+&&ress<0th>"; echo "hone<0th>"; echo "7ail<0th>"; echo "<0tr>"; foreach ($result as $ite) ! echo ""; echo "".$iteN'nae'O."<0t&>"; echo "".$iteN'copan4'O."<0t&>"; echo "".$iteN'a&&ress'O."<0t&>"; echo "".$iteN'phone'O."<0t&>"; echo "".$iteN'eail'O."<0t&>"; echo "<0tr>";  echo "<0tale>";  ?>



 a$a aplikasi ser2er ?ontatSer2er.php@, aplikasi ser2er men%e$iakan ser2ie $engan melakukan registrasi operasi ?ontat@: $server->register('contact');



Setalah melakukan registrasi operasi, selanjutn%a aplikasi ser2er men%e$iakan se+uah metho$ ?ontat@. Di $alam metho$ ini, aplikasi se2er men%e$iakan ser2ie ke lient $engan mengakses $ata+ase ?$+Asoap@ $engan menggunakan &D/D< kemu$ian mengeksekusi S7 ?Selet J 8rom ontat@. Setelah men$apatkan sejumlah $ata $ari $ata+ase, selanjutn%a aplikasi ser2er mengirimkan $ata terse+ut ke lient $alam +entuk 2aria+el arra% HreturnA2alue: function contact() ! $& = K+8ewonnection('4sqlt'); $&->onnect('localhost'3 'root'3 'root'3 '&_soap'); $rs = $&->7@ecute("select L fro contact"); $result = $rs->Met+rra4(); foreach($result as $row=>$value) ! $return_valueNO = arra4( 'nae'=> $valueN'nae'O3 'copan4'=> $valueN'copan4'O3 'a&&ress'=> $valueN'a&&ress'O3 'phone'=> $valueN'phone'O3 'eail'=> $valueN'eail'O );  return $return_value;  $#_*+,_%_++ = isset($#_*+,_%_++) ? $#_*+,_%_++ / ''; $server->service($#_*+,_%_++);



Selanjutn%a aplikasi lient ?ontat#lient.php@, merujuk kepa$a 9*7 lokasi ser2ie %ang $ise$iakan oleh aplikasi ser2er: $client = new soapclient('http/00localhost0soap0contoh0contact%erver.php');



emu$ian aplikasi lient melakukan pemanggilan ser2ie $engan mengeksekusi metho$ all $engan paramater nama operasi $an input Hparam. )asil response $ari pemanggilan ser2ie ini kemu$ian $ietak ke la%ar +roser lient: $para=""; $result = $client->call('contact'3arra4($para)); if (5ept4($result)) ! echo ""; echo ""; echo "8ae<0th>";



 echo "opan4<0th>"; echo "+&&ress<0th>"; echo "hone<0th>"; echo "7ail<0th>"; echo "<0tr>"; foreach ($result as $ite) ! echo ""; echo "".$iteN'nae'O."<0t&>"; echo "".$iteN'copan4'O."<0t&>"; echo "".$iteN'a&&ress'O."<0t&>"; echo "".$iteN'phone'O."<0t&>"; echo "".$iteN'eail'O."<0t&>"; echo "<0tr>";  echo "<0tale>"; 






am+ar Tampilan hasil pemanggilan ser2ie $engan akses ke $ata+ase a$a ontoh $i atas, aplikasi ser2er men%e$iakan ser2ie $engan parameter input Hparam $engan nilai +erupa string kosong 4HparamK@@. )al ini $apat $imaklumi +aha aplikasi ser2er han%a mengeksekusi string S7 tanpa menerima parameter input apapun. Eksekusi S7 terse+ut +ertujuan untuk mengam+il $an mengirimkan seluruh reor$ $ata ke lient. ita $apat memo$ifikasi ko$e pa$a ontoh $i atas untuk menampilkan 1 reor$ $ata tertentu sesuai $engan parameter input %ang $itam+ahkan: cot*ctSer.er%p3p 


 $server = new soap_server(); $server->register('contact_&etail'); function contact_&etail($para) ! $& = K+8ewonnection('4sqlt'); $&->onnect('localhost'3 'root'3 'root'3 '&_soap'); $rs = $&->7@ecute("select L fro contact where i&=".$paraN'i&'O); $result = $rs->Met+rra4(); foreach($result as $row=>$value) ! $return_valueNO = arra4( 'nae'=> $valueN'nae'O3 'copan4'=> $valueN'copan4'O3 'a&&ress'=> $valueN'a&&ress'O3 'phone'=> $valueN'phone'O3 'eail'=> $valueN'eail'O );  return $return_value;  $#_*+,_%_++ = isset($#_*+,_%_++) ? $#_*+,_%_++ / ''; $server->service($#_*+,_%_++); ?>



cot*ctliet%p3p get7rror(); if ($err) ! echo '
onstructor error<0h6>
' . $err . '<0pre>';  $para = arra4('i&'=>$i&); $result = $client->call('contact_&etail'3arra4($para)); if (5ept4($result)) ! echo ""; echo ""; echo "8ae<0th>"; echo "opan4<0th>"; echo "+&&ress<0th>"; echo "hone<0th>"; echo "7ail<0th>"; echo "<0tr>"; foreach ($result as $ite) ! echo ""; echo "".$iteN'nae'O."<0t&>"; echo "".$iteN'copan4'O."<0t&>"; echo "".$iteN'a&&ress'O."<0t&>"; echo "".$iteN'phone'O."<0t&>";



 echo "".$iteN'eail'O."<0t&>"; echo "<0tr>";  echo "<0tale>";  ?>



erhatikan pa$a mo$ifikasi aplikasi ser2er $i atas, parameter input $iam+il $ari nilai pa$a 2aria+el arra% Hparam untuk kemu$ian $iolah le+ih lanjut $alam eksekusi string S7: function contact_&etail($para) ! $& = K+8ewonnection('4sqlt'); $&->onnect('localhost'3 'root'3 'root'3 '&_soap'); $rs = $&->7@ecute("select L fro contact where i&=".$paraN'i&'O); $result = $rs->Met+rra4(); foreach($result as $row=>$value) ! $return_valueNO = arra4( 'nae'=> $valueN'nae'O3 'copan4'=> $valueN'copan4'O3 'a&&ress'=> $valueN'a&&ress'O3 'phone'=> $valueN'phone'O3 'eail'=> $valueN'eail'O );  return $return_value; 



Selanjutn%a aplikasi lient melakukan pemanggilan ser2ie $engan mengam+il parameter  input Hi$ $an men%usunn%a ke $alam 2aria+el arra% Hparam: $para = arra4('i&'=>$i&); $result = $client->call('contact_&etail'3arra4($para));






am+ar )asil mo$ifikasi $engan menam+ahkan parameter input pa$a +roser