界面就這樣吧,繼續。。。,先啟動咱們上幾片文章建立的手機服務端
導入webservices單元,file->new->other->webservices->選擇 wsdlimporter
輸入wsdl地址 http://localhost:8080/wsdl/IAdroidServices
之后施展一路回車大法,只到生成一個單元文件保存並在手機窗體單元中引用。
在窗體上的按鈕的click事件中實現以下代碼:
procedure TForm1.button1Click(Sender: TObject);
var
ws:IAdroidServices;
s:string;
begin
ws:=GetIAdroidServices(true,'http://10.110.0.56:8080/wsdl/IAdroidServices',nil); //參數中可以使用配置的url
s:=ws.GetEmployee_mi;
if length(s)<>0 then
clientdataset1.xmldata:=s;
end;
可以在win32平台上先測試一下,如圖:
win32平台上沒問題 ok,接下來target選擇我的 大平板手機 O(∩_∩)O~ ,p3100
運行如下:
遺憾的是 ,亂碼。。。
亂碼的問題等我搞定了上來分享!