Dark-Ryu님의 이글루

Project - Options - Directories/Conditionals - Conditionals - Conditional defines

이전부터 델파이에서 조건부 컴파일(Conditional compilation)을 사용하면서 각 소스마다 {$define TESTMODE} 를 추가하고 삭제하고 하는 것이 번거로웠고 어떻게 프로젝트 전반에 걸쳐 한번에 처리할 방법이 없을까 하고 고민한 적이 있었다.
C 언어에서는 헤더 파일 하나 #include 하고 그 헤더 파일을 수정하면 되었었는데 델파이는 그런 방법이 안되는 것이었다.

이전에 델파이에 그런 것은 없다는 소리를 들어서 그냥저냥 번거로워도 일일이 각 소스마다 $define 부분을 수정해왔었다.

그러다 오늘 문득 이렇게 쓰기 불편한 것이 이상하다는 생각이 들었고 만약 조건부 컴파일 기능이 IDE 에 있다면 어느 구석에 둘까 하는 생각을 해보았다.
답은 Project Options 메뉴...들어가서 보니 Conditionals 가 눈에 띄었다.
그래서 얼씨구나 하고 Conditional defines 항목에 TESTMODE 라고 입력하고 모든 소스의 {$define TESTMODE} 들을 주석처리하고 F9 를 눌렀다.
...안된다.
그래서 F1 키를 누르고 도움말을 읽어보고 도움말 링크를 따라다니고 하면서
-TESTMODE, $TESTMODE, -$TESTMODE, DTESTMODE, -DTESTMODE 등등을 입력하면서 실행해보았지만...역시...

방황의 시간을 거쳐 결국 구글신에 도달하였다. 역시 구글님은 전지하시다.

Delphi Conditional Define 라는 검색어로 검색하니 답이 나왔다.

Project Options 에서 조건부 컴파일 항목을 수정한 후에는 Build All Projects 를 해야 한다.
만약 소스가 수정되었다면 그냥 F9 를 눌러도 적용되지만 소스가 수정되지 않은 경우에는 다시 Build 를 해야 적용이 되는 것이다.
즉, 앞의 경우 Conditional defines 항목에 TESTMODE 로 설정하고 Build All Projects 한 후 Run 하면 적용되는 것이다.

Indy9 과 Indy10 의 차이인지 델파이7 과 델파이 XE2(델파이2009 부터...) 의 차이인지 모르겠지만...

연결 끊어짐을 확인하는데 보통 CheckForGracefullyDisconnect, CheckForDisconnect 과 CheckForDataOnSource 을 사용했었다.

Indy9에서 쓰던 방식을 Indy10 에서 수정해서 다음과 같이 사용했었다.

try
    FConnectionToView.IOHandler.CheckForDisconnect(True, True);
    FConnectionToView.IOHandler.CheckForDataOnSource(100);
except
end;
try
    FConnectionToView.Host := ConnectionInfo^.Host;
    FConnectionToView.Port := ConnectionInfo^.Port;
    if (Not FConnectionToView.Connected) then FConnectionToView.Connect;

    // 이런저런 패킷 던지기
except
    // FConnectionToView.Connect 에 대한 예외 처리.
end;

그런데 서버가 켜져있는 상태에서 클라이언트가 접속하여 이런저런 데이터를 주고 받은 후, 서버를 강제 종료시켰다가 다시 켠 뒤 클라이언트에서 위의 동작을 하면 안되는 것이었다.
여튼 아래와 같이 해서 해결하기는 했는데 좀 찜찜하다.

try
    if FConnectionToView.IOHandler <> nil then
    begin
        FConnectionToView.IOHandler.CheckForDisconnect(True, True);
        FConnectionToView.IOHandler.CheckForDataOnSource(100);
    end;
except
    FConnectionToView.IOHandler.Free;    // 핵심은 바로 여기
end;
try
    FConnectionToView.Host := ConnectionInfo^.Host;
    FConnectionToView.Port := ConnectionInfo^.Port;
    if (Not FConnectionToView.Connected) then FConnectionToView.Connect;

    // 이런저런 패킷 던지기
except
    // FConnectionToView.Connect 에 대한 예외 처리.
end;

핵심은 FConnectionToView.IOHandler.Free; 이다.
메모리 누수가 생길까 걱정스러워 프로젝트 소스에

ReportMemoryLeaksOnShutdown := True;

를 추가하고 실행해봤는데 문제가 없었다.

최근에 델파이로 필테라호출기 제어 프로그램을 수정한 적이 있다.
그런데 동작이 이상해서 한참 이런저런 삽질하다 시간이 모잘라서 그냥 내보냈다.
아무래도 맘에 걸리고 결국에는 다시 수정작업을 하게 될 듯 하여 자료를 찾아봤다.

원본은 아래의 링크를 참고한다.
http://msdn.microsoft.com/en-us/library/windows/desktop/aa363190(v=vs.85).aspx

멤버는 아래와 같다.

정리는 아직 못하고 테스트만 했다. 뭐라고 설명해야할지 잘 몰라서이다. ;;

