| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Что не так?

Pacific ©   (2007-10-05 18:21:00) 

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 (indexlogin0) 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('Ïîøëî');
 idpop32.Disconnect;
 end; // While êîí÷èëñÿ

end;
end.

---

Джо   (2007-10-06 03:35:00) [1]

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

---

DrPass   (2007-10-06 02:38:00) [2]

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

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

---

Pacific   (2007-10-06 00:08:00) [3]

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

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

---

DrPass   (2007-10-05 23:43:00) [4]

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

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

---

Pacific   (2007-10-05 23:38:00) [5]

> ВСЁ!

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

---

Плохиш   (2007-10-05 21:18:00) [6]

> Что не так?

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

---

Anatoly Podgoretsky   (2007-10-05 19:40:00) [7]

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

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

---

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

ВСЁ!

---

Наверх