strmmain.cpp

可以接收和发送文件

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "strmmain.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TFormMain::Button1Click(TObject *Sender)
{
  if (OpenDialog1->Execute())
  {  //发送文件
    TFileStream *MyFStream;
    MyFStream = new TFileStream(OpenDialog1->FileName, fmOpenRead);
    try
    {
      NMStrm1->Host = Edit2->Text;
      NMStrm1->PostIt(MyFStream);

    }
    catch(...)
    {
    }
    MyFStream->Free();
  }
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::NMStrm1Connect(TObject *Sender)
{
  StatusBar1->SimpleText = "连接";
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrm1ConnectionFailed(TObject *Sender)
{
  ShowMessage("连接失败");
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrm1Disconnect(TObject *Sender)
{
  if (StatusBar1 != 0)
    StatusBar1->SimpleText = "Disconnected";        
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrm1HostResolved(TComponent *Sender)
{
  StatusBar1->SimpleText = "Host Resolved";        
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrm1MessageSent(TObject *Sender)
{
  ShowMessage("数据以发送");
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrm1PacketSent(TObject *Sender)
{
  StatusBar1->SimpleText = IntToStr(NMStrm1->BytesRecvd)+" bytes of "+NMStrm1->BytesTotal+" sent";
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrm1Status(TComponent *Sender,
      AnsiString Status)
{
  if (StatusBar1 != 0)
    StatusBar1->SimpleText = Status;
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrm1InvalidHost(bool &handled)
{
  AnsiString NewHost;
  if (InputQuery("Invalid Host", "Please Choose another host", NewHost))
  {
    NMStrm1->Host = NewHost;
    handled = true;
  }
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrmServ1ClientContact(TObject *Sender)
{
  StatusBar1->SimpleText = "Client Contacted";        
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrmServ1MSG(TComponent *Sender,
      const AnsiString sFrom, TStream *strm)
{

  if ( Application->MessageBox("你有文件从远方传来是否接收","提示",  MB_YESNO)==IDYES)
  {

        TFileStream *MyFStream;
        if(SaveDialog1->Execute())
        {
                if(FileExists(SaveDialog1->FileName))//如果有同名文件就将它删除
                DeleteFile(SaveDialog1->FileName);

                MyFStream = new TFileStream(SaveDialog1->FileName, fmCreate);
        }
        try
        {
                MyFStream->CopyFrom(strm, strm->Size);
        }
        catch(...)
        {
        }
        MyFStream->Free();
  }

}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMStrmServ1Status(TComponent *Sender,
      AnsiString Status)
{
  if (StatusBar1 != 0)
    StatusBar1->SimpleText = Status;
}
//---------------------------------------------------------------------------








void __fastcall TFormMain::BitBtn1Click(TObject *Sender)
{
        Form1=new TForm1(NULL);
        Form1->Show();        
}
//---------------------------------------------------------------------------