Класс запускает поток, который заполняет этот класс. Обмен класс <=> поток.

[Человек_Борща]

Доброго времени суток!

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

Но мой класс связан с этим потоком(он его запускает).

Вот как это примерно выглядит:


Но я вылетаю в AV при:

procedure TFListMgr.NewItem(aOnClient, aOnServer, aOnServer_h: string);
var
  fi: TFileInfo;
begin
  fi := TFileInfo.Create;
  fi.fClient := aOnClient;
  fi.fServer := aOnServer;
  fi.fCRC32 := aOnServer_h;
  Add(fi);
end;
...
procedure TFListMgr.Add(aItem: Pointer);
var
  LI: TListItem;
begin
  LI := fLV.Items.Add;  ;<< - EXCEPTION
  LI.Caption := TFileInfo(aItem).fClient;
  LI.SubItems.Add(TFileInfo(aItem).fServer);
  LI.SubItems.Add(TFileInfo(aItem).fCRC32);
  inherited Add(aItem);
end;

Хотя я указываю ListView.

Как быть? Не создавать же в потоке ещё один экземпляр класса. Можно ведь передать в поток указатель на класс и работать с этим класом и всеми его свойсвами.

[Аватар]

Из потока вызывается NewItem, который в свою очередь Add, откуда изменятся вмизуальный компонент fLV. А синхронизация где?

[Человек_Борща]

Аватар, почему я должен что-то синхронизировать?
Я передаю в поток указатель на класс, и использую его методы.

Если все же надо, то как?

[Аватар]

Не важно как, но вы из потока методами вашего класса обращаетесь к ListView. И код этих методов работает в потоке. Вот и используйте синхронизацию при обращении к методам этого класса.

[Человек_Борща]

хм возникла мысль, создать свое событие класса с передачей в него record'а с информацией.
Как создать знаю, а вот как со свом параметром, да ещё и положить в этот параметр что-то...

как это сделать? Можно пример?

[Аватар]

А чем Synchronize не по душе? Событие класса? Интересно, но уже спать хочется

[GunSmoker]

1. На диаграмме крайне подозрителен pF: ^TFListMgr;
2. Если fLV - это TListView, то Аватар прав - VCL однопоточна. К её объектам нельзя обращаться из других потоков, даже если это иногда может сходить нам с рук.

[Человек_Борща]

класс явл. оберткой над потоком и поток работает только с классом(заполняет), вывод на VCL делает сам класс, есть ситуации когда вывод в vcl вовсе не надо. По этому Thread => VCL не выход.

Я создал метод:

type
  TrFileInfo=record
    ClientFile:string[255];
    ServerFile:string[255];
    crc32:string[255];
  end;

type
  TOnRecordEvent=procedure(Sender: TObject; aInfo:TrFileInfo) of object;

type
  TWorkThread = class(TThread)
  private
    fScanDir:string;
    fOnRecord:TOnRecordEvent;
...
Using:
            if Assigned(fOnRecord) then
            fOnRecord(Self,fRec);

Возникло 2 вопроса:
1. В реализации TThread OnTerminate вызывается без синхронизации, почему?

procedure TThread.CallOnTerminate;
begin
  if Assigned(FOnTerminate) then FOnTerminate(Self);
end;

1.1. Если надо,то как передать в метод мой record?

p.s. для мен синхронизация конкретно в данном ПО не ритична т.к. будет всего 1 поток и я выношу в него то, что можен помешать юзеру нормально работать с ПО.

[Человек_Борща]

решил дело событиями=)