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空间下提供了 ......

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空间下提供了 ......

第一种方法：
第一步： 修改属性
    1、kind -> dtktime 也可以是dtkdate 但是在用dtkdate的时候需要将datemode属性修改成dmUpDown
    2、parseinput -> true
第二步：在onUserInput事件中写一句代码
DateTimePicker1.DateTime:=DateAndTime;
注：以上方法虽然可以达到目的，但却会引发新的问题。（这时候控件中可以输入任意字符）
第二种方法：
1。修改delphi的包含Tdatatimepicker的单元ComCtrls.pas  
     搜索：TDateTimePicker.CNNotify(var   Message:   TWMNotify);  在这个函数中，代码：
 procedure   TDateTimePicker.CNNotify(var   Message:   TWMNotify);  
  var  
      DT:   TDateTime;  
      AllowChange:   Boolean;  
  begin  
      with   Message,   NMHdr^   do  
      begin  
          Result   :=   0;  
  ......

    如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer播放器。下面我将向大家介绍如何利用Delphi来帮助你实现这一愿望。但前提是：你的机器中必须装有RealPlayer Plus播放器，因为我们要用到其自带的ActiveX控件。
　　首先，我们要在Delphi中导入所需的ActiveX控件。点击菜单“Component→Import ActiveX Control...”打开“Import ActiveX”对话框，在“Import ActiveX”列表框中，我们可以看到Windows中所有注册的AxctiveX控件。选择其中的“RealPlayer ActiveX Control Library(Version 1.0)”控件。然后单击“Install”按钮。
　　回到Delphi主界面，你会发现在VCL面板中的ActiveX标签中增加了一个名为RealAudio的组件。我们先把它放入窗体中。不过在默认情况中RealAudio组件没有视频播放窗口，也就是只能播放声音。这是我们不愿看到的，这时� ......

Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：
　　一、 查找窗口法
　　这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码：
Program OneApp
　　Uses
　　Forms,Windows;//（这里介绍的几种方法均需在项目源文件中添加Windows单元，以后不再重复了）
　　Var Hwnd:Thandle;
　　Begin
　　 Hwnd:=FindWindow(‘TForm1’，‘SingleApp’);
　　 If Hwnd=0 then
　　 Begin
　　 Application.Initialize;
　　 Application.CreateForm(Tform1, Form1);
　　 Application.Run;
　　 End;
　　End;
FindWindow()函数带两个参数，其中的一个参数可以忽略，但笔者强烈建议将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。另外，如果是在Delp ......

     我在文章《Delphi图像处理 -- 图像卷积及高斯模糊》中，介绍了利用通用的图像卷积过程对图像进行高斯模糊处理，其处理效果还不错，处理小型图像时感觉也还行，但是处理较大图像时的速度还是嫌慢，在我的P4 2.8G、1G内存的机器上对千万像素图像进行Q=3，R=5的高斯模糊处理，不包括图像装载和前期数据转换，耗时达8600ms以上，虽经几次修改，其处理速度始终得不到明显提高，主要原因还是采用通用卷积过程处理的问题：用R=5得到的卷积模板为11*11像素，一个像素有4个分量（32位ARGB），对每个象素必须作11*11*4=484个乘法、484个加法及4个除法，最后还得作4个分量是否超界的判断处理，想不慢都难啦！如果不是采用BASM定点数处理代码，其处理速度更是难以想象。
    我在网上多次查找图像高斯模糊的优化算法，不少算法和处理方式，包括代码优化还不如我的那个高斯模糊处理过程，使我很失望。前天查找其它资料时，在国外某个网站上发现介绍图像高斯模糊处理方法时似乎与常规的算法有所不同，但都没有详细的资料（因为不懂外语，很少上国外网站，但看些公式、伪代码还是行的）， 经过反复琢磨，可以将其处理流程归纳如下：
 &n ......

{-----------------------------------------------------------------------------
 Unit Name: HashTable
 Author:    LiuHeng
 Date:      2010-04-13
 Purpose:   封装Delphi的HashTable
 History:
-----------------------------------------------------------------------------}
unit HashTable;
interface
uses
  Classes,IniFiles;
type
  THashTable = class(THashedStringList)
  public
    procedure AddStrItem(const ItemName: string;const ItemValue: string);
    function ObjectValue(const ObjName: string): TObject;
  end;
implementation
{ THashTable }
procedure THashTable.AddStrItem(const ItemName: string;const ItemValue: string);
begin
  Add(ItemName+'='+ItemValue);
end;
function THashTable.ObjectValue(const ObjName: string): TObject;
var
  AIndex: integer;
begin
  Find(ObjName,AIndex);
  if AIndex>=0 then
    Re ......