Category

Development Platform
Home > E-Books > Delphi-C++Builder > View Code
MyServer.cpp
Package: c++builder6编程实例.ZIP　[view]
Upload User: lulishicai
Upload Date: 2010-03-01
Package Size: 13202k
Code Size: 1k
Category:

Delphi-C++Builder

Development Platform:

C++ Builder

MyServer.cpp：Code Content
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "MyServer.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. Boolean Flag;
  11. TServerForm *ServerForm;
  12. //---------------------------------------------------------------------------
  13. __fastcall TServerForm::TServerForm(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TServerForm::Button1Click(TObject *Sender)
  20. {
  21. ServerForm->DdeServerItem1->Text=ServerForm->Memo1->Text;
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TServerForm::DdeServerItem1PokeData(TObject *Sender)
  25. {
  26. Flag=true;
  27. Memo2->Lines=DdeServerItem1->Lines;
  28. Flag=false;
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TServerForm::Button2Click(TObject *Sender)
  32. {
  33. Close();
  34. }
  35. //---------------------------------------------------------------------------
  36. void __fastcall TServerForm::Memo1Change(TObject *Sender)
  37. {
  38. if(!Flag)
  39.  DdeServerItem1->Lines=Memo1->Lines;
  40. }
  41. //---------------------------------------------------------------------------