作者:bat603
网址:http://blog.csdn.net/bat603/(本文可以随意转载及修改并可用于任何用处,但须注明作者和网址)
在局域网内实现图像的实时传输(实现环境bcb6.0+MSSQL)
本来要去睡觉的,但是为了整理一下该文档,还是坐在了电脑旁。明天睡个大头觉。
之所以使用bcb6.0,是因为用它开发速度快。但是一个前辈曾经给我说过,bcb开发的软件没有商业价值,当然他说的有点偏颇,不过
也反映了bcb的境遇。不过如果开发较小的项目,使用它的优势还是明显的。 转入正题,在网络传输信息,有两种模型:C/S、P2P。C/S模式需要在网络内有个服务器,客户端传输信息都要通过服务器进行转发。当传
输信息量较小的文本信息时,采用该方法因为其实现较简单,方便控制信息的传输,所以可以使用,以前的QQ就是采用这个方法,但是如果传
输信息量较大的图像信息时,显然当客户端较多时,服务器的负担会呈级数增加,显然是不合适的。只有使用P2P模式,即节点之间传输,这样
可以把负载平衡到各个节点,效率很高。但是它的缺点也是很明显的,每个节点都要负责维护其他节点的状态信息,实现起来比较复杂。这个
也是现在的研究热点,并有成品出现,但是也是应用于较小的网络。 在做这个网络协作系统时,由于人力资源较弱,所以我采用了这种的方法。就是把这两者结合,在图像信息传输的时候采用P2P模式,
但是需要在网络内运行一个服务器来负责维护各个节点的状态信息。这样可以极大的减少服务器的负荷,同时节点间传输的实现也比较容易。 实现方法:服务器运行,监视各个节点的状态。当一个节点登陆网络时,需要向服务器报告自己的状态,并请求得到它希望传输图像
信息的状态信息。当得到信息时,便不再与服务器进行交互,而是自己把图像向节点传输。当该节点退出网络时要向服务器报告。可见服务器
的工作就是一个索引服务器,而负载已经平衡到了各个节点。 应用背景:在网络协作学习系统中实时协作学习电子白板 系统中的电子白板是一个虚拟公共学习区域,在问题求解的过程中它作为主要的问题解决方案编辑的协作空间,而不同于聊天室只承
担组内成员沟通和情感维系的工作,以及与教师就学习问题互动的渠道。 • 实时协作学习电子白板的功能 ①基本的书写的功能,可以对文字进行协作编辑 ②对文字可以进行重点标示,以及擦除。 ③对协作动作进行控制,即在操作前必须首先控制申请,操作结束后解除控制。 ④可以对文字和标记进行点对点的传输,亦可在组内广播。
代码实现:节点与服务器的交互采用C/S模式,使用控件ClientSocket/ServerSocket,节点间传输信息,由于需要实现接收和发送两
个功能,所以在每个节点都要有两个控件,一个用来接收,一个用来发送,该系统中使用了NMStrm/NMStrmServ控件。数据库采用MSSQL,当然要
存放在服务器上。有必要强调的是,要把图像的BMP格式转化为JPG格式在进行传输,这样可以大大缩小传输的信息量。
该方法的 缺点:在传输图像时,采用的是传输整个图像方法。虽然经过格式优化,但是还是有很大的信息量,较好的方法是传输在白板上的动作信息,比如画线动作,可以采集关键部位的坐标和画笔颜色信息传输,这样更能减少信息量的传输(仲日给提的建议),但是实现起来较麻烦,考虑到时间问题,没有实现。 部分源代码:(部分代码参考csdn的bcb版和www.ccrun.com) 节点端 //---------------------------------------------------------------------------
#include <vcl.h> #pragma hdrstop
#include "board.h" #include "Unit7.h" #include "Unit1.h" #include <jpeg.hpp> //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TWhiteBoard *WhiteBoard; //--------------------------------------------------------------------------- __fastcall TWhiteBoard::TWhiteBoard(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TWhiteBoard::FormCreate(TObject *Sender) { //禁用关闭按钮 EnableMenuItem(GetSystemMenu(Handle,false), SC_CLOSE, MF_DISABLED | MF_BYCOMMAND | MF_GRAYED);
Button3->Enabled = false;
Timer1->Enabled = false; m_npenFlag = 0;//初始化画笔的功能 Image->Parent->DoubleBuffered = true; void *dsdc; void *dxwnd;
dxwnd=GetDesktopWindow();//取得桌面句柄 dsdc=GetDC(dxwnd); BitBlt(Image->Canvas->Handle,0,0,NULL,NULL,dsdc,0,0,SRCCOPY); ReleaseDC(dxwnd,dsdc); } //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::ImageMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { //m_oldCursor = Screen->Cursor; if (m_npenFlag == 1)//输入文本 {
if (Shift.Contains(ssCtrl))//按下ctrl,要改变文本大小 { int xstart,ystart;
Screen->Cursor = crSizeNWSE; xstart = myMemo->Left; ystart = myMemo->Top; myMemo->Width = X - xstart; myMemo->Height = Y - ystart;
} else { Screen->Cursor = crCross; }
}
if (m_npenFlag == 2)//画笔 { if(Shift.Contains(ssLeft)) { if(x1==-1&&y1==-1) { x1=X; y1=Y; //Image->Canvas->Pen->Color=clRed; Image->Canvas->Pen->Width=3; Image->Canvas->MoveTo(x1,y1); Image->Canvas->LineTo(X,Y); } else { //Image->Canvas->Pen->Color=clRed; Image->Canvas->Pen->Width=3; Image->Canvas->MoveTo(x1,y1); Image->Canvas->LineTo(X,Y); x1=X; y1=Y; } } } if (m_npenFlag == 3)//橡皮 { if(Shift.Contains(ssLeft)) { if(x1==-1&&y1==-1) { x1=X; y1=Y; //Image->Canvas->Pen->Color=clRed; Image->Canvas->MoveTo(x1,y1); Image->Canvas->LineTo(X,Y); } else { //Image->Canvas->Pen->Color=clRed; Image->Canvas->MoveTo(x1,y1); Image->Canvas->LineTo(X,Y); x1=X; y1=Y; } } }
} //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::ImageMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(Button==mbLeft) { x1=-1; y1=-1; }
} //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::BitBtn2Click(TObject *Sender) { m_npenFlag = 2; if (ColorDialog->Execute()) Image->Canvas->Pen->Color = ColorDialog->Color; } //---------------------------------------------------------------------------
//产生输入文本框 void __fastcall TWhiteBoard::ImageMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (m_npenFlag == 1) {
if (Button==mbLeft ) { if (myMemo != NULL) { delete myMemo; myMemo = NULL; } myMemo = new TMemo(Owner); myMemo->Parent = Panel1; myMemo->Left = X; myMemo->Top = Y; myMemo->Width = 500; myMemo->Height = 20; myMemo->Ctl3D = false; myMemo->OnMouseMove = Memo1MouseMove; } } else if (m_npenFlag == 2) { x1 = X; y1 = Y; }
if (m_npenFlag == 3) { Image->Canvas->Pen->Color = clCaptionText; Image->Canvas->Pen->Width = 13; Image->Canvas->Rectangle(X-1, Y-1, X, Y);
} } //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::BitBtn1Click(TObject *Sender) { m_npenFlag = 1; } //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::Panel1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if (m_npenFlag == 1) { if(X<0||X>Panel1->Width||Y<0||Y>Panel1->Height) { ReleaseCapture(); Screen->Cursor = crArrow; // Label1->Caption="Leave";//鼠标离开事件 } else { if(Panel1->Handle!=GetCapture()) { SetCapture(Panel1->Handle); Screen->Cursor = crCross; // Label1->Caption="Enter";//鼠标进入事件 } } } if (m_npenFlag == 2) { if(X<0||X>Panel1->Width||Y<0||Y>Panel1->Height) { ReleaseCapture(); Screen->Cursor = crArrow; // Label1->Caption="Leave";//鼠标离开事件 } else { if(Panel1->Handle!=GetCapture()) { SetCapture(Panel1->Handle); Screen->Cursor = crHandPoint; // Label1->Caption="Enter";//鼠标进入事件 } } }
Label1->Caption = IntToStr(X)+","+IntToStr(Y);
} //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::Memo1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { //if (Shift.Contains(ssCtrl) // { Label1->Caption = IntToStr(X)+","+IntToStr(Y); Screen->Cursor = crIBeam;
} //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) {
Screen->Cursor = crArrow; } //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::BitBtn3Click(TObject *Sender) { Image->Canvas->TextOutA(myMemo->Left,myMemo->Top,myMemo->Text); if (myMemo != NULL) { delete myMemo; myMemo = NULL; } } //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::BitBtn4Click(TObject *Sender) { Screen->Cursor = crNoDrop; m_npenFlag = 3; } //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::NMStrmServ1MSG(TComponent *Sender, const AnsiString sFrom, TStream *strm) { TMemoryStream *ImageStream; ImageStream = new TMemoryStream; strm->Seek(0,soFromBeginning); TJPEGImage *jpeg; // 定义JPEG图象 try { jpeg = new TJPEGImage; // 分配内存 // 从数据流中载入图象 jpeg->LoadFromStream(strm); // 显示图象 Image->Picture->Bitmap->Assign(jpeg); //MessageBeep(MB_OK); // 发出提示声音 } __finally { delete jpeg; // 释放资源 } delete ImageStream; ImageStream = NULL; } //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::Button2Click(TObject *Sender) { WorkRoom->ClientSocket->Socket->SendText("4:"+NBCL->m_sUserID+":Request");//申请白板控制权 Button2->Enabled = false; Button3->Enabled = true; } //---------------------------------------------------------------------------
//定时传输图像,以达到实时传输目的 void __fastcall TWhiteBoard::Timer1Timer(TObject *Sender) {
TMemoryStream *imgstream; imgstream = new TMemoryStream; Graphics::TBitmap *bBitmap; // 定义位图变量 try { bBitmap = new Graphics::TBitmap(); // 创建位图
// 拷贝屏幕的指定区域到位图 bBitmap->Assign(Image->Picture->Bitmap); TJPEGImage *jpeg; try { jpeg = new TJPEGImage; // 创建JPEG图象 jpeg->Assign(bBitmap); // 将位图转化为JPEG格式 jpeg->SaveToStream(imgstream); // 保存JPEG图象信息 } __finally { delete jpeg; // 释放资源 } } __finally { delete bBitmap; // 释放资源 } //向服务器发送图像信息 /* AnsiString shostName = WorkRoom->ClientSocket->Socket->RemoteHost; try { imgstream->Position = 0; NMStrm1->Host=shostName; //指定主机名 NMStrm1->PostIt(imgstream); //发送的文件 } catch(...){} */
//找到其他组成员 vFindOtherHost(); for (int i=0; i<m_nHostNum; i++) try { imgstream->Position = 0; NMStrm1->Host=m_sOtherHost[i]; //指定主机名 NMStrm1->PostIt(imgstream); //发送的文件 } catch(...){} delete imgstream; imgstream = NULL;
} //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::Button3Click(TObject *Sender) { WorkRoom->ClientSocket->Socket->SendText("4:"+NBCL->m_sUserID+":Giveup");//放弃白板控制权 Button2->Enabled = true; Button3->Enabled = false; Timer1->Enabled = false; WorkRoom->Memo->Lines->Add("我放弃了白板控制权");
} //---------------------------------------------------------------------------
void __fastcall TWhiteBoard::FormHide(TObject *Sender) { Timer1->Enabled = false; if (Button3->Enabled) WorkRoom->ClientSocket->Socket->SendText("4:"+NBCL->m_sUserID+":Giveup");//放弃白板控制权 if (WorkRoom->Showing) WorkRoom->Hide(); } //---------------------------------------------------------------------------
//得到其他节点状态 void TWhiteBoard::vFindOtherHost() { //TODO: Add your source code here //找到同组在线人的计算机名称
//读取本组在线成员信息表 AnsiString SQL; AnsiString sUserID,sUserName; AnsiString sHost,sIP; SQL = " declare @teamid int "; SQL += " select @teamid=TeamID from StudentGroupInfo where UserID='"+NBCL->m_sUserID+"'"; SQL += " select R.UserID,UserName,O.Host,O.IP from StudentRegisterInfo as R inner join StudentGroupInfo as G on
R.UserID=G.UserID and G.TeamID=@teamid inner join OnlineInfo as O on O.UserID=G.UserID"; NBCL->MainQuery->Close(); NBCL->MainQuery->SQL->Clear(); NBCL->MainQuery->SQL->Add(SQL); NBCL->MainQuery->Open(); m_nHostNum = 0; while (!NBCL->MainQuery->Eof) { sUserID = NBCL->MainQuery->FieldByName("UserID")->AsString; if (sUserID != NBCL->m_sUserID) { sUserName = NBCL->MainQuery->FieldByName("UserName")->AsString; sHost = NBCL->MainQuery->FieldByName("Host")->AsString; sIP = NBCL->MainQuery->FieldByName("IP")->AsString;
m_sOtherHost[m_nHostNum++] = sHost; } NBCL->MainQuery->Next(); } //m_nHostNum--;//保存本组主机名的个数 } void __fastcall TWhiteBoard::Button1Click(TObject *Sender) { if (Button3->Enabled) { ShowMessage("请放弃控制白板控制后再关闭该窗口"); return; }
Hide(); } //---------------------------------------------------------------------------
} //--------------------------------------------------------------------------- 服务器端较简单,不做介绍。
若有不妥之处,敬请指点。
更多技术文章请参看施昌权的个人网站: http://www.joyvc.cn