류종택의 프로그래밍 강의실

Tron 게임

류종택 — Fri, 17 Feb 2012 07:26:24 +0900

초등학교 때였던가? 이게 영화가 있는 것도 모르고, 게임에 빠져들었던 적이 있었는데, PC에서 실행할 수 있는 프로그램이 있어서 올려봅니다.

기억이 참 새롭네요 ^^*

퍼포먼스를 위한 발악

류종택 — Sat, 11 Feb 2012 23:52:25 +0900

오래 전부터 습관이 된 탓에 and 조건을 분별할 때에는 항상 확률이 낮은 것부터 나열하도록 신경을 쓰고 있었습니다. 그러다가, 요즘 PC에서 그런 것이 과연 얼마나 퍼포먼스 향상에 도움이 될 까 궁굼해 졌습니다. 바로 테스트에 들어 갔습니다.

[소스 1]

procedure TForm1.Button1Click(Sender: TObject);
var
  Tick : Cardinal;
  Loop, a, b : integer;
begin
  Tick := GetTickCount;

  for Loop := 1 to 100000000 do begin
      a := Random(2);
      b := Random(100);
//      if (a = 1) and (b = 1) then Tag := Tag + 1;
      if (b = 1) and (a = 1) then Tag := Tag + 1;
  end;

  Caption := IntToStr(GetTickCount - Tick);
end;

11: 라인과 12: 라인이 오늘의 주인공입니다. 결과적으로 똑같은 두 문장의 속도 차이는 아래와 같습니다.

11: 라인 평균 1200 ms 정도
12: 라인 평균 730 ms 정도

and 문장에서는 앞에서 false가 판별되었을 경우 다음 조건을 검사하지 않기 때문에 확률이 낮은 것을 먼저 분별하면 성능에 도움이 됩니다. or 에서는 반대로 확률이 높은 것부터 나열하는 것이 조금이나마 이득이 됩니다.

근래에는 PC의 성능이 워낙에 좋아졌기 때문에 일반적인 경우 퍼포먼스에 대한 고민을 많이 할 필요가 없었졌습니다. 하지만, 스마트폰, 게임 및 증권 시스템 트레이딩과 같이 반복 계산이 많은 프로젝트 등에서는 이런 작은 차이들이 엄청난 결과를 만들어 내기도 합니다.

그렇긴 해도 반복 횟수를 감안하면 상당한 뻘짓이네요 ^^;

State Pattern을 이용한 미디어 서버 구축 과정

류종택 — Tue, 31 Jan 2012 12:56:37 +0900

소스가 복잡한 편이라 예제로서는 부적합 할 수 있으나, 현재 작업 중인 과정을 잠시 설명하려고 합니다. 중단했던 미디어 서버 개발이 모두 완료되면 다시 정리해서 올리도록 하겠습니다.

우선 어제 새벽에 그린 상태도는 [그림 1]과 같습니다. 기존의 UML 툴이 제공하는 상태변화의 선행처리와 후행처리 표시가 복잡해 보여서, 네모 박스로 표시했습니다. 문제는 상태가 완전히 변한 후에 처리되느냐, 전에 처리되느냐를 알 수가 없다는 것 입니다. 나중에 좀 더 고민하여 표기법을 정리해보려고 합니다.

[그림 1] 미디어 서버의 클라이언트 모듈의 일부에 대한 상태도

[그림 1]은 TCP 소켓을 이용해서 미디어 서버로부터 데이터를 스트림으로 받는 TFFTCPStream라는 클래스의 상태도입니다. TFFTCPStream는 아래와 같은 조건에서 개발 중 입니다.

TFFTCPStream 은 서버에 있는 동영상 파일의 정보 및 데이터를 수신 받아서 버퍼에 저장한다. 이 버퍼는 미디어 플레이어 클래스에서 사용되어 재생된다.
안드로이드 플랫폼에서 사용 될 것이다. 다만, 디버깅 효율을 높이기 위해서 델파이로 원도우용 클라이언트를 작성하여 테스트를 진행 할 것이다.
스마트 폰의 특성 상 접속이 자주 끊어질 수 있다. 따라서, 접속이 끊어지면 기존의 세션을 복구해야 한다.
재생 위치의 빠른 이동을 위해서 서버에서는 인덱싱 정보를 캐싱하고 있다.
기타 등등

[소스 1] 패킷의 종류

type
  TPacketType = (
    // 공통
    ptNone, ptPing,

    // Server Received
    ptOptions, ptOpen, ptReopen, ptAsk, ptClose, ptLogin, ptLogout,

    // Client Received
    ptPackage, ptOkOpen, ptErOpen, ptOkReopen, ptErReopen,
    ptOkLogin, ptErLogin, ptOkLogout, ptErLogout
  );
  PPacketType = ^TPacketType;

[소스 1]은 통신 할 때 사용하는 패킷의 종류들 입니다. 대부분 이름을 보면 금새 무엇을 하는 넘인지 알 수 있을 것이라 생각합니다. ptReopen은 접속이 끊어졌다가 다시 연결되었을 때, 기존의 세션을 복구하기 위한 패킷입니다. ptAsk는 인덱스 위치에 해당하는 미디어 데이터를 요청합니다.

[소스 2] 주요 클래스의 인터페이스

