C# Delphi处理分析QQ协议
C# Delphi处理分析QQ协议
大家说到QQ协议都觉得很神秘，是因为QQ不像MSN或者ICQ协议都已经官方公布了，而QQ的没有公布。研究它的人也不是特别的多，虽然已经有了基于 QQ协议所写成的第三方软件 foicq, qq plugins for gaim, LumaQQ，但是由于他们是基于二进制Stream的协议过于复杂，大家阅读代码也有一定的难度，再加上网络上解析QQ协议的文章也不是十分多，所以基于QQ网络协议的应用程序也是寥寥无几的。现在我就把基于HTTP的QQ协议进行一个粗浅的剖析，希望对大家有所帮助。源码部分就用我喜欢的DELPHI 和现在比较流行的C#语言对QQ协议的实现进行具体分析。
1、找寻支持QQ HTTP协议的服务器。
大家也许会被一些假像所迷惑，也许会认为QQ的HTTP服务器是基于80口进行通信的(如：218.17.209.23:80)，其实不然，正真基于HTTP的服务器应该是：http://tqq.tencent.com:8000，它是一个通过8000口进行通讯的服务器。
由于QQ的HTTP服务器并不支持HTTP协议中GET方法，它支持POST方法。所以我们要给QQ的HTTP协议传参数，那么就必需要用POST方式才行。
2、C#和DELPHI是实现HTTP的POST方法的通信。
C#：
C#里System.Web空间下提供了一个叫做WebClient的对象，使用此对象就可以使C#直接对服务器发送WEB客户端的请求。那么我们要对服务器提交POST方法那么就必须使用其UploadData()方法才行。首先把要请求的信息先转换为字节(因为POST提交的是字符的流数据)，然后再做为UploadData()的参数。使用UploadData()进行数据提交，最后返回，POST的回馈信息。如下：
WebClient _client = new WebClient();
string postValues = "VER=1.0&CMD=Query_Stat&SEQ=12321&UIN=29501213&TN=50&UN=0";
Byte[] byteArray = System.Text.Encoding.ASCII.GetBytes(postValues);
Byte[] pageData = _client.UploadData(Host,"POST",byteArray);
这样，我们就利用C#进行了一次HTTP的POST方法提交了。
DELPHI：
Delphi里我们利用一个比较流行的第三方VCL，INDY HTTP(这个组件D6，D7里面自带)进行HTTP通信。使用其的POST方法便可以进行HTTP的POST通信，因为组件比较好用，我就不在其描述具体的过程了。大家可以参考以下代码：
function PostWebPage(url,para:String;TimeOut:Integer):String;
相关文档：
应一位网友的需求，并修正了MVP李洪根".NET平台下WEB应用程序的部署(安装数据库和自动配置)"中的osql用法错误，已测试通过。
一).创建部署项目
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
2. 在“添加新项目”对话框中，选择“项目类型”窗格� ......
ODBC DSN
ODBC -- New Microsoft Driver
ODBC -- Old Microsoft Driver
ODBC -- Oracle Driver
OleDb -- Microsoft Driver
OleDb -- Oracle Driver -- Standard Connection
OleDb -- Oracle Driver -- Trusted Connection
.NET DataProvider from Microsoft -- Standard Connection
.NET DataProvider fr ......
最近要改写一个核心加密认证类，从C#改写成Java。
发现在调试时，加密的数据无论如何也对不上。
经过跟踪，发现问题出在C#和Java byte类型的区别上：在C#里 byte类型是无符号的，而Java里是有符号的，所以C#里的129到Java里就成了负数。
发现了问题，解决就比较容易了，针对Java的byte，采用Int来进行存储。
通过如下代 ......
第一种：需要引用Windows单元
ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));
第二种：需要引用Windows单元
function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Resul ......