uses
    FastMM4, FastMM4Messages, SyncObjs,
    Forms,
    uMain in 'uMain.pas' {fmMain},
    uTest1 in 'uTest1.pas';

{$R *.res}

begin
    //RegisterExpectedMemoryLeak(TCriticalSection ,1);  // TCriticalSection 이 SyncObjs 안에 있음.

    Application.Initialize;
    Application.CreateForm(TfmMain, fmMain);
    Application.Run;
end.



unit uMain;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, uTest1;

type
    TfmMain = class(TForm)
        Memo1: TMemo;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    private
        { Private declarations }
        FTest1List: array of TTest1;
        procedure DoTest(Sender: TObject);
        procedure DoTestButtonClick(Sender: TObject);
    public
        { Public declarations }
    end;

var
    fmMain: TfmMain;

implementation

{$R *.dfm}

procedure TfmMain.FormCreate(Sender: TObject);
var
    iTmp1: Integer;
    iLoop1: Integer;
begin
    Left := 0;
    Top := 0;

    iTmp1 := 3;
    SetLength(FTest1List, iTmp1);
    for iLoop1 := 0 to iTmp1 - 1 do
    begin
        FTest1List[iLoop1] := TTest1.Create;
        FTest1List[iLoop1].TestIndex := iLoop1 + 1;
        FTest1List[iLoop1].OnTest := DoTest;
    end;
end;

procedure TfmMain.FormDestroy(Sender: TObject);
var
  iTmp1: Integer;
  iLoop1: Integer;
begin
  for iLoop1 := Length(FTest1List) - 1 downto 0 do
  begin
    FTest1List[iLoop1].Free;
    FTest1List[iLoop1] := nil;
  end;
end;

procedure TfmMain.Button1Click(Sender: TObject);
begin
    DoTestButtonClick(Sender);
end;

procedure TfmMain.DoTestButtonClick(Sender: TObject);
begin
    try
        if Assigned(FTest1List[TButton(Sender).tag]) then
        begin
            FTest1List[TButton(Sender).tag].Test;
        end;
    except
        on E: Exception do
        begin
            Memo1.Lines.Add('TfmMain.DoTestButtonClick Exception ' + E.Message);
        end;
    end;
end;

procedure TfmMain.DoTest(Sender: TObject);
begin
    if (Sender is TTest1) then
    begin
        Memo1.Lines.Add('TTest1, TestIndex is ' + IntToStr(TTest1(Sender).TestIndex));
    end;
end;

end.



unit uTest1;

interface

uses
    SysUtils, Classes, Dialogs
    ;

type
    TTest1 = class
    private
        FOnTest: TNotifyEvent;
    public
        TestIndex: Integer;
        procedure Test;
        property OnTest: TNotifyEvent read FOnTest write FOnTest;
    end;

implementation

{ TTest1 }

procedure TTest1.Test;
begin
    ShowMessage('TTest1, TestIndex is ' + IntToStr(TestIndex));

    if Assigned(FOnTest) then
    begin
        FOnTest(Self);
    end;
end;

end.


TTest1 객체를 여러 개 생성한 후 TTest1 의 테스트 이벤트 OnTest 에 이 TTest1 의 객체를 생성하고 사용하는 fmMain 의 DoTest 프로시져를 연결한 경우 어떤 TTest1 의 객체에서라도 OnTest 이벤트가 발생하면 DoTest 프로시져가 실행되는 것이다.
보면 알겠지만 TTest1 의 이벤트와 fmMain의 프로시져를 연결한 것이라 TTest1 이 fmMain을 직접 알고 있지 않아도, TTest1 이 있는 pas 파일의 Uses 에 uMain 이 없어도 된다는 것이다. 이래야 나중에 fmMain 이 바뀌거나 할 때도 TTest1 의 소스는 수정하지 않을 수 있다. 특히나 fmMain 에 TMemo 객체 하나 올려놓고 로그를 찍는 경우라면 더 말할 나위 없을 것이다. TMemo 객체 이름이 바뀌거나 대상이 바뀌거나 하면 이곳저곳 수정하기 바쁜데 수정할 곳을 fmMain 안에 모아둘 수 있다.

...이걸 어디에 써먹으려고 한 것이가하면...Indy 의 OnConnect 와 OnDisconnect 이벤트를 이벤트 방식으로 처리하기 위해서 시험한 것이다.

어제부터 묘하다 했다.
12월 5일 오전에 전체회의가 일정에 잡혀있었다.
나는 모르고 안 나간 상태.
그러니...

아침에 불려갔다.
인사를 하란다...과장인데 그러면 쓰냐고...그런데 누구한테 해야하지...
...목소리 크게 하고 소리치라는 이야긴가...
힘들다.

그리고는 연차를 낸 이유를 알려달라고 한다.
...뭔가 해명하는 분위기였다. 허허...
장모님 대장 내시경 검사, 남은 하나는 가족 회의라고 이야기했다.
전자는 진짜고 뒤는 둘러댄 것이지만...

여튼 슬슬 힘들다. 군대처럼 하고 싶은가본데...
해병대 출신 프로그래머를 뽑으라고 말하고 나는 나가고 싶다.