type
  TFFTCPStream = class (TComponent)
  private
  public
    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean;
    procedure CloseFile;
  published
    property IsOpened : boolean read FIsOpened;
    property OnFileOpened : TFileOpenedEvent read FOnFileOpened write FOnFileOpened;
    property OnFileOpenError : TNotifyEvent read FOnFileOpenError write FOnFileOpenError;
    property OnFileClosed : TNotifyEvent read FOnFileClosed write FOnFileClosed;
  end;

  TState = class
  private
    FFFTCPStream:TFFTCPStream;
  public
    constructor Create(AFFTCPStream:TFFTCPStream); reintroduce; virtual;

    procedure ActionIn(AOldState:TObject); virtual;
    procedure ActionOut(ANewState:TObject); virtual;

    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean; virtual;
    procedure CloseFile; virtual;

    procedure on_Timer; virtual;
    procedure on_Disconnected; virtual;

    procedure pt_Package(AData:pointer; ASize:integer); virtual;
    procedure pt_OkOpen(AData:pointer; ASize:integer); virtual;
    procedure pt_ErOpen(AData:pointer; ASize:integer); virtual;
    procedure pt_OkReopen(AData:pointer; ASize:integer); virtual;
    procedure pt_ErReopen(AData:pointer; ASize:integer); virtual;
  end;

TSate는 각 상태에 대한 클래스의 추상화된 부모 클래스입니다.

20: 상태가 변화되서 자신이 선택되었을 경우 실행됩니다. 자신이 선택되었을 때 선행처리를 합니다.
21: 상태가 변화되서 다른 상태가 선택되었을 경우 실행됩니다. 다른 상태로 전이될 때 후행처리를 합니다.

23-33: [그림 1]의 상태도에서 화살표에 그려진 프로세스들을 모두 표기한 것 입니다.

[소스 3] 디버깅을 위한 코드

{ TState }

procedure TState.CloseFile;
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.CloseFile: ', [Self.ClassName])));
  {$ENDIF}
end;

{ TStateConnected }

procedure TStateConnected.CloseFile;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.close_File;
  FFFTCPStream.SetState(FFFTCPStream.FStateClosed);
end;

부모 클래스인 TState에는 모든 메소드마다 디버깅 정보를 출력하도록 되어 있습니다. 이를 통해서 실제 동작 할 때 어떤 순서로 동작하는 지, 그리고 [그림 1]의 상태도의 조건대로 프로세스가 진행된느 지를 쉽게 확인 할 수가 있습니다. 자식 클래스에서는 inherited 를 실행하여 자신이 동작 할 때마다 디버그 정보를 [그림 2]와 같이 출력하도록 합니다.

[그림 2] 디버깅 정보 확인

[소스 4] FFTCPStream.pas의 전체 소스

unit FFTCPStream;

interface

uses
  FFServerUtils, RyuMpeg, RyuSocketClient, ThreadRepeater,
  Windows, Classes, SysUtils, SyncObjs;

const
  _TimerInterval = 1 * 1000;  // 1초 마다

type
  TFileOpenedEvent = procedure (Sender:TObject; AMediaInfo:TMediaInfo) of object;

  TFFTCPStream = class (TComponent)
  private
    FFileName : string;
    FOldTick : Cardinal;
    FCS : TCriticalSection;
    procedure close_File;
    procedure fire_OnFileOpened(AMediaInfo:TMediaInfo);
    procedure fire_OnFileOpenError;
    procedure fire_OnFileClosed;
  private
    FSocket : TRyuSocketClient;
    procedure on_Disconnected(Sender:TObject);
    procedure on_Received(Sender:TObject; AData:pointer; ASize:integer);
  private
    procedure send_Text(APacketType:TPacketType; AText:AnsiString);
    procedure send_Open;
    procedure send_Reopen;
    procedure send_Close;
    procedure send_Ask(AIndex:integer);
  private
    FTimer : TThreadRepeater;
    procedure on_Timer(Sender:TObject);
  private
    FState : TObject;
    FStateClosed, FStateConnected, FStateOpened, FStateDisconnected, FStateReconnected : TObject;
    procedure SetState(AState:TObject);
  private
    FOnFileClosed: TNotifyEvent;
    FOnFileOpenError: TNotifyEvent;
    FOnFileOpened: TFileOpenedEvent;
    FIsOpened: boolean;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean;
    procedure CloseFile;
  published
    property IsOpened : boolean read FIsOpened;
    property OnFileOpened : TFileOpenedEvent read FOnFileOpened write FOnFileOpened;
    property OnFileOpenError : TNotifyEvent read FOnFileOpenError write FOnFileOpenError;
    property OnFileClosed : TNotifyEvent read FOnFileClosed write FOnFileClosed;
  end;

implementation

type
  TState = class
  private
    FFFTCPStream:TFFTCPStream;
  public
    constructor Create(AFFTCPStream:TFFTCPStream); reintroduce; virtual;

    procedure ActionIn(AOldState:TObject); virtual;
    procedure ActionOut(ANewState:TObject); virtual;

    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean; virtual;
    procedure CloseFile; virtual;

    procedure on_Timer; virtual;
    procedure on_Disconnected; virtual;

    procedure pt_Package(AData:pointer; ASize:integer); virtual;
    procedure pt_OkOpen(AData:pointer; ASize:integer); virtual;
    procedure pt_ErOpen(AData:pointer; ASize:integer); virtual;
    procedure pt_OkReopen(AData:pointer; ASize:integer); virtual;
    procedure pt_ErReopen(AData:pointer; ASize:integer); virtual;
  end;

  TStateClosed = class (TState)
  private
  public
    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean; override;
  end;

  TStateConnected = class (TState)
  private
  public
    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean; override;
    procedure CloseFile; override;

    procedure on_Timer; override;
    procedure on_Disconnected; override;

    procedure pt_OkOpen(AData:pointer; ASize:integer); override;
    procedure pt_ErOpen(AData:pointer; ASize:integer); override;
  end;

  TStateOpened = class (TState)
  private
  public
    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean; override;
    procedure CloseFile; override;

    procedure on_Timer; override;
    procedure on_Disconnected; override;

    procedure pt_Package(AData:pointer; ASize:integer); override;
  end;

  TStateDisconnected = class (TState)
  private
  public
    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean; override;
    procedure CloseFile; override;

    procedure on_Timer; override;
  end;

  TStateReconnected = class (TState)
  private
  public
    function OpenFile(AHost:string; APort:integer; AFileName:string):boolean; override;
    procedure CloseFile; override;

    procedure on_Timer; override;

    procedure pt_OkReopen(AData:pointer; ASize:integer); override;
    procedure pt_ErReopen(AData:pointer; ASize:integer); override;
  end;

