Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Когда все потоки, использующие эти данные будут завершены, первичный поток освобождает индекс:
TIsFree (dwTlsIndex) ;

Полезно посмотреть как организована локальная память потока. (Мне неизвестно, как в действительности Windows 95 это делает, но описываемая схема вполне правдоподобна.) Во-первых, функция TIsAlloc могла бы просто выделить блок памяти (длиной 0 байт) и вернуть значение индекса, который является указателем на этот блок. Каждый раз при вызове функции TIsSet
Value с этим индексом блок памяти увеличивается на 8 байт с помощью функции
GlobalReAlloc. В этих 8 байтах хранятся идентификатор потока, вызывающего функцию, полученный с помощью функции GetCurrentThreadID, и указатель, переданный функции TIsSetValue. Функция TIsGetValue просто использует идентификатор потока для поиска в таблице, а затем возвращает указатель.
Функция TZsFree освобождает блок памяти.

Реализация многопоточности в Delphi

Стандартный мастер модулей в Delphi автоматически создает модуль содержащий класс потока с указанным именем. Весь код который необходимо вынести в отдельный поток помещается в метод класса Execute.

Базовый класс для создания потока пользователя – TThread
TThread = class protected procedure DoTerminate; virtual; procedure Execute; virtual; procedure Synchronize(Method: TThreadMethod); property ReturnValue: Integer; property Terminated: Boolean; public constructor Create(CreateSuspended: Boolean); procedure Resume; procedure Suspend; procedure Terminate; function WaitFor: LongWord; property FreeOnTerminate: Boolean; property Handle: Thandle; property Priority: TthreadPriority; property Suspended: Boolean; property ThreadID: Thandle; property OnTerminate: TnotifyEvent; end;

Процесс, породивший поток может гибко управлять его состоянием: приоритетом Priority; приостановить и продолжить его исполнения, а так же досрочно завершить выполнение потока.

Для вызова методов VCL необходимо синхронизировать дочерний поток с главным. Для этого служит процедура Synchronize(Method:TThreadMethod);

unit Unit1; interface uses
Classes; type
TSamples = class(TThread) private

{ Private declarations } protected procedure Execute; override; end;

implementation

{ Подсказка Delphi по поводу Synchronize.

Important: Methods and properties of objects in VCL can only be used in a method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

procedure Samples.UpdateCaption; begin

Form1.Caption := 'Updated in a thread'; end; }

{ Samples }

procedure TSamples.Execute; begin
{ Здесь должен быть размещен код потока } end;

end.

Список используемой литературы

1. Turbo Pascal for Windows в 2-х томах. Нейл Рубенкинг Пер. с англ. –

М.:Мир, 1993, 536 с., ил.

2. Теория и практика C++. Герберт Шилдт. пер. с англ. – СПб.: BHV – Санкт-

Петербург, 1996. 416 с., ил.

3. Программирование для Windows 95; в 2-х томах. Чарльз Петзолд. пер. с англ. – СПб.: BHV – Санкт-Петербург, 1997.– 752 с., ил.

Рекомендуем скачать другие рефераты по теме: шпоры по управлению, доклад по биологии.





Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата