江湖救急------VOD服务器编程(多线程 + SOCKET).大侠们救命 ( 积分: 200 )

  • 主题发起人 主题发起人 涅磐的凤凰
  • 开始时间 开始时间
涅

涅磐的凤凰

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在公司维护一套VOD系统的上层软件,在工作中遇到困难想麻烦大家指点一下
客户端是一套VOD终端,由上面的单片机完成工作.PC被当做VOD服务器使用
服务端程序就是我想请求解决的问题.我是第一次写 多线程 + SOCKET 程序,希望阁下能把实现原理说详细一些.最好能给出一段示范代码

VOD工作原理
VOD终端启动以后，会向一个指定的IP地址(电脑主机)发送消息
主机收到消息后，就发一个消息给VOD终端(此时跟VOD连接的电视就出现节目菜单选择)
然后用遥控器对着VOD进行点播,VOD收到遥控器的按键信息后，再把按键信息发给主机,
主机上的程序,根据按键的不同取值,执行相应的的功能
相应的功能,分菜单选择,开始点播,停止点播等等
点播节目的时候，VOD终端会向主机发出要包信息,主机就会把多媒体信息传送给VOD终端,此时就会播放选择的节目了.
VOD终端是公司自己开发的,里面的单片机程序和上层软件是搭配起来用的.我只知道把相应的消息发送给VOD终端后，VOD终端会根据主机发来的消息自动处理数据
上层软件主要涉及文件操作和SOCKET(SOCKET用来发送信息包用),还有一些写好的低层函数(用来向VOD终端发送命令).
PS: 开发环境: winXP + delphi6.0 + 交换机 + 电视 + 一套VOD终端

服务端程序介绍:
服务端程序由2个TNMUDP控件完成应答
一个UDP(cmdudp)用来和VOD进行应答过程,另外一个(vodudp)用来向VOD发送控制单片机的信息
2个UPD控件均指定好了固定端口
原来的程序里面,在 cmdudp.UDPDataReceived 过程里面实现应答过程
现在我不能使用 cmdudp.UDPDataReceived 过程，而改用线程处理
线程需要把 cmdudp.UDPDataReceived 的功能实现,而原来的udp.UDPDataReceived 过程就不再处理应答过程了
我的理解:
1.在线程单元的create里面,动态创建2个UDP控件
2.原先的 udp.UDPDataReceived 过程实时向线程传送 IP,Numberbytes和port这3个参数
3.在线程单元内，写一自定义函数(过程?),用来实现 udp.UDPDataReceived 的功能
线程功能如下:
如果VOD没有向PC发信息，线程处于循环状态
一旦PC接收到信息,就在线程内实现udp.UDPDataReceived的功能
4.每个线程处理一个VOD终端.VOD终端启动后自动增加一个线程;VOD终端断电后,自动撤消相应的线程
我的问题:
1.线程里面无法使用事件,请教如何写自定义函数(过程?),实现 udp.UDPDataReceived 过程的功能
2.如果不用UDP控件,可以用 UDPSOCKET控件实现吗?
3.可以用serversocket控件实现吗?
4.还可以用其他什么控件实现?(最好基于UDP协议)
5.我对 多线程 + SOCKET 有太多的细节不了解

方便的话，请给出一段示范代码.


老程序的udp的ondatareceive事件如下:
procedure TFORM1.CMDUDPDataReceived(Sender: TComponent;
NumberBytes: Integer;
FromIP: String;
Port: Integer);
var
x,ipadd,key,aindex:integer;
tempbuf:array [0..100] of char;
vcdb2:array [0..1177] of char;
lost_bag_ppp:integer;
//丢失的包应该在的位置
//如果大于0，在new 缓冲中
//如果小于0，在old 缓冲中
temp_pointer:pchar;
//读数据的方式，根据要求的IP地址开辟缓冲区50*1176两个
//当第一个缓冲数据发完后数据转入备用缓冲
t,count:word;
BBBUF_SIZE:INTEGER;
back_pos:longint;
begin

if not can_send then
//这里的 can_send可以不管它
exit;
//和本机地址相同的 IP应该退出
//dsp系统收到为0的数据包会停止发包，直到收到1的包才开始工作
ipadd:= checkfromip(fromip);
//checkfromip是自定义函数，可以得到IP地址的最后一个数字
if ipadd = 0 then
exit;
cmdudp.ReadBuffer(tempbuf, NumberBytes);

//收到了要包申请时应该判断
//首先应该判断CALL_FLAG的类型
BBBUF_SIZE:=BUF_SIZE*1176;
lost_bag_ppp:=100;//100是个超出范围的数，表示不是都的包，不使用
x:=byte(tempbuf[2]);
case x of
{这里开始对VOD传来的应答信息进行解析,详细过程省略}
else
exit;
//如果不是以上的键，就应该退出
end;
//end case
{这里开始是公司的内部资料，主要是文件操作.以下省略}
end;
 
小弟在公司维护一套VOD系统的上层软件,在工作中遇到困难想麻烦大家指点一下
客户端是一套VOD终端,由上面的单片机完成工作.PC被当做VOD服务器使用
服务端程序就是我想请求解决的问题.我是第一次写 多线程 + SOCKET 程序,希望阁下能把实现原理说详细一些.最好能给出一段示范代码

VOD工作原理
VOD终端启动以后，会向一个指定的IP地址(电脑主机)发送消息
主机收到消息后，就发一个消息给VOD终端(此时跟VOD连接的电视就出现节目菜单选择)
然后用遥控器对着VOD进行点播,VOD收到遥控器的按键信息后，再把按键信息发给主机,
主机上的程序,根据按键的不同取值,执行相应的的功能
相应的功能,分菜单选择,开始点播,停止点播等等
点播节目的时候，VOD终端会向主机发出要包信息,主机就会把多媒体信息传送给VOD终端,此时就会播放选择的节目了.
VOD终端是公司自己开发的,里面的单片机程序和上层软件是搭配起来用的.我只知道把相应的消息发送给VOD终端后，VOD终端会根据主机发来的消息自动处理数据
上层软件主要涉及文件操作和SOCKET(SOCKET用来发送信息包用),还有一些写好的低层函数(用来向VOD终端发送命令).
PS: 开发环境: winXP + delphi6.0 + 交换机 + 电视 + 一套VOD终端

服务端程序介绍:
服务端程序由2个TNMUDP控件完成应答
一个UDP(cmdudp)用来和VOD进行应答过程,另外一个(vodudp)用来向VOD发送控制单片机的信息
2个UPD控件均指定好了固定端口
原来的程序里面,在 cmdudp.UDPDataReceived 过程里面实现应答过程
现在我不能使用 cmdudp.UDPDataReceived 过程，而改用线程处理
线程需要把 cmdudp.UDPDataReceived 的功能实现,而原来的udp.UDPDataReceived 过程就不再处理应答过程了
我的理解:
1.在线程单元的create里面,动态创建2个UDP控件
2.原先的 udp.UDPDataReceived 过程实时向线程传送 IP,Numberbytes和port这3个参数
3.在线程单元内，写一自定义函数(过程?),用来实现 udp.UDPDataReceived 的功能
线程功能如下:
如果VOD没有向PC发信息，线程处于循环状态
一旦PC接收到信息,就在线程内实现udp.UDPDataReceived的功能
4.每个线程处理一个VOD终端.VOD终端启动后自动增加一个线程;VOD终端断电后,自动撤消相应的线程
我的问题:
1.线程里面无法使用事件,请教如何写自定义函数(过程?),实现 udp.UDPDataReceived 过程的功能
2.如果不用UDP控件,可以用 UDPSOCKET控件实现吗?
3.可以用serversocket控件实现吗?
4.还可以用其他什么控件实现?(最好基于UDP协议)
5.我对 多线程 + SOCKET 有太多的细节不了解

方便的话，请给出一段示范代码.


老程序的udp的ondatareceive事件如下:
procedure TFORM1.CMDUDPDataReceived(Sender: TComponent;
NumberBytes: Integer;
FromIP: String;
Port: Integer);
var
x,ipadd,key,aindex:integer;
tempbuf:array [0..100] of char;
vcdb2:array [0..1177] of char;
lost_bag_ppp:integer;
//丢失的包应该在的位置
//如果大于0，在new 缓冲中
//如果小于0，在old 缓冲中
temp_pointer:pchar;
//读数据的方式，根据要求的IP地址开辟缓冲区50*1176两个
//当第一个缓冲数据发完后数据转入备用缓冲
t,count:word;
BBBUF_SIZE:INTEGER;
back_pos:longint;
begin

if not can_send then
//这里的 can_send可以不管它
exit;
//和本机地址相同的 IP应该退出
//dsp系统收到为0的数据包会停止发包，直到收到1的包才开始工作
ipadd:= checkfromip(fromip);
//checkfromip是自定义函数，可以得到IP地址的最后一个数字
if ipadd = 0 then
exit;
cmdudp.ReadBuffer(tempbuf, NumberBytes);

//收到了要包申请时应该判断
//首先应该判断CALL_FLAG的类型
BBBUF_SIZE:=BUF_SIZE*1176;
lost_bag_ppp:=100;//100是个超出范围的数，表示不是都的包，不使用
x:=byte(tempbuf[2]);
case x of
{这里开始对VOD传来的应答信息进行解析,详细过程省略}
else
exit;
//如果不是以上的键，就应该退出
end;
//end case
{这里开始是公司的内部资料，主要是文件操作.以下省略}
end;
 
1.线程里面无法使用事件,请教如何写自定义函数(过程?),实现 udp.UDPDataReceived 过程的功能
WINSOCKET本来就有事件模型.如果你不想用,也可以使用消息实现.
2.如果不用UDP控件,可以用 UDPSOCKET控件实现吗?
我不知道UDP控件和UDPSOCKET控件有什么区别!
3.可以用serversocket控件实现吗?
你是想使用UDP还是TCP,先确定这个再说!
4.还可以用其他什么控件实现?(最好基于UDP协议)
控件是有很多的,如INDY下面的.
5.我对 多线程 + SOCKET 有太多的细节不了解
你想了解什么?
 
线程里可以用事件
有API函数WaitForMultipleObjects
可以处理事件
还可以自定义用户消息
然后Post自己的消息
用override的wndproc进行处理
 
还有 如果只需要调用udp.UDPDataReceived的话
你在手动线程里调用就可以，别忘了做同步
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
C
为什么这样触发不了多线程？ (200分)
回复
14
查看
413
ccoomm
C
C
一个关于Socket通信的多线程问题！！！(200分)
回复
12
查看
500
ccoomm
C
S
关于线程！急！！！！！！！(100分)
回复
6
查看
257
leizengzheng
L
M
关于多线程 TCP连接 （验证代理服务器）的矛盾(100分)
回复
0
查看
247
mycoolis
M
后退
顶部