package com.liufeng.ws.activity;

import org.ksoap2.SoapEnvelope;

import org.ksoap2.serialization.SoapObject;

import org.ksoap2.serialization.SoapSerializationEnvelope;

import org.ksoap2.transport.HttpTransportSE;

import android.app.Activity;

import android.os.Bundle;

import android.view.View;

import android.view.View.OnClickListener;

import android.widget.Button;

import android.widget.EditText;

import android.widget.TextView;

/** * Android平台调用WebService（手机号码归属地查询） *  * @author liufeng * @date 2011-05-18 */

public class MainActivity extends Activity {

private EditText phoneSecEditText;

private TextView resultView;

private Button queryButton;

@Overridepublic void onCreate(Bundle savedInstanceState) {

super.onCreate(savedInstanceState);

setContentView(R.layout.main);

phoneSecEditText = (EditText) findViewById(R.id.phone_sec);

resultView = (TextView) findViewById(R.id.result_text);

queryButton = (Button) findViewById(R.id.query_btn);

queryButton.setOnClickListener(new OnClickListener() {@Overridepublic void onClick(View v) {

// 手机号码（段）

String phoneSec = phoneSecEditText.getText().toString().trim();

// 简单判断用户输入的手机号码（段）是否合法

if ("".equals(phoneSec) || phoneSec.length() < 7) {

phoneSecEditText.setError("您输入的手机号码（段）有误！");

phoneSecEditText.requestFocus();

resultView.setText("");

return;

}

// 查询手机号码（段）信息getRemoteInfo(phoneSec);}});}

/** * 手机号段归属地查询 *  * @param phoneSec 手机号段 */

public void  getRemoteInfo(String phoneSec) {

//命名空间

String nameSpace = "http://WebXml.com.cn/";

//调用的方法名称

String methodName = "getMobileCodeInfo";

// EndPointString

endPoint = "http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx";

// SOAP 

ActionString soapAction = "http://WebXml.com.cn/getMobileCodeInfo";

// 指定WebService的命名空间和调用的方法名

SoapObject rpc = new SoapObject(nameSpace, methodName);

// 设置需调用WebService接口需要传入的两个参数mobileCode、userId

rpc.addProperty("mobileCode", phoneSec);

rpc.addProperty("userId", "");

// 生成调用WebService方法的SOAP请求信息,并指定SOAP的版本

SoapSerializationEnvelope envelope = new SoapSerializationEnvelope(SoapEnvelope.VER11);

envelope.bodyOut = rpc;

// 设置是否调用的是dotNet开发的WebService

envelope.dotNet = true;

// 等价于

envelope.bodyOut = rpc;envelope.setOutputSoapObject(rpc);

HttpTransportSE transport = new HttpTransportSE(endPoint);

try {

// 调用WebService

transport.call(soapAction, envelope);

} 

catch (Exception e) 

{

e.printStackTrace();

}

// 获取返回的数据

SoapObject object = (SoapObject) envelope.bodyIn;

// 获取返回的结果

String result = object.getProperty("getMobileCodeInfoResult").toString();

// 将WebService返回的结果显示在TextView中

resultView.setText(result);

}

}  

--T-SQL不带参数
if exists(select * from sysobjects where name='SelectStu')
drop proc SelectStu
GO
create proc SelectStu
as
select * from student
GO

--c#
SqlCommand cmd = new SqlCommand("SelectStu",con);
            cmd.CommandType = CommandType.StoredProcedure;
            SqlDataReader dr = cmd.ExecuteReader();
            while(dr.Read())
            {
                Console.WriteLine(dr["LoginId"]);
            }

--T-SQL 带一个参数
if exists(select * from sysobjects where name='SelectStu')
drop proc SelectStu
GO
create proc SelectStu
@name varchar(50)
as
select * from student where loginid=@name
GO

--C#
SqlCommand cmd = new SqlCommand("SelectStu",con);
            cmd.CommandType = CommandType.StoredProcedure;
            cmd.Parameters.Add("@name", "LiDifei");
            SqlDataReader dr = cmd.ExecuteReader();
            while(dr.Read())
            {
                Console.WriteLine(dr["LoginId"]);
            }

--T-SQL 有返回值
if exists(select * from sysobjects where name='SelectStu')
drop proc SelectStu
GO
create proc SelectStu
@name varchar(50),
@id int output
as
select @id=studentid from student where loginid=@name
return @id
GO

--C#
SqlCommand cmd = new SqlCommand("SelectStu",con);
            cmd.CommandType = CommandType.StoredProcedure;
            cmd.Parameters.Add("@name", "LiDifei");
            cmd.Parameters.Add("@id",SqlDbType.Int);
            cmd.Parameters["@id"].Direction = ParameterDirection.Output;
            cmd.ExecuteScalar();
            Console.WriteLine(cmd.Parameters["@id"].Value);

-------------------------------------------------------------------------------------

//以前写过的一个调用存储过程的方法

 public static int regInsert(string Pwd, int Friend, string NickName, int FaceID, string Sex, int Age, string Name, int starId, int BloodTypeId)
        {
            try
            {
                SqlConnection conn = createConnection();
                conn.Open();
                SqlCommand cmd = new SqlCommand("proc_reg", conn);
                cmd.CommandType = CommandType.StoredProcedure;
                cmd.Parameters.Add("@id",SqlDbType.Int);
               如果是id是字符型的话,必须把输出长度写上,输入参数可以不用写长度,但是输出参数必须写上长度.
                cmd.Parameters.Add("@id",SqlDbType.navchar,50);
                cmd.Parameters["@id"].Direction = ParameterDirection.Output;
                cmd.Parameters.AddWithValue("@LoginPwd",Pwd);
                cmd.Parameters.AddWithValue("@FriendshipPolicyId",Friend);
                cmd.Parameters.AddWithValue("@NickName",NickName);
                cmd.Parameters.AddWithValue("@FaceID",FaceID);
                cmd.Parameters.AddWithValue("@Sex",Sex);
                cmd.Parameters.AddWithValue("@Age",Age);
                cmd.Parameters.AddWithValue("@Name",Name);
                cmd.Parameters.AddWithValue("@starId",starId);
                cmd.Parameters.AddWithValue("@BloodTypeId", BloodTypeId);

               
               
                cmd.ExecuteNonQuery();
                return (int)cmd.Parameters["@id"].Value;
               
              
            }
            catch (SqlException ex)
            {
                Console.WriteLine(ex.Message);
            }
            return 0;
         
        }

-------------------------------------------------------------------------------

//从网上摘抄
          
string ConnectionString = "server=.;database=PubData;uid=sa;pwd=123456";
            using (SqlConnection Conn = new SqlConnection(ConnectionString))
            {  
               
                SqlCommand CMD = new SqlCommand();
                CMD.CommandType = CommandType.StoredProcedure;
                CMD.Connection = Conn;
                //没有输入参数调用有返回参数
                //存储过程如下
                //------------------------------------
                //--用途：得到最大ID
                //--项目名称：
                //--说明：
                //--时间：2007-12-6 17:15:27
                //------------------------------------
                //ALTER PROCEDURE SysBaseData_GetMaxId
                //AS
                //DECLARE @TempID int
                //SELECT @TempID = max([BaseDataID])+1 FROM SysBaseData
                //IF @TempID IS NULL
                //    RETURN 1
                //ELSE
                //    RETURN @TempID

                CMD.CommandText = "SysBaseData_GetMaxId";
                Conn.Open();
                CMD.Parameters.Add(new SqlParameter("ReturnValue",
                SqlDbType.Int, 4, ParameterDirection.ReturnValue,
                false, 0, 0, string.Empty, DataRowVersion.Default, null));
                CMD.ExecuteScalar();
                Response.Write("没有输入参数调用有返回参数:"+CMD.Parameters["ReturnValue"].Value);
                Response.Write("<br>");

                //有一个传入参数和返回参数
                //------------------------------------
                //--用途：是否已经存在
                //--项目名称：
                //--说明：
                //--时间：2007-12-6 17:15:27
                //------------------------------------
                //ALTER PROCEDURE SysBaseData_Exists
                //@BaseDataID int
                //AS
                //    DECLARE @TempID int
                //    SELECT @TempID = count(1) FROM SysBaseData WHERE [BaseDataID] = @BaseDataID
                //    IF @TempID = 0
                //        RETURN 0
                //    ELSE
                //        RETURN 1

                CMD.CommandText = "SysBaseData_Exists";
                SqlParameter[] parameters = { new SqlParameter("@BaseDataID", SqlDbType.Int) };
                parameters[0].Value = 22;
                CMD.Parameters.Add(parameters[0]);
                CMD.Parameters.Add(new SqlParameter("ReturnValue",SqlDbType.Int, 4, ParameterDirection.ReturnValue,false, 0, 0, string.Empty, DataRowVersion.Default, null));
                int j = CMD.ExecuteNonQuery();
                Response.Write("有一个传入参数和返回参数:"+CMD.Parameters["ReturnValue"].Value);
                Response.Write("<br>");
                CMD.Parameters.Clear();

                //有一个传入参数没有返回值
                //------------------------------------
                //--用途：删除一条记录
                //--项目名称：
                //--说明：
                //--时间：2007-12-6 17:15:27
                //------------------------------------
                //ALTER PROCEDURE SysBaseData_Delete
                //@BaseDataID int
                // AS
                //    DELETE SysBaseData
                //     WHERE [BaseDataID] = @BaseDataID
                CMD.CommandText = "SysBaseData_Delete";
                SqlParameter[] parameters2 = { new SqlParameter("@BaseDataID",SqlDbType.Int) };
                parameters2[0].Value = 29;
                CMD.Parameters.Add(parameters2[0]);
                int k = CMD.ExecuteNonQuery();
                Response.Write("有一个传入参数没有返回值:" + k);
                CMD.Parameters.Clear();
                Response.Write("<br>");

                //有多个转入参数没有近回值
                //------------------------------------
                //--用途：修改一条记录
                //--项目名称：
                //--说明：
                //--时间：2007-12-6 17:15:27
                //------------------------------------
                //ALTER PROCEDURE SysBaseData_Update
                //@BaseDataID int,
                //@BaseDataCode char(10),
                //@BaseDataName varchar(30),
                //@ParentCode char(10),
                //@Description varchar(100),
                //@LevelType int,
                //@VaildType char(1),
                //@PathCode varchar(100),
                //@SerialNumberID int,
                //@msrepl_tran_version uniqueidentifier
                // AS
                //    UPDATE SysBaseData SET
                //    [BaseDataCode] = @BaseDataCode,[BaseDataName] = @BaseDataName,[ParentCode] = @ParentCode,[Description] = @Description,[LevelType] = @LevelType,[VaildType] = @VaildType,[PathCode] = @PathCode,[SerialNumberID] = @SerialNumberID,[msrepl_tran_version] = @msrepl_tran_version
                //    WHERE [BaseDataID] = @BaseDataID
                CMD.CommandText = "SysBaseData_Update";
                SqlParameter[] parameters3 = {
                    new SqlParameter("@BaseDataID",SqlDbType.Int),
                    new SqlParameter("@BaseDataCode",SqlDbType.VarChar),
                    new SqlParameter("@BaseDataName",SqlDbType.VarChar),
                    new SqlParameter("@ParentCode",SqlDbType.VarChar),
                    new SqlParameter("@Description",SqlDbType.VarChar),
                    new SqlParameter("@LevelType",SqlDbType.Int),
                    new SqlParameter("@VaildType",SqlDbType.VarChar),
                    new SqlParameter("@PathCode",SqlDbType.VarChar),
                    new SqlParameter("@SerialNumberID",SqlDbType.Int)
                };
                parameters3[0].Value = 28;
                parameters3[1].Value = "DCCK02";
                parameters3[2].Value = "中秋节0";
                parameters3[3].Value = "DCCK";
                parameters3[4].Value = "";
                parameters3[5].Value = 3;
                parameters3[6].Value = "0";
                parameters3[7].Value = "";
                parameters3[8].Value = 0;
                foreach(SqlParameter parameter in parameters3)
                {
                    CMD.Parameters.Add(parameter);
                }
                int m = CMD.ExecuteNonQuery();
                Response.Write("有多个转入参数没有近回值:" + m);
                CMD.Parameters.Clear();
                Response.Write("<br>");

                //没有输入参数获得数据集
                //------------------------------------
                //--用途：查询记录信息
                //--项目名称：
                //--说明：
                //--时间：2007-12-6 17:15:27
                //------------------------------------
                //ALTER PROCEDURE UP_SysBaseData_GetList
                // AS
                //    SELECT
                //    [BaseDataID],[BaseDataCode],[BaseDataName],[ParentCode],[Description],[LevelType],[VaildType],[PathCode],[SerialNumberID],[msrepl_tran_version]
                //     FROM SysBaseData
                CMD.CommandText = "UP_SysBaseData_GetList";
                SqlDataAdapter DA = new SqlDataAdapter();
                DA.SelectCommand = CMD;
                DataSet DS = new DataSet();
                int n = DA.Fill(DS);
                Response.Write("没有输入参数获得数据集:" + n);
                Response.Write("<br>");
                //GridView1.DataSource = DS;
                //GridView1.DataBind();

                //有输入输出参数获得数据集
                //-- =============================================
                //-- Author:        <Author,,Name>
                //-- Create date: <Create Date,,>
                //-- Description:    <Description,,>
                //-- =============================================
                //ALTER PROCEDURE [dbo].[UP_GetRecordByPage]
                //    @PageSize int,
                //    @PageIndex int,
                //    @NCount  int output
                //AS
                //declare @StarRow int
                //declare @EndRow int
                //select @NCount=count(BaseDataID) from SysBaseData
                //BEGIN
                //    SET NOCOUNT ON;
                //    with SysDataBaseList as
                //    (
                //        select row_number() over(order by BaseDataID desc) as rownumbers,
                //        BaseDataID,BaseDataName,ParentCode
                //        from SysBaseData
                //    )
                //    select * from SysDataBaseList where rownumbers between (@PageIndex-1)*@PageSize+1 and (@PageIndex-1)*@PageSize+@PageSize

                //END
                CMD.CommandText = "UP_GetRecordByPage";
                SqlDataAdapter DA2 = new SqlDataAdapter();
                SqlParameter[] parameters4 = {
                    new SqlParameter("@PageSize",SqlDbType.Int),
                    new SqlParameter("@PageIndex",SqlDbType.Int),
                    new SqlParameter("@NCount",SqlDbType.Int, 4, ParameterDirection.Output,false, 0, 0, string.Empty, DataRowVersion.Default, null)
                    };
                parameters4[0].Value = 5;
                parameters4[1].Value = 2;

                foreach (SqlParameter parameter in parameters4)
                {
                    CMD.Parameters.Add(parameter);
                }
                DA2.SelectCommand = CMD;
                DataSet DS2 = new DataSet();
                int n2 = DA2.Fill(DS2);
                Response.Write("有输入输出参数获得数据集:" + n2 + "一共" + CMD.Parameters[2].Value + "行");
                GridView1.DataSource = DS2;
                GridView1.DataBind();
           }

Visual Web Developer 2005 Express 简体中文版

::软件简介:::
Visual Studio 2005 Express Editions 包括 Visual Web Developer 2005 Express Edition、Visual Basic 2005 Express Edition 、Visual C# 2005 Express Edition、Visual C++ 2005 Express Edition、Visual J# 2005 Express Edition。
Visual Web Developer 2005 Express Edition是一种简便的、易学易用的开发工具，重点专注于使用ASP.NET 2.0进行网络开发，构建令人兴奋的动态网络应用。通过具有易用的拖拽界面的可视化设计器、功能强大的代码编辑器、嵌入式数据控制和到SQL Server的集成入口、以及对Visual Basic, C#和J#等多种语言的支持，创建并管理您的网络应用。 享受一下为初学者、编程爱好者和学生量身定制的新型开发环境。

内置完备的开发套件，可以帮助您快速上手Web应用开发。通过所见即所得的拖拽界面就可以创建出美观、易用的网站。内置60余种控件、上百段代码片断，可以帮助您大幅度降低创建互动式Web应用的时间。支持页面模板，从而使您可以统一的管理网页的排版与布局。通过IntelliSense，可以更快的访问资源库和方法。只需一下点击，就可以通过Common Tasks 和 Smart Tags 调用最常用的Web开发功能。


此外，Visual Web Developer 2005 Express 还提供使用ASP.NET 2.0 开始构建网络应用的所有材料。它包括：

· 通过易用的拖拽界面使创建网络应用更加容易的Visual Designer

· 功能丰富的强大的代码编辑器，例如Intellisense，它可以使编写代码和HTML变得更加迅速

· 使用嵌入式数据控制和到Microsoft SQL Server 2005 Express的集成入口，快速创建数据驱动的网络应用

· 支持多种语言：Visual Basic, C#和J#

· 使用嵌入式的全功能的初学者套件来起步，如Personal Web Starter Kit

点击下载 (如果安装迅雷点击,直接下载.)


下载地址： 

thunder://QUFodHRwOi8vbWl0dS5jbjoxMDA3L3NvZnRkb3duL2lzby9WaXN1YWwgV2ViIERldmVsb3BlciAyMDA1IEV4cHJlc3MgvPLM5dbQzsSw5i5pc29aWg==/ 

(复制这段代码在迅雷中打开，方法：文件--新建)

如果没有迅雷的朋友请下载迅雷,或者迅雷Web.

首先安装Microsoft SoapToolkit，因为VB自身不支持WebService，需要安装SoapTookit后能调用WebService。

下载SoapTookit3.0

然后在VB6中点菜单“工程”—“引用”－把“Microsoft Soap Type Libray v3.0” 打上钩就可以了。

     Dim mysoap As New SoapClient30
     mysoap.MSSoapInit ("https://samool.com/soap/Webservice.asmx?WSDL")
     Label1.Caption = mysoap.helloWorld(Text1.Text)

按上面方法直接调用WebService函数就OK了。

假设您已经在.net上建立了自己的webservice，目前只是想在delphi上实现对net上自己的webservice 接口的调用

1)  在你的工程中 new  -> other 选择 webservices 这页

2)  选择其中的 wsdl importer 项

3)  在其中的wsdl source中填入你已经知道的wdsl地址，这里我填入我的地址是
http://192.168.0.123/hello/tijiaosj.asmx?wsdl

4) next后 就自动生成了一个unit

5)  这个unit中包含了你提供的url地址中的所有可用接口
其中 GetXXXXXSoap 这个函数返回了这些接口的class
在业务代码中只要写 GetXXXXXSoap.XXXfunction就可以了

6)  另外提当函数要操作中文的时候，记得修改GetXXXXXSoap，添加这条语句
RIO.HTTPWebNode.UseUTF8InHeader := True; //解决中文乱码问题
呵呵，很简单，对吧

最后，稍微改了一下Delphi生成的接口单元

改动的地方为：

7). 添加接口的执行选项默认为 ioDocument
如果是JAVA 接口, 将执行选项改为 ioLiteral  即可.

修改后的代码如下:
InvRegistry.RegisterInvokeOptions(TypeInfo(XcdsExPortType), ioDocument);