VPF::Mutex и поток... - Форум программистов

Delphins

Дата 15.8.2007, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 10.8.2005
Где: Россия, Краснодар

Репутация: нет
Всего: нет

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

Код


var
  _GetPageHTML_Thread_URL: String;
  _GetPageHTML_Thread_Content: String;
  _GetPageHTML_ThreadID: Cardinal;
  _GetPageHTML_ThreadMutex: Cardinal;

unction _GetPageHTML(aParam: Pointer): Integer;
var
  aURL: String;
  aHTTP: TIdHTTP;
begin
  aURL := _GetPageHTML_Thread_URL;
  aHTTP := TIdHTTP.Create( Frm_Main );
  _GetPageHTML_Thread_Content := aHTTP.Get( aURL );
  ReleaseMutex(_GetPageHTML_ThreadMutex);
  aHTTP.Free;
end;

function TFrm_Main.GetPageHTML( aURL: String ): String;
begin
  if _GetPageHTML_ThreadID <> 0 then
  begin
    CriticalError( 1001 );
  end else
  begin
    _GetPageHTML_Thread_URL := aURL;
    _GetPageHTML_ThreadMutex := CreateMutex( nil, false, '_GetPageHTML_Thread' );
    BeginThread( nil, 0, @_GetPageHTML, 0, 0, _GetPageHTML_ThreadID );
    if WaitForSingleObject( _GetPageHTML_ThreadMutex, INFINITE{Settings.Timeout} ) = WAIT_TIMEOUT
    then Result := 'TIMEOUT'
    else Result := _GetPageHTML_Thread_Content;
  end;
end;

Почему waitForSignleObject не ждет освобождения? А сразу переходит на

Код


else Result := _GetPageHTML_Thread_Content;

?
Да и как сделать чтоб ждало выполнение потока? smile

dumb

Дата 15.8.2007, 16:48 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

Код


    if WaitForSingleObject( BeginThread( nil, 0, @_GetPageHTML, 0, 0, _GetPageHTML_ThreadID ), INFINITE{Settings.Timeout} ) = WAIT_TIMEOUT
    then Result := 'TIMEOUT'
    else Result := _GetPageHTML_Thread_Content;

а мьютекс просто убери.

Добавлено через 13 минут и 49 секунд

Цитата(Delphins @ 15.8.2007, 16:10

)

Почему waitForSignleObject не ждет освобождения?

потому что мьютекс свободен и WaitForSingleObject получает его во владение сразу. перед тем, как мьютексы пользовать, про них надо почитать smile

MetalFan

Дата 19.8.2007, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

dumb, а зачем проверять на то, что никогда не наступит? или дождемся INFINITE? ))

--------------------

There are always someone smarter than you...

dumb

Дата 19.8.2007, 12:16 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

Цитата(MetalFan @ 19.8.2007, 09:35

)

а зачем проверять на то, что никогда не наступит? или дождемся INFINITE?

это код автора - я только хэндл объекта заменил. да и в коде видно, что INFINITE потом уступит место реальному тайм-ауту...

Delphins

Дата 20.8.2007, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 10.8.2005
Где: Россия, Краснодар

Репутация: нет
Всего: нет

Ха! Спасибо!

MetalFan, я просто заменил на INFINITE пока тестировал да и чтоб вам не разбираться откдуа взялось settings.timeout.
Я и делал по статье из мсдн... Но не работает. Ну и фиг с ним ) smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »