unit1.cpp

来自「<<C++Builder 6实用编程100例>>随书光盘」· C++ 代码 · 共 55 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(Edit1->Text!="")
        {
                NMMsg1->Host=Edit1->Text;
                NMMsg1->FromName=Edit1->Text;
                Memo1->Lines->Add("-->>"+Edit1->Text+" ::");
                if(Edit2->Text!="")
                {   
                        Memo1->Lines->Add("    "+Edit2->Text);
                        NMMsg1->PostIt(Edit2->Text);
                }
                else
                        ShowMessage("请输入您要发送的消息.");
        }
        else
                ShowMessage("请输入您发送消息所到机器的IP地址.");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMMsgMessageSent(TObject *Sender)
{
        Edit2->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMMSGServ1MSG(TComponent *Sender,
      const AnsiString sFrom, const AnsiString sMsg)
{
        Memo2->Lines->Add("["+sFrom+"] ::");
        Memo2->Lines->Add("    "+sMsg);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Edit2->Text="";
}
//---------------------------------------------------------------------------