Delphi OTL 멀티 쓰레드 프로그램이 사용 가능한 CPU의 절반 만 사용하는 이유

Question

멀티 쓰레딩 프로그램을 실행하는 동안 사용 가능한 8 개의 CPU 중 4 개만 사용됩니다. 왜? 모든 CPU가 작동하도록 변경하려면 어떻게해야합니까?

Parallel.ForEach(0, CalcList.Count-1) 
    .NumTasks(nMax) 
    .NoWait 
    .Execute(
    procedure(const value: integer) 
    begin 
     CalcUnit.EntrySearch(value); 
    end); 

는

이 OTL를 사용하여 I7 2600 (4 개 코어 8 HT)에 당신에게

Answer 1

난 그냥 한 테스트 감사 (Nmax가와 CalcList.Count 인텔 I7 하이퍼 쓰레드 모두 16입니다). 간단한 Parallel.ForEach 루프는 모두 8을 사용합니다. 가지고있는 .NumTask가 있거나없는 것. 라이브러리에는 문제가 없습니다.

begin 
    Parallel.ForEach(0, 100) 
    //.NumTasks(16) 
    .Execute(
    procedure(const value: integer) 
    var 
     newValue: Single; 
     I: Integer; 
    begin 
     newValue := value; 
     for I := 1 to 100000000 do 
     begin 
     newValue := newValue * I; 
     newValue := newValue/I; 
     end; 
    end); 
    ShowMessage('Done!'); 
end; 

제 생각에 문제는 귀하의 코드에 있습니다. 스레드의 디스크 액세스는 처음부터 스레드를 사용하는 이점을 상쇄하는 좋은 방법입니다.

코드에 대해 충분히 알지 못하지만 단일 스레드의 데이터를 읽은 다음 해당 데이터의 실제 처리를 스레딩하는 것이 좋습니다.

아니요. 지정된 번호가 있습니다. Parallel.ForEach의 반환 값을 저장 하시겠습니까? OnClick이 종료 될 때 코드가 차단되므로이 값을 저장하는 것이 좋습니다. 이 질문에 대한 가브의 대답을 참조하십시오.

Why is OmniThreadLibrary's ForEach blocking main thread?