Доброго времени суток!
Подскажите мне пожалуйста,как мне сделать в Delphi-приложении правильную многопоточность и правильное считывание данных вида
?
Вот мой быдлокодец:
Проблема в том,что я не понимаю,как можно сделать считывания пары логин;пароль отдельно для каждой записи в файле Logins.txt и в отдельном потоке обрабатывать события для них.
Почитав про потоки я понял примерно,что схема будет примерно такая:
Загрузили данные,если тру=грузим в отдельный поток и отрабаываем,иначе на начало...
Но вся соль вот встала в правильной обработке этих вот входных данных
Подскажите мне пожалуйста,как мне сделать в Delphi-приложении правильную многопоточность и правильное считывание данных вида
Код:
логин;парольВот мой быдлокодец:
Код:
procedure TPMain.HackClick(Sender: TObject);
var
tempStream: TStringStream;
html:string;
begin
//razdelitel:=';';
//data:=TIdMultiPartFormDataStream.Create;
i:=0;
AssignFile(Vf,'Logins.txt');
Reset(Vf);
//AssignFile(Vf2,'Passwords.txt');
while not eof(Vf) do
Begin
i:=i+1;
ReadLn(Vf,login);
login:=Copy(buff,1,Pos(';',buff)-1);
pass:=Copy(buff,Pos(';',buff)+1,length(buff));
//pb.Progress:=100*i div bar;
///CloseFile(Vf); тут ошибка-этого закрытия тут НЕ ДОЛЖНО БЫТЬ,а оно должно быть в 141-й строке!
Sleep(1000);
MessageBox(0,'Данные успешно загружены!','Проктолог',0);
//pb.Progress:=0;
End;Почитав про потоки я понял примерно,что схема будет примерно такая:
Загрузили данные,если тру=грузим в отдельный поток и отрабаываем,иначе на начало...
Но вся соль вот встала в правильной обработке этих вот входных данных
