| 网站首页 | 资讯 | Hack | 漏洞 | 网管 | 编程 | 培训 | 品黑页 | 软件 | 论坛 | 动画 | 视频 | 经典 | 教学站 | 黑客点睛 | 
服务导航 我要发布 主力频道 空间域名 精华收集 服务器出租 黑客培训 光盘刻录 特色服务 解决方案 我要投诉
您现在的位置: 华夏黑客同盟 >> 编程 >> Delphi >> 正文 用户登录 新用户注册
Delphi调用WebServices(C#)代码           ★★★ 【字体:
Delphi调用WebServices(C#)代码
作者:不详 文章来源:华盟收集 点击数: 更新时间:2007-7-13

using System;
using System.Web;
using System.Web.Services;
using System.Web.Services.Protocols;

using System.Data;
using System.Data.OracleClient;
using System.IO;

using System.IO.Compression;
using System.Runtime.Serialization.Formatters.Binary;
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
public class Service : System.Web.Services.WebService
{
private OracleConnection webConnection;
DataTable curDt = new DataTable();
DataSet curSet = new DataSet();
OracleDataAdapter curDa = new OracleDataAdapter();
OracleCommand curComm = new OracleCommand();

private string GetCurCnnStr()
{
//连接数据库并打开
OracleConnectionStringBuilder cnnStrBuilder = new OracleConnectionStringBuilder();
cnnStrBuilder.UserID = "";
cnnStrBuilder.Password = "";
cnnStrBuilder.DataSource = "";
return cnnStrBuilder.ConnectionString;
}
public Service()
{

//如果使用设计的组件,请取消注释以下行
//InitializeComponent();
}

[WebMethod(Description = "判断空值")]
private OracleParameter CreateParam(string ParamName, object ParamValue)
{
OracleParameter Result = new OracleParameter();
Result.ParameterName = ParamName;
if (ParamValue != null)
{
Result.Value = ParamValue;
}
else
{
Result.Value = DBNull.Value;
}

return Result;
}

[WebMethod(Description = "测试连接")]
public string Linking()
{
return "WebService连接成功!";
}


[WebMethod(Description = "查询信息")]
public byte[] Search(string img)
{
try
{
webConnection = new OracleConnection(GetCurCnnStr());
webConnection.Open();
//查询表中的所有的数据
OracleDataAdapter webAdapter = new OracleDataAdapter("select pic from pic where id=" + img, webConnection);
DataSet webDataTable = new DataSet();
//byte[] webDataTable = new byte[0];
webAdapter.Fill(webDataTable);
webConnection.Close();

//序列化为二进制
webDataTable.RemotingFormat = SerializationFormat.Binary;//确定序列化格式
BinaryFormatter bFormatter = new BinaryFormatter();
MemoryStream mStream = new MemoryStream();
bFormatter.Serialize(mStream, webDataTable);
byte[] bytes = mStream.ToArray();//将数据流写入字节数组
//返回数组
return bytes;

}
catch (Exception)
{
curComm.Transaction.Rollback();
return null;
}
finally
{

webConnection.Close();
}

}

[WebMethod(Description = "添加信息")]
public void Add(string id, byte[] Image)
{
try
{
webConnection = new OracleConnection(GetCurCnnStr());
curComm.Connection = webConnection;
webConnection.Open();
curComm.Transaction = webConnection.BeginTransaction();
curComm.CommandText = "insert into pic(id,pic)values(:pId,:pPic)";
curComm.Parameters.Add(CreateParam("pId", (id != null) ? id : null));
curComm.Parameters.Add(CreateParam("pPic", (Image != null) ? Image : null));

curComm.ExecuteNonQuery();
curComm.Transaction.Commit();


}
catch (Exception)
{
curComm.Transaction.Rollback();
}
finally
{
webConnection.Close();
}
}



}

[1] [2] 下一页

责任编辑:朱倩  联系方式  Email:朱倩
电话:51228163
  • 上一篇编程:

  • 下一篇编程:
  • (只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
    姓 名:
    * 游客填写  ·注册用户
    主 页:
    评 分:
    1分 2分 3分 4分 5分
    评论内容:
    验证码: *
  • 请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。
  • 严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
  • 用户需对自己在使用本站服务过程中的行为承担法律责任(直接或间接导致的)。
  • 本站管理员有权保留或删除评论内容。
  • 评论内容只代表网友个人观点,与本网站立场无关。
  • 最新hack更新
    最新推荐资讯
    相关编程
    木马DIY之代码藏后门
    Delphi下读取网卡的MAC
    Delphi属性函数事件参考
    delphi写匿名管道简单木马
    delphi播放mp3背景音乐代码
    dll的创建与调用
    php调用js文件的方法
    Delphi的屏幕抓图技术
    Delphi进行OpenGL编程
    Delphi开发网络数据库
    最新会员软件
    最新推荐视频
    最新推荐动画

    Copyright @ 2005 77169.Net Inc. All rights reserved. 华夏黑客同盟 版权所有
    北京市电信通提供网络带宽

    mailto:webmaster@77169.net
    咨询QQ号:836982 / 59280880
    联系站长 QQ38588913
    热线电话: 86-10-67634029/676229433
    京ICP证041431号