Клиент-Сервер

[rebel]

Необходимо посылать на сервер данные, каждую серунду.
Но есть проблема.
Код клиента

Код:

	...
           j=5;fz=0;
            for (int i=1;i<=j;i++)
                {  ++fz;
                   bitascii=fz;//bitascii - символ таблицы ascii код которого равен fz
Socket->SendText(bitascii);
       Sleep(1000);
                 }
	...

Клиент отсылает

А сервер принимает только первые два значения и все.

Код:

...
Memo1->Text=Socket->ReceiveText();
//Полученный символ переводится в 10 сс а потом в 16 сс
//результат записыватся в temp
Memo2->Lines->Add(temp);
...

Если делать все пошагово(F8 ).То все нормально, клиент отправляет, сервер получает.
Не пойму в чем проблема.

[RXL]

rebel, что-то не очень понятно.
Приведи первую программу подробней - что есть bitascii не ясно, а какой тип у Socket?
Что значит "Полученный символ переводится в 10 сс а потом в 16 сс"? Что такое "10 сс" и "16 сс"?
Подумай, ты бы понял такое описание?
Не скупись на описание и не торопись - насколько понятно опишешь, такой и ответ получишь.

[stragner]

RXL, по видимому 10 сс - это десятичная система счисления,
16 сс - соответственно шеснадцатеричная

[rebel]

Клиент

Код:

#include <vcl.h>
#pragma hdrstop

#include "client.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
char temp[40];//временная
char rec_text[2];//находится полученный символ
char* rec_text2;
int port,bit;//bit- код символа в ascii
int fz=0;//текущее значение температуры устройства
char bitascii;//символ код которого присваивается

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->BitBtn2->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
fz=0;
Form1->BitBtn1->Enabled=false;
Form1->BitBtn2->Enabled=true;

         Edit1->SelectAll();Edit1->GetSelTextBuf(temp,sizeof(temp));Edit1->CopyToClipboard();
         port=atoi(temp);
         Form1->ClientSocket1->Port=port;
         Form1->ClientSocket1->Host=Edit2->Text;
         Form1->ClientSocket1->Address=Edit3->Text;
         ClientSocket1->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Form1->BitBtn2->Enabled=false;
