7 / 6 / 1
Регистрация: 29.03.2015
Сообщений: 501
1
RAD XE3+

Многопоточность

20.05.2018, 23:55. Показов 387. Ответов 4
Метки нет (Все метки)

Вообщем есть код 1 потока - логин в аккаунт, но мне нужно сделать чтобы было сразу несколько потоков и проверялись несколько аккаунтов за раз, не нужно пожалуйста кидать мне ссылки на сайты, я кучу сайтов облазил и ничего дельного не вывез. вообще проблема в том что я не понимаю как создавать несколько компонентов idhttp; Есть такой код, но при выполнении потока я крашу и заново создаю idhttp. Вот мне нужно чтобы создавалось и удалялось idhttp[i] сколько в spinedit1; или это можно как-то по другому реализовать, не совсем понимаю саму работу нескольких потоков. Нужен код, а не объяснения.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure http;
begin
idhttp1:= Tidhttp.Create(nil);
idhttp1.HandleRedirects:=true;
IdSSLIOHandlerSocket1:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
idhttp1.IOHandler:=Idssliohandlersocket1;
IdCompressorZLib1:=TIdCompressorZLib.Create(idhttp1);
IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:60.0) Gecko/20100101 Firefox/60.0';
IdHTTP1.Request.Host:= 'homegate.ru';
IdHTTP1.Request.Accept:='application/json, text/plain, */*';
IdHTTP1.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
IdHTTP1.Request.AcceptCharset:='iso-8859-1, utf-8, utf-16, *;q=0.1';
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2018, 23:55
Ответы с готовыми решениями:

Многопоточность
Нужно, чтобы memo заполнялось числами с помощью n-го количества потоков. Числа заполняются, только...

Многопоточность
Видел много статей по многопоточности,но мне надо просто самое основное. var s:string; begin...

Многопоточность
Здравствуйте! Прошу помочь реализовать многопоточность. Написал брут, когда запускаю в 1 поток, всё...

Многопоточность
Добрый день. Возникал у меня следующая проблема. Пишу программу по расчетам фазового равновесия...

4
Модератор
7472 / 4888 / 2045
Регистрация: 21.01.2014
Сообщений: 20,800
Записей в блоге: 3
21.05.2018, 07:00 2
Цитата Сообщение от Valimer Посмотреть сообщение
Нужен код, а не объяснения
Такое возможно во фрилансе, если что!
0
5086 / 3966 / 1309
Регистрация: 14.04.2014
Сообщений: 18,251
Записей в блоге: 18
21.05.2018, 07:18 3
объяснения
https://www.cyberforum.ru/blog... g4875.html
ваш код там тоже есть.
почти
0
7 / 6 / 1
Регистрация: 29.03.2015
Сообщений: 501
21.05.2018, 18:19  [ТС] 4
Цитата Сообщение от krapotkin Посмотреть сообщение
объяснения
https://www.cyberforum.ru/blog... g4875.html
ваш код там тоже есть.
почти
статья и правда годная, но как создавать idhttp[i] я так и не нашел
0
5086 / 3966 / 1309
Регистрация: 14.04.2014
Сообщений: 18,251
Записей в блоге: 18
21.05.2018, 21:10 5
h:=TidHttp.Create
вот. есть еще способы?
разницы между idHTTP и THttpClient не столько чтобы

вот полный вариант
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var idhttp1:TidHTTP;
  IdSSLIOHandlerSocket1:TidIdSSLIOHandlerSocket1;
  IdCompressorZLib1:TIdCompressorZLib;
begin
  idhttp1:= Tidhttp.Create(nil);
  idhttp1.HandleRedirects:=true;
  IdSSLIOHandlerSocket1:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
  try
    idhttp1.IOHandler:=Idssliohandlersocket1;
    IdCompressorZLib1:=TIdCompressorZLib.Create(idhttp1);
    IdHTTP1.Request.Accept:='application/json, text/plain, */*';
    IdHTTP1.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
    IdHTTP1.Request.AcceptCharset:='utf-8';
    result := IdHTTP1.Get(URL);
finally
  IdCompressorZLib1.free;
  IdSSLIOHandlerSocket1.free;
  idhttp1.free;
end;
 
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2018, 21:10

Многопоточность
Прочитал много всяких статеек по многопоточности и не очень понял что именно идет в...

Многопоточность
Гуглил, информации в интернете много, даже слишком, поэтому голова уже взрывается. Суть проблемы:...

многопоточность
Всем привет! Вопрос в следующем: файл скачивается из интернета с помощью следующей функции:...

Многопоточность в делфи
Здравствуйте, нужны советы и помощь. Суть задачи состоит в том что: Есть компонент ListView....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru