?
das ist des rätsels Lösung
--> vielen Dank junix
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Host=Edit1->Text;
ClientSocket1->Port=80;
Memo1->Lines->Clear();
ClientSocket1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
ClientSocket1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString request="HEAD / HTTP/1.0 \r\n\r\n";
ClientSocket1->Socket->SendText(request);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------