Form1->BitBtn1->Enabled=true;
Form1->Caption="Устройство отключено";
 ClientSocket1->Active=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Connecting(TObject *Sender,
      TCustomWinSocket *Socket)
{
Form1->Caption="Устройство подключено";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Form1->Caption="Компьютер отключен";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
Memo1->SelectAll();
Memo1->GetSelTextBuf(rec_text,2);
Memo1->CopyToClipboard();
int j;//разность между  bit и fz
        bit=rec_text[0];
        Memo1->Lines->Add(bit);

         j=bit-fz;
            for (int i=1;i<=j;i++)
                {  ++fz;
                   bitascii=fz;
  Form1->ClientSocket1->Socket->SendText(bitascii);
  Memo1->Lines->Add(bitascii);
        Sleep(1000);
                 }

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

Сервер

Код:

#include <iostream.h>
#include <time.h>
#include <dos.h>

#include <vcl.h>
#pragma hdrstop

#include "server.h"
#include "about.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

struct time tt;

int port;//Числовое значение порта
int bit;//код символа в ASCII
char temp[50];//Временная строка в кот. записывается текст, который выводится в Memo2
char rec_text[10];//Принятая строка
char bitascii;//значение символа в  ASCII код которого bit
int x,y,beg;//beg-значение эл-та строки temp начиная с которого в строку записываются данные
char* str;
char* temp2;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
Form2->Close();
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
Memo2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
BitBtn2->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{   //Присваивание значений адресов и порт
        Edit1->SelectAll();Edit1->GetSelTextBuf(temp,sizeof(temp));
        Edit1->CopyToClipboard();

        port=atoi(temp);
        Form1->ServerSocket1->Port=port;

         ServerSocket1->Active=true;

BitBtn1->Enabled=false;
BitBtn2->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Form1->Caption="Устройство отключено";
ServerSocket1->Active=false;
BitBtn1->Enabled=true;
BitBtn2->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Form1->Caption="Устройство подключено";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)
{
if (SaveDialog1->Execute())
        |Memo2->Lines->SaveToFile(SaveDialog1->FileName);}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Memo2->Font->Color=clRed;
Memo1->Text=Socket->ReceiveText();
Memo1->SelectAll();Memo1->GetSelTextBuf(rec_text,sizeof(rec_text));Memo1->CopyToClipboard();
beg=5;

         temp[0]='<';temp[1]='-';temp[2]='-';temp[3]=' ';temp[4]=' ';

        bit=rec_text[0];
        x=bit/16;y=bit%16;
                switch (x)
                {
                case 10:temp[beg]='A';break;
                case 11:temp[beg]='B';break;
                case 12:temp[beg]='C';break;
                case 13:temp[beg]='D';break;
                case 14:temp[beg]='E';break;
                case 15:temp[beg]='F';break;

                case 9:temp[beg]='9';break;
                case 8:temp[beg]='8';break;
                case 7:temp[beg]='7';break;
                case 6:temp[beg]='6';break;
                case 5:temp[beg]='5';break;
                case 4:temp[beg]='4';break;
                case 3:temp[beg]='3';break;
                case 2:temp[beg]='2';break;
                case 1:temp[beg]='1';break;
                case 0:temp[beg]='0';break;
                };
        beg+=1;
                switch (y)
                  {
                case 10:temp[beg]='A';break;
                case 11:temp[beg]='B';break;
                case 12:temp[beg]='C';break;
                case 13:temp[beg]='D';break;
                case 14:temp[beg]='E';break;
                case 15:temp[beg]='F';break;

                case 9:temp[beg]='9';break;
                case 8:temp[beg]='8';break;
                case 7:temp[beg]='7';break;
                case 6:temp[beg]='6';break;
                case 5:temp[beg]='5';break;
                case 4:temp[beg]='4';break;
                case 3:temp[beg]='3';break;
                case 2:temp[beg]='2';break;
                case 1:temp[beg]='1';break;
                case 0:temp[beg]='0';break;
                };

TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);

Memo2->Lines->Add(str);
Memo2->Lines->Add(temp);
Memo2->Lines->Add("");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Form1->Caption="Устройство отключено";
}
//---------------------------------------------------------------------------



void __fastcall TForm1::N7Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
Memo1->Text=Edit6->Text+Edit7->Text;
Memo1->Lines->Add(Edit8->Text+Edit9->Text);
Memo1->Lines->Add(Edit10->Text+Edit11->Text);
Memo1->Lines->Add(Edit12->Text+Edit13->Text);
Memo1->Lines->Add(Edit14->Text+Edit15->Text);
Memo1->Lines->Add(Edit16->Text+Edit17->Text);
Memo1->Lines->Add(Edit18->Text+Edit19->Text);
Memo1->Lines->Add(Edit20->Text+Edit21->Text);

if (SaveDialog1->Execute())
        |Memo1->Lines->SaveToFile(SaveDialog1->FileName);}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)
{
Memo1->Clear();
if (OpenDialog1->Execute())
        |Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
         temp2=Memo1->Lines->GetText();//Edit2->Text=temp2;
         Edit6->Text=temp2[0];
         Edit7->Text=temp2[1];
         Edit8->Text=temp2[4];
         Edit9->Text=temp2[5];
         Edit10->Text=temp2[8];
         Edit11->Text=temp2[9];
         Edit12->Text=temp2[12];
         Edit13->Text=temp2[13];
         Edit14->Text=temp2[16];
         Edit15->Text=temp2[17];
         Edit16->Text=temp2[20];
         Edit17->Text=temp2[21];
         Edit18->Text=temp2[24];
         Edit19->Text=temp2[25];
         Edit20->Text=temp2[28];
         Edit21->Text=temp2[29];}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
         Edit6->Clear();
         Edit7->Clear();
         Edit8->Clear();
         Edit9->Clear();
         Edit10->Clear();
         Edit11->Clear();
         Edit12->Clear();
         Edit13->Clear();
         Edit14->Clear();
         Edit15->Clear();
         Edit16->Clear();
         Edit17->Clear();
         Edit18->Clear();
         Edit19->Clear();
         Edit20->Clear();
         Edit21->Clear();}
