Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Mutex и поток...

Автор: Delphins 15.8.2007, 16:10

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

Код


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

Код


    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 получает его во владение сразу. перед тем, как мьютексы пользовать, про них надо http://msdn2.microsoft.com/en-us/library/ms684266.aspx smile

Автор: MetalFan 19.8.2007, 09:35

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

Автор: dumb 19.8.2007, 12:16

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

)

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

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

Автор: Delphins 20.8.2007, 14:55

Ха! Спасибо!

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