Q
q.yuhen
Unregistered / Unconfirmed
GUEST, unregistred user!
您好！
-----------------------------------------------------------------------------
unit Q1xpServer1;
interface
uses
?Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
?ExtCtrls, StdCtrls, Q1xpServer_TLB;
type
?TFormServer = class(TForm)
??procedure FormCreate(Sender: TObject);
??procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
?private
??{ Private declarations }
?public
??{ Public declarations }
?end;
var
?FormServer : TFormServer;
?Q1xp : IQ1xpServerCOM;
implementation
{$R *.dfm}
procedure TFormServer.FormCreate(Sender: TObject);
begin
?Q1xp:=CoQ1xpServerCOM.Create;
?Q1xp.Start;
end;
procedure TFormServer.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
?Q1xp.Stop;
?Q1xp:=nil;
end;
end.
------------------------------------------------------------------------------
如果我告诉您，到此为止您已经完成了一个标准的即时消息通讯系统的服务器程序，您的反应是什么？
还等什么……，快来获取Q1xp开发版，编写属于自己的ICQ/OICQ系统吧。
------------------------------------------------------------------------------
祝好！
秋雨痕
http://q1xp.onchina.net
q.yuhen@china.com
-----------------------------------------------------------------------------
unit Q1xpServer1;
interface
uses
?Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
?ExtCtrls, StdCtrls, Q1xpServer_TLB;
type
?TFormServer = class(TForm)
??procedure FormCreate(Sender: TObject);
??procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
?private
??{ Private declarations }
?public
??{ Public declarations }
?end;
var
?FormServer : TFormServer;
?Q1xp : IQ1xpServerCOM;
implementation
{$R *.dfm}
procedure TFormServer.FormCreate(Sender: TObject);
begin
?Q1xp:=CoQ1xpServerCOM.Create;
?Q1xp.Start;
end;
procedure TFormServer.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
?Q1xp.Stop;
?Q1xp:=nil;
end;
end.
------------------------------------------------------------------------------
如果我告诉您，到此为止您已经完成了一个标准的即时消息通讯系统的服务器程序，您的反应是什么？
还等什么……，快来获取Q1xp开发版，编写属于自己的ICQ/OICQ系统吧。
------------------------------------------------------------------------------
祝好！
秋雨痕
http://q1xp.onchina.net
q.yuhen@china.com
]
][