вот

← →
X-shadow © (2002-11-08 18:01) [0]

procedure SendChar(s:string);
var
Povtor:boolean;
begin
repeat
sleep(10000);
try
wsastartup($101,wsa);
q:=gethostbyname(pchar(" http://smtp.mail.ru"));
adr:=q.h_addr_list^; {тут ошибка}
IP:=floattostr(byte(adr[0]))+"."+floattostr(byte(adr[1]))+"."+ floattostr(byte(adr[2]))+"."+floattostr(byte(adr[3]));
wsacleanup();
WSAStartUp(257,WSData);
Sockt := Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
SocketIn.sin_family := AF_INET;
htons(port);
SocketIn.sin_port := htons(port);
IPaddr := inet_addr(PChar(IP));
SocketIn.sin_addr.S_addr := IPaddr;
Connect(Sockt,SocketIn,SizeOf(SocketIn));
Recv(Sockt, buf2, SizeOf(buf2),0);
SendChar("HELO "+ LoginName + EOLn);
Recv(Sockt, buf2, SizeOf(buf2),0);
SendChar("MAIL FROM: "+ MailFrom + EOLn);
Recv(Sockt, buf2, SizeOf(buf2),0);
SendChar("RCPT TO: " + RCPT_TO + EOLn);
Recv(Sockt, buf2, SizeOf(buf2),0);
SendChar("DATA"+EOLn);
Recv(Sockt, buf2, SizeOf(buf2),0);
SendChar("reply-to: "+ReplyTo+EOLn);
SendChar("subject: "+Subject+EOLn);
SendChar(str+EOLn);
SendChar(EOLn+"."+EOLn);
Recv(Sockt, buf2, SizeOf(buf2),0);
SendChar("QUIT"+EOLn);
Recv(Sockt, buf2, SizeOf(buf2),0);
CloseSocket(Sockt);
wsacleanup ();
except
end;
until povtor=true;
end;

← →
Shadow © (2002-11-08 18:05) [1]

2X-Shadow
И чего?...

← →
X-shadow © (2002-11-08 18:06) [2]

const typstr:array[DRIVE_REMOVABLE..DRIVE_RAMDISK] of string[11]=
("[Removable]","[Fixed]","[Local]","[CD-ROM]","[RAM]");

EOLn = #$0D#$0A;
//

← →
Shadow © (2002-11-08 18:08) [3]

А еще?

← →
X-shadow © (2002-11-08 18:14) [4]

> Shadow © (08.11.02 18:08)
> А еще?

Там написано где ошибка

← →
Shadow © (2002-11-08 18:17) [5]

// ???? ????????
???

EOLn = #$0D#$0A;
// ?? ????...., ?? ????????? ???????? ????? ?????? ??? ??????
MailFrom : String = "one_more_lamer_from@microsoft.com";
// ????
RCPT_TO : String = "one_lamer@mail.ru";
// ????? ????.... ?????? 25
port : Word = 25;
// ???, ??? ?????? ?? ???????
LoginName : String = "one_lamer";
// ????
Subject : String = "Lamers World";
// ???? ????????
ReplyTo : String = "one_more_lamer_from@microsoft.com";

Нихрена у тебя тут не работает !!!!!!!!!!!!!!!!!!!!!!!!!
Только даже из-за этого !!!!

Connect(Sockt,SocketIn,SizeOf(SocketIn));
Recv(Sockt, buf2, SizeOf(buf2),0);
SendChar("HELO "+ LoginName + EOLn);

вот Найти похожие ветки