{ TFFTCPStream }

procedure TFFTCPStream.CloseFile;
begin
  TState(FState).CloseFile;
end;

procedure TFFTCPStream.close_File;
begin
  SetState(FStateClosed);

  FTimer.Stop;
  send_Close;

  FIsOpened := false;
  fire_OnFileClosed;
end;

constructor TFFTCPStream.Create(AOwner: TComponent);
begin
  inherited;

  FFileName := '';
  FIsOpened := false;

  FSocket := TRyuSocketClient.Create(Self);
  FSocket.OnDisconnected := on_Disconnected;
  FSocket.OnReceived := on_Received;

  FCS := TCriticalSection.Create;

  FStateClosed  := TStateClosed.Create(Self);
  FStateConnected  := TStateConnected.Create(Self);
  FStateOpened  := TStateOpened.Create(Self);
  FStateDisconnected  := TStateDisconnected.Create(Self);
  FStateReconnected := TStateReconnected.Create(Self);

  FState := FStateClosed;

  FTimer := TThreadRepeater.Create(Self);
end;

destructor TFFTCPStream.Destroy;
begin
  CloseFile;

  FreeAndNil(FSocket);
  FreeAndNil(FStateClosed);
  FreeAndNil(FStateConnected);
  FreeAndNil(FStateOpened);
  FreeAndNil(FStateDisconnected);
  FreeAndNil(FStateReconnected);
  FreeAndNil(FTimer);
  FreeAndNil(FCS);

  inherited;
end;

procedure TFFTCPStream.fire_OnFileClosed;
begin
  if Assigned(FOnFileClosed) then FOnFileClosed(Self);
end;

procedure TFFTCPStream.fire_OnFileOpened(AMediaInfo:TMediaInfo);
begin
  // TODO : Player.Open(AMediaInfo);
  if Assigned(FOnFileOpened) then FOnFileOpened(Self, AMediaInfo);
end;

procedure TFFTCPStream.fire_OnFileOpenError;
begin
  if Assigned(FOnFileOpenError) then FOnFileOpenError(Self);
end;

procedure TFFTCPStream.on_Disconnected(Sender: TObject);
begin
  TState(FState).on_Disconnected;
end;

procedure TFFTCPStream.on_Received(Sender: TObject; AData: pointer;
  ASize: integer);
var
  pPacketType : ^TPacketType absolute AData;
begin
  case pPacketType^ of
    ptPackage:  TState(FState).pt_Package(AData, ASize);
    ptOkOpen:   TState(FState).pt_OkOpen(AData, ASize);
    ptErOpen:   TState(FState).pt_ErOpen(AData, ASize);
    ptOkReopen: TState(FState).pt_OkReopen(AData, ASize);
    ptErReopen: TState(FState).pt_ErReopen(AData, ASize);
  end;
end;

procedure TFFTCPStream.on_Timer(Sender: TObject);
var
  Tick : Cardinal;
  Temp : integer;
begin
  Tick := GetTickCount;

  FCS.Enter;
  try
    if Tick > FOldTick then Temp := Tick - FOldTick
    else Temp := 0;

    if Temp >= _TimerInterval then begin
      FOldTick := Tick;
      TState(FState).on_Timer;
    end;
  finally
    FCS.Leave;
  end;

  Sleep(1);
end;

function TFFTCPStream.OpenFile(AHost: string; APort: integer;
  AFileName: string): boolean;
begin
  FIsOpened := false;
  FFileName := AFileName;

  Result := TState(FState).OpenFile(AHost, APort, AFileName);
  if Result then FTimer.Execute(on_Timer);
end;

procedure TFFTCPStream.send_Ask(AIndex: integer);
var
  Packet : TPacketAsk;
begin
  Packet.PacketType := ptAsk;
  Packet.Index := AIndex;

  FSocket.Send(@Packet, SizeOf(Packet));
end;

procedure TFFTCPStream.send_Close;
var
  PacketType : TPacketType;
begin
  PacketType := ptClose;
  FSocket.Send(@PacketType, SizeOf(PacketType));
end;

procedure TFFTCPStream.send_Open;
begin
  send_Text(ptOpen, FFileName);
end;

procedure TFFTCPStream.send_Reopen;
begin
  send_Text(ptReopen, FFileName);
end;

procedure TFFTCPStream.send_Text(APacketType: TPacketType; AText: AnsiString);
var
  pPacket : ^TPacket;
  iPacketSize : integer;
begin
  iPacketSize := SizeOf(TPacketType) + Length(AText) + 1;

  GetMem(pPacket, iPacketSize);
  try
    FillChar(pPacket^, iPacketSize, 0);

    pPacket^.PacketType := APacketType;

    if Length(AText) > 0 then Move(AText[1], pPacket^.DataStart, Length(AText));

    FSocket.SendNow(pPacket, iPacketSize);
  finally
    FreeMem(pPacket);
  end;