//---------------------------------------------------------------------------

//--------------------------
void convert_send(void)
        {
                switch (rec_text[0])
                {
                case 'A':beg=10*16;break;
                case 'B':beg=11*16;break;
                case 'C':beg=12*16;break;
                case 'D':beg=13*16;break;
                case 'E':beg=14*16;break;
                case 'F':beg=15*16;break;

                case 'a':beg=10*16;break;
                case 'b':beg=11*16;break;
                case 'c':beg=12*16;break;
                case 'd':beg=13*16;break;
                case 'e':beg=14*16;break;
                case 'f':beg=15*16;break;

                case '9':beg=9*16;break;
                case '8':beg=8*16;break;
                case '7':beg=7*16;break;
                case '6':beg=6*16;break;
                case '5':beg=5*16;break;
                case '4':beg=4*16;break;
                case '3':beg=3*16;break;
                case '2':beg=2*16;break;
                case '1':beg=1*16;break;
                case '0':beg=0*16;break;
                };

                switch (rec_text[1])
                  {
                case 'A':beg+=10;break;
                case 'B':beg+=11;break;
                case 'C':beg+=12;break;
                case 'D':beg+=13;break;
                case 'E':beg+=14;break;
                case 'F':beg+=15;break;

                case 'a':beg+=10;break;
                case 'b':beg+=11;break;
                case 'c':beg+=12;break;
                case 'd':beg+=13;break;
                case 'e':beg+=14;break;
                case 'f':beg+=15;break;

                case '9':beg+=9;break;
                case '8':beg+=8;break;
                case '7':beg+=7;break;
                case '6':beg+=6;break;
                case '5':beg+=5;break;
                case '4':beg+=4;break;
                case '3':beg+=3;break;
                case '2':beg+=2;break;
                case '1':beg+=1;break;
                case '0':beg+=0;break;
                };
bitascii=beg;
Form1->ServerSocket1->Socket->Connections[0]->SendText(bitascii);
        }
//----------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit6->Text+Edit7->Text);
 Memo2->Lines->Add("");

 Edit2->Text=Edit6->Text+Edit7->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();

convert_send();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{
TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit8->Text+Edit9->Text);
 Memo2->Lines->Add("");

 Edit2->Clear();
 Edit2->Text=Edit8->Text+Edit9->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();
convert_send();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit10->Text+Edit11->Text);
 Memo2->Lines->Add("");

 Edit2->Text=Edit10->Text+Edit11->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();

 convert_send();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit12->Text+Edit13->Text);
 Memo2->Lines->Add("");

 Edit2->Text=Edit12->Text+Edit13->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();

 convert_send();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit14->Text+Edit15->Text);
 Memo2->Lines->Add("");

 Edit2->Text=Edit14->Text+Edit15->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();

 convert_send();
}
//---------------------------------------------------------------------------

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

TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit16->Text+Edit17->Text);
 Memo2->Lines->Add("");

 Edit2->Text=Edit16->Text+Edit17->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();

 convert_send();
}
//---------------------------------------------------------------------------

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

TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit18->Text+Edit19->Text);
 Memo2->Lines->Add("");

 Edit2->Text=Edit18->Text+Edit19->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();

 convert_send();
}
//---------------------------------------------------------------------------

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

TDateTime DateTime = Time();  // store the current date and time
  AnsiString str = TimeToStr(DateTime);
Memo2->Lines->Add(str);
 Memo2->Lines->Add("--> "+Edit20->Text+Edit21->Text);
 Memo2->Lines->Add("");

 Edit2->Text=Edit20->Text+Edit21->Text;
 Edit2->SelectAll();Edit2->GetSelTextBuf(rec_text,sizeof(rec_text));
 Edit2->CopyToClipboard();

 convert_send();
}
//---------------------------------------------------------------------------

Смысл проги такой: сервер-компьютер, клиент-устройство. Необходимо съмулировать работу компа и устройства. В данном случае устройство-печка.Начальное значение температуры 0C.Сервер отправляет число(температуру) на которую печка соответственно должна нагреться.значения темпр. в сервере вводится в 16 с.с., после чего я это число преобразую в символ ascii и шлю. Клиент получает, получает значение температуры получив код символа и в цикле он наращивает температуру до заданной и каждый раз отправиляет на сервак.

