Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];

Вниз

Что не так?   Найти похожие ветки 

← →
Pacific   (2007-10-05 18:21) [0]

unit unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Syncobjs, idpop3;

type
 threed = class(TThread)
 IdPOP31: TIdPOP3;
 private
   ID, FInt, Sync: integer;
   CurrentItem: TTreeNode;
                           procedure updatelogin;
                           procedure updatepass;
                     protected
                      {VAR}
                                 x,c:integer;
                idpop32:tidpop3;
                  login:tstrings;
                pass:tstrings;
                indexpass:integer;
                indexlogin:integer;

                {end VAR}
     CS: TRTLCriticalSection;
   TreeNode: TTreeNode;
                  procedure Execute; override;
 end;

implementation
uses unit1;
procedure threed.updatelogin;
begin
Inc(indexlogin);
end;

procedure threed.updatepass;
begin
Inc(indexpass);
end;

procedure threed.Execute;
var
ss:integer;
begin
   idpop32:=tidpop3.Create(nil);
   login:=Tstringlist.create; //Ñîçäàþ ëèñò ëîãèíîâ
   pass:=Tstringlist.create;  //Ñîçäàþ ëèñò ïàññîâ
   login.LoadFromFile(form1.Edit2.Text); //Çàãðóæàþ ôàéë ñ ëîãèíàìè
   pass.LoadFromFile(form1.Edit3.Text);  //çàãðóæàþ ôàéë ñ ïàðîëÿìè
   idpop32.Host:=form1.Edit1.Text;
   indexlogin:=1;
   indexpass:=1;
  While (indexlogin<>0) and (pass.Strings[indexpass+1]<>form1.loginmemo.Lines.Strings[indexlogin]) do
begin
ss:=strtoint(form1.Label11.Caption);
Inc(ss);
form1.Label11.Caption:=inttostr(ss);
   idpop32.Username:=form1.loginmemo.Lines.Strings[indexlogin];
   idpop32.Password:=form1.passmemo.Lines.Strings[indexpass];
 if login.Strings[indexlogin+1]=form1.loginmemo.Lines.Strings[indexlogin] then indexlogin:=0;
 If pass.Strings[indexpass+1]=form1.passmemo.Lines.Strings[indexpass] then
 begin
   Synchronize(updatelogin);
   indexpass:=1;
 end
 else
 begin
   Synchronize(updatepass);
 end;
 try
   idpop32.connect;
 except
 end;
 if idpop32.Connected then form1.ListBox1.Items.Add("&#207;&#238;&#248;&#235;&#238;");
 idpop32.Disconnect;
 end; // While &#234;&#238;&#237;&#247;&#232;&#235;&#241;&#255;

end;
end.

---

← →
Вася Правильный   (2007-10-05 19:05) [1]

ВСЁ!

---

← →
Anatoly Podgoretsky ©   (2007-10-05 19:40) [2]

> Pacific  (05.10.2007 18:21:00)  [0]

Это вопрос или мерянье?

---

← →
Плохиш ©   (2007-10-05 21:18) [3]

> Что не так?

Слишком многа букав...

---

← →
Pacific   (2007-10-05 23:38) [4]

> ВСЁ!

Тогда как исправить

---

← →
DrPass ©   (2007-10-05 23:43) [5]

> Pacific   (05.10.07 23:38) [4]
Тогда как исправить

Удалить это и сделать как надо

---

← →
Pacific   (2007-10-06 00:08) [6]

> Удалить это и сделать как надо

ну а как надо? мне подсказали вот так написать, я и написал, пишу многопотосное приложение

---

← →
DrPass ©   (2007-10-06 02:38) [7]

> мне подсказали вот так написать, я и написал

То ли тебе чё-то не то подсказали, то ли ты не то написал.
Почему у тебя обращения к локальным полям объекта threed (название ему сам придумывал?)  делаются в Synchronize, а обращение к форме наоборот, без? К чему CS: TRTLCriticalSection, если ты ее не используешь? И т.д.

---

← →
Джо ©   (2007-10-06 03:35) [8]

В общем, извините, каша.
Причесывайте код, появятся конкретные вопросы, спрашивайте.
Тут и так раздел форума похож на мусорник.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.036 c