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

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

Почему не работает след. код (отправка почты) [D7, WinXP]

Страницы:   < 1 2 3 >

bobbi ©   (2006-07-21 22:52:00) 

прога компилица но толку от этого нет

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls,winsock, ExtCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   Timer1: TTimer;
   procedure Button1Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
WSAData: TWSAData;
 Host: TSockAddrIn;
 Sock: TSocket;
 res: Integer;
 buff: array[1..255] of Char;
 result:bool;
 smtp: string;
 port: integer;
  from, dest, subject,
 body: string;

implementation

const
 cl = #13#10;

{$R *.dfm}

{ îòïðàâëÿåì äàííûå ÷åðåç ñîêåò }
 procedure senddata(str: string);
 var
   i: integer;
 begin
   for i := 1 to Length(str) do
     if send(Sock, str[i], 1, 0) = SOCKET_ERROR then
       exit;
 end;

 { ïîëó÷àåì îòâåò îò êîìàíäû }
 function recvdata(accept: string): bool;
 var
   buff: array[1..255] of Char;
 begin
   res := recv(Sock, buff, SizeOf(buff), 0);
   Result := (Res = SOCKET_ERROR) or (Copy(buff, 1, 3) = accept);
 end;

procedure TForm1.Button1Click(Sender: TObject);

begin

{
smtp - ip àäðåñ smtp ñåðâåðà
port - ïîðò smtp ñåðâåðà, ïî óìîë÷àíèþ 25
from - àäðåñ îòïðàâèòåëÿ
dest - àäðåñ ïîëó÷àòåëÿ
subject - òåìà ïèñüìà
body - òåêñò ïèñìà
Âîçâðàùàåò True åñëè ïèñüìî áûëî óñïåøíî îòïðàâëåííî...
}

smtp:=('smtp.mail.ru');
port:=25;
from:=('');
dest:=('');
subject:=('test mail');
body:=('sdjfbsdjkfjksdfhjsdf');

begin
 try
   result := false;
   { èíèöèàëèçàöèÿ ñîêåòà }
   WSAStartUp(257, WSAData);
   Sock := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
   if Sock = INVALID_SOCKET then
     Exit;

   { óñòàíàâëèâàåì õîñò è ïîðò ñåðâåðà }
   res := inet_addr(PChar(smtp));
   if res 0 then
     Exit;

   { ïðèâåòñòâèå ñåðâåðà }
   if not recvdata('220') then
     Exit;

   { EHLO }
   senddata('EHLO server' + cl);
   if not recvdata('250') then
     Exit;

   { AUTH LOGIN }
   senddata('AUTH LOGIN' + cl);
   if not recvdata('334') then
     Exit;

   {  login base 64}
   senddata(' base64 login dfgdfghdfh' + cl);
   if not recvdata('334') then
     Exit;

   {  password base 64}
   senddata('base 64 pass fdgjdfkghjkdfghjkdfghjkdf' + cl);
   if not recvdata('235') then
     Exit;

   { MAIL FROM: }
   senddata('MAIL FROM:' + from + cl);
   if not recvdata('250') then
     Exit;

   { RCPT TO: }
   senddata('RCPT TO:' + dest + cl);
   if not recvdata('250') then
     Exit;

   { DATA }
   senddata('DATA' + cl);
   if not recvdata('354') then
     Exit;

   { îòïðàâëÿåì òåêñò ñîîáùåíèÿ }
   senddata('Subject:' + subject + cl + cl + body + cl + '.');
   if not recvdata('250') then
     Exit;

   { îòêëþ÷àåìñÿ îò ñåðâåðà }
   senddata('QUIT' + cl);

   result := true;
 finally
   { óáèâàåì ñîêåò }
   closesocket(sock);
   WSACleanup;
 end;
 end;

   end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if result=true then edit1.Text:=('wew');
end;

end.

---

KilkennyCat   (2006-07-21 22:57:00) [41]

может, стоит вместо exit поставить сообщения? Тогда и вопрос, возможно, исчезнет...

---

Страницы:   < 1 2 3 >

Наверх