ошибка при отправке

[D_E_N]

всем привет. собрал прожку давненько всё работало отлично теперь пишет что то про авторизацию пробовал её устанавливать но бесполезно всё равно не работаетвот код

program Send;

uses
  SysUtils,dialogs,messages,windows,Winsock,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdMessageClient,
  IdMessage,
  ImageHlp,
  IdSMTP,IdHTTP;

  function IPAddrToCompName(IPAddr: string): string;
var
 SockAddrIn: TSockAddrIn;
 HostEnt: PHostEnt;
 WSAData: TWSAData;
begin
 WSAStartup($101, WSAData);
 SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));
 HostEnt:=gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
 if HostEnt<>nil
 then Result:=StrPas(Hostent^.h_name)
 else Result:='';
end;
  function GetLocalIP: string;
type
 TaPInAddr=array [0..10] of PInAddr;
 PaPInAddr=^TaPInAddr;
var
 phe:PHostEnt;
 pptr:PaPInAddr;
 Buffer:array [0..63] of char;
 i:Integer;
 GInitData:TWSADATA;
begin
 WSAStartup($101, GInitData);
  Result:='';
    GetHostName(Buffer, SizeOf(Buffer));
      phe:=GetHostByName(buffer);
  if phe = nil then Exit;
      pptr:=PaPInAddr(Phe^.h_addr_list);
  i:=0;
while pptr^[i]<>nil do begin
   result:=StrPas(inet_ntoa(pptr^[i]^));
   Inc(i);
 end;
    WSACleanup;
end;
procedure otpr;
var
 smtp_1:TIdsmtp;
 Message1:TIdMessage;
 today : TDateTime;
 begin

        today := Now;
              try
                smtp_1:=TIdSMTP.Create(nil);
               Message1:=TIdMessage.Create(nil);
                    SMTP_1.Host:='smtp.yandex.ru'; // адрес почтового сервера
                   SMTP_1.Port:=25; // порт по которому будет осуществляться подключение
                        SMTP_1.Username:='*******'; // логин пользователя
                      SMTP_1.Password:='*****'; // пароль пользователя
                   with Message1 do
                 begin
                Body.Add(getlocalip); // текст, для последующей отправки
                Body.Add(DateToStr(today));
                Body.Add(TimeToStr(today));
                 Body.Add(IPAddrToCompName(getlocalip));
                From.Text := '*******'; // майл отправителя письма
                Recipients.EMailAddresses := '*******'; // майл получателя письма
               
                end;
                begin
                SMTP_1.Connect;
                if smtp_1.Connected=false then
                begin
                smtp_1.Free;
                Message1.Free;
                otpr;
                end
                else
                begin
                SMTP_1.Send(Message1); // отправка письма на сервер
                SMTP_1.Disconnect;
                end; // разрыв соединения

                end;
                finally
               smtp_1.Free;
                Message1.Free;
          showMessage('Готово!')
end;
 end;
  begin
otpr;
end.

[raxp]

добавь строку вида:

SMTP.AuthType:=satDefault; // тип подключения к серверу - с авторизацией

[D_E_N]

я в шоке вчера не работало сегодня пашет.....

[raxp]

на серваке могут экспериментировать... дабы это учесть, проверь как все-таки с авторизацией себя ведет.

[D_E_N]

слушай как сделать отправку и прием сообщений на mail agent ато тока про смс есть а простое сообщение нету

[D_E_N]

слушай как сделать отправку и прием сообщений на mail agent ато тока про смс есть а простое сообщение нету или типа я.онлайн на яндексе.... что проще ато ася выеживаться стала

[raxp]

http://programmersforum.ru/showthrea...E0%E3%E5%ED%F2

[D_E_N]

raxp скинь пожлста компонент для проверки связи с инетом и покажи как пользоваться

[raxp]

да, как и обещал выкладываю пинг по icmp протоколу... пример вызова:

procedure tcpping (const Address, EchoString: PChar;var PingReply: TsmICMP_Echo_Reply;const PingTimeout: Integer = 500);
var IPAddress: TipAddr;
    ICMPPort: THandle;
begin
 application.ProcessMessages;
 //
 IPAddress:= inet_addr (Address);
 if (IPAddress = INADDR_NONE) then exit;
 ICMPPort:= IcmpCreateFile();
 if (ICMPPort = INVALID_HANDLE_VALUE) then exit;
 //
 IcmpSendEcho (ICMPPort, IPAddress,
               EchoString, Length (EchoString), nil,
               @PingReply, SizeOf (PingReply), PingTimeout);
 IcmpCloseHandle (ICMPPort)
end;

модуль прилагаю...

[D_E_N]

пасиба огромное