한국 델파이 동호회 델마당

사이사이
(문호상)

XE7인가부터 지원하는 Parallel Programming Library (PPL)에 관란 책이군요. 첨에는 병렬프로그래밍에 대한 이해를, 나중엔 델파이 라이브러리(Threading.pas)와 OMNI 오픈소스에 대해서 설명도 있고.
병렬프로그래밍에 관심있으면 매우 좋은책이겠네요.
영어가 딸린다는게 아쉽네요 ㅠㅠ
2019-05-13 오후 8:00:20

coding
(권순호)

GPU 이용한 병렬처리가 아닌, 쓰레드 이용한 PPL은 한계가 있다는.

C#도 깊게 들어가면 파스칼 보다 공부해야 할게 더 많아요.

회사에서 C# 쓰고 있다면 쓰레드 이용한 파스칼 PPL에 관심 갖는 것
보다는 C# 옵티마이징에 대해서 깊이있게 공부하는게. ㅋㅋ
2019-05-14 오전 11:59:53

후레이크양파
(유종화)

@사이사이 저는 해당 분야를 잘 몰라서 하는 말이기는 합니다만.. 델파이로 병렬연산 프로그래밍을 해야할 일들이 꽤 있나요? 또는 그에 따르는 요구등이 있나 갑자기 궁금하네요.

대부분은 MPI 를 이용해서 c 또는 fortran 으로 multicore/cluster 연산을 진행할텐데.. 그런 경우라면 델파이는 UI 정도외에는 c 로 작업된 부분을 불러다 쓰는 정도여도 충분하지 않을까 싶기는 해서요.
2019-05-17 오후 1:14:28

???????
(문호상)

@?????
???? ????????? ???Ŀ????? ???? ???????.

?????? ????????? ??????? PPL????귯???? ??????? ????????
???????
- ???????? ?????? ??????? ??? ????????? ??o?????
- ???? ?????? ??????? Return???? ??????? ??o?????

????? ??쿡?? PPL ????귯???? ?????? ???? ????.
??? ????? ???? ??????? ?????????.

??????? ??? ???? ?뷫 2???Ŀ? "??????"?? alert????

var
  LWork1, LWork2, LWork3: TProc;
  LTask: ITask;
begin
  LWork1:= procedure begin Sleep(1000) end;
  LWork2:= procedure begin Sleep(2000) end;
  LWork3:= procedure begin end;
  LTask:= TParallel.Join([LWork1, LWork2, LWork3]);
  LTask.Wait;

  ShowMessage('??????');
end;

????? ??? ???? 5???? ?????? ???? ????? showmessage????
procedure TForm2.Button2Click(Sender: TObject);
var
  LRun: TProc;
begin
  LRun:= procedure
  var
    LList: TList<ITask>;
    LNewFutureAndStarter: TFunc<TFunc<Integer>,IFuture<Integer>>;

    LFuture: IFuture<Integer>;
    LMaxValue: Integer;
  begin
    LList:= TList<ITask>.Create;
    // fure???? ?? ???? ???????
    LNewFutureAndStarter:= function(AWorker: TFunc<Integer>):IFuture<Integer>
    begin
      Result:= TTask.Future<Integer>(AWorker);
      Result.Start;
      LList.Add(Result);
    end;

    // 5???? ???? ???? ?? ????
    for var i:=1 to 5 do begin
      LNewFutureAndStarter(function:Integer
      begin
        Result:= Random(1000);

        Sleep(i*1000);
      end);
    end;

    // ??? ?????????? ???
    TTask.WaitForAll(LList.ToArray);

    LMaxValue:= 0;
    for var i in LList do begin
      LFuture:= IFuture<Integer>(i);
      LMaxValue:= Max(LMaxValue, LFuture.Value);
    end;

    LList.Free;

    // showmessage
    TThread.Synchronize(nil, procedure
    begin
      ShowMessage(LMaxValue.ToString);
    end);
  end;

  TThread.CreateAnonymousThread(LRun).Start;
end;
2019-05-17 오후 6:49:30

사이사이
(문호상)

@유종화
저도 업무성격상 병렬연산할 경우는 없습니다.

하지만 델파이에서 제공하는 PPL라이브러리는 쓸만한게 많더군요
예를들어
- 여러개의 쓰레드가 실행시켜 모두 끝나고나서 후처리할때
- 여러 쓰레드를 실행시켜 Return값을 취합해서 후처리할때

이러한 경우에도 PPL 라이브러리는 도움이 많이 됩니다.
코드 몇줄로 위의 케이스가 가능하거든요.

예를들어 아래 코드는 대략 2초후에 "작업완료"가 alert됩니다

var
  LWork1, LWork2, LWork3: TProc;
  LTask: ITask;
begin
  LWork1:= procedure begin Sleep(1000) end;
  LWork2:= procedure begin Sleep(2000) end;
  LWork3:= procedure begin end;
  LTask:= TParallel.Join([LWork1, LWork2, LWork3]);
  LTask.Wait;

  ShowMessage('작업완료');
end;

그리고 아래 코드는 5개의 타스크중 가장 큰값을 showmessage합니다
procedure TForm2.Button2Click(Sender: TObject);
var
  LRun: TProc;
begin
  LRun:= procedure
  var
    LList: TList<ITask>;
    LNewFutureAndStarter: TFunc<TFunc<Integer>,IFuture<Integer>>;

    LFuture: IFuture<Integer>;
    LMaxValue: Integer;
  begin
    LList:= TList<ITask>.Create;
    // fure생성 및 실행 정의함수
    LNewFutureAndStarter:= function(AWorker: TFunc<Integer>):IFuture<Integer>
    begin
      Result:= TTask.Future<Integer>(AWorker);
      Result.Start;
      LList.Add(Result);
    end;

    // 5개의 타스크 생성 및 실행
    for var i:=1 to 5 do begin
      LNewFutureAndStarter(function:Integer
      begin
        Result:= Random(1000);

        Sleep(i*1000);
      end);
    end;

    // 모두 종료될때까지 대기
    TTask.WaitForAll(LList.ToArray);

    LMaxValue:= 0;
    for var i in LList do begin
      LFuture:= IFuture<Integer>(i);
      LMaxValue:= Max(LMaxValue, LFuture.Value);
    end;

    LList.Free;

    // showmessage
    TThread.Synchronize(nil, procedure
    begin
      ShowMessage(LMaxValue.ToString);
    end);
  end;

  TThread.CreateAnonymousThread(LRun).Start;
end;
2019-05-17 오후 6:50:05

사이사이
(문호상)

간단한 코드만으로 번거롭던 병렬작업이
간단하게 해결되었습니다.

이거 하나만으로 XE7이상으로 버전업할 이유가 있는것 같습니다.
아님 Omni라이브러리를 사용하셔도 될것 같네요
2019-05-17 오후 6:52:34

후레이크양파
(유종화)

@사이사이 아하.... 하긴.. 병렬처리라는게 굳이 머신 with 머신 으로 생각할 필요는 없는거네요. 예제로 보여주신 코드로 충분히 유용하게 사용할 수 있을듯 합니다. 생각보다 번거로움이 줄어드네요 ㅎㅎㅎ
2019-06-13 오전 10:50:19