🚀 go-pugleaf

I find this information in Net:

If you want that Indy 10 will be work in BDS do this:

In file IdWinSock2.hpp, afrer line ?368 (typedef TWSANetworkEvents 
*LPWSANetworkEvents;) and before line typedef TWSAProtocol_InfoW 
*LPWSAProtocol_InfoW;

insert this code:

#define wsaprotocol_len    255

#define max_protocol_chain 7

#pragma pack(push, 1)
struct TWSAProtocolChain
{
 int ChainLen;  // the length of the chain,
                // length = 0 means layered protocol,
                // length = 1 means base protocol,
                // length > 1 means protocol chain
 int ChainEntries[max_protocol_chain]; // a list of dwCatalogEntryIds
};
#pragma pack(pop)

#pragma pack(push, 1)
struct TWSAProtocol_InfoA
{
 int  dwServiceFlags1;
 int  dwServiceFlags2;
 int  dwServiceFlags3;
 int  dwServiceFlags4;
 int  dwProviderFlags;
 TGUID ProviderId;
 int dwCatalogEntryId;
 TWSAProtocolChain ProtocolChain;
 int iVersion;
 int iAddressFamily;
 int iMaxSockAddr;
 int iMinSockAddr;
 int iSocketType;
 int iProtocol;
 int iProtocolMaxOffset;
 int iNetworkByteOrder;
 int iSecurityScheme;
 int dwMessageSize;
 int dwProviderReserved;
 char szProtocol[wsaprotocol_len];
};
#pragma pack(pop)

#pragma pack(push, 1)
struct TWSAProtocol_InfoW
{
 int  dwServiceFlags1;
 int  dwServiceFlags2;
 int  dwServiceFlags3;
 int  dwServiceFlags4;
 int  dwProviderFlags;
 TGUID ProviderId;
 int dwCatalogEntryId;
 TWSAProtocolChain ProtocolChain;
 int iVersion;
 int iAddressFamily;
 int iMaxSockAddr;
 int iMinSockAddr;
 int iSocketType;
 int iProtocol;
 int iProtocolMaxOffset;
 int iNetworkByteOrder;
 int iSecurityScheme;
 int dwMessageSize;
 int dwProviderReserved;
 wchar_t szProtocol[wsaprotocol_len];
};
#pragma pack(pop)

typedef TWSAProtocol_InfoA * PWSAProtocol_InfoA;
typedef TWSAProtocol_InfoA * LPWSAProtocol_InfoA;

typedef TWSAProtocol_InfoW * PWSAProtocol_InfoW;