在局域网内实现图像的实时传输

原创 2006年05月25日 00:58:00

作者: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();
}
//---------------------------------------------------------------------------

}
//---------------------------------------------------------------------------
        服务器端较简单,不做介绍。

若有不妥之处,敬请指点。

相关文章推荐

【视频传输】二、Opencv结合socket进行视频传输(TCP协议)

在同一台电脑上实验,即运行服务器程序,又跑客户端程序,也就是说通过socket编程来实现数据的自发自收。...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

基于Socket和OpenCV的实时视频传输(On Windows)

目前由于项目的需要,实现了基于Socket和OpenCV的实时视频传输。 由一台PC(Client客户端)采集摄像头图像后经Socket传输到另一台PC(Server服务器)再显示出来。 ...

基于Socket和OpenCV的实时视频传输(On Linux)

上一篇介绍了在Windows上实现基于Socket和openCV的实时视频传输,这一篇将继续讲解在Linux上的实现。 环境: Server: Ubuntu 14.04 LTS + Open...

Android和C#基于UDP的实时图像传输

实时图像传输的话还是用UDP比较好,速度比TCP快,反正丢一些帧也没有关系 照例先上图 电脑端 手机端 项目:http://pan.baidu.com/s/1p...

MFC文档视图(二):标准消息

前面有讲到MFC文档视图框架中比较关键的5个类.CWinApp,CDocument,CView,CFrameWnd,CSingleDocTemplate 程序一启动,5个类就全部有被实例化.不过代码...

VC++、MFC最好的开源项目

介绍:介绍一下用VC++/MFC写的最好的开源项目。 Sourceforge.NET中有许多高质量的VC++开源项目,我列举了一些可以作为VC++程序员的参考。  正文:  VC++、MFC中...

利用VC++实现局域网实时传输

本文针对不同的局域网,提出一种通用的实时视频传输的解决方案。在使用Divx编解码的基础上,提出了从压缩、组帧、发送到接收、解压整个流程的思想,具体实施方案和VC++实现核心源代码以及传输控制策略,有效...
  • maopig
  • maopig
  • 2011年10月24日 11:45
  • 1418
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在局域网内实现图像的实时传输
举报原因:
原因补充:

(最多只允许输入30个字)