end;

procedure TFFTCPStream.SetState(AState: TObject);
var
  OldState, NewState : TObject;
begin
  FCS.Enter;
  try
    FOldTick := GetTickCount;

    OldState := FState;
    NewState := AState;

    TState(OldState).ActionOut(NewState);
    FState := NewState;
    TState(NewState).ActionIn(OldState);
  finally
    FCS.Leave;
  end;
end;

{ TState }

procedure TState.ActionIn(AOldState: TObject);
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.ActionIn: OldState = %s', [Self.ClassName, AOldState.ClassName])));
  {$ENDIF}
end;

procedure TState.ActionOut(ANewState: TObject);
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.ActionOut: NewState = %s', [Self.ClassName, ANewState.ClassName])));
  {$ENDIF}
end;

procedure TState.CloseFile;
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.CloseFile: ', [Self.ClassName])));
  {$ENDIF}
end;

constructor TState.Create(AFFTCPStream: TFFTCPStream);
begin
  inherited Create;

  FFFTCPStream := AFFTCPStream;
end;

procedure TState.on_Disconnected;
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.on_Disconnected: ', [Self.ClassName])));
  {$ENDIF}
end;

procedure TState.on_Timer;
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.on_Timer: ', [Self.ClassName])));
  {$ENDIF}
end;

function TState.OpenFile(AHost: string; APort: integer;
  AFileName: string): boolean;
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.OpenFile: %s, %d, %s', [Self.ClassName, AHost, APort, AFileName])));
  {$ENDIF}

  Result := false;
end;

