Многопоточность в делфи

@MrPro100Viper · Регистрация: 03.01.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужны советы и помощь.

Суть задачи состоит в том что:

Есть компонент ListView.
Нужно сделать так что бы каждая строка была отдельным потоком, проще говоря, строка для пользователя была доступом в поток, и при её нажатии сбоку в компоненте Edit вывелась переменная того класса который в потоке, к примеру.

Подсказали сделать TList и в нём держать указатели на поток и при выборе какого то элемента в ListView брать из TList поток с тем же индексом. В принципе проблем нет.
Но я понял что, я не смогу управлять потоком, т.е. мне нужно будет изменить переменную в том классе добавить элемент в массив и т.д.( Естественно для всего этого будут свои методы), а я этого не смогу. Именно нужно что бы в потоке хранился класс, так как класс будет таким себе клиентом написанным на сокетах и будет общаться с сервером, будут главные процедуры класса к которым мне нужен доступ, как я писал уже выше.

Так вот как такое реализовать, возможно у кого то есть решение, или мысли, прошу помощи у Вас)
Спасибо

Добавлено через 33 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
unit Unit3;
 
interface
    uses ScktComp, classes, Sysutils;
type
 
   TMyClass = class(TThread)
    private
      login : string;
      password : string;
      name_of_shop : string;
      ClientSocket1: TClientSocket;
      THRead : TMyThread;
      procedure OnReceive();
    public
      name_of_list :string;
      procedure Init(ip:string; port:integer; login,pass:string);
 
    published
    //  property item_name : string read login;
  end;
implementation
 
uses Unit1;
 
procedure TMyClass.Init(ip:string;port:integer;login,pass:string);
begin
   Create(false);
   ClientSocket1.Host:= ip;
   ClientSocket1.Port:= port;
   ClientSocket1.Open();
end;
{Дальше буду ловить событие получения чего то от сервера и обрабатывать.}
end.

Пробую так. Не знаю правильно ли и будет ли оно работать.
Вроде поток создаю. Вроде доступ ко всему что нужно есть. Прошу вашей помощи.

Добавлено через 4 часа 9 минут
Что будет если я в TList добавлять указатели на экземпляры класса(клас в себе содержит клиент-сокет и обрабатывает сойдинение) по сути оно должно работать.??

@MrPro100Viper · 19.06.2014, 15:14 **[ТС]**

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

PeekMessage(Msg, 0, 0, 0, PM_REMOVE)
http://msdn.microsoft.com/ru-r... 85%29.aspx

Уже исправил) Но поток все равно завершился.

@mss · 19.06.2014, 15:29

если завершился, значит истинно while-условие либо в теле цикла возникло необработанное исключение

@MrPro100Viper · 19.06.2014, 15:31 **[ТС]**

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

если завершился, значит истинно while-условие либо в теле цикла возникло необработанное исключение

Сделал так:

Delphi
1
2
while not false do
        Sleep(0);

Все равно не работает. Может вы все таки зайдёте в асю?)

@mss · 19.06.2014, 15:35

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

Сделал так:
while not false do
Sleep(0);
Все равно не работает

На основании чего сделано такое умозаключение ?

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

Может вы все таки зайдёте в асю?

Да что я там забыл ?)

@MrPro100Viper · 19.06.2014, 15:39 **[ТС]**

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

На основании чего сделано такое умозаключение ?

Ну вечный цикл) Он же должен был бы работать.

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

Да что я там забыл ?)

Я смогу оперативней задавать вопросы хД
А Вы отвечать)

@mss · 19.06.2014, 16:09

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

Ну вечный цикл) Он же должен был бы работать

Так я и спрашиваю - на основании чего ты сделал заключение что он не работает вечно ?)

@MrPro100Viper · 19.06.2014, 16:15 **[ТС]**

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

Так я и спрашиваю - на основании чего ты сделал заключение что он не работает вечно ?)

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

@mss · 19.06.2014, 16:29

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

Ну поток завершается

Да на основании чего ты утверждаешь что он завершается ?!

@MrPro100Viper · 19.06.2014, 16:31 **[ТС]**

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

Да на основании чего ты утверждаешь что он завершается ?!

@mss · 19.06.2014, 16:35

Если так, то тот самый твой "вечный" цикл попросту не запускается на выполнение.

@MrPro100Viper · 19.06.2014, 16:38 **[ТС]**

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

Если так, то тот самый твой "вечный" цикл попросту не запускается на выполнение.

Прошу прощения мой косяк, я делал Free после добавления указателя на экземпляр класса.