[rebel]

Самое интересное:
Если я посылаю значение 5 или 6. Клиент начинает с 0 набирает значения до 5 или 6 и отсылает каждое значение через 1 секунду.Сервер высвечивает только пришедшие 1 и 2.
Если пошлю >6 сервер Первые 5 секунд сервер молчит, а потом показывает всё как мне необходимо, каждую секунду принимает значение и показывает его....
Как это объяснить???

[RXL]

Зачем устраивать такой длинный путь для данных:

Код:

Memo1->Text=Socket->ReceiveText();
Memo1->SelectAll();
Memo1->GetSelTextBuf(rec_text,sizeof(rec_text));

Разве нельзя было сразу в переменную поместить, а потом уже в Memo1 заганять? Графическая оболочка предназначена для общения с пользователем, а не для хранения данных. Я бы не доверял GUI. Сдается мне, быстрее всего, тут то собака и порылась. Да и программа тоже нуждается в упрощении.

[rebel]

Да и программа нуждается в упрощении

Я только начинаю, и  конечно много ошибок. Если не сложно укажите на них. Пордскажите каким образом можно было решить ты или иную ситуацию.  

Разобрался. Проблема была вот где.
Было

Код:

Memo1->Lines->Add(Socket->ReceiveText()); 
Memo1->SelectAll(); 
Memo1->GetSelTextBuf(rec_text,2); 
Memo1->CopyToClipboard();

Так вот

Код:

Memo1->CopyToClipboard):;

Не нужен, из-за него то и не получалось каждую секунду получить данные. Как убрал- все заработало как по маслу.

Спасибо за терпение и усилия по разборке моего "сочинения"

Разве нельзя было сразу в переменную поместить, а потом уже в Memo1 заганять?

Я пробовал. Но он ругается. Не хочет делать

Код:

rec_text=Socket->ReceiveText();

даже если rec_text будет указателем на строку, и под него будет выделено место в памяти.

[RXL]

rebel, многое можно сократить - меньше текста, легче будет разбираться. Для начала:

Код:

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
............
beg=5;
         temp[0]='<';temp[1]='-';temp[2]='-';temp[3]=' ';temp[4]=' ';
        bit=rec_text[0];
        x=bit/16;y=bit%16;
                switch (x)
                {
                case 10:temp[beg]='A';break;
                case 11:temp[beg]='B';break;
                case 12:temp[beg]='C';break;
...........
                case 1:temp[beg]='1';break;
                case 0:temp[beg]='0';break;
                };

В первом приближении: т.к. temp - символьный массив, а x - int, то предоставим всю работу компилятору - заменим switch() :

Код:

   temp[beg]=(char)x;

Если капнуть глубже, то становится понятно что нужен перевод числа в hex-строку. Тут еще сокращаем:

Код:

  snprintf(temp,sizeof(temp),"<-- %02X",(int)rec_text[0]);

Далее - ф-ия void convert_send(void) :
1) два блока switch() заменяем на:

Код:

sscanf)rec_text,"%jx",&beg:;

2)

Код:

Form1->ServerSocket1->Socket->Connections[0]->SendText(bitascii);

bitascii имеет тип char, а в SendText() понимает char, или ему нужен char* ? Тут ничего не буду утверждать - CBuilder-а у меня нет.

Ф-ии snprintf() и sscanf() описаны в заголовке stdio.h.

Я пробовал. Но он ругается. Не хочет делать

Код:

rec_text=Socket->ReceiveText();

даже если rec_text будет указателем на строку, и под него будет выделено место в памяти.

Так точно не получится - разные типы. И значение заранее созданному массиву так присвоить нельзя - только копированием.
Посмотри какой тип возвращает ReceiveText(), создай переменную этого типа, прими в нее текс и сконвертируй его в строку (наверняка такая ф-ия есть).

И самое главное: я понимаю, что CBuilder позволяет делать окна/кнопки и легко ими управлять, но коли язык С++, то начни с его изучения. Особенно почитай про типы данных.