- 在线时间
- 1914 小时
- 最后登录
- 2024-4-19
- 注册时间
- 2004-4-26
- 听众数
- 47
- 收听数
- 0
- 能力
- 60 分
- 体力
- 39861 点
- 威望
- 6 点
- 阅读权限
- 255
- 积分
- 15756
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 4947
- 主题
- 2634
- 精华
- 5
- 分享
- 0
- 好友
- 137
TA的每日心情 | 奋斗 2024-4-15 06:07 |
---|
签到天数: 1008 天 [LV.10]以坛为家III
群组: 万里江山 群组: sas讨论小组 群组: 长盛证券理财有限公司 群组: C 语言讨论组 群组: Matlab讨论组 |
<>取得本地internet机器的名字及IP地址 </P><>一、下面的例子使用 Winsock API 取得本地主机的名字及地址
! A9 h- E7 g! v, A" \+ e* fvoid __fastcall TForm1::Button1Click(TObject *Sender)
. m1 B7 j c0 \/ u1 H% ~{ - q% `( @, H; ?9 [1 S6 P
hostent *p;
2 [, {: L2 o* B+ dchar s[128];
' E9 _; ]$ a: y6 A3 B+ T/ _char *p2; </P><>//Get the computer name
) c0 L6 W2 w& g8 c/ Ogethostname(s, 128); 2 V' ]1 v2 U7 a' D' b8 M* C1 R( V' _1 T
p = gethostbyname(s);
5 s! R$ ~. | E! c9 gMemo1->Lines->Add(p->h_name); </P><>//Get the IpAddress * ?9 Y4 V* N1 y; t- D/ \7 Z n1 b
p2 = inet_ntoa(*((in_addr *)p->h_addr)); 1 u5 K2 a9 V' M/ h( ^
Memo1->Lines->Add(p2);
0 N- a" M6 u' J4 A5 B% v# U} </P><>void __fastcall TForm1::FormCreate(TObject *Sender) ) ?( b1 I* R0 x& [4 A8 p8 c
{ h; P+ a" W2 y2 J) S
WORD wVersionRequested;
' S+ k5 O# ^' C6 X+ B; [WSADATA wsaData; </P><>//Start up WinSock
( V$ }% L9 {* ~8 x4 J. J+ owVersionRequested = MAKEWORD(1, 1); 1 Q$ `5 k7 V% A& S! _
WSAStartup(wVersionRequested, &wsaData);
* C2 g/ E1 g# N R+ \1 H+ s6 _} </P><>void __fastcall TForm1::FormDestroy(TObject *Sender) - }2 U+ L& @3 C8 B. L
{
$ t( f- O& `, Q% }$ U) v# CWSACleanup();
; T, S+ Y3 K. I0 W6 m1 M3 {1 c5 C} </P><>用C++Builder创建数字签名 </P><>6 e' n9 O+ ]7 D5 L3 O
如果你在网络上传递一份数据,但却存在着种种不安全的因素,使你对数据能否原封不动地到达目的地而心存疑惑,这时,你就可以给数据加上数字签名,从而使对方可以通过验证签名来检查你所传过去的数据是否已被他人修改。 </P><> 一、程序原理 </P><> 数字签名的工作原理还是比较简单的,它是根据你所提供的原始数据,经过复杂的算法,产生特定的数据签名,对方通过同样的过程也产生签名,如果数据已被修改,那么就不可能得到两份一模一样的签名,从而就可判断数据已被他人修改。编程人员利用Windows的CAPI接口,就可以实现数据的加密、解密和数字签名。 </P><> 二、程序清单 </P><> 下面用C++ Builder的语句来看一下它的具体实现过程。
' K9 X5 d8 P2 B# K/ U 先来创建数字签名,假定其数据来自于一个文件。
+ ?* Z) |: J/ o$ z# q- m //变量声明: 6 k: ?" K2 r0 u g% A
HCRYPTPROV hProv; - I! z- ~! n* m, P5 V0 n1 }
// CSP的句柄
- x) p3 [9 I: T* P: ^, k& Z HCRYPTHASH hHash; 1 y1 x7 Z9 e( l
// 散列的句柄
1 A1 ]; u0 U; _7 T" u const int BUFFER=4096; 9 b( ]9 d- G' t
// 缓冲区大小常数
) p$ L5 e1 J& I: r- a; W7 O! Z BYTE pBuffer[BUFFER]; / ~. D- l' s4 H! y
// 存放读文件内容的缓冲区 " W y- Z" E: D( D$ ]$ e) o
BYTE pSignature[256]; 3 R$ g4 h1 s4 T/ Q' t0 m
// 存放签名的缓冲区 # h; T. l% `# i/ Z0 G; \0 ~
DWORD dSignatureLen=256; 5 Q3 l. t3 h* b0 K7 s
// 签名的长度
, ?9 V* W7 W4 d# B! J/ s TFileStream *sourceFile;
2 g7 G5 p* S) M8 B. R' ? // 一个文件流
5 ]8 B% C- N; f7 t& U1 D. U$ h if(!CryptAcquireContext(&hProv,NULL,NULL,PROV-RSA-FULL,0))
$ c6 q' p) G: A+ A& ~ // 连接默认的CSP,接受它的句柄放入hProv ! t% X7 ]" p) u5 [# R6 P9 }2 Q r
{ 6 a1 k- l7 d1 m% [5 Z% G3 F/ l
// 错误处理
3 Q8 @% l f2 f } 5 i1 {( C1 @/ @4 m. O2 \0 r, ]
if(!CryptCreateHash(hProv,CALG-MD5,0,0,&hHash)) / j1 G% X5 k l0 F/ q+ _1 d" g9 ?1 A
// 创建一个散列对象,得到它的句柄放入hHash
, n- {) Y" m% a4 t {
- O! |) O) c$ K7 \) H! n // 错误处理
+ ^4 [8 ?+ X& ^" D# A9 n8 m }
h3 J5 A" N7 R0 Y# K9 e do 3 b5 ~- ~- A8 o5 _1 K+ w0 |
{
9 \ L) u$ g5 m$ G' L* j$ ~ dReadLen=sourceFile->Read(pBuffer,BUFFER); ) I' z5 v6 ~4 U7 S' p: V
if(!CryptHashData(hHash,pBuffer,dReadLen,0)) ! s3 t& [& W- W, C3 k* C* \
// 根据文件的内容计算散列值 ' C: N* x; }9 h) H& u) \: ~0 ~
{
: J/ K6 ]6 b; y, V3 y // 错误处理 ; a3 e3 y( P5 z' h0 e: g
}
) I8 x8 M* [9 ]! ?! ~: z5 ~ }while(!(dReadLen<BUFFER));
% O/ v! ~) j$ D6 S3 n if(!CryptSignHash(hHash,AT-SIGNATURE,NULL,0,pSignature,&dSignatureLen)) 7 m; t- g g, E7 m2 a
//使用私人密钥对散列值进行数字签名 $ z, I+ j1 O: y$ c
//签名数据放入pSignature,长度放入dSignatureLen 7 B C8 K' h' q( V. f
// 错误处理
1 N/ ~- g% r7 `4 L }
6 D/ @% h3 b9 r5 i' I& y 对基于文件的数据签名进行检验。 " U" `1 v; |& ]+ X' _7 ~0 K+ q
//变量声明:
& a- f- a8 c+ b! P [3 l HCRYPTPROV hProv; % u+ G# ?. U6 D( E- {) f
// CSP的句柄 9 _3 L3 C' _% X) q, [# T2 i6 j; k- n
HCRYPTHASH hHash;
) F+ i2 C4 d$ a/ _9 y% m5 o // 散列的句柄 / `! Y4 k7 q# n3 J4 {1 m, v! b4 j! }
HCRYPTKEY hPublicKey;
7 y! C$ \0 i& w& \ // 公共密钥的句柄 6 B& {6 a/ l, _# [0 T- [) {/ K
const int BUFFER=4096; ) ~6 T+ V+ x4 m
// 缓冲区大小常数 * \0 Q0 C" |" S; o! a
BYTE pBuffer[BUFFER];
6 V$ C; S# ]: j // 存放读文件内容的缓冲区 ( B; V* y9 E. Q1 @8 K
TFileStream *sourceFile; // 一个文件流 & G+ F2 o7 I* {3 b/ m' p2 @) b
BYTE pSignature[256];
- P0 U' ~+ p, Q5 Z% W6 B8 ` // 上一段得到的签名的缓冲区 3 y) n- z7 r. h; z; x/ a
DWORD dSignatureLen;
2 K" S" l9 ?1 b. m- I# |3 q // 上一段得到的签名的长度 ) }* y C3 ~# [' V
if(!CryptAcquireContext(&hProv,NULL,NULL,PROV-RSA-FULL,0))
4 V# k* \9 B& M4 T# P // 连接默认的CSP,接受它的句柄放入hProv
9 S) u' l/ A2 L5 @( [ {
% |% L4 S" X. Y `6 o. B0 | // 错误处理
6 ^* y3 j# a$ U }
+ D3 a f F; q1 r+ X if(!CryptGetUserKey(hProv,AT_SIGNATURE,&hPublicKey); // 得到公共密钥的句柄 6 Y+ Y- M, |8 `! H1 Q
{ ! q5 @1 f) `4 o' B5 `
// 错误处理
' r* M4 Q8 n. A. ]! [- A, e$ J } # G- ]+ Q4 _; i: ~
if(!CryptCreateHash(hProv,CALG-MD5,0,0,&hHash)) // 创建一个散列对象,得到它的句柄放入hHash 9 t7 s1 ^2 H; i, {0 Z
{ b( y5 a7 N! E: p9 n
// 错误处理 ! X3 _! v" U8 K$ G9 t0 S( `
}
0 H( n" Q9 ]# h) e* Q( H do ( S8 E3 d9 t& y4 b# [0 ]3 _! J
{
4 Q! z" D) K0 N J3 y; G. i( O9 A& ` dReadLen=sourceFile->Read(pBuffer,BUFFER);
# I- t* r' R7 J: b5 A9 m# S& K if(!CryptHashData(hHash,pBuffer,dReadLen,0))
* H v% o. m- X6 Z& L // 根据文件的内容计算散列值
" L- _( }) g! {0 M5 ?* s { , I, W! X4 @7 g# x u* i1 Q& i$ F
// 错误处理 6 d! v7 A2 r/ m. @2 T
} U0 L8 D& K) D+ @& |7 y* r8 o9 O% T
}while(!(dReadLen<BUFFER));
6 L( O, k9 Z6 @" k5 |0 G, C if(!CryptVerifySignature(hHash,pSignature,dSignatureLen,hPublicKey,NULL,0))
A9 P( k \$ F- E {
' x0 d9 i8 b/ R0 M3 {" Z* }! l8 d; a! p if(GetLastError()==NTE-BAD-SIGNATURE) ShowMessage(″文件已被修改″);
# l7 _9 ^! R- ] N: z* r } / O, i; _6 B! |' s4 W: T& b6 I% ^; }
else
1 o* R; Q, u- t; \ { 0 p( C! R* |) F; v6 G, P
ShowMessage(″文件没被修改″);
; u+ S" k' f2 R! Y" }& R" y6 c } </P><> 以上是一个数字签名的简单实现,得到的签名数据可以单独保存,也可以分开保存。 </P><>用Enter 键 控 制 焦 点 切 换 的 方 法 </P><>在Windows 环 境 下, 要 使 一 个 控 件 取 得 焦 点, 可 在 该 控 件 上 用 鼠 标 单 击 一 下, 或 按Tab 键 将 焦 点 移 至 该 控 件 上。 这 种 控 制 焦 点 切 换 的 方 法 有 时 不 符 合 用 户 的 习 惯。 就 图 一 而 言, 用 户 就 希 望 用Enter 键, 控 制 焦 点 由Edit1 切 换 到 Edit2。 要 实 现 这 样 的 功 能 需 借 助WinAPI 函 数SendMessage 来 完 成。 方 法 是: 先 设Form1 的KeyPreview 属 性 为true, 然 后 在Form1 的OnKeyPress 事 件 中 加 入 如 下 的 代 码。 这 样, 用 户 就 可 以 通 过 按Enter, 键 控 制 焦 点 按 定 义 好 的Taborder 顺 序 来 移 动 了 ! / O! p5 d b. J! c
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
, c) E5 X- K) W: n# L$ A) j5 O{ & X7 d6 i, J$ ^# E& m3 S
if(Key==VK_RETURN) </P><>{ & ]# Q4 i, T7 q3 c$ n V2 y
SendMessage(this- >Handle,WM_NEXTDLGCTL,0,0);
B0 H$ z W. P* J- ]Key=0;
( I9 ?" `& T( l# |* n}
' n& W4 y* S* n) H2 m) E} </P><>9 n: I! g0 c: V9 Z; `3 n. e5 c
拦 截 Windows 消 息 </P><>6 u: }* s2 `/ {+ ]9 |/ d
- --Borland C++ Builder的API后门 </P><>---- 引子 </P><>---- C++ Builder不愧为Borland公司的优秀产品,用它来开发Windows程序非常快捷高效,但在编程过程中你也会发现它的一些限制性,让你无法实现自己的想法。比如你无法在修改表单的系统菜单;比如使用跟踪栏时,你找不到StartTrack和EndTrack事件,而偏偏你的程序需要这两个事件。Windows API编程中,你就不会有这些麻烦,只需处理一下WM_SYSCOMMAND和WM_HSCROLL(或WM_VSCROLL)消息,就能实现上述功能。Windows API的缺点是编程十分麻烦,太多的时间要耗在细节上面,但它的功能却是最强大的。C++ Builder的VCL在功能上只是它的一个子集,因为VCL是在API的基础上封装的,封装时舍弃了一些不常用到的功能。但是程序员的想象力没有被封装,他们总怀着更大的热情去实现别出心裁的想法,修改系统菜单和给跟踪栏增加StartTrack和ndTrack事件只是其中的小把戏而已。可是VCL并没有这些功能,怎么办? </P><>---- 幸好,Borland公司没有把路堵死,而是留了个后门--允许程序员自己拦截并处理Windows消息,就象API编程一样。于是,办法有了... </P><>---- 方法 </P><>---- 拦截Windows消息需要以下几步:
7 m: C; D6 x# X) @( r# b' N---- 在表单头文件内(如Unit1.h)
& d8 m& E7 J( E/ w- B---- 1. 在类声明中建立消息映射表,把某条消息的处理权交给自定义的消息处理函数。 </P><>BEGIN_MESSAGE_MAP ' `0 \) V4 H- L
MESSAGE_HANDLER(Windows消息名,TMessage,消息处理函数名)
+ i3 F- j" z1 M' y8 y( V% V: Y9 ~MESSAGE_HANDLER(...) 9 ] j+ m; ?! V( n, o6 A; \" i; s
END_MESSAGE_MAP(TForm) </P><>+ p+ p3 D! J" Y4 V ]
---- 2. 在类声明的private区内声明消息处理函数。 </P><>private: // User declarations ; l' r0 R i" {5 l8 Q u1 e: ~* D
void __fastcall 消息处理函数名(TMessage &Message);
C6 c8 v$ j# W( }" x0 z" B8 k3 n在表单文件内(如Unit1.cpp) </P><>
: M& u+ c/ B$ B+ }" [# ]---- 3. 写出消息处理函数,在这里实现你需要的功能。比如 : v- a5 Z+ _: u( |/ b% \9 B$ p
void __fastcall MainForm::OnWMHScroll (TMessage &Message)
) @" n; X- H4 ~, r& U{
) u+ h* o! J) F- }1 D# G2 R0 |: E% R* V... // 在此加入你自己的代码
; `4 E6 G [2 q9 J c# G) zTForm:ispatch(&Message);
: z8 H+ A& ^8 f. _" N" A} </P><>
& O5 U8 ^# |7 W5 r$ r& U4 p---- 解释 </P><>---- 1. 关于TMessage </P><P>---- TMessage是VCL预定义的结构,定义如下: 1 i) o- d& y4 v5 i9 ?; Q* X
struct TMessage
6 k1 g# G; E6 g1 }. @{
' i4 @( ~9 S% H/ h; Hunsigned int Msg; //消息 % {" ]2 h& ?, H5 o! _
int WParam; //字参数 , F0 h: P3 P5 b9 z
int LParam; //长字参数
$ p1 ~1 O- k ^, |int Result; //消息结果 ; r% H) d/ n" L+ { t
}; </P><P>, E! K& U: G. V
---- 2. 关于TForm:ispatch(&Message) </P><P>---- 自定义的消息处理函数末尾最好加一句TForm:ispatch(&Message),这一句的作用是让消息继续传递下去。如果没有这一句,消息将被完全拦截,VCL类可能由于得不到消息而无法实现正常功能。 </P><P>---- 实例一:修改系统菜单 </P><P>---- 有一些程序,主窗口很小,菜单也没有,如果想加入关于或设置对话框,最好的办法是拿系统菜单开刀。Windows API编程中,修改系统菜单与实现其他功能一样,不太容易,也不会太难。但在C++ Builder中,表单类(TForm)没有提供有关系统菜单的任何属性与方法,实现其他功能易如反掌,而修改系统菜单似乎难于上青天。 </P><P>---- 还好,Borland公司允许程序员自已处理Window消息,于是机会来了! </P><P>一、用Window API函数修改系统菜单 </P><P>假定表单名为MainForm,设置MainForm::OnCreate()函数: </P><P>1. 用GetSystemMenu(MainForm->Handle,false)取得系统菜单句柄; </P><P>2. 用AppendMenu,DeleteMenu,ModifyMenu函数修改系统菜单,把新的ID号赋于自定义的菜单项。 % p0 ]5 G4 ?6 W' w( _* u4 |
这时运行程序,可以看到系统菜单也被修改,但自定义的菜单项却不能被响应。 </P><P>二、拦截WM_SYSCOMMAND消息以响应自定义的菜单项
9 Q/ z$ w9 ~9 }5 e, L在表单头文件内(如Unit1.h) </P><P>1. 在表单类定义末尾加入消息响应表,取得WM_SYSCOMMAND消息的处理权
1 \8 ^# j1 ?5 H! w3 S$ i ?BEGIN_MESSAGE_MAP
0 d6 L+ E1 E; n% _: ~1 [* T# qMESSAGE_HANDLER(WM_SYSCOMMAND,TMessage,OnWMSysCommand) 5 i: b6 O; T I4 f6 E6 J) Z5 e
END_MESSAGE_MAP(TForm) </P><P>2. 在表单类定义的private区内加入消息处理函数声明
) x3 C( R- V! p: pprivate: // User declarations / s5 i) x8 j& c! c
void __fastcall OnWMSysCommand(TMessage& Message); </P><P>在表单文件内(如Unit1.h) </P><P>3. 写出消息响应函数
2 T/ @3 ?! a- i, S, V8 S' Z% Jvoid __fastcall TForm1::OnWMSysCommand(TMessage& Message)
8 ] W8 b- z& }$ f$ y$ D{
1 a- _. G: R& [+ [6 F7 Tif(Message.WParam==ID_SysMenu_MyItem) 5 q4 t0 ?5 e/ D2 X6 W$ C) |, T
{ ( x- N1 y5 N- A4 N; i4 c" k
// Your Code Here, Do Something ; q A( m1 i @% j4 S( Z; ^. E5 @/ q
}
5 |- ?/ ^/ }$ k6 _TForm:ispatch(&Message);
9 W6 A z% ~8 P$ `) b" I6 M} </P><P>
0 P4 }, [+ u& c) G三、完整程序示例 </P><P>实例二:给跟踪栏增加OnStartTrack和OnEndTrack事件 </P><P>当跟踪栏用于进度控制时,OnStartTrack和OnEndTrack很可能是你需要的事件。比如在控制多媒体播放进度的场合,当用户移动滑块时,你需要OnStartTrack事件让播放停止,需要OnEndTrack事件定位新的播放位置。但Borland公司没有提供这两个事件,我等编程爱好者只好自力更生,打拦截Windows消息的主意了。 </P><P>一、拦截WM_HSCROLL消息,给跟踪栏增加OnStartTrack和OnEndTrack事件 </P><P>在表单头文件内(如Unit.h) </P><P>1. 在表单类定义末尾加入消息响应表,把WM_HSCROLL消息处理权交给OnWMHScroll函数。 : \/ c# O3 q# J+ Y3 z U
BEGIN_MESSAGE_MAP - U; `$ }! R9 a
MESSAGE_HANDLER(WM_HSCROLL,TMessage,OnWMHScroll)
1 y3 z/ Z2 a5 s! NEND_MESSAGE_MAP(TForm) </P><P>2. 在表单类定义的private区内加入OnWMHScroll函数声明。
" U) |2 N4 s0 V0 Q; l& Kprivate: // User declarations
V5 V! l3 `) M9 Wvoid __fastcall OnWMHScroll(TMessage &Message); </P><P>/ `0 c" S4 D7 j( \7 T
3. 在表单类定义的private区内加入StartTrack和EndTrack函数声明。
- j! D# |8 K1 G( T& ?9 l; eprivate: // User declarations
4 B+ Y9 X/ u1 e9 h6 ?, z% e0 M8 Rvoid __fastcall TrackBar1StartTrack(TObject *Sender);
: D' Y3 Q4 T& n& v, T' E* Ivoid __fastcall TrackBar1EndTrack(TObject *Sender); </P><P>在表单文件内(如Unit.cpp) </P><P>4. 写出OnWMHScroll函数,使它能根据消息参数调用StartTrack和EndTrack函数,在实际意义上产生OnStartTrack和OnEndTrack事件。 </P><P>5. 写出StartTrack和EndTrack函数。 </P><P>如果是垂直跟踪栏,把上面的WM_HSCROLL改为WM_VSCROLL即可。 </P><P>二、完整程序示例 </P><P>尾声 </P><P>Borland C++ Builder编程中,拦截Windows消息是一项高级编程技术,能让你尽量挖掘Windows的潜力,尤其让曾用API编程的程序员感到心慰。拦截Windows消息是API尽情发挥的舞台,当VCL不能为你做什么时,请想起底层的API。 </P><P>使用CommaText </P><P>有时需要一个方便的方法存放一个StringList,它只有简单的一行。例如,当你想使用一个INI文件,如何向一个INI文件中写入一行呢,使用CommaText 就能完成这个工作。 </P><P>这里有个例子,功能是创建一个blah.ini文件,并写入一个如下形式的值: </P><P>[My Section]
& \, h! h+ S" d jMemo1=(你在Memo1中输入的文字) </P><P>1.在Form1上有两个按钮btnLoad and btnSave和一个Memo1 </P><P>2.还要加入: ' @( p* U& T7 F9 a6 p# V$ p; M
#include <inifiles.hpp> </P><P>3.定义变量: 1 X, q. ?8 U( `0 D) b. Q9 d
const String iniFile="blah.ini",iniSection="My Section",iniValue="Memo1"; </P><P>4.保存按钮代码: ' S/ k3 S2 d0 N2 `+ I
void __fastcall TForm1::btnSaveClick(TObject *Sender)
) i7 w8 I& Y5 v* D{
& X/ q r ]6 d8 H. E: {TIniFile *ini=new IniFile(ExtractFilePath(Application->ExeName)+iniFile); . ^; T7 Y# H& C4 A7 `( P, U
ini->WriteString(iniSection,iniValue,Memo1->Lines->CommaText); 5 K' d: q$ _! P7 v( [
delete ini; 6 F t: Z7 v; n0 L4 |* J- J. }; ^
} </P><P>5.装载按钮代码:
; I/ W% l; j3 s p" ]4 Zvoid __fastcall TForm1::btnLoadClick(TObject *Sender)
: K3 x: T+ W: @{ 9 {/ G& }0 ~7 C
TIniFile *ini=new TIniFile(ExtractFilePath(Application->ExeName)+iniFile); ; G9 w V+ U3 T" N4 X- L
Memo1->Lines->CommaText=ini->ReadString(iniSection,iniValue,"");
X8 N8 F" o) Y, H3 J# F# f+ c2 cdelete ini; & d8 G+ Z( C E! c
} </P><P>6.以下代码支持加载后对内容进行排序,到实际存储不变:
& c( D& T. l* ^4 O& h3 Q# G3 hvoid __fastcall TForm1::btnSortLoadClick(TObject *Sender) : R/ Z9 c+ c7 g+ f- B8 F0 ^( G
{ # p) `+ J q) U: F9 {: Q# v2 q Q
TStringList *sl=new TStringList;
5 a3 N3 F% m8 `; zTIniFile *ini=new TIniFile(ExtractFilePath(Application->ExeName)+iniFile); ! F7 b& h+ p, F, m0 ?
sl->CommaText=ini->ReadString(iniSection,iniValue,"");
0 u8 {' Y6 v" f' v4 Dsl->Sort(); ! d9 P- u5 ]! U, l8 W: Z
Memo1->Lines=sl; % R# z- n6 k% x( q. V& [$ L: I
delete ini;
! I2 B, r# ]. t4 d% Q# Y" z4 n. Adelete sl;
$ {' o/ G+ n8 y} </P><P>程序开始时先显示信息框 </P><P>一、软件进入主窗口前,先显示一个信息框,告诉用户一些有关该软件的信息,比如软件名称,版本号等。该信息框在显示1~2秒后自动消失。 ' e. [! k8 \/ U; r
1.建立New Application,这时系统自动生成一个Form1,这作为主Form. </P><P>2.File->New Form 建立一个新Form为Form2,这个作为信息框。 </P><P>3.在Form2上添加组件TTimer(System控件条上),用于设定信息框的显示时间。 7 x3 Z, D3 `+ D! V" _$ M
4.TTimer的事件OnTimer中加入:Form2->Close(); </P><P>5.在WinMain()函数中加入:
+ H/ u* y7 t3 A# NApplication->CreateForm(__classid(TForm2), &Form2); 5 U5 m( e3 L% E
Form2->ShowModal( ); //这句要自己加入 5 E8 N7 K6 E) A" Z3 e0 M/ \. F& e/ @
Application->Run();
8 W3 v/ p* w4 \# t5 H并且要把Form2的头文件Unit2.h包括到WinMain()所在的Project1.cpp中。 </P><P>6.运行程序,将先显示Form2,显示时间由TTimer的Interval属性决定,1000是一秒。 </P><P>二、软 件 封 面 的 实 现 # w A" B# x" }4 a" {
现 代 软 件 设 计 的 流 行 做 法 是, 在 程 序 运 行 完 成 初 始 化 之 前, 先 调 用 一 幅 画 面 做 为 封 面, 通 常 是1/4 屏 幕 大 小, 显 示 一 下 软 件 的 名 称、 作 者、 版 本 等 信 息。 要 用C++ Builder 实 现 这 样 的 功 能, 方 法 很 简 单: </P><P>① 自 定 义 一 窗 体 类 TSplashForm, 将 其 设 置 成" 透 明 窗 口", 即 BorderIcons 下 的 所 有 选 项 均 置 成false, BorderStyle=bsNone,FormStyle=fsStayOnTop, Position=poScreenCenter; </P><P>② 在TSplashForm 窗 体 上 放 置 一TPanel( 相 当 于 图 形 的 镜 框); </P><P>③ 在TPanel 上 放 置 一TImage 控 件, 调 入 所 需 要 的 图 形; </P><P>④ 对WinMain 函 数 稍 加 修 改, 加 入 如 下 所 示 代 码 即 可。 需 要 指 出 的 是, 这 段 代 码 通 过 函 数 FindWindow, 搜 索 内 存 中 是 否 有 窗 口 标 题 为 "Demo" 应 用 程 序 存 在, 若 存 在, 则 退 出 程 序 的 运 行。 该 功 能 可 防 止 程 序 的 再 次 运 行。 在 某 些 场 合 这 样 设 计 是 必 须 的。 </P><P>WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
' Q( N) G3 W9 r I{
: \0 _; d$ J$ J7 xtry
0 o8 x [. p1 s& n! J. |{
' o+ H" [( M) w' Mif(FindWindow(NULL,"Demo")!=0)
# m! q% z4 g. v/ i{
% Y$ a9 G4 R- V. }7 _Application- >MessageBox (" 程 序 已 经 运 行!"," 警
1 p$ y& s' f6 V, e5 f告",MB_ICONSTOP); 6 `$ G, I2 {# W z
return 0; 3 H/ _7 M% @& d& k
} </P><P>TSplashForm *splash=new TSplashForm(Application); </P><P>splash- >Show(); </P><P>splash- >Update(); </P><P>Application- >Initialize(); </P><P>Application- >CreateForm(__classid(TForm1), &Form1); </P><P>splash- >Close(); </P><P>delete splash; </P><P>Application- >Run(); </P><P>} </P><P>catch (Exception &exception) </P><P>{ </P><P>Application- >ShowException(&exception); </P><P>} </P><P>return 0; </P><P>} </P><P>怎样获取程序的命令行参数? </P><P>
, X2 j( [8 B! n+ W5 J你可以用下面的两种不同的技巧来解决这个问题。 </P><P>技巧1:首先,也许是最简单的方法是调用VCL ParaStr()函数。你可使用ParamCount()函数来确定到底有多少个命令行参数传递给了应用程序。 </P><P>ParamStr需要一个整数参数并且返回一个AnsiString对象。若参数为0,ParamStr 将返回可执行文件的全称路径。若参数为1,将返回程序名及第一个命令行参数。若参数为2,将返回第二个参数,等等。 </P><P>作为一个实践,开启一个新的项目,在主窗口上放置5个Label,将下面的代码添加到窗口的构造函数中: </P><P>Label1->Caption = ParamStr(0);
" E' U+ R4 P. mLabel2->Caption = ParamStr(1);
% [ N9 Z9 ^) b( F6 `2 ~' z$ FLabel3->Caption = ParamStr(2); * a, d- E7 p! j- O% F' n/ y! W( ~% r5 @
Label4->Caption = ParamStr(3); 1 A" [2 \* w% W$ N4 u
Label5->Caption = ParamStr(4);
8 \# j/ x" D# K再运行程序。一般应能看到类似字符串: </P><P>E:\CBUILDER\PROJECTS\PROJECT1.EXE 0 N) G9 n8 W* ^: i' g! b$ g
如果没传递参数到程序,那么Label2到Label5是空字符串。关闭程序,从C++Builder菜单中选择 Run | Parameters。输入几个参数(-debug -testing -param)再次运行程序。你将看到: </P><P>E:\CBUILDER\PROJECTS\PROJECT1.EXE " w/ f. \; S+ ?0 c, j
-debug
1 _8 x: }7 M' w- }. ^-testing ! f& X- ^9 c% {3 Z& U% ~' k
-param 8 m/ Q7 T$ B+ b; j- D: U. I1 I
提示: ParamStr 对目录中的空格能智能判断。为证实这点,把生成的EXE文件拷贝到Program Files目录下再运行它,你将会看到ParamStr(0)返回全路径,并包含空格。 </P><P>技巧2:第二个方法就是调用GetCommandLine API函数。GetCommandLine不需要参数,并且返回一个C风格的char *,包含全部的命令行参数。你将不得不分解字符串以取得相关参数。 </P><P>Label5->Caption = AnsiString(GetCommandLine());
$ x& M& r6 ]9 T' Q2 M运行后,Label5将为: </P><P>"E:\CBuilder\Projects\Project1.exe" -debug -testing -param </P><P>
9 Q5 @- x3 y# _- ^7 c$ W/ F如何监视剪贴板 </P><P>在Form1的.h的private加上:
8 S Z7 C0 [, Pvoid __fastcall ClipboardChanged(TMessage& Msg); </P><P>在Form1的.h的public加上:
5 G% O* n" f( L$ b1 G- `. m; D/ YBEGIN_MESSAGE_MAP 5 u8 \3 E; e: w5 m3 ^
MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,ClipboardChanged)
- W! V6 ^6 P. REND_MESSAGE_MAP(TForm) </P><P>在Form1的.cpp内加上: . i$ m Q7 J( g" o- P
void __fastcall TForm1::ClipboardChanged(TMessage& Msg) 0 E, k4 f' q: l) [* s
{
* c2 N6 T" B1 o5 A _/ c; o POINT MousePos;
& w# f' z0 M$ s8 i7 e- Q GetCursorPos(&MousePos);
1 `* Y' P; a V% t- v' D PopupMenu4->PopupComponent=Form1;
+ k! g: O# C$ q$ j4 T PopupMenu4->Popup(MousePos.x,MousePos.y); //一有变化,就弹出一个菜单,复制,剪切或清除都能引发此函数
+ B) `! E: Q+ | I( l, n' Q5 x3 d} </P><P>在Form1的.cpp内有一个ToolButton ; L. O6 x/ [' Z
void __fastcall TForm1::ToolButton9Click(TObject *Sender)
. O' Y& I0 C3 ?) E$ D9 r{ / @" r, d% Q" D O8 P
static HWND LastHandle; ; Z. t* N* D0 c2 A" u
static bool clip=false; 9 P! p6 d8 _. p4 }
if(clip==true) ( ?" Z" q1 a7 u, Q* G' i, e$ I
{
7 G- L6 ^; N: a" R3 } ToolButton9->Down=false;
9 B1 B% W% f: z- W( g7 g: t ChangeClipboardChain(Form1->Handle,LastHandle); //结束监视
, C7 o( X4 @" e# U5 H4 w4 w } ; u4 x- D H9 x3 a6 B2 j" t1 f
else
8 i1 @6 z$ s$ x" h, k/ q { + B( q5 x1 i' ~6 R6 s2 e
ToolButton9->Down=true;
0 Q1 A) Z) ^) R, N0 Q Clipboard()->Clear();
" S' l7 Z3 l+ m! w# J Application->Minimize();
) d6 ?- a3 z, b) g" A LastHandle=SetClipboardViewer(Form1->Handle); //启动监视 6 A. m; U2 b: u V5 _) {- R) a
} # g1 h/ ?6 d- d) q, f) t& n' _
clip=!clip; / D3 g7 u+ [1 F& @: Y' p
} </P><P>* N1 w7 t. E! ~* B1 y# M6 `
如何使用OnIdle事件 </P><P>使用OnIdle事件随时监视剪贴板内容以改变弹出菜单的可执行项。 </P><P>在Form1的.h的private加上:
1 Y. q+ a, V5 ivoid __fastcall OnIdle(TObject* Sender,bool& Done); </P><P>在Form1的.cpp内加上: ! v. O( k% l' M: |+ M3 \
void __fastcall TForm1::OnIdle(TObject* Sender,bool& Done) ! \# Q" m5 t1 P. b: N0 m
{ 9 v% |5 O6 J$ H. ?/ i2 H4 h$ ]
bool TextSelected=DBRichEdit1->SelLength>0;
2 i+ o) ?4 o. I5 ? N17->Enabled=TextSelected;//剪切,复制,清除
0 p8 f5 Y' k# F, Z N18->Enabled=TextSelected; * a$ K% o% A' w8 r
N20->Enabled=TextSelected; ' C+ c2 C9 Y. _
bool CBHasText=Clipboard()->HasFormat(CF_TEXT);// 需加入#include<Clipbrd.h> 3 r5 K; X/ l' K1 |2 P
N19->Enabled=CBHasText;//粘贴 ) N) P( } ^$ d% h, C8 o0 S+ A5 i
bool HasText=RichEdit1->Lines->Count>0;
8 q* S& V6 u4 k( ^# b: \ N21->Enabled=HasText;//全选 ; h. V# S5 \3 v/ I* f! Q
bool HasChanged=RichEdit1->Modified;
3 v& X1 I2 H. |4 W ToolButton2->Enabled=HasChanged; 5 W( V/ \2 h, ?: H2 p& P
ToolButton4->Enabled=HasChanged;
) C1 \) W6 e y9 C} </P><P>在Form1的OnCreate内加上: ; _2 ^* ]9 l3 F: v; h/ U$ L; y2 r b
Application->OnIdle=OnIdle; </P><P>+ J# t3 y/ @) p: e Y1 G+ _& e
3 J U9 c& P1 r用C++Builder4.0编写Win 95下的串行异步通信程序 </P><P> ·串口操纵的基本方法· </P><P>
8 ^) C1 f8 w) r5 |0 G& |: I" r; Y+ d$ W 在Win32下,对串口的操作就如同对文件一样打开或关闭,对串行数据的读写可在用户定义的读写缓冲区中进行。具体使用的函数为: </P><P> 首先用CreateFile( )打开通信串口,其中参数lpFileName指向串口逻辑名,如“COM1”或“COM2”等,参数dwDesiredAccess定义文件的读写权限,一般设为GENERIC-READ|GENERIC-WRITE;参数dwShareMode定义资源共享方式,此处必须设为0,为独占方式;lpSecurityAttributes定义安全属性,Win 95下为NULL;dwCreationDistribution定义文件创建方式;dwFlagsAndAttributes定义文件属性和标记,应设为FILE-FLAG-OVERLAPPED,表示异步通信方式;hTemplateFile 指向一个模板文件的句柄,在 Windows 95下为NULL。 </P><P> 然后用BuildCommDCB( )和SetCommState( )函数通过通信设备控制块DCB(Device Control Block)设置串口通信参数(如波特率、停止位、数据位、校验位等),其中BuildCommDCB( )中的字符串参数lpDef 定义同DOS命令中MODE的参数格式,关于DCB更具体的设置需要根据用户对数据流定义、握手信号及通信控制要求具体定义,参见有关Windows技术资料。用GetCommState()可以得到当前的DCB参数值。如果需要还可通过SetCommTimeouts()和GetCommTomeouts()重新设置读写的超时参数;读写缓冲区的设置使用SetupComm(),参数dwInQueue和 dwOutQueue分别定义为输入和输出缓冲区的大小。 </P><P> 在串口初始化完毕后,还要建立与通信有关的事件对象。一般使用CreateEvent()函数,它返回一事件句柄,其中参数lpEventAttributes指向安全属性结构地址,在Win 95(无安全属性)中为NULL;布尔参数bManualReset 定义事件重置方式,true 表示手工重置,false表示自动重置(相关函数为SetEvent()和ResetEvent());参数bInitialState定义事件初始状态,true表示发信号,否则为不发信号;lpName是为多进程设置的事件名,对于单进程定义为NULL。然后用SetCommMask()定义用户程序可监视的通信事件类别。 </P><P> 以上设置完成后,用户程序就可以等待通信事件的产生,一般调用函数WaitCommEvent()监视通信事件,其中参数lpEvtMask指向产生事件的掩码地址,用于判断事件产生的性质,lpOverlapped指向重叠结构地址,可简单定义为NULL。对于串口事件的响应一般有四种方式:查询、同步I/O、异步I/O和事件驱动I/O,需要根据用户不同控制要求而定。查询方式占用较长的计算机时间,同步I/O方式直到读取完指定的字节数或超时时才返回,容易造成线程阻塞,异步I/O用于后台处理,事件驱动是由系统通知用户程序发生的事件并进行串口操作。 比较而言事件驱动I/O方式较灵活。 </P><P> 当有通信事件产生时,就可用函数ReadFile()和WriteFile()直接对串口缓冲区进行读写操作了。其中lpBuffer 指向读写缓冲区,nNumberOfBytes为要读写的字节数,lpNumberOfBytes为实际读写的字节数,lpOverlapped指定同步或异步操作。通信结束后,调用函数CloseHandle()将串口关闭。 </P><P> ·应用实例说明· </P><P>9 }# x) [5 q( Y& t- r
使用以上的API函数,笔者给出了简化后的串口初始化的实例。图1为使用C++ Builder 组件生成的串口通信基本参数设置的界面实例。 </P><P> HANDLE hcom; //定义句柄 </P><P> DCB dcb; </P><P> OVERLAPPED e; //定义重叠结构 </P><P> void -fastcall TForm1::OkBtnClick(TObject?Sender) </P><P> { hcom=CreateFile("COM2",GENERIC-READ|GENERIC-WRITE,0,NULL,OPEN-EXISTING, P+ n* a0 f- h4 z& A1 j
FILE-ATTRIBUTE-NORMAL|FILE-FLAG-OVERLAPPED,NULL); //打开通讯口 </P><P> BuildCommDCB("9600,O,8,1",&dcb); </P><P>//第一个字符串参数实际使用时由图1选择后组合,这里仅简单说明其格式 </P><P> SetCommState(hcom,&dcb); </P><P> SetupComm(hcom,512,512);//设置读写缓冲区 </P><P> e.hEvent=CreateEvent(NULL,false,false,NULL); //设置事件 </P><P> SetCommMask(hcom,EV-RXCHAR| EV-TXEMPTY); //设置事件掩码 </P><P> OkBtn-〉Enabled=false;} </P><P>C++BUILDER非可视组件的消息处理技巧 </P><P> 一个非可视的组件必须对Windows操作系统或用户定义的消息作出响应。然而,由于一个非可视组件没有窗口,因此它也没有窗口句柄,自然它也不能接收到消息,为了解决这一问题,我们的思路是创建一个隐藏的窗口,使非可视组件能够接收到消息。 </P><P> 为了给你的非可视组件创建一个隐藏的窗口,需要有以下: </P><P> 1.一个私有变量型(Private Variable)的HWnd来取得窗口句柄。 </P><P> 2.一个用来捕捉窗口发送给组件的函数(a WndProc)。 </P><P> 3.对AllcolateHwnd的调用使之创建窗口句柄并设置WndProc。 </P><P> 为了清楚的解释上述思路和展示创建过程,下面我们将以一个具体的实例来说明。 </P><P> 首先我们先创建一个新的组件,在C++Builder中,选择FILE|NEW...双击组件图标显示一个新的组件对话框改变Ancestor Type为Tcomponent和Class name为TTest并设置完毕。 </P><P> 然后,切换到新组件的头文件,在类的私有部分(private section)加入以下声明: </P><P> HWnd FHandle; </P><P> void-fastcall WndProc </P><P>(TMessage& Msg); </P><P> 第一行声明了一个调用Fhandle的HWnd变量,这个变量将用于窗口创建后捕获窗口句柄。第二行声明了一个用于接收消息的WndProc函数。这个函数的声明必须加以标识,以便限定它是一个WndProc,然后在类声明Public(公有)部分构造以下声明: </P><P> Viod DoIt( ); </P><P> 这个公有函数将被我们用来测试组件,类声明应如下: </P><P> class PACKAGE TTest : public </P><P>TComponent </P><P> { </P><P> private: </P><P> HWnd FHandle; </P><P> void-fastcall WndProc </P><P>(TMessage& Msg); </P><P> protected: </P><P> public: </P><P> -fastcall TTest </P><P>(TComponent* Owner); </P><P> void DoIt( ); </P><P> -published: </P><P> }; </P><P> 现在切换到组件的代码单元,将下面一行加入到单元的顶部(在函数上也许是不错的地方) </P><P> #define MY-Message.WM_USER+1 </P><P> 这一行声明了一个在DoIt函数被调用时,组件将发送给它自己的用户自定义消息。此时我们必须为组件分配一个窗口句柄。这个句柄将提供一个隐藏的窗口使我们可以捕捉组件中的消息。找到组件构造代码,加入下面代码: </P><P> -fastcall Test::Test </P><P>(TComponent* Owner) </P><P>: TComponent(Owner) </P><P> { </P><P> FHandle=AllocateHWnd </P><P>(WndProc); </P><P> } </P><P> 好,重要的一步已完成,AllocateHWnd函数创建了一个隐藏窗口并且返回它的句柄,注意这里我们为了使Windows知道哪里发来了消息,传递WndProc的地址; </P><P> 现在我们来创建WndProc的函数部分。在源文件中加入: </P><P> void-fastcall TTest::WndProc </P><P>(TMessage& Msg) </P><P> { </P><P> if (Msg.Msg == MY_MESSAGE) </P><P> MessageBox(0, ″Got here!″, ″Message″, 0); </P><P> try { </P><P> Dispatch(&Msg); </P><P> } </P><P> catch (...) { </P><P> Application-〉HandleException(this); </P><P> } </P><P> } </P><P> 无论何时Windows发送消息给组件,Windows都会调用这个函数。这部分代码完成了两件事。首先,它检查被接收的消息是否是我们用户自定义的消息。如果是,一个消息框将被显示,你可以看到实际上我们接收到的消息。其次,这段代码传送了系统(或VCL)处理过程中的消息,try/catch块用来保证,如果异常出现,它将成为缺省风格下的句柄。 </P><P> 概括地说,WndProc函数在为缺省句柄传递所有其他消息,监控了所有客户消息。现在我们创建DoIt函数,完成我们的组件,加入我们创建DoIt函数,完成我们的组件,加入代码: </P><P> void TTest:oIt() </P><P> { </P><P> PostMessage(FHandle, </P><P>MY-MESSAGE, 0, 0); </P><P> } 这个函数发送一个消息组件的窗口句柄(记住,这个窗口句柄是以前存入到Fhandle数据成品中的)。现在我们已经完成了创建组件选择,用SelectFile|ColseAll来保存我们的工作测试组件。 </P><P> 下一步将测试组件。如果你使用BCB3,那么你必须把组件加入到“包”(Packege)中,然后用Componet|install(可以使用DCLSTD35 Packege来快速测试)。再选择你刚存的TestBCB.Cpp,一旦你安装完成组件后,它将出现在组件板上。双击按钮,为按钮的OnClick事件创建以下代码: </P><P> Test1-〉 DoIt( ); </P><P> 现在运行程序,当你点击按钮时,将看到一个消息框显示“Got here". </P><P> ListingA和B包含了头文件和源代码以下列出。 </P><P> 总结:一个可以响应Windows消息的非可视组件有许多用途。最显而易见的就是用来封装某些方面的WindowsAPI。例如:TAPI和WinSock发送消息给事件的指定用户。如果你写的组件封装了一个这样的API。你将需要捕捉Windows发送的消息。而在你的组件中加入隐藏窗口将很好的帮你做到这一点。 </P><P> 以上程序在C++ BUILDER 3.0中调试通过。 </P><P>用C++Builder 建立数据库VCL使用经验 </P><P> 随着数据库的广泛应用,数据库编程已经成为程序设计中发展迅猛的一支。C++ Builder在数据库开发方面具有的强大功能是无可比拟的,你甚至可以不写一行程序就生成漂亮的数据库程序。 </P><P> 下面对C++Builder中的几个数据库VCL的使用技巧做一下介绍: </P><P> 一、DBGrid控件 </P><P> 1.设置DBGrid的字段显示宽度属性 </P><P> 为了在DBGrid中建立较小的列,你必须建立一个显示标题,它等于或小于字段值。例如,你希望建立一个只有三个字符宽的列,你的列标题显示必须只有三个字符或更少。 </P><P> 2.改变DBGrid的显示字段及日期显示格式 </P><P> (1)双击DBGrid对应的Table1,进入字段编辑器。 </P><P> (2)点右键出现选单选“Add Fields…" ,出现添加字段对话框,选择要添加的字段(该字段将在运行时由DBGrid显示)然后点OK按钮。 </P><P> (3)假设添加了“日期”字段,点该字段,在属性表中的:DisplayLabel中填入你希望DBGrid显示的字段名。如果原来字段名是英文的,这里用中文名后DBGrid将显示中文名。在DisplayFormat中填入:yyyy-mm-dd,以后日期将按1999-05-28格式显示。 </P><P> 二、Tquery控件 </P><P> Tquery 控件是数据库编程中非常重要的一个控件,它负责通过BDE与数据库建立联系,通过SQL语句方便的建立查询。Query必须建立相应的SQL才能生效。 </P><P> Tquery的参数设置如下: </P><P> (1)在SQL属性中:Select * from 表名 where 字段名=:变量名 </P><P> 跟在“ : "后面的是变量。这样写后,在参数属性中就可以修改该变量的数据类型等。 </P><P> (2)对变量的赋值: </P><P> Query1-〉Active=false; </P><P> Query1-〉Params-〉Items[0]-〉AsString=Edit1-〉Text; </P><P> Query1-〉Active=true;//查找符合变量的记录 </P><P> (3)用DBGrid显示结果 </P><P> DBGrid的DataSource与DataSource1连接,而DataSource1的DataSet与Tquery1 连接。 </P><P> 三、应用示例 </P><P> 通过Query控件嵌入SQL语句建立的查询比Table更简单、更高效。 </P><P> 用一个简单的代码来说明如何建立查询程序: </P><P> 例如,要建立一个检索表1中书名为book1的程序则在表单上放置DBGrid,DataSource,Query三个控件加入以下代码: </P><P> DBGrid1-〉DataSource=DataSource1; </P><P> DataSource1-〉DataSet=Tqery1; </P><P> Query1-〉Close(); </P><P> Query1-〉SQL-〉Clear(); </P><P> Query1-〉SQL-〉Add(″Select * From 表 Where (书名=′book1′ ″); </P><P> Query1-〉ExecSQL(); </P><P> Query-〉Active=true; </P><P> 你就可以在生成的表格中看到所有名称为book1的记录。 </P><P>用C++ Builder创建基于Internet的点对点Chat </P><P>---- 创建基于Internet的应用程序,你也许会想到复杂的WinSock编程。不过,C++ Builder3提供了新的WebBroker的Internet套件,其中的TClientSocket和TServerSocket组件封装了Windows的有关API,大大简化了WinSock编程。要通过Internet传输数据,至少需要一对Socket,一个Socket在客户端,另一个Socket在服务器端。其实TClientSocket、TServerSocket组件并不是Socket对象,其属性Socket将返回各自的Socket对象。TClientSocket用来处理客户端到服务器端之间的socket连接,TServerSocket用来处理由客户端发来的socket连接,一旦客户端和服务器端都接通了socket,客户端和服务器端就可以相互通信了。 </P><P>---- 建立一新项目,创建应用程序的用户界面: </P><P>---- 1.将组件页切换到Internet页,放一个TServerSocket组件和一个TClientSocket组件到窗体上,这样应用程序既可以是TCP/IP服务器,也可以是TCP/IP客户。将Port属性都设为同一个值(如1000),确定Socket之间的连接类型为NonBlocking(非阻塞方式)。 </P><P>---- 2.放两个TMemo组件到窗体上,用来分别显示双方的谈话内容,将Memo2的ReadOnly属性设为True。 </P><P>---- 3.在窗体的顶部放上一个Panel组件,在其上放三个按钮:监听(btnlisten)、连接(btnconnect)、断开(btndisconnect),用来启动相应的操作。 </P><P>---- 4.在窗体底部放一个StatusBar组件,将其SimplePanel属性设为True,在相应的事件处理程序中改变状态条信息,让用户随时了解连接状态。 </P><P>---- 打开头文件,在窗体类的Private段添加两个私有成员: bool IsServer;String Server。双方通信时需同时运行Chat程序,IsServer用来确定哪个Chat程序处于服务器端,Server用来存放服务器的主机名。建立窗体类的构造器如下: </P><P>__fastcall TForm1::TForm1(TComponent* Owner)
4 T6 B1 |$ P' ?+ J: TForm(Owner) . g: d) t& x3 Q* r
{
# f/ }4 \% w$ e, PIsServer=false; 7 \. A& a4 A( l, M4 T: Y# E
Server="localhost"; % q' c) m* G6 ~% s3 D
} </P><P>
5 S2 I4 l8 e, c. s---- 这里Server被缺省设为localhost,这样程序可以在没有连入Internet的单机上进行调试。在Windows子目录下你可以找到hosts.sam文件中,在该文件中已经将本机IP地址127.0.0.1定义了主机名:localhost。
, C) D2 J# Y) ]" y9 [/ X+ Nvoid __fastcall TForm1::FormCreate(TObject *Sender)
3 g0 T! \6 p8 o( v8 ?, r9 ~: Q{
1 j! R" N) ]/ i, l2 O# b. }! T1 pbtndisconnect- >Enabled=false;
- M p1 n e) K, M% V} </P><P>---- 程序运行后,如果用户按下"监听"钮,则将该程序设为服务器端,这时应将TServerSocket的Active属性设为True,使服务器自动进入监听状态。
, N }, W2 x( u8 l$ cvoid __fastcall TForm1::btnlistenClick(TObject *Sender) 6 |7 h. p, R1 j4 j2 V
{
) p" z. t+ ^ J2 z, e* fClientSocket1- >Active=false;
- f8 M3 x& e! b, `ServerSocket1- >Active=true;
5 m9 b3 Q2 ~" A% ~/ fStatusBar1- >SimpleText="正在监听..."; ; |4 c; o$ H$ b' }1 x
btnlisten- >Enabled=false;
7 u) @4 C' j% }: c) v+ Ubtnconnect- >Enabled=false; ( u3 h7 D1 n# K: R
} </P><P>---- 当用户按下"连接"钮后,程序会弹出一个询问框,要求用户输入要连接的服务器的主机名,然后建立连接。 , b' ]1 M$ @, y7 j7 K" Z
void __fastcall TForm1::btnconnectClick(TObject *Sender)
; j. k: J4 F! H" u9 J g. J{ 6 Z3 l( F; c" M3 O
if(InputQuery("连接到服务器","输入服务器地址:",Server)){
4 M! ], t; m/ W$ Q& m zif(Server.Length() >0){
8 @% V. P* Z/ jClientSocket1- >Host=Server; - ^& y6 L1 E' e( s
ClientSocket1- >Active=true;
9 U K4 d" R9 U* V0 ]' h& ybtnlisten- >Enabled=false; 9 ]. K7 t( |1 _* \" A" x
btnconnect- >Enabled=false;
9 q: i; i. ~. v9 Q% Sbtndisconnect- >Enabled=true; 1 H' h* j" A/ {3 X. c* P# N
} 1 F: _- a! v+ C& @5 _: e
}
5 {9 t; n$ ]- c3 G- T$ S9 H} </P><P>3 \- h W% e- i% O8 E4 F+ y8 y
---- 当用户提出连接请求后,客户端会触发OnCreate事件,程序先在状态条中显示连接信息,然后将显示对方谈话内容的Memo2清空,准备开始交谈。 # p% ^4 N, j* }% k3 [7 l* u- D
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender, + B8 Z4 M0 u; H& [" ^
TCustomWinSocket *Socket) ' J- i' C+ E& Y2 d& A6 a/ \
{ ! P2 T3 g" C) X4 W
StatusBar1- >SimpleText="连接到:"+Server;
7 i5 D5 T0 V/ T9 g2 ~/ T' `4 AMemo2- >Lines- >Clear();
0 h4 m1 B% K1 o6 J+ j5 g8 S} </P><P>
- H$ q. ~$ Q+ h. K2 K---- 在服务器接受了客户的请求后会触发OnAccept事件,在这个事件处理程序中将标志服务器端的变量IsServer设为True,并准备开始交谈。
, s- W2 \! L: \; e z5 P* Dvoid __fastcall TForm1::ServerSocket1Accept( $ ~2 M- b- _ D; ~" s1 J
TObject *Sender,
4 k, d' k' Y" K( OTCustomWinSocket *Socket)
2 M# B; B0 s5 \3 k7 w4 q{ 7 Q/ C9 I+ |! b- h* u" s) k5 j! @2 A
Memo2- >Lines- >Clear(); " b7 [. g6 h# `: I9 k: P
IsServer=true; - i( k9 c3 f% j4 A% s4 }$ w7 H# a
StatusBar1- >SimpleText="连接到:"
E1 Q1 s% [! c2 D+Socket- >RemoteAddress;
8 b1 j s+ @/ x8 ?5 H' a' r} </P><P>
5 }0 `% q$ t- {# l---- 在建立连接后,双方就可以在Memo1中输入谈话内容开始进行交谈了,按下Enter键后,将所在行的文本发送出去。服务器端的Socket的Connections属性返回一个数组,该数组由服务器当前活动的连接组成。
1 o/ ]) j7 t5 E1 g x" T- Qvoid __fastcall TForm1::Memo1KeyDown(
0 O! J9 A. L2 l" N) sTObject *Sender, WORD &Key,
7 j' @1 u4 J! r# k6 j& PTShiftState Shift) 8 p- \5 d( c" R# L+ W! ~
{
0 i( F; N7 g% Z; O: u1 hif(Key==VK_RETURN){
* J0 n- T# t( mif(IsServer) , ^. J* P" h0 b5 G j: [
ServerSocket1- >Socket- >Connections[0]- >SendText( 7 B0 K7 Q2 Y7 V
Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]);
, N( O- L5 ^/ w+ g4 W; M0 zelse ) r0 T" |2 H; s3 j1 ~; i, ^6 A
ClientSocket1- >Socket- >SendText(
; f6 o& P8 `; i+ \Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]); " E: W( I, U3 Z
} 2 A4 O2 }9 y" {% F8 D
} </P><P> ^4 m) C# S3 W& J
---- 在本例中我们采用非阻塞传输方式,当其中的一方进行写操作时,另一方会触发OnRead事件(客户端)或OnClientRead事件(服务器端),这两个事件的处理程序只是将接收到的内容添加到Memo2的后面。
) ?! g% l8 s& ~- z+ xMemo2- >Lines- >Add(Socket- >ReceiveText()); </P><P>---- 如果在用户建立连接后单击"断开"钮,将断开客户端与服务器的连接,服务器端将触发OnClientDisconnect事件,而客户端则会触发OnDisconnect事件,这时服务器端应回到监听状态,等待用户的连接;而客户端将返回到连接前的状态,等待用户再次建立连接,如果有不止一个服务器的话,可以选择连接到其他的服务器上。
/ }: `( c0 _2 h; [/ V; Nvoid __fastcall TForm1::btndisconnectClick(
}8 w5 {8 _! H* mTObject *Sender)
, m; n8 }3 C* F' y6 w% _{
; F3 B' I) r3 u4 a- f& [0 G; _ClientSocket1- >Close(); 2 k' e0 ]: `/ _* r" X' `
} - V+ B7 V$ u8 } j- b
void __fastcall TForm1::ServerSocket1ClientDisconnect( " u; L2 Q3 e/ r5 I
TObject *Sender,
) p1 L. D, X" U4 G+ R, pTCustomWinSocket *Socket)
% p" ?4 n! z! ?' \0 ^/ S3 V* u{
j2 U( H0 k! uStatusBar1- >SimpleText="正在监听...";
C4 ]) P3 U" d* q} ' E6 g0 E& I+ \) k3 R! D9 X# C8 G2 Z4 i
void __fastcall TForm1::ClientSocket1Disconnect( 6 J' ^! y1 [6 @9 H4 y4 w z
TObject *Sender, TCustomWinSocket *Socket)
: P/ t1 z0 }: L! r{ : ]: r. M( {7 u, H
btnlisten- >Enabled=true;
( U) J+ g- B% U6 Tbtnconnect- >Enabled=true;
/ ]3 a3 e. n. b, ebtndisconnect- >Enabled=false; 6 j" c* J0 X1 S- q' B. g/ L
StatusBar1- >SimpleText="";
& F8 W' G; H% _# G9 ~5 m} </P><P>" B" `% Y9 \, d2 u
---- 此外在客户端还应该增加错误捕获机制,当用户输入无效的服务器名或服务器端没有处于监听状态时能够及时给用户反馈信息。 : l# y6 E" g1 s
void __fastcall TForm1::ClientSocke
+ D' ~* Q. `. a: Xt1Error(TObject *Sender,
$ a" Y1 |* R6 y2 N. y4 `' gTCustomWinSocket *Socket, / _0 F# B2 F4 W h$ l
TErrorEvent ErrorEvent, int &ErrorCode)
: |1 A% h7 t7 x* u3 L/ d0 z* y% @2 L{
~; `% c \- YStatusBar1- >SimpleText="无法连接到: ' u$ X( \- C6 Z0 o8 n/ K T+ K
"+Socket- >RemoteHost; 3 j0 d+ C+ Q' P: k$ _( s1 R
ErrorCode=0; % y' l. j; N# ^/ Q9 C
} </P><P>用C++Builder获取应用程序图标 </P><P>现在,网上有大量的有关图标的共享软件或免费软件,而且很多也很好用,也方便。但是那毕竟是别人的,用起来总有些哪个,况且自己又喜欢编程,何不自己动手呢!说干就干,而且手头上有可视化编成的利器――C++Builder4.0,想来应该是很简单的一件事。 </P><P>首先启动C++Builder,新建一工程,在窗体上放置一个Button控件,一个Image控件,和一个OpenDialog控件,它们的名称均不必改动。双击Button控件,写如下代码: if(OpenDialog1->Execute()) </P><P>{ </P><P>FileName = OpenDialog1->FileName; </P><P>HICON hIcon; </P><P>// Total =(int) ExtractIcon( Form1->Handle, FileName.c_str(), -1); </P><P> </P><P>Icon = new TIcon(); </P><P>hIcon = ExtractIcon( Form1->Handle, FileName.c_str(), 0); </P><P>Icon->Handle=hIcon; </P><P> </P><P>Icon->SaveToFile(TempFile); </P><P>Image1->Picture->LoadFromFile(TempFile); </P><P>} </P><P>其中:FileName,TempFile,Icon在其头文件中定义:AnsiString TempFile, FileName ; Ticon *Icon; </P><P>这样,你所选定的程序的第一个图标就在Image控件中显示了出来。本程序所用的是Windows API ExtractIcon来获取图表的,因此它只能获取可执行文件的图标,如果想获取任意文件的图标,那末你可以调用Windows API 的SHGetFileInfo函数来完成,SHGetFileInfo所能完成的任务有很多,具体用法可参见Win32的帮助文件。 </P><P>* `- @# V" M+ c
BIG5到GB的转换技术 </P><P>中文因为数量太多,所以与英文用ASCII码一个字节表示不同,它使用两个字节来表示。通过计算这两个字节,我们可以得到其表示的汉字在中文字库中的位置。读取该位置的若干字节,以获得表示这个汉字的点阵信息。有了这些信息,就可以分别在DOS或WINDOWS中显示该汉字。事实上,在文本文件中保存的就是每个汉字对应的两个字节编码,而显示问题由中文操作系统自动解决。
7 S" e. `2 {5 n5 ~& g5 p汉字编码并不统一,我们使用的是GB码,而台湾地区使用的是BIG5码。BIG5码文件中保存的是汉字相应的BIG5编码,GB码文件中保存的是汉字相应的GB编码(这也就是“乱码现象”的来由)。所以转换工作的关键是有一个记录每个BIG5编码对应GB编码的码表文件。
. e# o* t# t4 [! K- ~ P第一步 制作码表文件
& o9 [5 @* e, s6 _: O. B' l8 hBIG5码编码规则是这样的:每个汉字由两个字节构成,第一个字节的范围从0X81-0XFE,共126种。第二个字节的范围分别为0X40-0X7E,0XA1-0XFE,共157种。也就是说,利用这两个字节共可定义出 126 * 157=19782种汉字。这些汉字的一部分是我们常用到的,如一、丁,这些字我们称为常用字,其BIG5码的范围为0XA440-0XC671,共5401个。较不常用的字,如滥、调,我们称为次常用字,范围为 0XC940-0XF9FE,共7652个,剩下的便是一些特殊字符。 + v l* R5 d/ I! Q5 Q3 s1 E
制作码表文件的原理是这样的:首先将所有的BIG5编码写入一个文件,然后,使用具有BIG5码到GB码转换功能的软件,如地球村、东方快车、四通利方,将文件转换为GB码文件,即得到码表文件。
; a# O4 ?0 W1 _' W3 N下面的源程序将所有可能的BIG5编码(0XA100-0XFEFF)写入文件“Table.TXT”。 % l# c& ~$ y( C$ }) g' }( R5 m
//TURBO C++ 3.0
0 U/ C2 O5 N7 o% J#include <Stdio.h> " U4 w. D0 F" t& h+ p; z
#include <stdlib.h>
& | P8 o( f' H/ @7 k: N @void main(){
& t" @- n1 o' xFILE * codefile;
: P: ?; T) F8 b: P6 L4 L2 {) w5 Cint i,j,k;
6 p: }* Y7 s2 y$ E# S8 f1 Wcodefile=fopen("table.txt","w+b"); 8 Z, J+ A, F& @& f3 i
for (i=0xa1;i<=0xfe;I++){
! x( `; \# R; o. g. E* b" m/ Ffor(j=0x00;j<=0xff;j++){ 4 {- e2 }& A _3 K+ z
fwrite(& i,1,1,codefile);
! L" y; H! p, j" N0 u# h3 h$ Q/ vfwrite(& j,1,1,codefile);}
6 D8 I, M2 Y/ Z d5 X2 j}
9 L% g+ a1 I5 O9 mfclose(codefile); " }/ D' y3 l& l. x" m) R
return;
# i2 l. Z) _4 I# S: P1 }} ( A7 P+ Z& r# U+ _1 Z/ w
运行地球村、东方快车或四通利方,将“Table.txt”从BIG5码转换为GB码,即获得码表文件。 : C; n( y7 u, w# s9 J) R1 x% e
第二步 转换
1 Z! ] I1 g3 p( O# E/ \下面的源程序,将BIG5码文件转换为GB码文件。 $ {# {' r2 k4 ]* G; o
//TURBO C++3.0 ; Z) L4 M/ [1 a1 h3 h. e/ J
#include <stdio.h> 7 ^# f K5 p( A, E" e
#include <stdlib.h>
5 B5 T5 l$ j" \+ x% `# Ovoid main(){
! }, _! ?# t u* p- k) ~# d( aint que, wei; 5 V, S, u% y. v3 o* U
FILE * sourcefile;
2 ]4 R0 K$ t% u; m! a) EFILE * tabfile; # ]4 _8 p6 p4 z6 s7 w) c# ^
FILE * destfile;
M3 J+ W& x" I; A" s- dsourcefile = fopen("big.txt', "r+b");
3 V( U( R. B; k; i" E" U- e% S& W//BIG5 码文件 6 q6 `: n/ Q6 ]' S1 t4 T
tabfile = fopen("table.txt", 'r+b"); 3 V! h" Y1 C9 S6 O- h: }
//码表文件
: P/ @, I2 J0 a2 F1 edestfile = fopen("gb.txt","w+b");
, D0 Y6 ?: g$ u9 z//转换生成的GB码文件
$ z5 [" V& S) i( |- N3 f6 c% R zwhile (!feof(sourcefile)){ ( Q" o& S3 P$ |+ a3 ^# M; |
fread(& que,1,1,sourcefile); w, ?) N0 b1 p
if (feof(sourcefile)){
' N# c. F/ L5 E& d$ ?break; } ) \4 z! N) t7 s/ i
if (que> =0xa1 && que <=0xfe) ! s1 ]! X& E7 B3 Y6 e4 _
//叛断是否汉字(BIG5编码)
6 `4 U* }1 A" a$ V, I* T' j `+ y{fread(& wei,1,1,sourcefile);
1 L; j" Q3 g+ R9 Jif (wei<0xa1) wei = wei - 0x40;
, H( d g' V' ~0 t4 X0 L& R! Zif (wei>=0xa1) wei = wei - 0xa1 + 0x7e - 0x40 + 1; 7 I+ p1 h- `2 u9 [& ?
fseek(tabfile, 2 * ((que -0xa1) * (0xfe - 0xa1 + 1 + 0x7e - 0x40 + 1 ) + wei), SEEK_SET); 1 |# u2 b$ D; w0 G$ g
fread(& que,1,1,tabfile); 1 {, `. \$ m. h' a8 C! D1 r
fread(& wei,1,1,tabfile); 3 _3 [" Q% s' I, n9 ^# `' \
fwrite(& que,1,1,destfile);
: F( j! H( i* O8 kfwrite(& wei,1,1,destfile); 8 T' [% s4 _0 R' W: n/ }: e7 L% v
}
9 j; j6 L6 ~* Ielse 2 p, Z0 s' {' d9 D% r
fwrite(& que,1,1,destfile); //处理英文 3 z8 j8 Q$ Z) Z- \) t; y
}
7 ~# h5 t! D$ P8 k' R3 w2 Mfclose(sourcefile); ! X: o; ^2 u5 Z0 x7 M! T
fclose(tabfile);
6 g( E3 p6 P) |6 u5 d2 Dfclose(destfile); 3 e. x; {* B6 N q: }
return; 2 e% k7 [" F- x, s8 j# }3 Z
} 0 \+ \8 h1 y8 n
以上程序在Win95/97,TC3.0 通过。稍加修改,也可用于VC或VB程序中。用同样的方法,我们也可以将GB码转换为BIG5码。 </P><P>C++BUILDER让你的任务栏图标动起来 </P><P>---- 在windows环境下上网时,你有没有注意到在屏幕的右下脚的任务栏上有一个动画图标呢?它一闪一闪的,形象的表示出网络此时正在传输数据。关于任务栏图标编程的文章有不少,可是如何才能编制出动态图标呢?在C++Builder中可以比较方便的实现。 </P><P>---- 其基本编程思路是:通过设置Timer时钟控件使应用程序在规定的时间间隔内发送特定的消息,使任务栏图标不断更改,从而形成动画效果。实现方法为在应用程序的表单中加载几个Image控件,使他们装载相应的图画,几幅图画按顺序连续的被显示,就形成了动画。 </P><P>---- 在这里,我们用一个门的开关动画来做例子,在表单上放置一个Timer控件,两个Image,分别装载“开门”和“关门”两幅图。开始加入代码。 </P><P>---- 应用程序必须用发送消息的办法通知任务栏增加,删除,和修改图标。发送消息必须调用Shell_NotifyIcon。它的原形为: </P><P>WINSHELLAPI BOLL WINAPI Shell_NotifyIcon( 4 p3 a" ?. c3 t# g1 u; e A
DWORD dwMessage, POINTIFYCONDATA pnid); </P><P>第一个参数 dwMessage是发送消息的标志,可以选 ! x' b) b1 _0 Z/ a5 Z
NIM_ADD // 往任务栏通知区添加图标
9 i; N4 Z7 `9 N3 z" @NIM_DELETE //往任务栏通知区删除图标 0 Q2 q/ ^- q8 M8 @+ O
NIM_MODIFY //通知任务栏通知区修改图标 </P><P>编制消息发送函数TrayMessage # f5 {- U9 Q! |2 P
bool __fastcall TForm1::TrayMessage(DWORD dwMessage)
8 G! j7 u: X+ F; R{
# ~5 x/ p0 r" f6 e2 R6 s- BNOTIFYICONDATA tnd;
( J( _* u1 }' b/ w9 FPSTR pszTip;
9 k6 F! ]' `& M# W1 f. o$ RpszTip = TipText(); q* c9 `7 G+ w$ c6 n. x, K
tnd.cbSize= sizeof(NOTIFYICONDATA); ( H8 Z' z1 {$ T
//结构的大小
' b8 m" u% X1 b* }2 l& Ttnd.uCallbackMessage = MYWM_NOTIFY;
W" y1 s1 p4 H9 E- a# ]) G//自定义回调消息,在头文件中声明 7 a [& I3 X w0 E `3 g- m
tnd.hWnd= Handle; 8 k x g3 x: u! Q- j4 B+ F
//接受回调消息的窗口句柄
9 a* j, t! J8 K: \ X- A! b" Xtnd.uID = IDC_MYICON; % ?' B1 }2 ~6 W$ K0 Y% l
//图标标志号 . c. K6 o0 x7 R5 ~7 g+ T7 ]
tnd.uFlags= NIF_MESSAGE | NIF_ICON | NIF_TIP; ! a- h4 { ?2 C6 X8 t
//指定以下三个参数哪个包含有效数据
5 Z7 k0 ^8 F* a! ]if (dwMessage == NIM_MODIFY)
6 y% v) e, |" ~' A2 G7 t{ + c' L/ y6 R2 N8 ~
tnd.hIcon =
! Y- d2 a, V0 w; W(HICON)IconHandle(); //取得图标句柄 - Q! n. O; c& P% }. z8 w
if (pszTip)
: o! b4 J. {/ |" Q% Alstrcpyn(tnd.szTip, pszTip,
9 ^8 p2 c" E/ C5 d: B. bsizeof(tnd.szTip)); , h% y5 S5 _+ J# D( ^
else
/ P- {0 z* i& y# u! T% J" Htnd.szTip[0] = '\0';
6 X) X6 x* L: c7 x0 ?}
8 ^! q l, a5 U0 A$ A( k% pelse
6 c( e- Y9 j, J2 R* P* {, y6 U) |/ G. u{ 8 y7 j0 H3 a. [
tnd.hIcon = NULL; " _/ Q9 R" N7 c
tnd.szTip[0] = '\0'; 2 P s+ F% X7 Y4 @- j
}
$ e M) c' z |. L" j# Sreturn (Shell_NotifyIcon(dwMessage, &tnd)); ! l! H& G1 S7 }, E5 [2 _ [) P
}
# E+ e' l: Z) [; \- N# T. ^2 W( F编制取得图标句柄的函数 . Y' F3 s$ j8 ]; ~
HICON __fastcall TForm1::IconHandle(void)
- o) L W8 \4 u* v% y# H{ . t4 Y' R4 X7 `" j- K" g- L0 G; {
if (n==1) 4 e! F/ E" C. b+ I
{ return (Image1- >Picture->Icon- >Handle); ) @# e; {3 Y( ~: Y3 x/ q# g
//n是全局变量,1为显示Image1,0为Image2
- L% g9 U* e0 x, j6 M} 7 T: k( P2 m5 U L9 p' l
else
4 g) m F5 }8 U{ return (Image2- >Picture- >Icon- >Handle); / p! L: p# ^( U
}
+ ~! a7 J# |% s P) y: t}
% h$ |) Z, p3 ^5 ]9 ]2 c编制图标状态转换函数 </P><P>void __fastcall TForm1::ToggleState(void) 2 m4 L3 p. q8 L: J2 t3 v
{
5 D: [' N: h5 i" `if (n==1) //n为图标句柄锁,是全局变量, 7 [3 } d% R! ]* E5 l1 U
1为显示Image1,0为Image2
) P" H" |+ \) u2 E{
; Q+ U2 d% H5 l- ]- H ]3 O, In=n-1;
# \& v1 k" O( {}
# E) {0 k# y4 a) f' R/ d, {else 5 I, N3 Y- g4 N3 ~1 r' R
{ 0 `" t8 ~% b5 H3 P
n=n+1;
) ~7 n% S2 s0 b4 j* t}
/ a1 w3 C: T( S( n5 Y$ W7 q/ JTrayMessage(NIM_MODIFY); ' ]) A5 r; f. l7 | i
//发送图标变换消息 ; e) \$ N1 c9 u4 ]8 E; U
} </P><P>
' J& _6 _" v# l7 q# V. _/ b% `" C对Timer控件编制代码,设它的Interval
9 F$ I, a+ w T. o. h* ~" l3 `属性为1000,即定时器每一秒响应一次。为 Ontimer 4 L& k c9 \- h3 e) e: W
事件键入代码: </P><P>void __fastcall TForm1::Timer1Timer(TObject *Sender) % E( n+ ?( f/ M4 c; f# N9 `4 f
{ ToggleState( ); , Q- d. o7 U! A% `
} </P><P>---- 由于篇幅有限,以上只列出了基本部分的代码,其他功能的实现,如关闭程序,打开窗口等,比较简单,不在赘述。程序运行时,你将看到在屏幕的右下角任务栏有一扇门打开又关闭的动画图标。是不是很有趣,快编一个你喜欢的吧。 </P><P>TFORM </P><P>
& r( b* Z$ o% d" {, c& F: I一、让窗口总是在最前面
/ |4 T9 V' |% ZForm 的FormStyle属性设置为fsStayOnTop值。 </P><P>二、 动 态 调 用 窗 体Form * z8 g" r1 t% }& g; Q
在 缺 省 情 况 下, 由File/New Form 生 成 添 加 入 项 目 文 件 中 的 窗 体 都 具 有"Auto Create"( 自动 创 建) 的 特 性。 即 只 要 程 序 运 行, 该 窗 体 就 存 在 于 内 存中 了, 不 管 当 前 它 是 否 被 调 用。 具 有 这 种 特 性 的 窗 体 一 般适 用 于 窗 体 属 性 比 较 固 定、 经 常 被 调 用 的 情 况。 其 优点 是 速 度 快, 缺 点 是 占 用 内 存。 在 实 际 程 序 设 计 中, 会 遇见 大 量 类 似 对 话 框 功 能 的 窗 体, 它 们 用 于 显 示 状 态 或 输入 信 息, 仅 须 在 程 序 中 调 用 一 下, 完 成 其 功 能 就 行 了, 无需 常 驻 内 存。 这 时 可 以 通 过 选 择Project/Options/Forms, 将"Auto--Create forms " 栏 中 相 应 的 窗 体, 如Form1, 用" >" 键 移 动 到 "Available forms" 栏 中, 并 在 程 序 需 调 用 该 窗 体 处, 加 入 下 列 语 句: </P><P>TForm1 *myform=new TForm1(this); </P><P>myform- >ShowModal(); </P><P>delete myform; </P><P>窗 体Form1 仅 是 在 需要 调 用 时 才 调 入 内 存,调 用 完 成 后, 即 用delete 清 除 出 内 存。这 样 可 减 少 程 序 对 内 存 资 源 的 占 用。 </P><P>三、遍 历 窗 体 控 件 的 方 法 - f" v, x; v9 z2 Q
要 访 问 或 修 改 窗 体 上的 控 件, 方 法 很 简 单, 以TEdit 为 例 子: </P><P>Edit1- >Text=""; </P><P>Edit2- >Text=""; </P><P>但 如 果 窗 体 上 有 十 来个 像Edit1 这 样 的 控 件, 需 要 进 行 相 同 的 初 始 化, 用 上 面 的方 法 一 个 一 个 地 进 行, 岂 不 麻 烦 ! 所 以 有 必 要 掌 握 遍 历窗 体 控 件 的 方 法。 在 介 绍 该 方 法 之 前, 让 我 们 先了 解 一 下 窗 体Form 的Components 和Controls 属 性。 参 见 表 一。
4 p3 v# Q* e$ ]0 @ V$ t9 v表 一 </P><P>属性 类型 说明 </P><P>ComponentCount Int 目前Form上各类
- p+ Y2 Q/ b* P k Z$ l( m" [控件的总数 </P><P>Components TCompont* 目前Form上指向 6 g7 p% \& T7 b* `+ _7 m: V) [
所有控件的数组 </P><P>目前Form上指向 3 z9 z. m% F3 k( s( _* @9 r
所有控件的数组
/ A2 y0 ]2 L; P' N" L4 j% l& }8 Z; C* ]ControlCount
, y8 g2 T% Q5 `; K2 ZInt , e7 ^' X8 f; G* r9 ]6 U5 p
目前Form上某一子
- B1 u# g3 b( {# X! Y6 {4 @区域上各类控件的总数 & |2 Z$ O0 N+ d& h
Controls TControl* </P><P>目前Form上指向某一子 3 s0 A* a+ k! g1 Q
区域上所有控件的数组 </P><P>
: ^/ \& J) E1 {3 d0 U8 b- V }# a2 k2 ~以 图 一 为 例(图 略) 说 明,Form1 的ComponentCount=6, 而Panel1 的ControlCount=4., </P><P>其 中: 数 组 对象 </P><P>Components[0] Panel1 </P><P>Components[1] Label1 </P><P>Components[2] Edit1 </P><P>Components[3] Label2 </P><P>Components[4] Edit2 </P><P>Components[5] Button1 </P><P>* F# T9 a$ e2 f; I0 u6 y7 }
数 组 对 象 </P><P>Controls[0] Label1 </P><P>Controls[1] Edit1 </P><P>Controls[2] Label2 </P><P>Controls[3] Edit2 </P><P>
" ]2 Z: g: D1 W, x: m9 X# O下 面 这 段 代 码 完 成 了 对Panel1 上 所 有TEdit 控 件 的 遍 历 初 始 化。 读 者 稍 加 修 改, 即 可 对 其它 控 件 进 行 遍 历。 这 里 有 一 个 小 技 巧, 我 们 把 需 要 进 行 初始 化 的 控 件 放 置 在 了 一Panel1 上, 与 不 需 要 初 始 化 的 控 件区 分 开 来, 这 样 便 于 编 程。
+ _5 d" k, W, GAnsiString namestring="TEdit";
! U# ?. p; |0 i0 o/ Xfor(int i=1;i< Panel1- > ControlCount;i++)
1 X% q. B- x/ G+ n{ 1 A& j7 w3 d4 q
if(Panel1- > Controls- > ClassNameIs(namestring)) </P><P>{ </P><P>TEdit *p=dynamic_cast < TEdit* > (Panel1- >Controls); </P><P>P- >Text=""; </P><P>} / F7 T7 G9 g. q
} </P><P>四、不规则窗口 </P><P>1.在窗口定义中,加入HRGN hWndRgn;
( Z( a, o5 V$ Z* E* H2.在TForm::OnCreate()消息函数最后,加入下面的代码: , @0 y8 D8 c* Q; S
hWndRgn=::CreateEllipticRgn(0,0,Width,Height); $ V* I" O% L& }# I8 O+ ~
::SetWindowRgn(hWndRgn,TRUE); / v! a( W V* y& }- B
3.设置TForm的属性为无标题,无边框。
9 f0 s" Q/ ^- E1 R9 `- M! ^4.编译连接应用程序,就可以看到一个椭圆形窗口。 </P><P>五、MDI Form </P><P>1.Application->CreateForm(__classid(Tjjcginput), &jjcginput); </P><P>后不用在使用显示Form的语句就可以显示出来了。 </P><P>2.form 的onclose 事件必须用下面语句释放空间: : y( i% X+ J# T) O! n, G
void __fastcall TMDIChild::FormClose(TObject *Sender, TCloseAction &Action) $ _" {% Q) A5 F# z! u
{ ) x& V( M; X- q' ]* W. p
Action = caFree;
, ~) h3 l2 X2 Y2 M} </P><P>用BCB在windows桌面创建快捷方式 </P><P>API提供了一个叫做IShellLink的COM接口允许我们创建快捷方式。为在桌面创建快捷方式,我们创建一个IShellLink对象,设置它的属性,然后把这个link保存到desktop目录。 </P><P>下面的例子代码演示了怎样创建一个快捷方式。在这个例子里,这个快捷方式保存在C:\Drive目录下。 </P><P>//----------------------------------------------------------------------
& z$ e( I+ s& G5 Hinclude <shlobj.h> </P><P>void __fastcall TForm1::Button1Click(TObject *Sender)
% o% k) a. i7 [# u3 c{ ) N- o# s5 n. q! \# e
if(OpenDialog1->Execute())
, N3 |) \+ D' L: N6 q3 hCreateShortCut(OpenDialog1->FileName); : w( z6 t& Q: F" o$ c6 X& O! m
}
, Z7 ]% @9 R" W/ [//---------------------------------------------------------------------- 8 t( k- D, Q' }+ V4 h
void TForm1::CreateShortCut(const AnsiString &file) * F# o! y. d% r. c& k6 Z1 S
{
; L$ S3 M! u l" z' L2 rIShellLink* pLink; - V2 J5 l' R* \ S) e( q8 L
IPersistFile* pPersistFile; & j }, |6 j0 M) R# f. x
if(SUCCEEDED(CoInitialize(NULL)))
+ W0 @1 B. P( \7 a, K{ / X& k/ [6 K# m' Q& }/ S
if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink, NULL, $ A" h4 M7 l+ [
CLSCTX_INPROC_SERVER,
# U' f0 N' I' [! nIID_IShellLink, (void **) &pLink))) 0 V5 S: P: m: }
{ ; P" R, x: _+ c: f
pLink->SetPath(file.c_str());
|6 u: l$ l: a; P& ?* T% g/ K. }pLink->SetDescription("Woo hoo, look at Homer's shortcut");
* ]6 u0 z# Y! Z G% G* x6 F; LpLink->SetShowCmd(SW_SHOW); - w, }9 ?7 K$ T; o, D! f5 a: w
if(SUCCEEDED(pLink->QueryInterface(IID_IPersistFile,
$ E$ q K9 e# w6 H; a! ?0 i(void **)&pPersistFile))) 8 |: o, W3 k. |( i" e7 G& ?5 ?
{
( z6 \7 k- x5 D2 n) n# @- D/ dWideString strShortCutLocation("C:\\bcbshortcut.lnk");
( K: ^5 S2 b( ^, apPersistFile->Save(strShortCutLocation.c_bstr(), TRUE);
8 o( o! J) I7 j9 p+ {+ JpPersistFile->Release();
" C( I8 t8 R+ q3 }}
5 h& R/ q! U: t$ l- h! L* }/ m" SpLink->Release(); ; S) m o# @+ W+ j" y6 S
} </P><P>CoUninitialize(); # W' F+ N# |2 g
} $ ?; r }& {$ A) M( I: d: {
} % P5 K# O0 w- O' p+ z/ [. n
//----------------------------------------------------------------------
3 w& `; h6 d0 d上面的例子只是把快捷方式文件保存到了c:\drive目录下,但没保存到desktop目录下。 </P><P>要让快捷方式出现在桌面上,只须把快捷方式文件保存到desktop目录下。首先我们要找到windows的desktop目录,请参阅判断windows的Desktop及相关目录这一节。一旦我们知道了desktop所在的目录,我们就能将快捷方式文件保存到desktop目录下。然后windows就能将快捷方式图标显示到桌面上。下面是经过改进了的例子: </P><P>//---------------------------------------------------------------------- ( n1 x( r( B9 a$ y# R& b
void TForm1::CreateShortCut(const AnsiString &file)
( X% y+ {4 ]3 @) o I{ 0 H+ v9 M4 c+ a: [/ b& |/ ]4 t
IShellLink* pLink; 1 F5 _+ q! w; P
IPersistFile* pPersistFile;
# J) e" C1 n" n$ WLPMALLOC ShellMalloc; - g6 J( e4 Z8 S( P2 W6 V& u4 x, E
LPITEMIDLIST DesktopPidl; 4 n3 q* g% R# N+ `0 |4 O H- R
char DesktopDir[MAX_PATH]; </P><P>if(FAILED(SHGetMalloc(&ShellMalloc))) 2 K, ?+ p% [6 l7 o, I( z5 c
return; </P><P>if(FAILED(SHGetSpecialFolderLocation(NULL, 2 g4 |) ^$ V. r) t+ m
CSIDL_DESKTOPDIRECTORY,
8 }3 H5 Q* Z: P6 l( a&DesktopPidl))) _) \3 C; {1 ~8 ^
return; </P><P>if(!SHGetPathFromIDList(DesktopPidl, DesktopDir))
4 H- j4 R0 K5 K2 e% Q' j{
3 H, u% S: {; T! f0 `. H3 bShellMalloc->Free(DesktopPidl); " {, B, j2 v% X, f0 G( J9 A
ShellMalloc->Release();
5 b* `+ [' ~5 o& Ureturn; # f& d- g, E! Q# P% T* M3 j
} </P><P>ShellMalloc->Free(DesktopPidl); ( Q; _% p7 H: n9 O
ShellMalloc->Release(); </P><P>if(SUCCEEDED(CoInitialize(NULL))) * J9 y, x! K+ L; _
{ ( M/ P+ ]' ~2 A/ d' g. L$ M
if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink, NULL,
( }6 S, F% U5 G% ^, qCLSCTX_INPROC_SERVER, $ a! | t$ z! h, m$ w; A* n: l0 N, m
IID_IShellLink, (void **) &pLink)))
0 V2 d0 j6 }! a9 f! @+ t5 m{ 5 n6 ]% j1 I9 K- G
pLink->SetPath(file.c_str()); : M* C* e/ g: X) b. g. A
pLink->SetDescription("Woo hoo, look at Homer's shortcut"); , l2 W- D k/ w2 V" P
pLink->SetShowCmd(SW_SHOW); </P><P>if(SUCCEEDED(pLink->QueryInterface(IID_IPersistFile, & x' [8 K; d! G. ^7 V
(void **)&pPersistFile)))
/ }9 u0 A5 L6 ~6 H* ~1 N, s5 u. K{ </P><P>WideString strShortCutLocation(DesktopDir);
6 W9 v( c( p& ^. }( T: L7 astrShortCutLocation += "<a>\\bcbshortcut.lnk</A>";
6 s! Y5 Y f% r f+ T0 A6 npPersistFile->Save(strShortCutLocation.c_bstr(), TRUE); 9 U% _* |" B4 O5 b9 P5 l
pPersistFile->Release(); 9 T: ^4 L0 w- F" K9 O7 } r7 y, n9 h
} ' q# K- t. e4 D& m" U
pLink->Release();
/ g# l% J) Y( I7 A: A}
! P* R. O3 I3 D& v) k( S9 a8 u2 I0 yCoUninitialize(); 2 q F: `* ?1 e4 T* O; I# B
}
3 m1 N! M- Q6 V; c( D+ d+ f} ( [" j/ B5 |- d) _2 H
//---------------------------------------------------------------------- . t0 f B" Z3 x) c' E9 m
不要陷于COM的泥沼之中 + r0 M# e! |7 `% z. O" ]
创建快捷方式包括一些对COM的使用。不要让你陷入到COM的复杂之中。COM只是创建和使用对象的一种方法。在这个例子里我们可以考虑不使用COM而是用等价的C++技术。 </P><P>COM code C++ psuedo-equivalent E3 {& v1 \2 h& {9 Q, Y! ]: I
IShellLink* pLink; TShellLink *Link; ; u; x3 q" T" V6 _2 ~; u
IPersistFile* pPersistFile; TPersistFile *PersistFile; </P><P>CoInitialize(); </P><P>, b2 c7 O; U. D7 F: `
CoCreateInstance(CLSID_ShellLink, Link = new TShellLink; , i6 q% F2 S, N6 }4 G/ a! d* y
NULL, . |0 D$ r( w, h' ?' R& } ? ~
CLSCTX_INPROC_SERVER,
: B; @8 z+ G" L9 E7 Y) B* bIID_IShellLink, 8 t: A* T6 r$ O; t1 o2 y" U
(void **) &pLink) </P><P>
. o, l6 c+ q/ L5 Z9 T2 l# fpLink->SetPath(file.c_str()); Link->SetPath(file.c_str());
& |5 m1 Y. R# {/ T1 y" ]; t# Y" p: PpLink->SetShowCmd(SW_SHOW); Link->SetShowCmd(SW_SHOW); </P><P>
6 a( R0 L j! P6 O/ S! KpLink->QueryInterface(IID_IPersistFile PersistFile =
- J2 N! `& o) Z) f(void **)&pPersistFile))) dynamic_cast<TPersistFile*>(Link); </P><P>pPersistFile->Save("C:\\", TRUE); PersistFile->Save("C:\\"); </P><P>1 Y- P9 ~: B9 k/ ]4 y* c0 C
pPersistFile->Release(); delete PersistFile
, _' T* L; i5 PpLink->Release(); delete Link; </P><P>CoUninitialize(); </P><P>
2 p) Y- k' y- w! o读磁片磁区 </P><P>
5 S4 ~; Q8 k! t一、以前的DOS版要读、写、格式化第0轨的第1个磁区,程式大致如下: </P><P>char buffer[512]; </P><P>reg.x.dx=0 ; /* for drive A *
! A S6 | e" ~reg.x.cx=0x0001 /* for boot sector */
3 |: }+ C$ G- ureg.x.bx=FP_OFF(buffer); 5 f M6 I& w6 ^/ E
sreg.es=FP_SEG(buffer);
; d: c7 S% ~. \ U' `resg.x.ax=0x0201; /* 02 for Read, 03 for Write ,05 for Format */ 3 E, D8 y. t6 C% Q* P& a
int86x(0x13,?,?,&sreg); </P><P>那麽在windows 下转换为呼叫 DeviceIoControl 以便格式化、读取、写入该磁轨,DIOC_REGISTERS 这struct 在套上 DOS 下 Int21对HDD或FDD 的各项参数如要格式化是Int21也是有, 但Windows下也另有提供。 </P><P>l#pragma pack(push, 1)
% j; {* F H& T& P+ _) Astruct DIOC_REGISTERS {
2 D/ g% i+ w' W0 ]" _/ L2 s" uDWORD reg_EBX;
0 h% u; J( R0 A" i2 T7 N$ T) ^DWORD reg_EDX; $ g. p) r4 S3 b. i
DWORD reg_ECX; ' y6 B* g% `; J$ Y. u: m
DWORD reg_EAX;
5 L; m! R" U0 `; q5 @- v& p0 hDWORD reg_EDI; , ]" \( D A4 O6 z) |
DWORD reg_ESI; 2 G9 C+ ?1 A! r# ]$ @' t
DWORD reg_Flags; 7 y- O& }* X. H* W; i
}; + n. ]3 ^: K! ~
#pragma pack(pop) </P><P>sDiskImageInfo->hDevice = ::CreateFile("<A>\\\\.\\vwin32</A>", 0, 0, NULL, 0, + Z/ ?8 i) I) Y3 ?
FILE_FLAG_DELETE_ON_CLOSE, NULL); * A, p) o# u. I; s( m5 t# V
if( sDiskImageInfo->hDevice == INVALID_HANDLE_VALUE)
$ D8 A& j F; c* E- J4 u$ y7 W' @bRunNext = false; </P><P>// Reset Floppy Disk P1 ]: b8 ?* ~+ _
reg.reg_EBX = 0;
3 b5 f! {1 l/ Z) C9 K8 A: \9 Kreg.reg_EAX = 0x0000; // IOCTL for block devices
# L; g" L2 |1 n/ x6 r. y3 b/ H% hreg.reg_EDX = sDiskImageInfo->Driver; 9 V. Y0 W, g. E5 a" [, w9 j/ Y
reg.reg_EDI = 0; reg.reg_ESI= 0;
! C* R3 T& @* @reg.reg_Flags = 0x0001; // assume error (carry flag is set) : |& |+ Q0 N; F2 R+ z4 ?
dwResult = :eviceIoControl( sDiskImageInfo->hDevice, " T# N: s1 q: p4 G, ?0 r
VWIN32_DIOC_DOS_INT13, $ G5 O( y& v3 v/ w4 X" A+ m
?, sizeof(DIOC_REGISTERS), ?, 1 u" ]6 x: [; x# y. F& f
sizeof(DIOC_REGISTERS), &cb, 0); </P><P>// Seek Floppy * I: ], b+ G. R
reg.reg_EBX = 0; , r; R5 U ^/ V/ {4 d2 X, h# x! Z
reg.reg_EAX = 0x0C00; // IOCTL for block devices
+ |8 s( s' S f1 e y7 Hreg.reg_ECX = ( sDiskImageInfo->nC << 8) | sDiskImageInfo->nS;
' m9 V' l' |9 Nreg.reg_EDX = ( sDiskImageInfo->nH << 8) | sDiskImageInfo->Driver;
- k& v& _+ c; X& t( lreg.reg_EDI = 0; 1 i& d% L8 `. h( D7 q5 N. R# l
reg.reg_ESI= 0;
; \: T! K- c" }reg.reg_Flags = 0x0001; // assume error (carry flag is set) k* ~& A- g2 o( ?+ G, j
dwResult = :eviceIoControl( sDiskImageInfo->hDevice,
* ~( }) P. [5 d- y% G" Z9 ]VWIN32_DIOC_DOS_INT13,
+ f: X- v7 u# w' G6 X. h?, sizeof(DIOC_REGISTERS), ?, " @ j9 H9 u0 S8 r! Q" Y4 s, n+ x
sizeof(DIOC_REGISTERS), &cb, 0); </P><P>// Read Floppy & X) |+ @7 c- K3 {6 q& t
R_CreateDiskImageFile:
, f+ ^% D1 ^0 @ ]4 Q% Xreg.reg_EBX = 0; 1 ?. c( D) L( J4 ^. u
reg.reg_EAX = 0x0200 | 0x01; // IOCTL for block devices , W3 S: t2 A4 ?7 J0 ~
reg.reg_ECX = ( sDiskImageInfo->nC << 8) | sDiskImageInfo->nS; - {) c7 a% f, a- K5 j' o' B
reg.reg_EDX = ( sDiskImageInfo->nH << 8) | sDiskImageInfo->Driver; ; ]( w- |) f/ w O2 m
reg.reg_EBX = (DWORD) &m_Buf;
0 ?; b! t# M% W$ |& v3 Hreg.reg_EDI = 0; / O- A0 T( s- ~
reg.reg_ESI= 0;
( Z. S& z# I% Yreg.reg_Flags = 0x0001; // assume error (carry flag is set)
3 c3 M8 V( i- v9 w. t' |dwResult = :eviceIoControl( hDevice, VWIN32_DIOC_DOS_INT13,
2 z/ _4 }' c2 k. n- ??, sizeof(DIOC_REGISTERS), ?, ! j% M* y' c5 v8 ? g3 F2 S2 Y
sizeof(DIOC_REGISTERS), &cb, 0);
! l: C5 ?/ H' bif (!dwResult || (reg.reg_Flags & 0x0001)) 3 Y+ V1 b! ~! R; F; Z
{
/ U& d; u# f) Y1 y" l5 _' A3 T8 Q} </P><P>I/O 端 口 读 写 的 实 现 </P><P>
# d( t9 p* u1 x' r0 c. e细 心 的 读 者 会 发现,C++ Builder 不 再 支 持 如inportb()、outportb() 一 类I/O 端 口 读 写指 令 了。 准 确 地 说, 在Windows 环 境 下,Borland C++ 仅 支 持16 位应 用 程 序 的 端 口 操 作, 对32 位 应 用 程 序 的 端 口 操 作 不 再 支持, 而C++ Builder 开 发 出 来 的 程 序 是32 位 的。 我 个 人 以 为, 这是C++ Builder 设 计 者 的 败 笔。 因 为PC 机 中,I/O 地 址 空 间 与 内存 地 址 空 间 从 来 都 是 各 自 独 立 的。 看 看Delphi, 不 就 通 过Port 数 组 实 现 了 对I/O 端 口 的 访 问 了 吗? 搞 不 清 楚 为 什 么C++ Builder 就 没 有 提 供 类 似 的 机 制 ? 下 面 这 几 个 函 数 是 笔 者 从 网 上淘 下 来 的, 经 过 验 证, 在Windows95 环 境 下, 的 确 可 实 现 对I/O 端 口 的 读 写。 读 者 可 以 借 鉴 使 用。
) j; L/ e1 o. A" Tvoid outportb(unsigned short int port, unsigned char value) </P><P>{ </P><P>// mov edx, *(&port); </P><P>__emit__(0x8b, 0x95, &port); </P><P>// mov al, *(&value); </P><P>__emit__(0x8a, 0x85, &value); </P><P>// out dx, al; </P><P>__emit__(0x66, 0xee); </P><P>} </P><P>void outportw(unsigned short int port, unsigned short int value) </P><P>{ </P><P>// mov edx, *(&port); </P><P>__emit__(0x8b, 0x95, &port); </P><P>// mov ax, *(&value); </P><P>__emit__(0x66, 0x8b, 0x85, &value); </P><P>// out dx, ax; </P><P>__emit__(0xef); </P><P>} </P><P>unsigned char inportb(unsigned short int port) </P><P>{ </P><P>unsigned char value; </P><P>// mov edx, *(&port); </P><P>__emit__(0x8b, 0x95, &port); </P><P>// in al, dx; </P><P>__emit__(0x66, 0xec); </P><P>// mov *(&value), al; </P><P>__emit__(0x88, 0x85, &value); </P><P>return value; </P><P>} </P><P>unsigned short int inportw(unsigned short int port) </P><P>{ </P><P>unsigned short int value; </P><P>// mov edx, *(&port); </P><P>__emit__(0x8b, 0x95, &port); </P><P>// in ax, dx </P><P>__emit__(0xed); </P><P>// mov *(&value), ax </P><P>__emit__(0x66, 0x89, 0x85, &value); </P><P>return value; </P><P>} </P><P>
; S, m) F& J; o0 {8 X4 d1 ]. r! {6 O检 测 鼠 标 位 置 </P><P>例如,通过一个定时器Timer1的触发事件源来检测鼠标位置 </P><P>void __fastcall TForm1::Timer1Timer(TObject *Sender) </P><P>{ </P><P>TPoint pt; </P><P>GetCursorPos(&pt); </P><P>Label1->Caption = "(" +IntToStr(pt.x) +")(" +IntToStr(pt.y) +")"; </P><P>} </P><P>令Win32 应 用 程 序 跳 入 系 统 零 层 </P><P>8 b( p3 `4 u. z) p! {8 g
众 所 周 知, 在Windows95/98 的Win32 on Intel x86 体 系 中 利 用 了 处 理 器 的 三 环 保 护 模 型 中 的 零 环(Ring0, 最 高 权 限 级 别) 和 三 环(Ring3, 最 低 权 限 级 别)。 一 般 应 用 程 序 都 运 行 在Ring3 下, 受 到 严 格 的" 保 护", 只 能 规 矩 地 使 用Win32API。 如 果 我 们 想 进 行 一 些 系 统 级 的 操 作, 例 如 在 嵌 入 汇 编 中 使 用 诸 如"Mov EAX,CR0", 或 像 在DOS 下 那 样 调 用 一 些 必 不 可 少 的 系 统 服 务( 如BIOS,DPMI 服 务) 而 用"Int xx", 都 会 导 致" 非 法 操 作"。 但 这 种 能 力 有 时 是 必 不 可 少 的, 一 到 这 种 时 候Microsoft 就 " 建 议 编 写 一 个VxD"。VxD 大 家 早 有 所 闻 了, 在VxD 里, 不 但 可 以 执 行CPU 的 所 有 指 令, 而 且 可 以 调 用VMM( 虚 拟 机 管 理 器) 和 其 他VxD 提 供 的 上 千 个 系 统 级 服 务。 获 得 这 一 能 力 的 最 本 质 原 因 在 于 它 运 行 在Ring0, 与 系 统 内 核 同 一 级 别。 但 是 它 体 系 的 复 杂 性、 开 发 工 具 的 不 易 获 得、 帮 助 文 档 的 不 完 备, 使Microsoft 排 除 了 一 大 批 程 序 员 和 竞 争 对 手。 而 将 在Windows2000(Windows98 也 开 始 支 持) 中 取 代VxD 的WDM 对Win95 程 序 员 也 是 个 噩 梦, 它 需 要 了 解Windows NT 核 心 驱 动 模 型。 </P><P>----有 没 有 简 单 一 些 的 办 法 呢 ? 我 们 可 以 令 一 个 普 通Win32 应 用 程 序 运 行 在Ring0 下, 从 而 获 得VxD 的 能 力 吗 ? 答 案 是 肯 定 的。 下 面 我 们 就 简 述 一 下 这 一 技 巧, 有 关Intel x86 保 护 模 式 的 基 础 知 识 请 大 家 看 有 关 书 籍。 </P><P>----首 先 此 技 巧 基 于 以 下 理 论 根 据: </P><P>----一、SIDT 指 令( 将 中 断 描 述 符 表 寄 存 器 IDTR - -64 位 宽,16 ~47Bit 存 有 中 断 描 述 符 表IDT 基 地 址 - - 的 内 容 存 入 指 定 地 址 单 元) 不 是 特 权 指 令, 就 是 说 我 们 可 以 在Ring3 下 执 行 该 指 令, 获 得IDT 的 基 地 址, 从 而 修 改IDT, 增 加 一 个 中 断 门 安 置 我 们 的 中 断 服 务, 一 旦Ring3 程 序 中 产 生 此 中 断,VMM 就 会 调 用 此 中 断 服 务 程 序, 而 此 中 断 服 务 程 序 就 运 行 在Ring0 下 了。 这 一 点 与 在DOS 下 非 常 相 似。 </P><P>----二、Windows95 Win32 应 用 程 序 运 行 一 个 映 射 到 全 部4G 内 存 的 段 中, 选 择 子 为0137h,Ring0 中 的VxD 运 行 在 另 一 个 映 射 到 全 部4G 内 存 的 段 中, 选 择 子028h, 这 两 个 段 除 了 选 择 子 决 定 的 访 问 权 限 不 同 外, 没 什 么 不 同, 各 自 段 中 相 同 的 偏 移 量 对 应 了 相 同 的 线 性 地 址。 所 以 我 们 放 在Win32 应 用 程 序 中 的 中 断 服 务 程 序 可 以 以Ring3 的 段 偏 移 量 被Ring0 中 的VMM 寻 址。 </P><P>----下 面 我 们 以 具 体 例 子 进 一 步 说 明, 程 序 中 有 详 细 注 释。 </P><P>----这 是 一 个Win32 Console Program( 控 制 台 应 用 程 序), 虽 然 运 行 中 看 起 来 很 像DOS 筐 中 运 行 的 实 模 式DOS 程 序, 但 它 是 货 真 价 实 的 运 行 在Ring3 下 的Win32 程 序。 用Visual C + + 5.0 AppWizard 创 建 一 个Win32 Console Program 项 目, 添 加 以 下.CPP 文 件, 编 译 即 可。 </P><P>#include
6 D+ k4 Q( _8 F" l#include
4 g [& {8 T+ b0 L& H#include ; X% r( U) l4 g
#include
/ N/ ]/ [# g! @: v8 T! U" ?// 若 无DDK 带 下 划 线 的 可 略 去,
8 O) D5 b; l% }. _$ a这 些 语 句 演 示 了 调 用VMM/VXD 服 务 ; T6 m6 O. x& g/ K! A
DWORDLONG IDTR,SavedGate;
. j7 t, }3 z% dWORD OurGate[4]={0,0x0028,0xee00,0x0000}; ' Z- ]. c8 D/ ?5 c0 m6 L
// 中 断 门 描 述 符 格 式 如 下: </P><P>' z) _1 \( i0 Q7 g: | ]# L
DWORD _eax,_ecx,_cr0; 5 N; \+ h+ O0 }( J
WORD vmmver; 9 s- G' m. [, u$ J
HVM sysvm; </P><P>void nothing()
0 Y" q0 N# P, y# E{ $ k0 j+ i- A3 d6 b1 ^
//Used to test call in Ring0 X$ @ P8 P; s$ j& \# E4 P
sysvm=Get_Sys_VM_Handle(); ; I) h$ G* B9 [
} </P><P>void __declspec( naked ) Ring0Proc(void)
" |$ [ J+ e1 i: e' j// 中 断 例 程, 运 行 在Ring0
# t7 K, a# M% w$ ~{
& f, A7 K8 ]! j_asm{ ! S2 O2 v; z4 H2 }* ?5 ]$ I4 q
mov _eax,eax //
$ {5 t/ B' B$ W# r* Vmov _ecx,ecx //
: ^- Y. Z( C4 l( m1 L- o) j+ Tmov eax, CR0
% A; n% U; J: |0 ]* R7 a/ k// 测 试Ring3 中 不 能 执 行 的 特 权 指 令
* }: h8 r$ j; g* v @ ]mov _cr0,eax // ) `" _# n3 F1 k6 q5 r3 K) I
}
& |$ r4 `: X$ h3 g: b$ J$ M& _VMMCall(Get_VMM_Version);
" `4 Y- t8 x9 T* k( W" O. s// 调 用VMM 服 务 0 G6 r- J# |& G8 T: O) F
_asm{ : F l0 U9 y& d0 n3 e! \
mov vmmver,ax 0 @6 N5 U# o5 B$ o* }- [( ?
} ' M+ z9 Q% P. y1 k2 G1 ~
nothing();
; Z$ y* z& f. `- o, J// 测 试 在 运 行 于Ring0 的
6 _: {& V8 u2 I' d1 M7 q中 断 例 程 中 调 用 子
$ c. n: T0 I+ ?; k3 w+ E _asm iretd & z4 U: W E+ f
// 中 断 返 回, 与 在 实 模 式 % Y' ?/ K ?) ^5 j3 z
编 程 无 本 质 区 别 ( N# p9 }& @/ [! G3 N8 S
}
D: c$ C$ d. Q5 g/ e2 Y! }6 y5 uvoid main() // 主 程 序
/ Y$ ]( ^8 O: k9 I+ t0 i7 J{
7 s- t7 W3 D9 W3 q1 O+ _; h4 m- a_asm{ , F" h3 N5 g' a3 ^3 ]( S
mov eax, offset Ring0Proc
$ |3 \' ]% K# g: Z. s) i emov [OurGate], ax // 将 中 断 函 数 的 地 址 5 ]! G8 W6 C" Z' ?4 ~
shr eax, 16 // 填 入 新 造 的 中 断 门
6 ^2 D$ e2 j+ c7 V8 amov [OurGate +6], ax // 描 述 符 </P><P>sidt fword ptr IDTR 3 E0 g' W L( t& D2 l, Z) X4 b8 e
// 将 中 断 描 述 符 表 寄 存 器(IDTR) 3 ^/ z# q& Z& a; ~7 t( i
的 内 容 取 出 . l( [- x' E4 }7 }# j, M2 {" L
mov ebx, dword ptr [IDTR +2]
G8 t) N8 {1 L( I// 取 出 中 断 描 述 符 表(IDT) 基 地 址
( o& Z* U$ U, i3 `add ebx, 8 *9
1 u4 K) o( V! g j// 计 算Int 9 的 描 述 符 应 放 置 的 地 址 选 用
: @- I$ ]# w# [, M* [( N$ M HInt9 是 因 为 它 在Win32 保 护 模 式 下 未 占 用 </P><P>mov edi, offset SavedGate 3 i+ r& f. a8 y0 H+ u' |
mov esi, ebx 9 j g" l. ]: s
movsd // 保 存 原 来 的Int 9 描 述 符 到 : j0 N% c! s5 } M
movsd //SavedGate 以 便 恢 复 </P><P>mov edi, ebx . r: _1 b. a+ S9 z5 @/ S1 C/ ?
mov esi, offset OurGate
. h8 J! C( d) T& G) `" `movsd // 替 换 原 来 的 中 断 门 描 述 符
# o' \2 h/ S( O$ Fmovsd // 以 安 装 中 断 服 务 例 程 </P><P>mov eax,0x6200 " M9 ^6 [9 y8 D
// 用 以 测 试 放 在EAX 中 的 数 据
5 f0 E" _" Q$ I7 D) H) e能 否 正 确 传 到Ring0 中 断
( W( J1 x1 c' r7 F rmov ecx,0 , i+ [2 K: U6 k. T* m3 G6 v e
// 用 以 测 试 放 在ECX 中 的 数 据
/ {( I+ w4 }4 r1 H能 否 正 确 传 到Ring0 中 断 q$ D1 `. L$ |, P* g, E4 A; Q
mov ecx,0
# |, ~( h+ N* K6 N: j$ M$ k% j// 用 以 测 试 放 在ECX 中 的 数 据 8 }/ t6 r, T, g* T% N& c: b' @- M
能 否 正 确 传 到Ring0 中 断
: [+ X. h6 V7 U$ Q1 ^# S! U// 因 为 很 多VxD 服 务 都 用 $ `. C/ K$ E; w1 z; z0 w7 A
此 二 寄 存 器 传 递 参 数
/ l1 R0 b: J" k' T* h. x, Jint 9h m! |$ {: X" D( Q6 A2 ?
// 人 为 触 发 中 断, 平 时 会 出 现 ; v, R6 \( D3 i5 G" P4 E
保 护 错 误 蓝 屏 或 非 法 操
: N6 D4 w. t( ]( f/ Z4 ~ O// 作 对 话 框, 现 在 安 装 了 ; ~$ P7 _. X9 G" @3 C4 Y$ c
// 中 断 服 务 例 程 后, 就 会 通 过 - \8 p9 B: F* E
//VMM 在Ring0 调 用 中 断 服 务 例 程
. O' E6 T# s/ j- -Ring0Proc </P><P>mov edi, ebx
, A9 z% n ?6 u. wmov esi, offset SavedGate + n u3 L7 O2 t
movsd // 恢 复 原 来 的 中 断 门 描 述 符 : v( n x" R" R% q% ]; I
movsd 2 M; w, {7 j4 S' h0 M& a0 o
} % i4 R( H6 n. u5 r! W! r; A+ [
cout<<"CR0="<<_cr0< } _getch(); if(0="=_getch())" while(_kbhit()="=0);" do{} continue.?< </P><P>
& G$ a& S! f, K; O" z7 R9 T如何取得Memo的行和列 </P><P>; J; O5 Q! n" g$ E/ J0 p, I
新建一个应用,在窗体Form1上添加两个TLabel组件名为Label1,Label2;
+ q/ O) |( Q# P* D# {1 G添加两个TButton组件名为Button1,Button2;添加一个TMemo组件名为Memo1。
- i/ C+ n" H) n" f然后在代码编辑器中添加以下代码。 $ }! i) _3 V0 f7 `
void __fastcall TForm1::Button1Click(TObject *Sender) 9 y. o+ M5 l4 `6 k
{
/ D8 A; K; l j2 n5 v Label1→Caption=SendMessage(Memo1→Handle,EM_LINEFROMCHAR,-1,0)+1;
* J- ^) n" E" X* O3 C( { } 4 ^. e; ?3 N9 R4 r! ]: u* H
; `: v/ ^( W' [( W l: I void __fastcall TForm1::Button2Click(TObject *Sender)
& }0 S$ [3 ~' ?& l, Z9 F: G& [ {
5 g* E5 x, i1 P9 h, P+ | Label2→Caption=Memo1→SelStart-SendMessage(Memo1→Handle,EM_LINEINDEX,-1,0)+1;
& @! |7 y6 G. `7 _, m } " K# \- N- L. d4 c* h
这种方法同样适用于RichEdit。 </P><P>使用Sockets </P><P>! S3 A% A! I# p: E
使用sockets Socket控件让你建立一个利用TCP/IP和有关的协议与其他系统进行通信的应用。使用Sockets,你能够读和写通过它连接的其他机器,而不用担心实际的网络软件的相关细节。Sockets提供基于TCP/IP协议的连接。除此以外还能很好的工作,在其他相关的协议,例如Xerox Network System (XNS), Digital's DEC net, or Novell's IPX/SPX 家族。
6 a( a# u3 P1 z3 iC++ Builder提供你写网络服务器或客户应用程序去读和写其他的系统。一个服务或客户程序通常专注于一个单一的服务如超文本传送协议(HTTP)或文件传输协议(FTP)。使用server sockets,一个应用程序可以提供这些服务中的一个去连接一个希望使用服务的客户程序。Client sockets允许一个应用使用这些服务中的一个去连接提供这个服务的服务应用。 3 U- J# V2 T* x$ J: Q
使用sockets去写应用程序,你必须理解下面这些知识:
) I# r- D. D# i a! Y# }一、服务工具
3 g) K1 a5 w* j( _4 i/ j' s当你需要写网络服务或客户应用时,Sockets提供一种接合。对于许多服务,象
! K* r8 b; u0 Y7 x+ J. SHTTP 或 FTP,第三方服务商提供这些服务已经相当有效。有些甚至随着操作系统捆绑而来,以便不用你自己写。然而,当你想更多的控制服务的实现,如想让你的应用程序与网络通信更加紧密,或当没有一个服务能提供你特殊需要的服务时,你可能想建立你自己的服务或客户应用。例如,工作在分布式data sets时,你可能想为数据库写一层与其他系统通信的应用。想使用Sockets实现一个服务,你必须理解: </P><P>1.服务协议
* w" G, p `! v3 t在你写一个网络服务或客户程序前,你必须明白你的应用将提供或使用什么服务。你的网络应用必须支持许多服务的标准协议。如果你为标准的服务例如HTTP,FTP写网络应用,或even finger or time,你必须先理解与其他系统通信所使用的协议。特殊服务细节你必须看提供的或使用的文档。 5 e3 N4 C) W" T, G: r8 {# r' R! t: [
如果你的应用程序提供一个新的服务与其他系统通信,第一步是为这个服务的 ) B! g# D6 c' D4 r( J/ p% w
服务端和客户端设计通信协议。什么信息将发送?如何整理这些信息?如何对这些信息进行编码? </P><P>应用程序通信
5 S9 \+ K! |: m# i+ [7 ^经常的,你的网络服务端或客户端应用程序要提供一层在网络软件和一个应用之间使用的服务。例如,一个HTTP服务站点在INternet与一个Web 服务应用之间为HTTP请求信息提供内容和应答。 0 I# F# W" Z5 h9 q6 g; s8 I+ t" A* _
在你的网络应用(或客户应用)和网络软件之间Sockets 提供一个接口。你必须提供一个接口,在你的应用程序与应用间使用。你可以拷贝第三方服务商提供的标准API(例如ISAPI),或你可以设计和发布你自己的API. </P><P>2.理解服务和端口
4 U4 G, r' s# t {' Z6 D( D: F许多标准服务都有关联的、指定的端口号。当 执行服务时,你可以为服务考虑一个端口号。如果你实现一个标准服务, Windows socket objects 提供一些方法让你为服务寻找端口号。如果提供一个新的服务,在基于Windows 95 或 NT机器上,你能够在文件Services中为你的服务指定一个相关联的端口号。设置Services文件的更多信息请看微软 的Windows Sockets文档。 </P><P>二、Socket连接的类型 9 ^; q3 h- y! n
Socket连接可以分成三个基本的类型,它们反映了如何开始连接和本地Socket 连接是什么。这三个类型是: </P><P>1.客户端连接
$ s- j1 P9 N9 ^/ t9 Z; G- V客户端连接是一个本地系统的客户端socket与一个远程系统上的服务端Socket连接。客户端连接由客户端Socket开始。首先,客户端Socket必须描述它想连接到的服务端Socket. 接着客户端socket查找服务端socket,当找到服务器时,就要求连接。服务端socket可能不能完成正确的连接。服务器sockets维持一个客户端请求队列,在他们有时间时完成连接。当服务端socket接受客户端连接,服务端socket . }7 P% }6 o. M/ [: h0 X8 B) b
将向它想连接的客户socket发送一个完整的描述,客户端的连接完成。 </P><P>2.倾听连接
) c3 b4 [- f6 [2 N' b# {4 t服务器 socket不会去定位客户端,代替的,他们形成被动的,"半连接"状态,倾听来自客户端的请求。服务器 sockets形成一个队列,存放 它们听到的连接请求。这个队列记录着客户端连接请求就象他们已连接进来一样。当服务器sockets同意客户连接请求时,它形成一个新的socket去连接客户端,因此这个倾听连接能保持开放状态允许其他客户端请求。 </P><P>3.服务端连接 # v0 E+ l: p/ D+ C
当倾听socket同意一个客户端请求时,服务器端socket形成一个服务器连接。当服务器端同意连接时,向客户端发送一个服务端socket描述以完成连接,当客户端socket收到这个描述时这个连接得到确认,连接完成。一但连接到客户端的Socket完成,服务端连接就不能识别从一个客户端来的连接。末端双方有同样的能力去接收同样的事件类型。只有倾听(listening)连接是根本不同的,它只有一个单一的末端。 </P><P>三、sockets描述
2 g' l1 u# z/ C/ z7 m. }Sockets让你的网络应用软件通过网络与其他系统进行通信。在网络连接中每个socket可以看成一个终端点。它有一个指定的地址。 </P><P>*这个系统正在运行 8 h# v' z0 c: b7 v" e+ G
*它理解的接口类型 ) Z- b* ~/ L( c+ Z( E+ H/ |+ h. U3 ~
*用来连接的端口 % N$ [1 P# y! i
一个完整的socket连接描述,你必须提供sockets 在连接两端的地址。在你开始一个socket连接前,你必须完整的描述你想得到的连接。有些信息可以从你的应用
9 ]% {8 R# m. v+ |1 _软件运行的系统平台上得到。例如,你不需要描述一个客户端socket的本地IP地址--这个信息可以从操作系统上获得。你必须提供你工作所依靠的socket的类型的信息。客户端socket必须描述他们想连接的服务器。侦听服务器sockets必须描述他们提供反应的服务器的端口。一个socket 连接终端的完整描述包括两部分: </P><P>1.IP地址 + U2 ?& b9 \# w1 G0 y
主机是这样一个系统,它运行着包含有socket的应用程序。你必须描述主机给socket,通过给出主机的IP地址来完成这个描述。IP地址是一个有四个数字(byte)值的,在标准internet点付内的字符串。
2 c: `: I5 W# \8 @; w例如123.197.1.2 9 B* W' U6 }$ U' B( C# w
一个简单的系统可以支持多于一个的IP地址。IP地址通常难于记忆并且容易打错。一个可供选择的方法是使用主机名。主机名就是IP地址的别名,它就是你常看到的统一资源定位(URLs)。它是一个字符串,包括了域名和服务。 7 D( @4 R1 k, m" W
例如 <a href="http://www.wsite.com" target="_blank" >http://www.wsite.com</A> % B2 n1 p4 x5 l) j# J) G9 D4 n
许多内部网提供给主机的名字对应的系统IP地址是internetIP地址。在windows95 和NT机器上,如果一个主机名不能用,你可以在HOSTS文件中为你的本地IP地址(这个本地IP地址应该是指你想连接的主机IP地址--zyqsj)建立一个进入的名字。 & i' o7 Q. _% F! d/ F
关于HOSTS文件的更多信息请看WINDOWS SOCKETS的文档。 % B2 ?- H6 L5 f( N
服务器sockets不需要指定主机。本地IP地址可以从系统中读到。如果本地系统支持多于一个的IP地址,服务器sockets将同时在所有的IP地址上侦听客户端请求。当一个服务器socket同意一个连接,客户端提供一个远程IP地址。客户sockets必须指定远程主机通过提供主机名或者IP地址。 </P><P>在主机名和IP地址间作一个选择
5 f2 C% r9 ^+ a# A% \2 Y6 z' h$ T许多应用软件使用一个主机名去指定一个系统。主机名容易记住和容易检查排版错误。进一步讲,服务器能改变系统或与IP地址关联的特殊的主机名。使用一个主机名,能够允许客户端通过主机名描述找到抽象的站点,即使主机使用一个新的IP地址。
; s; c6 w( L4 b- s5 b, l如果主机名是未知的,客户socket必须指定服务器系统使用的IP地址。通过给一个IP地址来指定服务器将更快。当你提供主机名时,socket在定位服务器系统前,必须搜寻与这个主机名相关的IP地址。 </P><P>2.端口号 ; Q, f1 a! S3 F$ b$ x6 U
虽然IP得地址提供了足够的信息去找到socket连接中位于另一端的系统,你通常还需要指定那个系统的端口号。没有端口号,一个系统在同一时间只能进行一个单一的连接。端口号是唯一标识那允许一个独立系统连接到支持同时多个连接的主机,每个连接都必须指定一个端口号。 7 u9 P+ O$ k. O) {( v
在网络应用中,对于服务器工具来说端口号是一个数字代码。有一个习惯就是侦听服务连接到他们自己固定的端口号上,以便他们能找到客户端sockets.服务器socket监听为他们提供服务的相关端口号。当他们允许给予一个客户端socket连接时,他们创建一个独立的socket连接,使用不同的专用的端口号。通过这个方法,能持续的监听相关服务的端口号。
3 K) N6 Y1 o. N5 @) O) K" y客户端socket使用一个专用的本地端口号,就不用其他的socket去寻找它们。他们指定他们想连接的服务器端socket的端口号,这样他们就能找到服务器应用程序。常常的,这个端口号是通过命名想连接的服务来间接指定的。 </P><P>四、使用socket控件 + O) v: f; ?0 E3 b
C++Builder提供两个socket控件,客户端sockets和服务器sockets.他们允许你的网络应用构成连接其他的机器和允许你通过这个连接来读写信息。与每个socket控件相关联的是windows socket对象,它们在终端的的作用是一个实际的socket连接。socket控件使用windows socket对象去封装windows socket API 调用,所以你的应用不用去关心连接建立的细节或管理socket信息。 & V" _. x9 e4 i1 j' ` ~) y! l
如果你想利用windows socket API调用或自定义连接细节,socket控件提供了便利,你可以使用windows socket对象的properies,events和方法。 </P><P>1.使用客户端sockets
' j; Q4 [$ g0 @添加一个客户端socket控件(TClientSocket)到你的form或data module 使你的应用成为一个TCP/IP客户。客户sockets允许你指定你想连接的服务器socket和你希望服务器提供的服务。一但你描述你想得到的连接,你可以使用客户socket控件去完成连接服务。 . f& i( K6 f* e) M3 m
每个客户socket控件使用独立的客户windows socket对象(TClientWinSocket)去应答连接中的客户终端。使用客户sockets去: </P><P>A.指定想得到的服务 ) F- X9 e! b: `* l/ [8 }
客户socket控件有一个数字properties,允许你指定想连接的服务器系统和端口。你可以通过主机名来指定服务器系统,使用Host property。 5 \& f/ _7 _. X, X" @5 q+ m
如果你不知道主机名,或者你关心找到服务器的速度,你可以指定服务器系统的IP地址,通过使用 Address property。你必须指定IP地址和主机名中的一个。 [/ y- ]" C( c) @2 F
如果你两个都指定,客户socket控件将使用主机名。除服务器系统外,你必须指定你的客户socket将连接的在服务器系统上的端口。你能够直接使用Port property来指定服务端口号。或者直接在Service property使用想得到的服务的名字。如果你指定端口号和服务名,客户socket控件将使用服务名。 </P><P>B.建立连接 / i" L, | D" Q( u
一旦你在客户socket控件中完成了设置描述你想连接的服务器的属性,你就可以进行连接,通过调用Open方法。如果你想你的应用启动时自动建立连接,在设计时设置Active property为true,通过使用Object Inspector来设置。 </P><P>C.取得关于连接的信息 5 y" g* f+ k$ N
完成连接到服务器socket后,你可以使用与你的客户socket控件相关的客户windows socket object去取得关于连接的信息。使用Socket property去访问client windows socket object。windows socket object 有一个properties,它能让你确定在连接的两端客户和服务器使用的地址和端口号。 1 k2 i, X% P, R0 M5 T
当使用一个windows socket API调用时,你可以使用SocketHandle property区获得socket连接使用的handle。你可以使用Handle property去访问windows,以便接收来自socket连接的信息。AsyncStyles property决定哪种信息类型是windows handle要接收的。 </P><P>D.关闭连接
& J& E3 G: N( V/ f当你完成通讯想关闭socket 连接时,你能够通过调用Close方法来关闭连接。连接可能要由服务器端来关闭。如果是这种情况,你将收到一个OnDisconnect 事件的通知。 </P><P>2.使用服务器sockets 5 I" Y5 B0 C: d( g7 s1 C$ d
添加一个服务端socket控件(TServerSocket)到你的form或data module使你的应用成为一个TCP/IP服务器。服务器sockets允许你指定你想提供的服务或你想用来监听客户请求时使用的端口。你可以使用服务器socket控件去监听和允许客户连接请求。每个服务器socket控件使用一个单一的服务器windows socket Object(TServerWinSocket)去应答在服务器端监听到的连接。它通常使用一个服务器客户winodws socket Object(TServerClientWinSocket)应答在服务器端每个活动的,连接着得到允许服务的客户socket。使用服务器sockets去: </P><P>A.指定端口 ' D2 J% k& h& e& {7 F9 [+ q6 x
在你的服务器socket能够监听客户请求之前,你必须指定一个端口给你的监听服务。你可以使用Port property来指定这个端口。如果你的服务器应用提供一个标准的服务,这个服务使用一个习惯使用的相关联的端口。你能够使用Service property直接指定端口号。使用Service property是一个好的主意,能够减少设置端口号时的错误。如果你既指定了Port property,又指定了Service property,服务socket将使用服务名。 </P><P>B.监听客户请求
/ y/ O" ?3 J) D% {( f6 Y一旦你在server socket控件上设置好你的端口号,你就能够通过在运行时通过调用Open方法来监听一个连接。如果你希望你的应用程序能够在启动的时候自动监听连接,在设计的时候通过使用Object Inspector设置Active 属性为true。 </P><P>C.连接到客户端。 6 x1 C1 G9 n4 V& h% n
当监听服务socket控件接收到一个客户端连接请求时他们将自动接受这个请求。当你没次收到通知时,OnClientConnetc事件将发生。 </P><P>D.取得关于连接的信息
^: a6 ]/ T- Q C J" G. o一但你的服务器socket打开了监听连接,你能够使用与你服务器socket控件相关联的服务器windows socket object来取得关于连接的信息。使用Socket property去访问server windows socket object.windows socket object有一个属性能够让你找到关于所有活动的客户socket连接这些客户socket是你通过服务器socket控件允许连接的。使用Handle属性去存取windows通过socket连接收到的信息。 5 L9 o: {6 v& L, e3 Q* h% E
每个活动的,连接到客户应用是通过服务、客户windows socket bject (TServerClientWinSocket)封装的。你能够通过server windows socket object的连接属性来访问所有的这些。这些server client windows socket object有些属性让你能够决定哪些地址和端口号给连接的两端--客户和服务器socket使用。当你使用windows socket API调用时,可以使用SocketHandle属性去获得socket连接使用的handle。你能够使用Handle属性去访问windows从socket连接处得来的信息。AsyncStyles属性决定windows handle将接收哪种类型的信息。 </P><P>E.关闭连接 0 D% e* e: K% f; I5 B$ K
当你决定关闭监听连接时,调用Close方法。这将关闭所有打开着的,连接到客户应用的连接,取消任何尚未同意的连接,接着关闭监听连接以便你的服务socket控件不在接受任何新的连接。当客户端关闭他们自己独立的连接到你的server socket的连接时,你可以在OnClientDisconnect事件中得到讯息。 </P><P>五、socket事件的应答
% k$ _* A X' V. g( {6 Q5 g- F当使用sockets写应用程序时,大多数工作发生在socket控件的handler事件中.当通过socket连接开始读或写时,OnRead和OnWrite事件在non-blocking client sockets中发生从而通知sockets.同样的,服务器sockets(blocking or non-blocking)收到OnClientRead和OnClientWrite事件.
% ~! `+ a6 v% S; L" k4 Z% b当服务器结束一个连接时,客户scokets收到一个OnDisconnect事件.当客户端结束一个连接时,服务器socket收到一个OnClientDisconnect事件. $ O d3 n/ i+ @9 {* S. d I
另外,客户端Sockets和服务器端socket从连接中收到一个错误信息时,都将产生有个错误事件. </P><P>错误事件:客户sockets和服务器sockets通常会产生一个OnError事件,当他们从连接中收到一个错误信息的时候.你能够写一个OnError事件处理去响应这些错误信息.这个OnError事件处理提供传送关于socket试图做什么的时候这个错误发生的信息,以及错误信息提供的错误代码.你可以在OnError事件处理中对这个错误作出响应,并且把错误代码改为0,以避免socket产生一个例外. </P><P>当开始和完成发生时,socket控件通常会收到一个事件号(number of events).如果你的应用程序需要改变socket开始操作的处理过程或通过连接开始读或写操作时,你将写事件handlers去应答这些client events和server events. </P><P>A.client events
; c" {' O0 L( X: x; S当一个客户socket打开一个连接时,以下事件发生: - X- ?- Q8 [" M+ c; g
1.一个OnLookup事件最先发生,它试图去定位server socket.在这里你不能改变Host,Address,Port,Service属性去改变你想定位的服务器.你能够使用Socket属性去访问client windows socket object,并且使用它的SocketHandle属性去调用windows API,以便改变socket的客户属性.例如,如果你想在客户应用软件中设置端口号,你必须在server client连接前做这件事. e8 r; C1 s, y
2.windows socket设置和初始化事件通知.
# t4 k" W, t, O: D3.当找到server socket时一个OnConnecting事件发生.在这事件中,windows Socket object可以利用的是通过socket属性提供关于连接的另一端的服务socket的一些信息.这是获得实际使用来连接的端口和IP地址的第一个机会,它可能不同于从监听socket处同意连接时得到的端口或IP地址.
* \6 d8 E% ^3 D5 @8 _4.服务器同意连接请求,客户端socket完成连接.
' t1 G6 q; @2 l. @7 ^5 l* e8 B# X2 Q, ]5.当一个连接得到确定后,一个OnConnect事件发生.如果你的socket立即开始通过连接读或写,就应写一个OnConnect事件Handler去作这件事. </P><P>B.服务器端事件(server events)
- n( f0 c1 f. D服务器socket控件通过两中方式连接:监听连接和连接到客户应用.服务器socket收到这两个连接的所有事件. </P><P>监听时事件
8 Z. f, l7 M, a* q0 C7 g当构成监听连接前,OnListen事件发生.在这个时候你能够通过socket属性获得server windows socket object.你能够使用它的SocketHandle属性去改变socket,在socket打开监听之前.例如,如果你想限定监听服务使用的IP地址,你可以在这个OnListen事件Handler中做. </P><P>与客户端连接的事件 5 s# g0 l1 M8 ]6 P
当一个服务器socket同意一个客户连接请求时,接下来的事件发生:
# a8 g l' A/ `0 ~" C6 d1 o6 E8 R6 m: c1.服务器socket产生一个OnGetSocket事件,通过windows socket handle传送给连接的另一端的socket.如果你想提供自己定义的TServerClientWinSocket of descendant,你可以在OnGetSocket 事件 handler中建立,将被用来替代TServerClientWinSocket. 3 g; a$ W: T$ i# n0 |8 e. _
2.一个OnAccept事件发生,传送新的TServerClientWinSocket对象给事件句柄.这是第一个要点,当你使用TServerClientWinSocket的属性去获得被连接中服务的那端的客户的信息时. / _& {9 v$ w1 ?5 J1 S
3.如果服务类型是stThreadBlocking,一个OnGetThread事件发生.如果你想提供自己定义的TServerClientThread子类,你可以在OnGetThread事件句柄中建立一个,它将替代TServerClientThread.
2 h3 w0 c2 K! b; ?" f n4.如果服务类型是stThreadBlocking,一个ONThreadStart事件发生当这个线程(thread)开始执行时.如果你想执行任何初始化这个线程,或调用一些windows socket API在这线程开始通过连接读和写之前,应该使用OnThreadStart事件句柄.
V* `% i7 G2 S+ k: T5.当客户端完成一个连接时,一个OnClientConnect事件发生.如果是non-blocking服务,你可能想开始通过socket连接在这端进行读或写操作. </P><P>六、通过socket连接进行读和写 B; z% N6 C9 E I% M6 g9 Y# k$ `
通过socket连接到其他机器的原因是想通过这些连接来读和写信息.什么信息是你要读和写的,或者当你想读和写时是依靠哪些socket连接的相关服务的. 5 G" T3 z P; x+ z
通过sockets进行读和写可以是异步的,所以在你的网络应用中不需要阻塞其他代码的执行.这是调用non-blocking connection.你也同样可以通过blocking connection,这时你的下一行代码的执行必须等到读或写操作完成. </P><P>A.Non-blocking连接,读和写是异步的, 所以在你的网络应用中不需要阻塞其他代码的执行.建立一个Non-blocking连接: ' _' @# l2 l4 M0 s
1.在客户socket中设置ClientType属性为ctNonBlocking.
% X8 R/ E4 F8 Z7 p; v, N/ f9 p# V" ^4 w2.在服务器socket中设置ServerType属性为stNonBlocking.
7 k# F, b( y% V) \+ L3 k当连接是non-blocking时,连接的另一端企图读或写时读和写事件将把这个信息通知你的socket. </P><P>读和写操作事件 . c8 S5 q# ~6 h6 ^
Non-blocking sockets想通过连接读或写时,它会产生一个读和写操作事件通知你的socket.在客户端sockets,你可以在OnRead或OnWrite事件句柄中对这些事件做出反应.在服务器端Scokets,可以在OnClientRead或OnClientWrite事件句柄中对这些事件做出反应.与socket连接相关联的windows socket object在事件句柄的读或写中被当作一个参数.Windows socket object提供一个方法号(number of methods)以允许你通过连接读或写.
+ s+ W; F* ^6 \4 t% N3 O `通过socket连接读,使用ReceiveBuf或ReceiveText方法.在使用ReceiveBuf方法前,使用Receivelength方法去确定在连接的另一端socket准备发送的字节数(number of bytes). 8 ^3 R; W" Z, K! q6 S
通过socket连接写,使用SendBuf,SendStream,或SendText方法.如果你通过socket发送信息后不在需要socket连接,你可以使用SendStreamThenDrop方法. SendStreamThenDrop在写完所有的信息后将关闭Socket连接,它能够从stream读信息.如果你使用SendStream或SendStreamThenDrop方法,不要释放Stream object, socket在连接结束后会自动释放这个Stream. 0 Y: t6 ^% W& `. W
注意:SendStreamThenDrop将关闭一个独立的客户连接服务,而不是监听连接. </P><P>B.Blocking connections ) |) x+ ~/ b8 G$ w' I n
当你使用的连接是Blocking时,你的Socket必须通过连接发起读或写操作,胜过被动的等待从socket连接发来的通知. 当你的连接末端的读和写操作发生改变时使用Blocking socket.对于客户端sockets,设置ClientType属性为ctBlocking 以便构成一个blocing connection.根据你的客户端应用想完成什么,你可能想建立一个执行线程去完成读或写操作,以便你的应用能够继续执行其他的线程,当它在等待通过连接读或写操作的完成.
0 f( N& v8 r' N# q0 P& Z对于服务器sockets,设置ServerType属性为stThreadBlocking以便构成一个blocking connection.因为blocking connections在等待通过连接读或写信息完成时挂起了其他代码的执行,服务器socket控件通常产生一个新的执行线程给每一个客户连接,当ServerType设置为stThreadBlocking时.许多使用Blocking连接的应用都写使用线程(using threads.甚至如果你不使用线程,你可能也想使用(using) TWinSocketStream去读和写.
6 T1 q8 [' {' u. P# s/ ~7 B1)using threads
# V9 }! c% l2 k/ [' R当使用一个blocking connection进行读或写操作时,客户sockets不会自动产生一个新线程.如果你的客户应用程序没有什么事做,直到读或写信息完成,那么这正是你想要的.如果你的应用包括了一个用户界面,它还需要响应用户的操作,那么,你可能想产生一个独立的线程去读写.当服务器sockets形成一个blocking连接时,他们常常产生独立的线程给每一个客户连接,所以没有客户需要等待直到其他客户完成通过连接读或写操作.在默认情况下,服务器sockets使用TServerClientThread对象去实现为每个连接执行不同的线程. * a( @7 j" g7 S# v+ ]
TServerClientThread对象模拟发生在non-blocking连接中的OnClientRead和OnClientWrite事件.可是,这些事件发生在监听socket上时,不是本地线程(thread-local).如果客户请求频繁,你将想建立你自己的TServerClientThread子类去提供一个安全线程(Thread-Safe)去完成读和写操作. + A' Q. p* d. s5 y$ g
当写客户线程或写服务器线程时,你能够使用TwinSocketStream去做实际的读写操作.
2 G( l, f! q3 p2 j; l8 R- c6 KA)写客户端线程
. c% j" E9 k1 X( g8 [* c% Z为客户端连接写一个线程,定义一个新线程对象,使用新线程对象对话框.你的新线程对象Execute方法的句柄的通过线程连接进行读写操作的细节,可以建立一个TWinSocketStream对象,然后使用它来读或写. 9 o5 Q0 @4 q: | s
使用你自己的线程,在OnConnect事件句柄中建立它.关于建立和运行线程的更多信息,请看Executing thread objects. # F/ f: b( _4 ?
例子:这个例子显示一个应用的客户线程在连接确定后向服务器发出写请求. [" q; _( ?( G4 J
void __fastcall TMyClientThread::Execute() : r* @* \3 I8 N6 d' U' C0 B4 J
{
4 ~% z' q3 x1 h. x+ ^8 w/ H0 b& ~while (!Terminated && ClientSocket1->Active)
$ D9 S& ?7 q0 u- p5 T! l$ ^. V// make sure connection is active
0 }6 R8 U# J8 m, i% z{ 4 c+ E- L9 G( I- v/ s; `
try 4 G" [& `2 `- P' s
{ ( o: n9 o) ]: N+ p- f
TWinSocketStream *pStream = new TWinSocketStream(ClientSocket1.Socket,60000); & x8 a9 v' ?4 C9 i* D& {, Z
try
$ J" N/ w& }5 W{
+ I; {% a6 K4 Xchar buffer[10]; 2 S; ]- O, u$ I \& K
GetNextRequest(buffer);
* J8 }; Z3 G! g$ z// GetNextRequest must be a thread-safe method / ]7 L1 v- Z. |2 S E, K
// write a request to the server $ _1 Q" Z$ q# }4 E( L
pStream->Write(buffer,strlen(buffer) + 1); / ]! t" H% }. N7 Z4 p; Y" ~7 c
// continue the communication (eg read a response) </P><P>} 1 I$ T/ E$ ~1 x ]2 a' E# r; |: E
__finally </P><P>{ 9 o& G, Z6 e8 S4 P$ ~2 E
delete pStream;
$ M+ E, |' ]7 n* |} # j: a5 @4 T* Y0 `
} - k& o8 e a4 o) ?) Y
catch (Exception &E) ' g7 f3 R; @ U1 Z, _
{ & I5 N' N; H) l8 a
if (!E.ClassNameIs("EAbort"))
8 Q6 N5 Z- A6 T7 y' zSynchronize(HandleThreadException());
g8 K+ L+ R6 r3 S// you must write HandleThreadException & {1 f8 C) h, J/ ^
} ( Q0 o) G& T- Y5 w( V/ e2 f
} ; z* t8 \* A0 P% T
} </P><P>B)写服务器线程
7 v" R1 U' Q& Y% ?9 i7 d9 Y服务器连接线程由TServerClientThread派生.因为这个,不能使用新线程对象对话框.替代的,手动声明你的线程如下: </P><P>class PACKAGE TMyServerThread : 8 Y8 V1 U) ?0 O3 e$ E+ L2 m
public ScktComp::TServerClientThread B9 f+ `) h7 d2 d
{
8 _& R. ]9 [& `% |public ' ~( n3 G) B! {$ m) {0 ^
void __fastcall ClientExecute(void); $ @% i9 t# Y- q+ K, }3 @
} </P><P>注意你将用重载ClientExcute方法替代Execute方法.执行ClientExecute方法必须为客户端连接写一个同样的Execute方法线程.然而,当你从控件栏上放一个客户socket控件到你的应用上时来替代这个方法时.监听服务socket同意一个连接时,服务客户线程必须使用TServerClientWinSocket对象来建立.这可以利用共公共的CientSocket属性.另外,你能够使用HandleException这个protected性的方法,胜过
% M {5 \7 B( i8 I' Y3 e0 m你自己写你的thread-safe例外操作. </P><P>警告:Server sockets会缓存他们使用到的线程.确信ClientExecute方法执行一些必要的初始化操作,以便它们在最后执行时不致于产生不利的结果. </P><P>当你使用你的线程时,在OnGetThread事件句柄中建立它.当建立线程,设置CreateSuspended参数为false.
j" x _$ m8 L3 [例子:这个例子显示一个为一个应用服务的线程,这个应用是在连接确定后由客户端来的读请求. </P><P>void __fastcall TMyServerThread::ClientExecute() $ n5 Q8 P& l% R3 r7 A
{
c* E6 J& E2 l! e$ o( n4 pwhile (!Terminated && ClientSocket->Connected) $ ]% b1 E' v" d+ h
// make sure connection is active 6 w4 x7 l* m/ d! m, H, F
{
8 u% [# ~3 |% J _* A5 ctry ' Y* B- P$ N0 v+ c8 _5 O' F% c
{ " H" T% K- ~* p- ]( e8 k0 i1 P# x
TWinSocketStream *pStream = new TWinSocketStream(ClientSocket,
; I- t4 G& _1 b, s; d! n2 _60000); 1 v2 r S5 [6 }7 H8 r) N
try 0 `5 F# U$ D+ ^, b' B& c$ k
{
9 H g. k9 H; V7 O! |: F; ichar buffer[10]; & Z, k/ T' t: d. h$ h" A
memset(buffer, 0, sizeof(buffer));
$ Y7 C5 ~6 ]1 X" B0 }7 |if (pStream->WaitForData(60000)) & m) @% q7 g, `+ o5 e; V2 L" K
// give the client 60 seconds to start writing # h% u2 \8 K. ~. V/ P/ x
{ 9 \) s! u$ `& e; Q6 i! b$ @
if (pStream->Read(buffer, sizeof(buffer) == 0) </P><P>ClientSocket->Close();
' Y) E9 L% l( U$ m4 G: U// if can't read in 60 seconds, close the connection
5 i m# J* k! n// now process the request
# {* ?) @! j" P: @& @1 ~} + j3 X; ]2 H( i# o3 g( H1 \9 z
else
4 K" `/ `8 X0 N6 }- fClientSocket->Close();
0 D2 [9 P1 P3 Q; S G7 n( `} H& @$ O+ k/ V X, G7 H! P
__finally </P><P>{
6 k B: a+ B4 m/ \! j7 Z. M2 e/ ]delete pStream;
" y. A7 ^0 V' z' i2 y}
, c; W7 p! [- r" [ v}
2 G1 V' O5 @- K- r6 r7 ?, h3 u* P$ ucatch (...) & o$ s3 P0 }$ |& q: \: `& T
{ - H3 k! G: p$ h* a5 e
HandleException(); & p9 }3 t. R2 K1 \0 |! w
}
B( p4 q8 N$ I: _1 A: r} $ E* o; |" K+ q' I( Z3 H8 V
} </P><P>C.使用TwinSocketStream
1 ^8 h9 T" G8 I* c当为一个blocking连接实现一个线程时,你必须确定在连接的另一端的socket是准备写还是读.Blocking连接不会通知socket当它准备好写或读操作的时候.想看看连接是否准备好,使用TWinSocketStream对象.TWinSocketStream提供一个方法去帮助调整读或写操作时间的选择.调用WaitForData方法去等待,直到socket另一端的 ! C! V9 o" Y6 P
准备好写操作.当读写操作使用TWinSocketStream时,如果读或写操作在指定的时间期限内未能完成,Stream将发生超时.这个超时被当作一个结果,socket应用不会暂停,而是不断的通过一个dropped connection试图读或写. </P><P>注意:你不能在non-blocking连接中使用TWinSocketStream </P> |
|