Подскажите как правильно добавить экземпляр класса в компонент TList очищая при это все буферные переменные, сейчас я делаю так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm5.Button1Click(Sender: TObject);
var
  MyClass: ^MyThread;
begin
   New(MyClass);
   MyClass^:=  MyThread.Create(false);
   ClassList.Add(MyClass);
   //Dispose(MyClass);
   //MyClass.Free;
 
end;

@northener · 19.06.2014, 16:50

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

чищая при это все буферные переменные

Не надо их очищать. Это не имеет смысла.

@mss · 19.06.2014, 17:01

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

в компонент TList

TList - это не компонент
Компонент - это наследник TComponent

List.Add(TMyThread.Create(..))

Но TObjectList при прочих равных условиях будет удобнее и функциональнее чем TList - по мешьшей мере ему можно поручить автоматическое уничтожение объектов, добавленных в его список

@northener · 19.06.2014, 17:02

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

var
* MyClass: ^MyThread;
begin
* *New(MyClass);

Да и эта фигня с указателями абсолютно лишняя.

@MrPro100Viper · 19.06.2014, 17:04 **[ТС]**

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

TList - это не компонент
Компонент - это наследник TComponent
List.Add(TMyThread.Create(..))
Но TObjectList при прочих равных условиях будет удобнее и функциональнее чем TList - по меньшей мере ему можно поручить автоматическое уничтожение объектов, добавленных в его список

А обязательно сразу вызывать Create? Мне же нужно сначала инициализировать переменные в классе, еще до начала запуска потока.

@northener · 19.06.2014, 17:08

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

А обязательно сразу вызывать Create? Мне же нужно сначала инициализировать переменные в классе, еще до начала запуска потока.

Как же ты хочешь инициализировать что-то в классе до его создания?

@mss · 19.06.2014, 17:16

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

А обязательно сразу вызывать Create? Мне же нужно сначала инициализировать переменные в классе, еще до начала запуска потока

Как раз для этого и предназначен Create

А чтобы поток сразу не стартовал, конструктор следует вызывать с параметром True
После вызова конструктора и необходимой доп.поготовки сконструированного объекта следует вызвать его метод Resume - рожденный спящим поток тут же стартует

@MrPro100Viper · 19.06.2014, 17:52 **[ТС]**

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

Как раз для этого и предназначен Create
А чтобы поток сразу не стартовал, конструктор следует вызывать с параметром True
После вызова конструктора и необходимой доп.поготовки сконструированного объекта следует вызвать его метод Resume - рожденный спящим поток тут же стартует

Спасибо большое, кнопку уже тыкнул)
Еще подскажите, как правильно организовать обработку пакетов которые я получаю, в пакете первые байты это его тип, я что то не сильно хочу делать большой свитч.

И еще как добавить свой тип данных, но есть одно но он динамический. может быть 1,2 или 3 байта длины.

@mss · 19.06.2014, 18:09

заголовок сообщения должен иметь фикс.размер, например, 8 байт, в составе которых:
4 байта - код типа сообщения
4 байта - длина тела сообщения, следующего за заголовком

@MrPro100Viper · 19.06.2014, 19:49 **[ТС]**

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

заголовок сообщения должен иметь фикс.размер, например, 8 байт, в составе которых:
4 байта - код типа сообщения
4 байта - длина тела сообщения, следующего за заголовком

таковым он и есть(я про структуру), сам тип данных построен так что в зависимости от цифры пакуется оно по разному к примеру если число меньше 128 то это один байт если больше то уже два, так было сделано для экономии места

Добавлено через 1 минуту
У меня есть такая функция запаковки и розпаковки только они написаны на C# или php

Добавлено через 1 час 2 минуты
Ещё моё незнание как работать с указателями в делфи привело меня к тому что, я не знаю как дальше обратиться к созданному классу, создаю я его так как и Вы говорили:

Delphi
1
ClassList.Add(MyThread.Create(true));

А дальше что?

Добавлено через 4 минуты
Получилось так:

Delphi
1
2
3
MyThread(ClassList[0]).IP:= 'link5.pwonline.ru';
    MyThread(ClassList[0]).Port:= 29000;
    MyThread(ClassList[0]).Resume;

Но после запуска потока, программа зависает.

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	19.06.2014, 15:29
	если завершился, значит истинно while-условие либо в теле цикла возникло необработанное исключение 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	19.06.2014, 16:35
	Если так, то тот самый твой "вечный" цикл попросту не запускается на выполнение. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	19.06.2014, 18:09
	заголовок сообщения должен иметь фикс.размер, например, 8 байт, в составе которых: 4 байта - код типа сообщения 4 байта - длина тела сообщения, следующего за заголовком 0