郁闷的ServerSocket错误????

[brbzhang]

以下是我写的一段代码,目的是在server端用SOCKET的SendText()发送一条消息,并在client端的memo中显示.郁闷的是运行后服务器端点击监听按钮后,跳出一个错误提示:"list index out of bouds(0)"这是什么意思??下标越界?????
//---------------------------------------------------------------------------

#ifndef sosH
#define sosH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ScktComp.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TStatusBar *StatusBar1;
TClientSocket *ClientSocket1;
TServerSocket *ServerSocket1;
TButton *Button2;
TButton *Button3;
TMemo *Memo1;
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall cc(TObject *Sender, TCustomWinSocket *Socket);
void __fastcall cr(TObject *Sender, TCustomWinSocket *Socket);
void __fastcall sc(TObject *Sender, TCustomWinSocket *Socket);
void __fastcall scc(TObject *Sender, TCustomWinSocket *Socket);
private: // User declarations
String Server;
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

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

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm1::Button2Click(TObject *Sender)
{
ServerSocket1->Active=true;//监听
StatusBar1->Panels->Items[0]->Text = "Listening...";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{

if (InputQuery("Computer to connect to", "Address Name:", Server))
{
if (Server.Length() > 0)
{
ClientSocket1->Host = Server;//指定地址
ClientSocket1->Active = true;
}
}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::cc(TObject *Sender, TCustomWinSocket *Socket)
{
StatusBar1->Panels->Items[0]->Text = "Connect to: " + Socket->RemoteHost; //连接主机成功
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cr(TObject *Sender, TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText()); //显示主机发送的消息
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sc(TObject *Sender, TCustomWinSocket *Socket)
{
StatusBar1->Panels->Items[0]->Text = "Connect to: " + Socket->RemoteAddress; //连接客户端成功
}
//---------------------------------------------------------------------------
void __fastcall TForm1::scc(TObject *Sender, TCustomWinSocket *Socket)
{
Socket->SendText("Hello,this is hawk.Can you hear me?");//发送消息
}
//---------------------------------------------------------------------------

[sczyq]

TClientSocket *ClientSocket1;

与

TServerSocket *ServerSocket1;

最好分成两个程序来做，不要在同一个Application 中，否则容易出问题。

[FFSB]

StatusBar1->Panels->Items[0]->Text = "Listening...";//有问题
你确定你的状态条至少有一个Item
=========
另LS说的问题只要确保组件的创建顺序是ServerSocket1在前即可。

[brbzhang]

按二楼的方法分开做了
Client部分:
void __fastcall TForm1::Button1Click(TObject *Sender)//连接按钮
{
String Server;
if (InputQuery("Computer to connect to", "Address Name:", Server))
{

if (Server.Length() > 0)
{
ClientSocket1->Host = Server;
ClientSocket1->Active = true;
}
}

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

void __fastcall TForm1::cc(TObject *Sender, TCustomWinSocket *Socket)
{
StatusBar1->SimpleText = "Connect to: " + Socket->RemoteHost;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cr(TObject *Sender, TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------
Server部分;
void __fastcall TForm1::Button2Click(TObject *Sender)//监听按钮
{
if(!ServerSocket1->Active)
{
ServerSocket1->Active=true;
StatusBar1->SimpleText = "Listening...";
Button2->Caption="终止";
}
else
{
ServerSocket1->Active=false;
StatusBar1->SimpleText = "Stop Listen!";
Button2->Caption="监听";
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::sc(TObject *Sender, TCustomWinSocket *Socket)
{
StatusBar1->SimpleText = "Connect to: " + ServerSocket1->Socket->RemoteAddress;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::scc(TObject *Sender, TCustomWinSocket *Socket)//OnClientConnect
{
ServerSocket1->Socket->SendText("Hello,this is hawk.Can you hear me?");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::scd(TObject *Sender, TCustomWinSocket *Socket)
{
StatusBar1->SimpleText="disconnect" + ServerSocket1->Socket->RemoteAddress;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::cee(TObject *Sender, TCustomWinSocket *Socket,
TErrorEvent ErrorEvent, int &ErrorCode)
{
StatusBar1->SimpleText="Error!!";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::cw(TObject *Sender, TCustomWinSocket *Socket)//OnClientWrite
{
ServerSocket1->Socket->SendText("Hello,this is hawk.Can you hear me?");
}
//---------------------------------------------------------------------------
但在最后测试时,客户端输入IP后跳出错误提示:"Asynchronous socket error 10049"
不知道这是什么错误??
注:我在cw和scc两个函数写的是同样的操作

[FFSB]

ClientSocket1->Host = Server;//本机一般使用"LocalHost"或"127.0.0.1"
另确保关掉防火墙和喀吧司机等！