Tentu saja saya sudah bikin seperti itu. Karena kalau tidak, unitnya tidak mungkin bisa tercreate di dalam project. Bahkan sudah berulang-ulang di-import ulang namun masih tetap sama hasilnya.

coba saya minta url wsdl-nya, saya coba dari t4 saya bisa atau tidak?

waduh, sorry mbak Indri. Web servicenya adanya di Intranet bukan di Internet. So nggak mungkin bs di akses

oooo gpp mas, btw, kalau wsdl-nya di panggil dari browser langsung bisa tidak? abis itu kalau bisa, salah satu methodnya di coba bisa tidak?

Kalo dipanggil dari browser ok dan tdk ada masalah. Begini script di program clientnya: <font face='Courier New' size=2><table border='0' bgcolor='#ffcc00' bordercolor='#ffcc00' cellpadding='0' cellspacing='1' width='95%'><tbody><tr><td><table bgcolor=#f2f2f2 width=100%><tr><td><pre><b>var</b> wsHTTP: THTTPRio; wf: TWebService1Soap; <b>begin</b> <b>try</b> wsHTTP := THTTPRio.Create(self) <b>with</b> wsHTTP <b>do</b> <b>begin</b> WSDLLocation := <span style="color:#33f;">'http://ws.mysite.net/WebService1.asmx?WSDL'</span>; Service := <span style="color:#33f;">'TWebService1'</span>; Port := <span style="color:#33f;">'TWebService1Soap'</span>; <b>end</b>; wf := (wsHTTP <b>as</b> TWebService1Soap); Respon := wf.EchoTest; <b>except</b> on E:Exception <b>do</b> Respon := E.<b>Message</b>; <b>end</b>; <b>end</b>;</pre> </td></tr></table><table bgcolor=#000000 width=100% border='0' cellpadding='0' cellspacing='0' ><tr><td align=center><font color=white size=1>Syntax Highlighted with <a href=https://www.pascal-id.org/legacy/delphi-id.org/syntax><font color=white size=1>https://pascal-id.org/syntax</font></a></font></td></tr></table></td></tr></table></font>

[quote="andipurwito"]Kalo dipanggil dari browser ok dan tdk ada masalah. Begini script di program clientnya: var wsHTTP: THTTPRio; wf: TWebService1Soap; begin try wsHTTP := THTTPRio.Create(self) with wsHTTP do begin WSDLLocation := 'http://ws.mysite.net/WebService1.asmx?WSDL'; Service := 'TWebService1'; Port := 'TWebService1Soap'; end; wf := (wsHTTP as TWebService1Soap); Respon := wf.EchoTest; except on E:Exception do Respon := E.Message; end; end;