如何用delphi向QQ的聊天窗口发送文字

VC中的代码：

CWnd pWnd;

//获取QQ聊天窗口句柄

pWnd = FindWindow(_T("#32770"), _T("与 小猪猪 交谈中"));

if(!pWnd)

{

MessageBox("未发现聊天窗口");

}

else

{

//遍历所有子窗口

CWnd pCwnd = pWnd->GetNextWindow(GW_CHILD);

pCwnd = pCwnd->GetNextWindow(GW_HWNDNEXT);

while (pCwnd != NULL)

{

if (pCwnd)//找到输入窗口

{

CRichEditCtrl pREdit = (CRichEditCtrl )pCwnd->GetDlgItem(0x37E);//0x37E这个值可以用Spy++得到

if (pREdit)

{

char szBuf[255] = "要发送的内容";

pREdit->SendMessage(EM_REPLACESEL, 0, (LPARAM)szBuf);//发送文字

break;

}

}

pCwnd = pCwnd->GetNextWindow(GW_HWNDNEXT);

}

}

从开发平台到服务器的向上适化

适化概述

所谓适化就是将桌面应用转化为Client/Server应用

适化是一个很复杂的主题 这里不详细讲述 本节将介绍适化Delphi 应用程序中最重要的方面

适化的主要方面有

● 将数据库从桌面平台到服务器的适化

● 将应用程序转化为Client/Server的适化

适化还需要实现从桌面环境到Client/Server环境的转化

桌面数据库和SQL服务器数据库在许多方面有不同之处 例如

● 桌面数据库用于同一时刻单用户的访问 而服务器用于多用户访问

● 桌面数据库是面向记录的 而服务器是面向集合的

● 桌面数据库将每个表存储在独立的文件中 而服务器将所有的表存储在数据库中Client/Server应用必须解决更新的问题 最复杂的是联接 网络和事务控制

适化数据库

适化数据库包含下列步骤

● 在桌面数据库结构的基础上 定义服务器上的元数据

● 将数据从桌面转化到服务器中

● 解决下列问题

● 数据类型差异

● 数据安全性和完整性

● 事务控制

● 数据访问权

● 数据合法性

● 锁定

Delphi提供了两种方法适化一个数据库

● 使用Database Desktop工具 选择菜单Tools/Utilities/Copy to命令将数据库表从桌面方式拷贝到SQL格式

● 建立应用TBatchMove部件的应用程序

这两种方法都可以将表结构和数据从桌面数据源转化到服务器上 依靠这些数据库 可能需要改变结果表 例如 可能想进行不同数据类型的映射

也可以将下列特征加入数据库

● 完整性约束

● 索引

● 检测约束

● 存储过程和触发器

● 其它服务器特征

如果用SQL脚本和服务器数据定义工具定义元数据会更有效 然后用前面介绍的两种方法转移数据 因为如果是手工定义数据库表 Database Desktop和TBatchMove 部件将只拷贝数据

适化应用程序

在理论上 设计用来访问局部数据的Delphi应用程序做很少的修改就可以访问远程服务器上的数据 如果在服务器上定义适合的数据源 你就能将应用程序指向访问它 这只需简单地改变应用程序中TTable或TQuery部件的DatabaseName属性

实际上 在访问局部和过程数据源之间有许多重要的不同之处 Client/Server应用程序必须解决大量的在桌面应用中所没有的问题

任何Delphi应用程序都能用TTable或TQuery部件访问数据 桌面应用程序通常都是使用TTable部件 当适化到SQL服务器上时 用TQuery会更有效 如果应用程序要检索大量记录 则TQuery部件要略胜一筹

如果应用程序使用统计或数学函数 那么在服务器上通过存储过程执行这些函数会更有效 因为存储过程执行更快 使用存储过程还可以减少网络负载 特别是大量行数据的函数

例如 计算大量记录的标准差

● 如果该函数在客户端执行 所有的值从服务器上检索出来并送到客户端 导致网络拥塞

● 如果该函数在服务器端执行 则应用程序只需要服务器上的答案

Delphi客户/服务器应用实例分析

本节中采用的实例是Delphi 数据库的例子CSDEMO CSDEMO是Delphi客户/服务器编程的示例程序 它采用的数据库服务器是Local InterBase Server

CSDEMO较好地示范了BDE环境的配置 InterBASE Server高级功能应用 SQL服务器联接 触发器应用 存储过程编程和事务控制技术等 具有较高的参考价值 本节讲述下列内容

● 数据库环境介绍

● TDatabase的应用

● 不同数据库表的切换

● 触发器编程

● 存储过程编程

● 事务控制应用

数据库环境介绍

本例中采用的数据库服务器是Local InterBase Server Local InterBase是InterBase Server的单用户版 位 兼容ANSI SQL Local InterBase支持客户/服务器应用在单机上的开发和测试 并且可以很容易地适化到InterBase Server上 因此 开发客户/服务器应用采用Local InterBase作为原型开发环境是很方便的

IBLOCAL的BDE参数

本例中的SQL数据库是IBLOCAL 它是由BDE配置工具（BDECFG EXE）设置参数值 它的各项参数值列于下表

表 IBLOCAL的各项参数值

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

参 数 名 参 数 值

────────────────────────────────────

TYPE INTRBASE

PATH

SERVER NAME C:\INTRBASE\EXAMPLES\EMPLOYEE GDB

USER NAME SYSDBA

OPEN MODE READ/WRITE

SCHEMA CACHE SIZE

LANGDRIVER

SQLQRYMODE

SQLPASSTHRU MODE SHARED AUTOMIT

SCHEMA CHCHE TIME

MAX ROWS

BATCH COUNT

ENABLE SCHEMA CACHE FALSE

SCHEMA CACHE DIR

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

数据库结构介绍

IBLOCAL数据库的结构都是由InterBase服务器工具交互式SQL工具（ISQL）定义的

用ISQL定义数据库 首先要用Create Database命令建立数据库 建立的新数据库一般是以GDB为扩展名 建立好后 就可以用SQL语言定义数据库表 例如建立EMPLOYEE表的SQL语句如下

定义域名数据类型

CREATE DOMAIN FIRSTNAME AS VARCHAR（ ）

CREATE DOMAIN LASTNAME AS VARCHAR（ ）

CREATE DOMAIN COUNTRYNAME AS VARCHAR（ ）

CREATE DOMAIN EMPNO AS SMALLINT;

CREATE DOMAIN DEPTNO AS CHAR（ ）

CHECK （VALUE = OR （VALUE > AND VALUE <= ） OR VALUE IS NULL）

CREATE DOMAIN JOBCODE AS VARCHAR（ ）

CHECK （VALUE > ）

CREATE DOMAIN JOBGRADE AS SMALLINT

CHECK （VALUE BEEEN AND ）

CREATE DOMAIN SALARY AS NUMERIC（ ）

DEFAULT

CHECK （VALUE > ）

建立EMPLOYEE表

lishixinzhi/Article/program/Delphi/201311/25125

从源头上找，我以为有两个路径：

1Hook socket。

QQ的加密是比较好的。但QQ毕竟树大招风，对它的协议研究的有很多了。盒子（DELPHIBOX）上以前好像有过 微程 发的QQ协议研究。

2参考开源项目如GAIM，Eva，这些客户端都是可以接收、处理QQ协议消息的。

以上就是关于如何用delphi向QQ的聊天窗口发送文字全部的内容，包括:如何用delphi向QQ的聊天窗口发送文字、DELPHI基础教程：Delphi客户服务器应用开发（四）[1]、关于delphi编写QQ聊天监视的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！