Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

вот [D6, WinXP]

X-shadow © (2002-11-08 18:01:00)
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;

/*Drive*/ (2002-11-09 06:29:00) [1]
Нихрена у тебя тут не работает !!!!!!!!!!!!!!!!!!!!!!!!!
Только даже из-за этого !!!!

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

Shadow (2002-11-08 20:48:00) [2]

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";

Shadow (2002-11-08 18:17:00) [3]
// ???? ????????
???

X-shadow (2002-11-08 18:14:00) [4]

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

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

Shadow (2002-11-08 18:08:00) [5]
А еще?

X-shadow (2002-11-08 18:06:00) [6]
const typstr:array[DRIVE_REMOVABLE..DRIVE_RAMDISK] of string[11]=
("[Removable]","[Fixed]","[Local]","[CD-ROM]","[RAM]");

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

Shadow (2002-11-08 18:05:00) [7]
2X-Shadow
И чего?...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »