Hey
Próbuję napisać klienta whois w borlandzie ale mam problem bo jak połacze się z serwerem to wywala mi jakiś bład że" ERROR:107: input line too long" (na serwie whois.ripe.net)
Potzrebuję zrobić nie używając zadnych dodatkowych elementów poza client socket
Tu daję mój kodzik (mam 2 przyciski jak dam polącz i automatyczne wysylanie zapytania to nie dziala, a jak dam na osobne przyciski to dziala - sleep nic nie pomaga )
AnsiString who="";
int wys=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
char buf[1024];
strcpy(buf , Form1->Edit1->Text.c_str());
ClientSocket1->Socket->SendBuf(buf,sizeof(buf));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
wys++;
who=who+Socket->ReceiveText();
Beep();
if (wys==1)
{
char buf[1024]={0};
strcpy(buf , Form1->Edit1->Text.c_str());// tu ares sprawdzanego hosta
ClientSocket1->Socket->SendBuf(buf,sizeof(buf));
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
RichEdit1->Text=who;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{
who="";
}