Category

Development Platform
Home > SourceCode/Document > Graph program > View Code
RecvStream.cpp
Package: screensp.zip　[view]
Upload User: may_ontech
Upload Date: 2007-01-08
Package Size: 308k
Code Size: 3k
Category:

Graph program

Development Platform:

C++ Builder

RecvStream.cpp：Code Content
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <jpeg.hpp>
  4. #pragma hdrstop
  6. #include "RecvStream.h"
  7. #include "ChildWin.h"
  8. #include "Socket.cpp"
  9. #include "Ping.cpp"
  10. #pragma package(smart_init)
  11. //---------------------------------------------------------------------------
  12. //   Important: Methods and properties of objects in VCL can only be
  13. //   used in a method called using Synchronize, for example:
  14. //
  15. //      Synchronize(UpdateCaption);
  16. //
  17. //   where UpdateCaption could look like:
  18. //
  19. //      void __fastcall TRecvStreamThread::UpdateCaption()
  20. //      {
  21. //        Form1->Caption = "Updated in a thread";
  22. //      }
  23. //---------------------------------------------------------------------------
  24. __fastcall TRecvStreamThread::TRecvStreamThread(bool CreateSuspended)
  25.         : TThread(CreateSuspended)
  26. {
  27. }
  28. //---------------------------------------------------------------------------
  29. bool __fastcall TRecvStreamThread::LoadImage(TImage *Image1)
  30. {
  31. CPingReply reply;
  32. CPing PingHost;
  33. bool bRtn = false;  // 函数返回值初始为FALSE
  34. StatusBar->SimpleText = "正在连接主机...";
  35. // 先PING主机，检测网络是否畅通
  36. bool rtn = PingHost.Ping(RemoteAddress.c_str(),reply,64,4000,32);
  37. if (rtn) {
  38. u_short RecvPort=0;
  39. int RecvSocket = BindSocket(&RecvPort);  // 动态分配接收端口
  41. if (RecvSocket) {
  42. // 将接收端口和色深、图象品质合成一条命令，参数之间以'n'分隔
  43. AnsiString Msg = IntToStr(RecvPort) + "n" +
  44. IntToStr(CL) + "n" +
  45. IntToStr(CQ) + "n";
  46. // 向远程主机发送命令
  47. if (SendMsg(RemoteAddress,LISTENPORT,Msg)) {
  48. TMemoryStream *Stream;
  49. try {
  50. // 定义一个数据流并分配内存
  51. Stream = new TMemoryStream;  
  52. StatusBar->SimpleText = "正在接收数据...";
  53. Application->ProcessMessages();  // 处理系统消息
  54. // 开始接收图象到数据流中
  55. if (RecvStream(RecvSocket,Stream)) {
  56. TJPEGImage *jpeg;  // 定义JPEG图象
  57. try {
  58. jpeg = new TJPEGImage;  // 分配内存
  59. // 从数据流中载入图象
  60. jpeg->LoadFromStream(Stream);  
  61. // 显示图象
  62. Image1->Picture->Bitmap->Assign(jpeg);  
  63. MessageBeep(MB_OK);  // 发出提示声音
  64. // 返回值为TRUE，表示成功
  65. bRtn = true;  
  66. }
  67. __finally {
  68. delete jpeg;  // 释放资源
  69. }
  70. }
  71. else
  72. MessageBox(0,"接收数据流失败","冰河",MB_ICONERROR);
  73. }
  74. __finally {
  75. delete Stream;  // 释放资源
  76. }
  77. }
  78. else
  79. MessageBox(0,("无法与主机'"+ RemoteAddress +"'建立连接").c_str(),
  80. "冰河",MB_ICONERROR);
  81. }
  82. else
  83. MessageBox(0,"分配端口失败，无法继续接收数据","冰河",MB_ICONERROR);
  84. }
  85. else
  86. MessageBox(0,("主机'"+RemoteAddress+"'没有响应").c_str(),"冰河",MB_ICONERROR);
  87.     
  88. return bRtn;
  89. }
  91. void __fastcall TRecvStreamThread::Execute()
  92. {
  93.         //---- Place thread code here ----
  94. if (LoadImage(RemoteScreen))
  95. StatusBar->SimpleText = "数据接收完毕";
  96. else
  97. StatusBar->SimpleText = "接收数据失败";
  98. }
  99. //---------------------------------------------------------------------------