🚀 go-pugleaf

The following works correctly under BCB5. Virgin BCB2006 VCL project, drop a 
button onto the form :-

//--HEADER FILE------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <WSockets.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
   TButton *Button1;
   void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public:  // User declarations
   __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//--SOURCE FILE------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  struct hostent *mhstj; struct in_addr mjinad;
  unsigned long eha; int ii=0; AnsiString cret;
  mhstj=gethostbyname("");
  if (!mhstj)
  {
    ShowMessage("Socket Error "+AnsiString(WSAGetLastError()));
    return;
  }
  cret=AnsiString(mhstj->h_name);
  while (mhstj->h_addr_list[ii])
  {
    memcpy(&mjinad,mhstj->h_addr_list[ii++],sizeof(in_addr));
    cret+="\n"+AnsiString(inet_ntoa(mjinad));
  }
  ShowMessage("Hello  - Your IP Details are :-\n"+cret);
}
//---------------------------------------------------------------------------

In BCB5 I get the IP details as expected. In BDS2006 error 10093 is returned 
implying something about WSAStartup not being called. Having looked at the 
structure required to set up a call to WSAStartup, I am not happy. Why doesn't 
this work as is?
-- 
�
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk