随笔:13 文章:31 评论:114 引用:0
有心就有翼 有梦就会飞
------------------By MC
发新文章
联系
聚合
管理
Delphi与FLASH通过SOCKET通信
Delphi编写的服务器端代码(部分):
1
procedure TForm1
.
ServerSocket1ClientRead(Sender
:
TObject;
2
Socket
:
TCustomWinSocket);
3
begin
4
Form1
.
Memo1
.
Lines
.
Add(
Socket
.
ReceiveText);
5
Form1
.
ServerSocket1
.
Socket
.
Connections[
0
]
.
SendText(
'
OK!
'
+
#
0);
6
end;
7
8
procedure TForm1
.
ServerSocket1ClientConnect(Sender
:
TObject;
9
Socket
:
TCustomWinSocket);
10
begin
11
Form1
.
Memo1
.
Lines
.
Clear;
12
end;
13
14
procedure TForm1
.
ServerSocket1Accept(Sender
:
TObject;
15
Socket
:
TCustomWinSocket);
16
begin
17
Form1
.
Memo1
.
Lines
.
Clear;
18
Form1
.
Memo1
.
Lines
.
Add(
'
Connected
'
);
19
Form1
.
ServerSocket1
.
Socket
.
Connections[
0
]
.
SendText(
'
OK!
'
+
#
0);
20
end;
21
22
procedure TForm1
.
FormCreate(Sender
:
TObject);
23
begin
24
Form1
.
ShockwaveFlash1
.
Movie
:=
ExtractFilePath(Application
.
Exename)
+
'
client.swf
'
;
25
end;
Flash实现客户端代码(部分):
1
var
mySocket
=
new
XMLSocket();
2
//
3
mySocket.connect(
"
127.0.0.1
"
,
3000
);
4
mySocket.onConnect
=
function
(success)
{
5
if
(success)
{
6
lists.text
=
"
Connect Ok!
"
;
7
//
mySocket.send("guest");
8
Selection.setFocus(input_txt);
9
}
else
{
10
lists.text
=
"
connect failed
"
;
11
}
12
}
;
13
mySocket.onData
=
function
(s)
{
14
lists.text
+=
s;
15
}
;
16
mySocket.onClose
=
function
()
{
17
lists.text
+=
"
Server has been closed.
"
;
18
}
19
//
20
bn_send.onRelease
=
function
()
{
21
sendMsg(input_txt.text);
22
}
;
23
function
sendMsg(str)
{
24
mySocket.send(str);
25
input_txt.text
=
""
;
26
Selection.setFocus(input_txt);
27
}
源文件下载
发表于 2005-12-21 18:27
有心就有翼 有梦就会飞
阅读(1449)
评论(1)
编辑
收藏
所属分类:
Delphi,C++
评论
#
re: Delphi与FLASH通过SOCKET通信
汉字问题,您如何解决的
新用户注册
刷新评论列表
只有注册用户
登录
后才能发表评论。
网站导航:
博客园
IT新闻
知识库
C++博客
博问
管理
相关文章:
Delphi里删除目录的函数
Delphi里随机函数的应用
Delphi与FLASH通过SOCKET通信
Delphi获取完整路径
成为编程高手的八大奥秘
CALENDER
<
2006年5月
>
日
一
二
三
四
五
六
30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
1
2
3
4
5
6
7
8
9
10
公告
夫君子之行,静以修身,俭以养德。非淡泊无以明志,非宁静无以致远。夫学须静也,才须学也,非学无以广才,非志无以成学。淫慢则不能励精,险躁则不能治性。年与时驰,意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!
<% Response.Buffer = true; Response.ExpiresAbsolute = DateTime.Now - new TimeSpan(1, 0, 0); Response.Expires = 0; Response.CacheControl = "no-cache"; %>
My Music Playlist V1.0
常用链接
我的随笔
我的评论
我的参与
最新评论
留言簿
(2)
给我留言
查看公开留言
查看私人留言
文章分类
(35)
.NET(1)
(rss)
Delphi,C++(5)
(rss)
Downloads(3)
(rss)
JAVA(5)
(rss)
Linux&Unix(1)
(rss)
PPC(2)
(rss)
SQL&Sqlserver
(rss)
多媒体技术(2)
(rss)
曼联&足球(10)
(rss)
电影(1)
(rss)
网页&ASP(VB)(5)
(rss)
Favorites
MC相册
JAVA开源大全
Transact-SQL 参考
一个很好的JAVA社区
中国Linux公社
全景正片
宁波时代电影大世界
维基百科
韩语教室
Friends
Betty平
Heather
Java Bo&Yang
Jell
Jonlee
Seven琪琪的幸福天堂
Smallfox的传说
TiGERTiAN
Vivagaojie
不叮布丁
俏皮儿
先锋博客
奔走不息冰红茶
小美
白狐雪生Vera
紫梦的左岸冬眠
阿齐妹妹的窝
搜索
最新评论
1. re: 支持HTML类BLOG里插入音乐的方法
那该如何插入音乐呢?还是有点不明白
--长春甲醛
2. re: Macromedia Studio 8 序列号生成器
非常好
--richardwei
3. re: Macromedia Studio 8 序列号生成器
haO
--刘辉
4. re: Macromedia Studio 8 序列号生成器[未登录]
在哪里
--点点滴滴
5. re: Macromedia Studio 8 序列号生成器
万岁
--得法
Powered By:
博客园
模板提供
:
沪江博客