Большущее СПАСИБО!!!

Всё работает на ура..

на indy 10 неработает (((
там ругается на
[Error] Unit1.pas(73): Undeclared identifier: 'QueryRecords'

мне кажеться в 10 версии это InternalQuery, но если заменить не него, то QueryRecords:=[qtMX]; ругается на несоответствие типов.

Я немного на сайте Indy порылся, но так ничего и ненашел
Добавлено @ 21:20
попытался так исправить:

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, IdComponent, IdUDPBase, IdUDPClient, IdDNSResolver, IdBaseComponent,   IdAntiFreezeBase, IdAntiFreeze, IdSMTP, IdMessage, StdCtrls,   IdTCPConnection; const  MAX_HOSTNAME_LEN=128;  MAX_DOMAIN_NAME_LEN=128;  MAX_SCOPE_ID_LEN=256; type  IP_ADDRESS_STRING =packed record   S: array [0..15] of Char;  end;  IP_MASK_STRING=IP_ADDRESS_STRING;  PIP_ADDR_STRING=^_IP_ADDR_STRING;  _IP_ADDR_STRING=packed record    Next:PIP_ADDR_STRING;    IpAddress:IP_ADDRESS_STRING;    IpMask:IP_MASK_STRING;    Context:DWORD;  end;  IP_ADDR_STRING=_IP_ADDR_STRING;  PFIXED_INFO=^FIXED_INFO;  FIXED_INFO=packed record   HostName:array [0..MAX_HOSTNAME_LEN+3] of Char;   DomainName:array[0..MAX_DOMAIN_NAME_LEN+3] of Char;   CurrentDnsServer:PIP_ADDR_STRING;   DnsServerList:IP_ADDR_STRING;   NodeType:UINT;   ScopeId:array [0..MAX_SCOPE_ID_LEN+3] of Char;   EnableRouting:UINT;   EnableProxy:UINT;   EnableDns:UINT;  end; type   TForm1 = class(TForm)     Button1: TButton;     IdAntiFreeze1: TIdAntiFreeze;     IdDNSResolver1: TIdDNSResolver;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   function GetNetworkParams(FixedInfo:PFIXED_INFO; var OutBufLen:DWord):DWORD; stdcall; external 'iphlpapi.dll'; implementation {$R *.dfm} function GetMailServers(IPHostDNS,ADomain:string;RTimeOutDNS:integer;                         var ResMailServers:TStrings; DNS:TIdDNSResolver):boolean; var i,x,n:integer;     rb:Word;     AHostMail:string; begin  Result:=true;  with DNS do   begin    QueryResult.Clear;    QueryType:=[qtMX]; //   QueryRecords:=[qtMX];    Host:=IPHostDNS;    WaitingTime:=RTimeOutDNS;    try     Resolve(ADomain);     i:=QueryResult.Count;     if i>0 then      begin       try        ResMailServers.Free;       except       end;       ResMailServers:=TStringList.Create;       repeat        rb:=TMXRecord(QueryResult.Items[0]).Preference;        n:=0;        for x:=0 to QueryResult.Count-1 do         if TMXRecord(QueryResult.Items[x]).Preference<=rb then          begin           rb:=TMXRecord(QueryResult.Items[x]).Preference;           n:=x;          end;        try         AHostMail:=trim(TMXRecord(QueryResult.Items[n]).ExchangeServer);        except         AHostMail:='';        end;        QueryResult.Delete(n);        if AHostMail<>'' then         begin          ResMailServers.Append(AHostMail);         end;        dec(i);       until (i=0);       if ResMailServers.Count=0 then        begin         Result:=false;         ResMailServers.Free;        end;       end else Result:=false;    except     Result:=false;    end;   end; end; procedure TForm1.Button1Click(Sender: TObject); var FMailServers,IPHostDNS:TStrings;     smtp:TIdSMTP;     mes:TIdMessage;     i:integer;     FI:PFIXED_INFO;     S:DWord;     n:PIP_ADDR_STRING; begin  S:=0;;  if GetNetworkParams(nil,S)<>ERROR_BUFFER_OVERFLOW then exit;  GetMem(FI,S);  IPHostDNS:=TStringList.Create;  FMailServers:=TStringList.Create;  if GetNetworkParams(FI,S)=ERROR_SUCCESS then   begin    n:=FI^.CurrentDnsServer;    while n<>nil do     begin      IPHostDNS.Add(n^.IpAddress.S);      n:=n^.Next;     end;    if FI^.DnsServerList.IpAddress.S[0]<>#0 then     IPHostDNS.Add(FI^.DnsServerList.IpAddress.S);    n:=FI^.DnsServerList.Next;    while n<>nil do     begin      IPHostDNS.Add(n^.IpAddress.S);      n:=n^.Next;     end;   end;  FreeMem(FI,S);  while IPHostDNS.Count>0 do   begin    if GetMailServers(IPHostDNS.Strings[IPHostDNS.Count-1],'mail.ru',5000,FMailServers,IdDNSResolver1) then     begin      smtp:=TIdSMTP.Create(nil);      mes:=TIdMessage.Create(nil);      smtp.Port := 25;      smtp.AuthType:=atNone;      smtp.HeloName:='Info';      mes.From.Text:='[email protected]';      mes.Sender.Text:='[email protected]';      mes.Recipients.EMailAddresses:='[email protected]';      mes.Subject:='al';      mes.Body.Text:='Hello! Is test. If you see, hence all ok!!!';      mes.MessageParts.Clear;      for i:=0 to FMailServers.Count-1 do       begin        smtp.Host:=trim(FMailServers.Strings[i]);        try         smtp.Connect;         smtp.Send(mes);         IPHostDNS.Clear;         break;        except        end;        smtp.Disconnect;       end;      mes.Free;      smtp.Free;     end;    if IPHostDNS.Count>0 then IPHostDNS.Delete(IPHostDNS.Count-1);    end;  try   IPHostDNS.Free;   FMailServers.Free;  except  end; end; end.

Но на yandex.ru не проходит (((((

Цитата(WolfON @ 30.4.2005, 22:13)

Я немного на сайте Indy порылся, но так ничего и ненашел

А ты им... письмо напиши

Во первых: Ты шлеш на wolfon @ inbox.ru
Во вторых: Запрашиваеш Mail домены у mail.ru
В третьих: Не удевительно... что у тебя ни куда не шлется.
PS: Куда шлеш... у того и должен запрашивать!!! Т.е. если шлеш на [email protected] то и запрашивай GetMailServers(..., 'inbox.ru'...)

Ладно... вот переписал без использования IdDNSResolver:
-Брось на новую форму TIdAntiFreeze, TButton и подцепи обработчик на OnClick

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, IdComponent, IdBaseComponent, IdAntiFreezeBase,   IdAntiFreeze, IdSMTP, IdMessage; const  MAX_HOSTNAME_LEN=128;  MAX_DOMAIN_NAME_LEN=128;  MAX_SCOPE_ID_LEN=256; type  IP_ADDRESS_STRING =packed record   S: array [0..15] of Char;  end;  IP_MASK_STRING=IP_ADDRESS_STRING;  PIP_ADDR_STRING=^_IP_ADDR_STRING;  _IP_ADDR_STRING=packed record    Next:PIP_ADDR_STRING;    IpAddress:IP_ADDRESS_STRING;    IpMask:IP_MASK_STRING;    Context:DWORD;  end;  IP_ADDR_STRING=_IP_ADDR_STRING;  PFIXED_INFO=^FIXED_INFO;  FIXED_INFO=packed record   HostName:array [0..MAX_HOSTNAME_LEN+3] of Char;   DomainName:array[0..MAX_DOMAIN_NAME_LEN+3] of Char;   CurrentDnsServer:PIP_ADDR_STRING;   DnsServerList:IP_ADDR_STRING;   NodeType:UINT;   ScopeId:array [0..MAX_SCOPE_ID_LEN+3] of Char;   EnableRouting:UINT;   EnableProxy:UINT;   EnableDns:UINT;  end; type   TForm1 = class(TForm)     IdAntiFreeze1: TIdAntiFreeze;     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   function GetNetworkParams(FixedInfo:PFIXED_INFO; var OutBufLen:DWord):DWORD; stdcall; external 'iphlpapi.dll'; implementation {$R *.dfm} uses WinSock; type  TSockClose = class(TThread)   private    Sock:TSocket;    milliseconds:cardinal;   protected     procedure Execute;override;   end; procedure TSockClose.Execute; begin  if milliseconds<100 then milliseconds:=500;  sleep(milliseconds);  CloseSocket(Sock); end; function GetMailServers(IPHostDNS,ADomain:string;RTimeOutDNS:integer; var ResMailServers:TStrings):boolean; var ID:Word;     IQStr,QStr:string;     i,j,n,l:integer;     Init:TWSAData;     Sock:TSocket;     Target:TSockAddrIn;     SockClose:TSockClose;     Buf:array [1..8192] of Char;     d:string; function GetName(var i:integer):string; var ti:integer;     b:Byte;     s:String; begin  Result:='';  if i>SizeOf(Buf) then exit;  ti:=0;  repeat   b:=ord(Buf[i]);   while (i<SizeOf(Buf))and((b and $c0)=$c0) do    begin     if ti=0 then ti:=i+1;     b:=b and $3F;     i:=((b shl 8) or ord(Buf[i+1]))+1;     b:=ord(Buf[i]);    end;   if i<SizeOf(Buf) then    begin     SetLength(s,b);     Move(Buf[i+1],S[1],b);     i:=i+b+1;     Result:=Result+s+'.';     SetLength(s,0);    end;  until (i>SizeOf(Buf))or(Buf[i]=#0);  if (Length(Result)>0)and(Result[Length(Result)]='.') then   Result:=Copy(Result,1,Length(Result)-1);  if ti>0 then i:=ti;  inc(i);  end; begin  Result:=false;  ADomain:=trim(ADomain);  if ADomain='' then exit;  j:=1;  QStr:='';  for i:=1 to Length(ADomain) do   if ADomain[i]='.' then    begin     n:=i-j;     if n>0 then      QStr:=QStr+Chr(n mod 256)+Copy(ADomain,j,n);     j:=i+1;    end;  n:=Length(ADomain)-j+1;  if n>0 then   QStr:=QStr+Chr(n mod 256)+Copy(ADomain,j,n);  QStr:=QStr+#0+#0+#15+#0+#1;   Randomize;  ID:=Random(65535);  IQStr:=Chr(ID div 256)+Chr(ID mod 256)+#1+#0+#0+#1+#0+#0+#0+#0+#0+#0+QStr;  if WSAStartup($101,Init)=0 then   begin    Sock:=Socket(PF_INET,SOCK_DGRAM,IPPROTO_UDP);    if Sock<>INVALID_SOCKET then     begin      Target.sin_port:=htons(53);      Target.sa_family:=PF_INET;      i:=0;      if (inet_addr(PChar(IPHostDNS))<>INADDR_NONE) then       Target.sin_addr.S_addr:=inet_addr(PChar(IPHostDNS)) else i:=1;      if ((i=1)or(Connect(Sock,Target,SizeOf(Target))=Socket_Error)) then       begin        CloseSocket(Sock);        WSACleanup;        exit;       end;      SockClose:=TSockClose.Create(True);      SockClose.FreeOnTerminate:=true;      SockClose.Priority:=tpIdle;      SockClose.Sock:=Sock;      SockClose.milliseconds:=RTimeOutDNS;      if Send(Sock,PChar(IQStr)^,Length(IQStr),0)<>Socket_Error then       begin        try         ResMailServers.Free;        except        end;        ResMailServers:=TStringList.Create;        FillChar(Buf,SizeOf(Buf),#0);        FillChar(Target.sin_zero,SizeOf(Target.sin_zero),#0);        SockClose.Resume;        repeat         i:=Recv(Sock,Buf,SizeOf(Buf),0);         if (i>=Length(IQStr))and((ord(Buf[1])shl 8)or ord(Buf[2])=ID)and(ord(Buf[4])and $F=0) then          begin           j:=(ord(Buf[5])shl 8)or ord(Buf[6])+(ord(Buf[7])shl 8)or ord(Buf[8])+              (ord(Buf[9])shl 8)or ord(Buf[10])+(ord(Buf[11])shl 8)or ord(Buf[12]);           if j>0 then            begin             n:=13;             GetName(n);             n:=n+4;             for j:=1 to j do              begin               l:=0;               ADomain:=trim(GetName(n));               if (ADomain<>'')and((n+9)<SizeOf(Buf)) then                begin                 l:=(ord(Buf[n+8])shl 8)or ord(Buf[n+9]);                 if (n+10+l)<=SizeOf(Buf) then                  begin                   d:=Copy(Buf,n+10,l);                   while (Length(d)>0)and(d[1]=#0) do d:=Copy(d,3,l);                   if Length(d)>2 then                    begin                     d:=Copy(d,2,Ord(d[1]))+'.'+ADomain;                     ResMailServers.Add(d);                    end;                   end;                end;               n:=n+l+10;               if n>SizeOf(Buf) then Break;              end;            end;          end;         until (i=SOCKET_ERROR)or(i<Length(Buf));        if ResMailServers.Count>0 then         Result:=true;       end;      CloseSocket(Sock);     end;    WSACleanup;   end; end; procedure TForm1.Button1Click(Sender: TObject); var FMailServers,IPHostDNS:TStrings;     smtp:TIdSMTP;     mes:TIdMessage;     i:integer;     FI:PFIXED_INFO;     S:DWord;     n:PIP_ADDR_STRING; begin  S:=0;  if GetNetworkParams(nil,S)<>ERROR_BUFFER_OVERFLOW then exit;  GetMem(FI,S);  IPHostDNS:=TStringList.Create;  FMailServers:=TStringList.Create;  if GetNetworkParams(FI,S)=ERROR_SUCCESS then   begin    n:=FI^.CurrentDnsServer;    while n<>nil do     begin      IPHostDNS.Add(n^.IpAddress.S);      n:=n^.Next;     end;    if FI^.DnsServerList.IpAddress.S[0]<>#0 then     IPHostDNS.Add(FI^.DnsServerList.IpAddress.S);    n:=FI^.DnsServerList.Next;    while n<>nil do     begin      IPHostDNS.Add(n^.IpAddress.S);      n:=n^.Next;     end;   end;  FreeMem(FI,S);  while IPHostDNS.Count>0 do   begin    if GetMailServers(IPHostDNS.Strings[IPHostDNS.Count-1],'yandex.ru',5000,FMailServers) then     begin      smtp:=TIdSMTP.Create(nil);      mes:=TIdMessage.Create(nil);      smtp.Port := 25;      smtp.AuthenticationType:=atNone;      smtp.HeloName:='Info';      mes.From.Text:='[email protected]';      mes.Sender.Text:='[email protected]';      mes.Recipients.EMailAddresses:='[email protected]'; //Получатель      mes.Subject:='al';      mes.Body.Text:='Hello! Is test. If you see, hence all ok!!!';      mes.MessageParts.Clear;      for i:=0 to FMailServers.Count-1 do       begin        smtp.Host:=trim(FMailServers.Strings[i]);        try         smtp.Connect;         smtp.Send(mes);         IPHostDNS.Clear;         break;        except        end;        smtp.Disconnect;       end;      mes.Free;      smtp.Free;     end;    if IPHostDNS.Count>0 then IPHostDNS.Delete(IPHostDNS.Count-1);    end;  try   IPHostDNS.Free;   FMailServers.Free;  except  end; end; end.

Удачи.

Girder
Как-то по левому получаеться, те если мне надо будет послать мыла, допустим, в начале на inbox, потом на gamil, а потом на hotmail, то получаеться, для них всех прийдеться запрашивать GetMailServers????

Код к стати рабочий

А можно ли к этому коду прикрутить ProgressBar
Если можно то напишите пример как энто сделать
Спасибо

Тут проскакивало, что в Indy можно отправлять через прокси. Как?? Можно пример??

http://forum.vingrad.ru/index.php?showtopic=50670
http://forum.sources.ru/index.php?showtopi...71&view=showall

если не трудно подскажите откда взять TIdAntiFreeze; - Delphi 7 чет ненашол.  

ConstantinXXX
Просто они не подключены 
http://forum.vingrad.ru/index.php?showtopic=21501&hl=

Yanis, спасибо за то, что дал ссылку на еще однуссылку котораяведет еще надругую ссылку. А поконкретний можно.
-------------------
Как подключить их.
--------
Зарание спасибо.  

ConstantinXXX, а вам не кажется что это вопрос который можно и нужно решать самостоятельно. И гневных 

писать не обязательно.

Большинство здесь заняты своей работой и писать для тебя код врядли будут. 

На закладке Indy Misc посмотри.
Второй значёк.

Snowy, вот за ето спасибо. Сразу нашол  

Girder 
получается в этом куске

постоянно проверять DNS ???  или как ??? я чтото не совсем понял
это както автоматом можно сделать ? например я отправил человеку на hotmail.com а второму на gmail.com - причем у gmail.com SSL включен ....  
или брать мыло которое по списку отрезать то что собаки ... проверять на DNS и потом отправлять ?    

Girder

Я кое что добвил в тою процедуру, но только не знаю работает или нет .... 
Добавил работу через Socks5 
у меня локально носок не поднят 127,0,0,1 
но все равно почему то пришло ...
хотелось бы твой пример пустить через Socks ... правильно ли я дописал ? 
Проверьте кто сможет, у кого есть поднятый Socks ????
Очень нужно.... 
и еще вопрос 

кажды раз надо надо добавлять Доменное имя ??? или можно автоматом определить от концовки ящика ? или всетаки приется брать ящик - вырезать все что после собаки - и потом подставлять ? 


вот собственно пример.... все таже функция которая была написана вышел, только в процедуре добавлен сокс .... 


Это сообщение отредактировал(а) Lence - 3.9.2006, 00:30