Народ, помогите отладить код:
создал класс для отправки почты

#include
#include

class TMail
{
public:
AnsiString Smtp; // IP-addr smtp
unsigned int Port; // smtp port
AnsiString From;
AnsiString Dest;
AnsiString Subj;
AnsiString Body;
bool mail()
{
try
{
WSAStartup(257, WSAData);
Sock = socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
if(Sock == INVALID_SOCKET) return 0;

Res = inet_addr(Smtp.c_str());
if(!Res) return 0;

Host->sin_family = AF_INET;
Host->sin_port = Port;
Host->sin_addr.S_un.S_addr = Res;

if(connect(Sock, (const sockaddr*)Host, sizeof(Host)))
return 0;

if(!recvdata("220"))
return 0;

senddata("EHLO\r\n");
if(!recvdata("250"))
return 0;

senddata("MAIL FROM: " + From + "\r\n");
if(!recvdata("250"))
return 0;

senddata("RCPT TO:" + Dest + "\r\n");
if(!recvdata("250"))
return 0;

senddata("DATA\r\n");
if(!recvdata("354"))
return 0;

senddata("Subject:" + Subj + "\r\n\r\n" + Body + "\r\n.");
if(!recvdata("250"))
return 0;

senddata("QUIT\r\n");
}
__finally
{
closesocket(Sock);
WSACleanup();
return 1;
}
}



__fastcall TMail(){};

private:
TWSAData *WSAData;
TSockAddrIn *Host;
TSocket Sock;
int Res;
char Buff[255];

void __fastcall senddata(AnsiString str)
{
for(int i=0; i {
if(send(Sock, (const char*)str.c_str() , 1, 0) == SOCKET_ERROR)
return;
}
}
bool __fastcall recvdata(AnsiString accept)
{
char Buff[255];
Res = recv(Sock, Buff, sizeof(Buff), 0);
return (Res == SOCKET_ERROR) || (AnsiString(Buff).SubString(1, 3) == accept);
}
};



Использую так:

TMail *m = new TMail();
m->Port = 25;
m->From = "host@kiev.velton.ua";
m->Dest = "host@kiev.velton.ua";
m->Smtp = "85.90.192.130";
m->Body = "Test message";
m->mail();


А на строке:
Host->sin_family = AF_INET;
Вылазит exception.
Помгите найти проблему. Использую С++ Билдер6.
Заранее спасибо!

Неужели всем в облом!?

определен в секции private:
TSockAddrIn *Host;

Host->sin_family = AF_INET;
Host->sin_port = Port;
Host->sin_addr.S_un.S_addr = Res;

А как надо? Через new?

Верно. Просто передирал с паскаля. Глупый.

Теперь правда коннектиться нехочет :(

кусок переписал так:

Host.sin_family = AF_INET;
Host.sin_port = htons(Port);
Host.sin_addr.s_addr = inet_addr(Smtp.c_str());

Но коннектиться он упорно нехочет:

if(connect(Sock, (struct sockaddr*)&Host, sizeof(Host)))
return 0;
Почему такое происходит?

Да, там СМТП - сервер работает.

Добавил ещё вот такое:

if(bind (Sock, (sockaddr*)&Host, sizeof(Host)) == SOCKET_ERROR)
return 0;

Вылазит SOCKET_ERROR.
Ерунда какая-то. :(