Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.049 c
2-1191583372
Kolan
2007-10-05 15:22
2007.10.28
Просветите меня, как работают стандартные Action&amp;#146;s?


2-1191302087
Ping
2007-10-02 09:14
2007.10.28
Понизить приоритет сообщения в очереди окна


2-1191921383
BOBik
2007-10-09 13:16
2007.10.28
Visible


1-1187341894
wsv
2007-08-17 13:11
2007.10.28
Поиск минимумов-максимумов.


2-1191415461
timekiller
2007-10-03 16:44
2007.10.28
Динамические объекты