Прикрутить многопоточность в программу.

[Perchik71]

//idHTTP1:=TIdHTTP.Create(nil); <-- нельзя
idhttp1.AllowCookies := true;
idhttp1.HandleRedirects := true;
idhttp1.Request.Host:=('');
idhttp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0';
Idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Idhttp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
Idhttp1.Request.AcceptEncoding:='gzip, deflate';
idhttp1.Request.Connection:='keep-alive';
idhttp1.Request.Referer:='' ;
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
for i := 0 to form2.smemo1.Lines.Count - 1 do 
begin
//data:=TStringList.Create; <-- нельзя
data.Clear;
email:='';
pass:='';
email:=trim(copy(form2.smemo1.Lines[i],1,pos(';',form2.smemo1.Lines[i])-1));
pass:=trim(copy(form2.smemo1.Lines[i],pos(';',form2.smemo1.Lines[i])+1,length(form2.smemo1.Lines[i])-pos(';',form2.smemo1.Lines[i])+1));
data.add('name='+email);
data.add('pass='+pass);
data.add('op=%D0%92%D1%85%D0%BE%D0%B4+%D0%B2+%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D1%83');
data.add('form_build_id=form-6d1652dd1259cd84e60af5e57ee4f61f');
data.add('form_id=user_login' );
s1:=idhttp1.post('*****',data); <-- s1 где то должна быть вне класса потока. 
Synchronize(Update);
end;

//------
Вся эта дрянь ваще не к месту. запихните в конструктор потока.. и забейте

idhttp1.AllowCookies := true;
idhttp1.HandleRedirects := true;
//idhttp1.Request.Host:=''; <-- Если тут не хера, то закой писать?
idhttp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0';
Idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Idhttp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
Idhttp1.Request.AcceptEncoding:='gzip, deflate';
idhttp1.Request.Connection:='keep-alive';
idhttp1.Request.Referer:='' ;
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';

Собственно зачем писать ничего?

idhttp1.Request.Referer:='';

[admin22]

Господа, где в моем криворуком коде ошибка, и как ее устранить, что бы заработало

[admin22]

:006ae6bc TIdCustomHTTP.SetAllowCookies

[Perchik71]

Сообщение от admin22

:006ae6bc TIdCustomHTTP.SetAllowCookies

Можно у вас спросить, как вы долго пишите?
честно я вижу сразу... нулевые адреса... походу вы забыли в конструкторе инициализировать idhttp.

[admin22]

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

Полгода

честно я вижу сразу... нулевые адреса... походу вы забыли в конструкторе инициализировать idhttp

не хочу показаться тупым, но я не знаю как и где это делать

[Perchik71]

type TPedik = class(TThread)
public:
constructor Create(AOwner: TComponent);
destructor Destroy; override;
end;

как вы поняли при создании класа автоматом вызываеться конструктор там мы иницализируем всё что нужно
в деструкторе мы всё выносим.


//------
type TPedik = class(TThread)
idhttp: TIdHttp; <-- тут наши переменные
data: TStringList;
public:
constructor Create(AOwner: TComponent);
destructor Destroy; override;
end;

//-----
Если совсем без заморочек

constructor TPedik.Create(AOwner: TComponent);
begin
тут инсталируем
end;
destructor TPedik.Destroy; 
begin
тут одни Free
end;
//----
большучий совет.... поищите тут у нас ссылки на книги...
попробуйте поработать сначало с простого.
поймите как работает сам класс, создайте его.. сделайте его и улучшайте.
что бы понять наследование из этого же прошлого класса
нужно создать другой. без книги никак. у вас слишком мало знаний.
для реализации такой вещи... вам нужно ещё время. что бы  ваш код был оптимально оптимизирован.
вам нужно понимать. так же пишите комменты. они сопровождают ваши мысли... 
по два 2 часа в день. вы быстро освоитесь в этом языке.

[admin22]

Надеюсь, я Вас правильно понял:


Хотя нет, неправильно понял

[eoln]

Сообщение от Человек_Борща

eoln, не имеет значения сколько строк берет поток, имеет значение только то, что поток всего 1.

Это про что? Я имел в виду организацию очереди из нескольких потоков. Если строк в мемо много, то скоре всего программа не сможет создать столько потоков одновременно, либо работа будет не оптимальна. Поэтому нужен управляющий поток, который будет следить за общим кол-вом потоков, этим потоком может быть и главный поток, но тогда форма подвисать будет.

Сообщение от Perchik71

Вы не правы... можно ускорить, главное не тормозить основной поток. а обмануть всегда можно.

В чём не прав? Я не утверждал, что с потоками будет медленнее. Но иногда это именно так, например, при частой синхронизации и при быстрых Execute.
А основной поток вообще не тормозит (кроме моментов вызова синхронизации), он как танк вперёд мчится и только для интерфейсного общения и синхронизации нужен.

[Perchik71]

Сообщение от eoln

В чём не прав? Я не утверждал, что с потоками будет медленнее. Но иногда это именно так, например, при частой синхронизации и при быстрых Execute.
А основной поток вообще не тормозит (кроме моментов вызова синхронизации), он как танк вперёд мчится и только для интерфейсного общения и синхронизации нужен.

Если не брать в расчёт не очень подходящий TThread а апи..
то вы увидите, что тормозить можно этот поток даже не трогая основной.. тем самым вы можете делать всё что угодно... например если создать событие и им тормозить? обычно на с++ так и делают и я не удивлюсь если где то в TThread тоже самое. Ибо для синхронизации нужно создать событие... можно пустое, а можно и с какой то фуной.

[Perchik71]

Сообщение от admin22

Надеюсь, я Вас правильно понял:


Хотя нет, неправильно понял

вы забыли в креаторе инициализировать idhttp.
//
также конструктор и деструктор
всегда в паблике.
//
строки или числа
уничтожаются стеком.
ваши опирации по опустошению строк не нужны.