procedure TState.pt_ErOpen(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.pt_ErOpen: ', [Self.ClassName])));
  {$ENDIF}
end;

procedure TState.pt_ErReopen(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.pt_ErReopen: ', [Self.ClassName])));
  {$ENDIF}
end;

procedure TState.pt_OkOpen(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.pt_OkOpen: ', [Self.ClassName])));
  {$ENDIF}
end;

procedure TState.pt_OkReopen(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.pt_OkReopen: ', [Self.ClassName])));
  {$ENDIF}
end;

procedure TState.pt_Package(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    OutputDebugString(PChar(Format('%s.pt_Package: ', [Self.ClassName])));
  {$ENDIF}
end;

{ TStateClosed }

function TStateClosed.OpenFile(AHost: string; APort: integer;
  AFileName: string): boolean;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.FSocket.Host := AHost;
  FFFTCPStream.FSocket.Port := APort;
  FFFTCPStream.FSocket.Connect;

  Result := FFFTCPStream.FSocket.Connected;

  if Result then begin
    FFFTCPStream.SetState(FFFTCPStream.FStateConnected);
    FFFTCPStream.send_Open;
  end;
end;

{ TStateConnected }

procedure TStateConnected.CloseFile;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.close_File;
  FFFTCPStream.SetState(FFFTCPStream.FStateClosed);
end;

procedure TStateConnected.on_Disconnected;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.SetState(FFFTCPStream.FStateDisconnected);
end;

procedure TStateConnected.on_Timer;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.send_Open;
end;

function TStateConnected.OpenFile(AHost: string; APort: integer;
  AFileName: string): boolean;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  raise Exception.Create(ClassName + '.OpenFile: ');
end;

procedure TStateConnected.pt_ErOpen(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.fire_OnFileOpenError;
  FFFTCPStream.SetState(FFFTCPStream.FStateClosed);
end;

procedure TStateConnected.pt_OkOpen(AData: pointer; ASize: integer);
var
  pPacket : ^TPacketOkOpen absolute AData;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.FIsOpened := true;

  // TODO : Buffer.Clear;

  FFFTCPStream.SetState(FFFTCPStream.FStateOpened);
  FFFTCPStream.send_Ask(0);
  FFFTCPStream.fire_OnFileOpened(pPacket^.MediaInfo);
end;

{ TStateOpened }

procedure TStateOpened.CloseFile;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.close_File;
  FFFTCPStream.SetState(FFFTCPStream.FStateClosed);
end;

procedure TStateOpened.on_Disconnected;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.SetState(FFFTCPStream.FStateDisconnected);
end;

procedure TStateOpened.on_Timer;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  // TODO : FFFTCPStream.send_Ask(Buffer.NextIndex);
end;

function TStateOpened.OpenFile(AHost: string; APort: integer;
  AFileName: string): boolean;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  raise Exception.Create(ClassName + '.OpenFile: ');
end;

procedure TStateOpened.pt_Package(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  // TODO : Buffer.Add();
end;

{ TStateDisconnected }

procedure TStateDisconnected.CloseFile;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.close_File;
  FFFTCPStream.SetState(FFFTCPStream.FStateClosed);
end;

procedure TStateDisconnected.on_Timer;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.FSocket.Connect;

  if FFFTCPStream.FSocket.Connected then begin
    if FFFTCPStream.FIsOpened then begin
      FFFTCPStream.SetState(FFFTCPStream.FStateReconnected);
      FFFTCPStream.send_Reopen;
    end else begin
      FFFTCPStream.SetState(FFFTCPStream.FStateConnected);
      FFFTCPStream.send_Open;
    end;
  end;
end;

function TStateDisconnected.OpenFile(AHost: string; APort: integer;
  AFileName: string): boolean;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  raise Exception.Create(ClassName + '.OpenFile: ');
end;

{ TStateReconnected }

procedure TStateReconnected.CloseFile;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.close_File;
  FFFTCPStream.SetState(FFFTCPStream.FStateClosed);
end;

procedure TStateReconnected.on_Timer;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.send_Reopen;
end;

function TStateReconnected.OpenFile(AHost: string; APort: integer;
  AFileName: string): boolean;
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  raise Exception.Create(ClassName + '.OpenFile: ');
end;

procedure TStateReconnected.pt_ErReopen(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.close_File;
end;

procedure TStateReconnected.pt_OkReopen(AData: pointer; ASize: integer);
begin
  {$IFDEF DEBUG}
    inherited;
  {$ENDIF}

  FFFTCPStream.SetState(FFFTCPStream.FStateOpened);
end;

end.

SoundTouch 버그 수정

류종택 — Wed, 18 Jan 2012 06:47:54 +0900

VoiceZip(http://ryulib.tistory.com/178)에 사용된 오픈 소스 중에 SoundTouch의 버그 수정 내용과 파일을 아래와 같이 첨부합니다. (SoundTouch는 음성의 속도, 피치 등을 조절 할 수 있는 오픈 소스 라이브러리 입니다)

soundtouch-1.6.0.zip

출처: http://www.surina.net/soundtouch/

* SoundTouchDLL.h 버그 수정

SOUNDTOUCHDLL_API void soundtouch_putSamples(HANDLE h,

const SAMPLETYPE *samples, ///< Pointer to sample buffer.

unsigned int numSamples ///< Number of samples in buffer. Notice

///< that in case of stereo-sound a single sample

///< contains data for both channels.

);

* 버그는 아니고, 16비트 샘플을 위해서 수정 한 부분, STTypes.h

// 16비트 샘플을 사용한다.

#define SOUNDTOUCH_INTEGER_SAMPLES 1

음성 채팅용 라이브러리 VoiceZip

류종택 — Wed, 18 Jan 2012 06:38:22 +0900

VoiceZip은 음성 채팅을 위한 라이브러리 입니다. 주요 특징은 아래와 같습니다.

간단한 인터페이스
부드러운 음성 지연 방지 (PSOLA 알고리즘 적용)
Speex 코덱 사용

여러 유닛과 클래스가 제공되지만, 중요 클래스는 [소스 1]의 두 개 입니다.

[소스 1]

  TVoiceDataEvent = procedure (Sender:TObject; AData:pointer; ASize,AVolume:integer) of object;

  TVoiceRecorder = class (TComponent)
  private
  public
    procedure Start(AMicDeviceID: Integer = -1);
    procedure Stop;
  published
    property WaveVolume: integer read FWaveVolume;
    property Volume: Single read GetVolume write SetVolume;
    property OnNewData : TVoiceDataEvent read FOnNewData write FOnNewData;
  end;
  
  TVoicePlayer = class (TComponent)
  private
  public
    procedure Start;
    procedure Stop;

    procedure DataIn(AData:pointer; ASize:integer); overload;
    procedure DataIn(AStream:TStream); overload;
  published
    property SaveToBuffer : Boolean read FSaveToBuffer write FSaveToBuffer;
    property Mute: Boolean read FMute write FMute;
    property WaveVolume: integer read FWaveVolume;
    property Volume: Single read GetVolume write SetVolume;
    property Tempo : integer read GetTempo write SetTempo;
    property Duration : int64 read GetDuration;
    property DurationLimit : int64 read GetDurationLimit write SetDurationLimit;
  end;

3-12: TVoiceRecorder는 음성 압축을 위한 클래스 입니다. Start 메소드를 실행하면 녹음 장치로부터 음원을 캡쳐해서 압축한 뒤에 주기(20ms)적으로 OnNewData 이벤트를 발생시킵니다.

WaveVolume: 녹음된 원본의 볼륨 정보입니다.
Volume: 녹음 볼륨을 조절합니다. 1.0은 원음. 2.0은 2배 증폭.

14-30: TVoicePlayer는 압축된 데이터를 해제하고 재생 장치로 출력하는 클래스입니다. Start 메소드를 먼저 실행해야 합니다. 이후, TVoiceRecorder에서 압축된 데이터를 DataIn 메소드로 입력하면, 압축이 해제되면서 재생됩니다.

SaveToBuffer: true가 되면 버퍼에 저장만 할 뿐 재생하지 않습니다. 테스트 등의 목적으로 음성을 지연시키거나 버퍼링을 하기 위한 메소드 입니다.
Mute: 음 소거
WaveVolume: 전달받은 원본의 볼륨 정보입니다.
Volume: 재생 볼륨을 조절합니다. 1.0은 원음. 2.0은 2배 증폭.
Tempo: 재생 속도를 빠르게 합니다. 음성의 피치는 그대로 유지하여 자연스러운 소리가 나도록 합니다.
Duration: 현재 버퍼에 있는 데이터의 양을 시간으로 표기한 것 입니다. 지연의 정도를 측정 할 수 있습니다. (ms 단위)
DurationLimit: 버퍼에 지연 될 수 있는 최대의 시간을 조절합니다. 이 보다 지연된 데이터는 재생 속도를 변경하여 부드럽게 제거됩니다.

아래 첨부에는 간단한 예제가 들어 있습니다. 컴파일은 되지 않고, 실행 해 볼 수는 있습니다.

UDP Sample.zip

각각의 프로그램을 실행하고 주소를 설정한 후 Sender.exe의 전송 버턴을 누르면 음성이 전달됩니다. 같은 장비에서 테스트할 때에는 피드백에 의한 하울링을 유의하시기 바랍니다.

Receiver.exe의 btStop을 클릭하시면, 재생이 중지되고 버퍼에 음성 데이터를 쌓게 됩니다. 고의적으로 음성 지연을 일으키게 되며, 다시 btPlay를 하면 지정 된 DurationLimit까지 지연을 자연스럽게 제거해 나갑니다. 데모에는 1초로 지정되어 있으며, 실제 음성 채팅에서는 250(0.25초) 미만으로 설정하시면 됩니다.

[그림 1] Receiver.exe의 화면

[그림 2] Sender.exe의 화면

ThreadPool

류종택 — Wed, 18 Jan 2012 06:05:31 +0900

쓰레드 클래스를 생성하지 않고 함수 호출만으로 쓰레드를 사용하기 위한 유닛입니다. "RyuLib for Delphi" 소스는 아래의 링크에서 받으시기 바랍니다.

http://ryulib.tistory.com/notice/11

사용법은 [소스 1]과 같습니다.

[소스 1]

function InternalThreadFunction(lpThreadParameter: Pointer): Integer; stdcall;
begin
  Result := 0;

  // TOO : 
end;

procedure TfmMain.btCalcClick(Sender: TObject);
begin
  QueueWorkItem(InternalThreadFunction, nil);
end;

10: 새로운 함수를 쓰레드 풀에 넣어서 실행 시킬 수 있을 때 함수가 실행됩니다. 쓰레드 생성 등에 대한 오버 헤드가 없습니다.

1-6: 함수의 형태는 1-6: 라인과 같아야 합니다.

1: lpThreadParameter 인자는 쓰레드와 호출 객체가 서로 공유 할 데이터나 객체를 전달 받기 위한 것입니다. 필요없으면 사용하지 않아도 됩니다.

ThreadPool 유닛에는 [소스 2]와 같은 형태의 함수가 제공됩니다. 각각 필요한 작업에 따라 선택하시면 됩니다.

[소스 2]

function QueueWorkItem(Func:TThreadStartRoutine; Context:Pointer):boolean;
function QueueIOWorkItem(Func:TThreadStartRoutine; Context:Pointer):boolean;
function QueueUIWorkItem(Func:TThreadStartRoutine; Context:Pointer):boolean;

[소스 3]은 1부터 n까지 더하는 프로그램을 멀티 쓰레드로 작성해 본 것 입니다. 속도를 줄이기 위해서 중간에 Sleep(1)로 쉬도록 했습니다. [그림 1]은 실행 결과 화면이며, 1000 --> 100 --> 10 순으로 계산을 했지만, 멀티 쓰레드이다 보니 먼저 계산 된 것부터 표시되고 있습니다. 가장 처음 입력한 수는 좀 큰 수였는데, 한 참 동안 계산이 안끝나서 중간에 캡쳐된 것을 올립니다.

[그림 1] 실행 결과

[소스 3]

unit _fmMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin;

type
  TfmMain = class(TForm)
    btCalc: TButton;
    ListBox1: TListBox;
    SpinEdit1: TSpinEdit;
    procedure btCalcClick(Sender: TObject);
  private
    procedure do_WM_User(var Msg:TMessage); message WM_User;
  public
  end;

var
  fmMain: TfmMain;

implementation

uses
  ThreadPool;

{$R *.dfm}

type
  TContext = class
    n : integer;
    Handle : THandle;
  end;

function InternalThreadFunction(lpThreadParameter: Pointer): Integer; stdcall;
var
  Loop, Sum : integer;
  Context : TContext absolute lpThreadParameter;
begin
  Result := 0;

  Sum := 0;
  for Loop := 1 to Context.n do begin
    Sum := Sum + Loop;
    Sleep(1);
  end;

  PostMessage(Context.Handle, WM_User, Sum, Context.n);
end;

procedure TfmMain.btCalcClick(Sender: TObject);
var
  Context : TContext;
begin
  Context := TContext.Create;
  try
    Context.n := SpinEdit1.Value;
    Context.Handle := Self.Handle;
    QueueWorkItem(InternalThreadFunction, Context);
  finally
    Context.Free;
  end;
end;

procedure TfmMain.do_WM_User(var Msg: TMessage);
begin
  ListBox1.Items.Add(Format('Sum = %d, n = %d', [Msg.WParam, Msg.LParam]));
end;

end.

WowCast 2.0 beta - 무료 증권방송 솔루션

류종택 — Tue, 17 Jan 2012 14:09:36 +0900

20120121_-_2.0_beta.zip

무료로 사용할 수 있는 증권방송 솔루션 WowCast 입니다. 현재는 베타 테스트 버전이며 중요 특징은 아래와 같습니다. 기존의 버전보다 압축률을 개선하였으며, 정식 버전은 기능을 보강하여 3월 이전에 발표 할 예정입니다. 정식 버전 발표 시에는 디자인도 신경 쓰겠습니다 ^^;

사용자 수 제한은 없습니다.
로그인 시 아이디와 암호를 아무것이나 입력해도 됩니다. 같은 아이디를 입력하면 기존 접속자는 접속이 끊어집니다.
네트워크 속도가 느린 사용자를 지원하기 위해서 Receiver는 캐싱을 이용합니다. 한 번 보낸 프레임(화면조각)은 최대한 다시 받지 않도록 합니다. 이때문에, Server는 CPU와 메모리를 많이 사용합니다. Server가 실행 될 PC에서는 최소 1GB 이상의 사용 가능한 메모리가 있어야 합니다.
서버의 캐싱 계산을 끄면, 서버가 CPU를 덜 사용하게 됩니다.
최상의 품질을 위해서 서버는 모든 Receiver 접속 마다 따로 화면을 압축합니다.
음성 지연은 1초로 설정되어 있습니다. 음성지연을 부드럽게 줄이기 위해서 PSOLA 알고리즘을 사용합니다. 추후 사용자 마다 최적화된 음성 버퍼 시간을 자동으로 계산 하여 적용하도록 할 예정입니다.

Server.exe 실행

Server.exe는 아무런 외부 dll이 필요 없습니다. 즉, Server.exe 만을 복사해서 실행하시면 됩니다.
포트는 3690, 3691을 사용합니다.
Server를 실행하면 [그림 1]과 같이 트래이 아이콘으로 등록됩니다. 아이콘 위에서 마우스 오른쪽 버턴을 클릭하시면 메뉴가 나타납니다. 현재는 "프로그램 종료" 만 실행됩니다.
CPU 사용률이 부담스러울 때는 같은 폴더에 Server.ini 파일을 만드시고, [Options] 세션에 'UseCache=0'을 추가해주시면 됩니다. 캐시를 사용하지 않게 됩니다.

[그림 1] 서버 실행 이후

Sender.exe 실행

ijl15Dec.dll, SoundTouch.dll 를 제외한 나머지 dll이 필요합니다.
실행하면 [그림 2]와 같이 로그인 창이 나타납니다. 서버가 실행된 주소와 사용자 아이디 암호를 입력하시고, 로그인하시면 됩니다. 아이디와 암호는 아무거나 입력하셔도 됩니다.

[그림 2] 로그인 화면

로그인이 완료되면 [그림 3]과 같은 창이 나타납니다. 이때부터 PC의 첫 번째 모니터의 화면이 서버로 전송됩니다. 듀얼 모니터가 아닌 경우에는 [그림 3] 창이 함께 전송되기 때문에 불편합니다. 현재는 듀얼 모니터를 기준으로 솔루션이 작성되어 있습니다. 이 부분은 정식 버전 때 보강하도록 하겠습니다.
"화이트 보드" 버턴을 클릭하시면, 화면에 판서를 할 수 있는 상태가 됩니다. 우측 상단에 나타나는 버턴을 이용해서 판서하거나 판서를 지울 수가 있습니다. 화이트 보드 기능은 정식 버전 때 보강하도록 하겠습니다.

[그림 3] 강사용 프로그램의 화면

Receiver.exe 실행

ijl15Enc.dll 이외의 모든 dll이 필요합니다.
실행하시면 [그림 2]와 같이 로그인 창이 나타납니다. 이후 사용법은 동일합니다.
로그인이 완료되면, [그림 4]와 같이 수강생용 프로그램이 나타납니다.
프로그램의 화면 크기에 맞춰서 전송된 화면을 작게 만들어 주기 때문에 CPU를 많이 사용 할 수 있습니다. 화면을 더블 클릭하시면 원본 크기로 보여주며, CPU 사용률도 낮아집니다.
화면이 원본 크기 일 때는 마우스 드래그를 이용하여 화면을 이동 할 수 있습니다.
화면 아래 숫자 버턴을 클릭하시면 화면 배열이 달라집니다.
화면 아래 스크롤 바를 움직이면 출력되는 음성의 볼륨을 조절 하실 수 있습니다.

[그림 4] 수강생의 실행 화면

MinGW에서 libfaac 설치

류종택 — Fri, 13 Jan 2012 22:32:38 +0900

$ patch -p0 < faac-1.26.patch

$ cd faac

$ ./bootstrap

$ ./configure --prefix=/mingw --enable-shared --disable-static

$ make LDFLAGS="-no-undefined"

$ make install

$ patch -p0 < faad2-2.6.1.patch

$ cd faad2

$ ./bootstrap

$ ./configure --prefix=/mingw --enable-shared --disable-static

$ make LDFLAGS="-no-undefined"

$ make install

ffmpeg에서 빌드 옵션에 넣으니 문제가 발생.
아래 주소 참고!

http://ffmpeg.org/pipermail/ffmpeg-devel/2008-August/042579.html

faac.h에 WIN32가 정의 되지 않은 것이 문제.

DeskTop Share - PC 화면 공유 (서버 추가)

류종택 — Fri, 06 Jan 2012 00:08:07 +0900

DeskTop Share.zip

DeskCam 라이브러리로 만든 PC 화면 공유 데모 입니다. 한 사람의 PC 화면을 다수의 다른 사용자에게 전송하는 데모입니다. 온라인 강의나 증권 방송 등에 사용되는 형태입니다.

위의 첨부 파일의 압축을 해제하시면 아래와 같이 두 종류의 실행 파일이 나옵니다.

Sender.exe

자신의 화면을 다른 사용자에게 전송합니다.

최소한의 트래픽으로 다수의 사용자에게 전송하기 위해 계산을 많이 합니다. CPU를 다른 데모보다 많이 사용합니다.

초당 전송 프레임 수 또는 Bandwidth를 제한 할 수 있으나, 데모는 아무런 제한을 두지 않았습니다. 따라서, 성능이 낮은 PC에서는 버거울 수 있습니다. 네트워크 트래픽도 문제가 될 수 있습니다. 실제 상황에서는 자신의 네트워크 상황에 맞춰서 Bandwidth를 제한하여야 합니다.
화면에 애니메이션 효과 등을 사용하지 않아야 효율적인 화면 전송이 됩니다. 화려할 수록 화면 전송 속도는 떨어집니다.

Receiver.exe

Sender.exe가 실행 중이라면 해당 PC의 화면이 표시됩니다.
Caption에는 화면이 한 번 바뀔 때마다 전송 받은 데이터 양을 표시합니다. 앞의 수치는 한 화면 당 받은 데이터의 크기이며, 두 번 째 수치는 캐시를 이용해서 절약된 데이터의 크기입니다.

Server.exe

중계 용 서버입니다. 다른 실행 파일과 다른 PC에서 실행된다면, 각 실행 파일의 ini 파일을 열어서 서버의 주소와 포트를 지정해 주어야 합니다.
서버는 모든 Receiver 마다 별도의 인코더를 둬서 최적화된 화면을 전송합니다. 이 때문에 CPU를 많이 사용하게 됩니다. Server.ini에서는 캐시 계산을 하지않도록 해서 CPU 사용률을 최소화 할 수 있습니다.
어느 수준까지 메모리를 계속 사용하게 됩니다. 접속자 수에 따라 다르지만, 400MB 이상 사용하게 되므로, 충분한 메모리를 확보하셔야 합니다.

기존의 버전보다 현저히 낮은 트래픽에서도 안정적으로 화면이 전달되도록 하였습니다. 또한, 각자의 네트워크 트래픽 상황에 따라 프레임수가 달라지도록 되어 있습니다.

예전 버전과 가장 크게 다른 점은, 서버에서 모든 Receiver.exe에게 개별로 화면을 압축해서 보낸다는 점 입니다. 그러면서도 서버에 부하가 가지 않도록 구성되어 있습니다. 즉, 서버에 컨넥션 마다 인코더를 두고 있는 셈입니다. 하지만, 압축하는 자원을 최대한 공유하도록 설계되어 크게 부하가 걸리지 않도록 설계하였습니다.

비리 의혹에 대한 처리 결과

류종택 — Mon, 26 Dec 2011 15:59:57 +0900

비리 의혹을 제기하는 원문 : http://ryulib.tistory.com/165

결과적으로 의혹으로 끝났습니다. 관심 주신 분들에게 죄송합니다. 하지만, 참으로 아쉽네요. 답변의 내용을 보면서 개인적으로 정리하자면 다음과 같습니다. (원문을 공개해도 되는 지 몰라서)

서울시 감사는 비리 의혹을 제시한 담당자와 해당 공사에서만 조사를 마친 듯 합니다.
연관된 다른 청과 회사나 인원들에 대한 조사는 전혀 없었던 듯 합니다. 전화로 확인하였으나, 제가 거기에 있는 분들을 다 아는 것도 아니라서 추측으로만 적습니다. 결국 의혹을 가진 담당자의 이야기를 요약하여 조사를 마친 것이 되겠지요.

개발 가이드라인이 통보되었다.
"카메라 두 대로 경매용 PC와 경매 참가자들을 녹화한다" 수준의 가이드라인을 전문적인 프로젝트 가이드 라인이라고 봐야 하는지 참으로 답답합니다. 최소한이라고 생각할 수 있는, 해상도 및 프레임 수 등의 스팩도 빠져 있었고, 음성 녹음에 대한 요구사항도 한 참 후에 발생한 문제였습니다. 프로젝트 진행의 부실에 대한 조사가 있었기나 한 것인지 의심스럽습니다. 프로젝트를 시작 할 만한 요구사항 명세서라던가, RFP와 같은 문서는 어디에도 없었습니다.

업체 대표가 작성해 준 문건을 공문으로 발생했다라는 의혹
아래가 원문 중에 내용입니다.
"특정 업체 대표의 글을 그대로 공문으로 발생한 것이 아니고 검증 결과에 나온 얘기를 정리하여 보완 지시하였고, 마지막 보완지시 공문내용은 상당부분 S청과 전산담당자가 실토한 내용을 정리하여 통보한 사항임"
일단 감사팀은 S청과와는 아무런 접촉이 없었음을 확인하였습니다. 담당자도 "몰 실토했다는 거죠?"라는 군요. 그리고, 청문회가 있을 때 제가 직접 "이 공문은 저 업체 대표님이 작성해 준거라면서요?"라고 직접 물었던 적이 있었습니다. 분위기가 썰렁해졌고 반박을 하지 못하더군요, 하지만 아쉽게도 답변을 회피 할 뿐 정확한 답변을 듣지 못했었습니다. 단순히 심증만 가는 상황이 되어 버린 것 입니다. 그리고, 해당 공문 내용은 일반인이 쓸 수 있는 내용이 아닌 전문적인 내용입니다. 더구나 한 쪽 이야기만 듣고 작성한 글이고, 이에 대한 반발로 인해서 겨우 청문회를 가졌던 것이고요. 정말 아쉬운 것은 업체 대표가 작성한 글을 공문으로 발송했다라는 말은 이 사건의 핵심 관련자인 S청과 직원들 뿐이라고 하는 군요.

결국 "A가 B를 때렸어요!"라고 신고했는데, A에게 너 저 녀석 때렸어? 라고 묻고 나서, "A는 B를 안때렸다"라고 결론을 받은 것과 같은 기분입니다.

서울시의 감사 활동에 조금은 기대를 했었는데, 의혹을 풀려는 의지가 있었던 것인 지 상당히 궁굼합니다. 같은 결과가 나왔더라도, 관련자 모두를 조사하고 프로젝트 과정의 문제점을 전문가와 함께 연구하려는 시도조차 없었던 것으로 보입니다.

참고로, 이미 저는 저에게 주어진 요구사항을 마무리하고 나온지 몇 개월이 지났고, 개발비도 받았고, 이런 의혹을 제기해서 얻어지는 이익은 전혀 없습니다.