Главная страница
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.014 c
2-1191850673
webpauk
2007-10-08 17:37
2007.10.28
Преобразование типов


2-1191307093
amily
2007-10-02 10:38
2007.10.28
строки на БД


6-1163412082
Alexey (AZ)
2006-11-13 13:01
2007.10.28
ServerSocket :: What are differents?


15-1191269789
Delphi User
2007-10-02 00:16
2007.10.28
VLK


15-1190429828
TwentyTwo
2007-09-22 06:57
2007.10.28
Тест Тьюринга. Докажем, что форум - это разумный организм?