|
클라이언트에서 서버로는 글이보내지는데 ,
서버에서 클라이언트로는 글이 안보내저요.....
머가 틀렷는지 알려주세요....!!!
char Buff[100];
memset(Buff,0x00,100);
ServerSocket1->Socket->Connections[ListBox1->ItemIndex]->ReceiveBuf(Buff,100);
Memo1->Lines->Add(Buff);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char SendDate[100];
memset(SendDate,0x00,100);
if(!Radio1->Checked && !Radio2->Checked)
{
ShowMessage("채팅을 선택해주세요 ^_^");
Edit1->Clear(); //Edit1에있는 글자를 없애준다.
}
else if(Radio1->Checked)
{
ShowMessage("연결된 접속자가 없습니다 ");
Edit1->Clear();
}
else
{
Memo1->Lines->Add(Edit2->Text+":"+Edit1->Text
Edit1->Text=Edit2->Text+":"+Edit1->Text;
memcpy(SendDate,Edit1->Text.c_str(),strlen(Edit1->Text.c_str()));
ServerSocket1->Socket->Connections[ListBox1->ItemIndex]->SendBuf(SendDate,100);
Edit1->Clear();
}
---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(Key==0xd)
{
if(ServerSocket1->Socket->Connected)
{
char SendDate[100];
memset(SendDate,0x00,100);
Memo1->Lines->Add(Edit2->Text+":"+Edit1->Text);
Edit1->Text=Edit2->Text+":"+Edit1->Text;
memcpy(SendDate,Edit1->Text.c_str(),strlen(Edit1->Text.c_str()));
ServerSocket1->Socket->Connections[0]->SendText(SendDate);
Edit1->Clear();
|