NUL's Blog

2012/05/04 - [PROG.] - IOTAProjectOptions 의 Value 항목들

unit LibSubWCRev;

interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
  
type
  ISubWCRev = interface(IDispatch)
    ['{2F5EA5B0-4DE7-4F96-8E6B-FC0C37D9C0D6}']
    procedure GetWCInfo(const wcPath: WideString; folders: WordBool; externals: WordBool); safecall;
    procedure GetWCInfo2(const wcPath: WideString; folders: WordBool; externals: WordBool; externalsNoMixed: WordBool); safecall;
    function Get_Revision: OleVariant; safecall;
    function Get_MinRev: OleVariant; safecall;
    function Get_MaxRev: OleVariant; safecall;
    function Get_Date: OleVariant; safecall;
    function Get_Url: OleVariant; safecall;
    function Get_Author: OleVariant; safecall;
    function Get_HasModifications: WordBool; safecall;
    function Get_HasUnversioned: WordBool; safecall;
    function Get_HasMixedRevisions: WordBool; safecall;
    function Get_HaveExternalsAllFixedRevision: WordBool; safecall;
    function Get_IsWcTagged: WordBool; safecall;
    function Get_IsSvnItem: WordBool; safecall;
    function Get_NeedsLocking: WordBool; safecall;
    function Get_IsLocked: WordBool; safecall;
    function Get_LockCreationDate: OleVariant; safecall;
    function Get_LockOwner: OleVariant; safecall;
    function Get_LockComment: OleVariant; safecall;
    property Revision: OleVariant read Get_Revision;
    property MinRev: OleVariant read Get_MinRev;
    property MaxRev: OleVariant read Get_MaxRev;
    property Date: OleVariant read Get_Date;
    property Url: OleVariant read Get_Url;
    property Author: OleVariant read Get_Author;
    property HasModifications: WordBool read Get_HasModifications;
    property HasUnversioned: WordBool read Get_HasUnversioned;
    property HasMixedRevisions: WordBool read Get_HasMixedRevisions;
    property HaveExternalsAllFixedRevision: WordBool read Get_HaveExternalsAllFixedRevision;
    property IsWcTagged: WordBool read Get_IsWcTagged;
    property IsSvnItem: WordBool read Get_IsSvnItem;
    property NeedsLocking: WordBool read Get_NeedsLocking;
    property IsLocked: WordBool read Get_IsLocked;
    property LockCreationDate: OleVariant read Get_LockCreationDate;
    property LockOwner: OleVariant read Get_LockOwner;
    property LockComment: OleVariant read Get_LockComment;
  end;

  CoSubWCRev = class
    class function Create: ISubWCRev;
    class function CreateRemote(const MachineName: string): ISubWCRev;
  end;

  const
    CLASS_SubWCRev: TGUID = '{F26E2640-0CFF-43DC-8325-575A3261D885}';
    
implementation

uses
  ComObj;

class function CoSubWCRev.Create: ISubWCRev;
begin
  Result := CreateComObject(CLASS_SubWCRev) as ISubWCRev;
end;

class function CoSubWCRev.CreateRemote(const MachineName: string): ISubWCRev;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_SubWCRev) as ISubWCRev;
end;

end.

방법

Using_the_Remote_Debugger_with_Delphi_2007_and_Delphi_2009

위의 링크에서 매우 친절하게 스샷에 박스 그려서 설명해 주고 있다. (영어 몰라도 한눈에 알수 있음)

원래 있는 문제점

델파이 2007이 원격 디버깅에 문제가 좀 있다. 디버깅 하다 보면 IDE가 자주 죽어버린다.

원격 디버깅 대상 프로그램도 함께 사라져버리기도 한다 -_-;

새로 발견한 문제점?

그동안 버그를 피해가며 잘 써온 원격 디버거인데... 새로 제작하는 장비의 PC에서 오류가 발생했다.

Exception Processing Message c0000013 Parameters 764cbf7c 4 764cbf7c 764cbf7c

무시하고 써도 되긴 하는데... 원격 PC에 뜨는 메세지창을 클릭해대는 것이 여간 귀찮은게 아니다. 당연하겠지만 IDE 오류도 더 빈번히 발생하다.

처음에는 델파이에 제공되는 리모트 디버거에 문제가 있나 생각에 여기저기 뒤져봤으나 소득이 없었다.

그런데 저 오류 메세지로 검색해보니 엄청난 양의 검색 결과가 나온다.

바이러스, 악성코드에서부터 하드웨어 혹은 윈도우의 설치상의 문제 등등 원인도 다양하다...

사실 바이러스일거라고는 생각조차도 못했는데...

아마도 특정 바이러스 혹은 악성 코드가 넷트웍을 사용하면서 특정 상황에서 저런 오류를 발생시키는가 보다.

바이러스/악성코드야 지워버리면 그만이지만 난 디버깅을 해야만하니까... 별 도움이 안되는 정보다.

내 개인 데스크탑도 같은 오류가 발생했는데... 혹시나 하는 생각에 바이러스 검사를 해봤다...

시간이 너무 오래 걸린다 5% 되자 취소.

다음은 하드웨어 관련(드라이버 설치 및 알수 없는 윈도우 시스템 파일등등) 문제를 확인해보려는데...

윈도우를 다시 깔기는 싫다 - 보통 한번 윈도우를 깔면 피씨가 안켜질때까지 써야 한다고 본다. -

결국 하드웨어 목록에서 안쓰는 걸 [사용안함]으로 체크하기로 결정 (http://pc.ahnlab.com/bluebelt_pcdic/pcdic_view.do?BBS_SEQ=274318 가뭄의 단비와 같은 글이다 ㅜㅜ)

내 데스크탑도 장비 PC와 같은 증상이라 일단 이걸로 테스트하기로 결정하고

장치관리자에서 필요없는 플로피 디스크 드라이버를 찾아 [사용안함]으로 체크...

그러니까 잘된다... 이게 도대체 뭔일인지 -_-;

바로 달려가 장비 PC에서 플로피 디스크 드라이버를 [사용안함]으로 체크...

역시 잘된다... 이런 허무한...

그런데 이건 고객이 플로피 디스크를 달아달라고 했기 때문에 장치를 없애 버리면 안된다.

장치관리자 목록을 보는데 뺼게 아무것도 없다. 장비 PC라보니 PCI 슬롯 가득, LPT, 추가적인 포트, USB 몽땅에 1394 까지 사용한다. 도대체 뺼수 있는게 없다.

결국 다시 운영체제를 설치해야만 하는가 그래도 안되면 디버깅할때만 플로프 디스크를 잠가둘까.... 하고 체념할 뻔 했는데...

장치관리자에 모니터가 2개가 보인다... 음 이거 뭐지... 하나 제거... 다시 테스트해보니 OK

결국 해결... 프로그래머 다운 해결법도 아니고 정확안 원인 파악은 안됐지만... 

리모트 디버거를 리버스 엔지니어링해서 원인을 규명하고픈 생각은 들지 않는다.

결론

XP 기준으로 내컴퓨터 - 하드웨어 - 장치관리자에서 쓰지 않는 장치는 모두 사용안함으로 체크.

델파이 2007 기준입니다.

델파이 7 버전도 되는걸로 알고 있슴.

Application.OnModalBegin

Application.OnModalEnd 를 사용합니다.

OnModalBegin 에서 반투명 폼으로 스크린을 덮어 버리고, OnModalEnd 에서 폼을 닫는 거죠.

예전에... 휴대폰 대화박스가 뜰때 이런식이라 구현해 본 건에 알고보니 이미 이런 팁은 많이 나왔더군요. -_-;

정보가 흘러 넘처서 주체하지도 못할 지경의 세상이니 이런 소박한 꼼수들이야 뭐...

Dim Out the Main Form of an Application When Modal Form is Displayed

Modal폼을 띄울때 Disable되는 폼을 Gray톤으로 ...

소스 + 실행파일 포함입니다.

ModalTest.zip

어차피 DLL 인 라이브러리라 델파이에 못 붙일 것도 없죠
델파이용 DLL 헤더 만드는 일은 늘상있는 일이기도 하고요
그렇지만 전체 헤더를 몽땅 변환하는 건 정말 고되고도 재미 없는 작업입니다.
그래서 보통은 그때 그때 필요한 함수와 타입만을 끄집어 냅니다.
계속 같은 작업을 하다 보면 저절로 분량도 많아지고
같은 작업을 안하다보면 별로 쓸일이 없는 거니 굳이 전체 헤더 변환을 할필요가 없겠죠
(물론 시간만 된다면야 못할것도 없지만...)

아무튼 이번에도 그런식으로....
OpenCV 를 이용한 템플릿 매칭(Template Matching) + 소스 포함 이곳의 소스를 테스트 삼아 델파이로 컨버전 했습니다.

Source / exe / dll 포함
OpenCVDelpphi_Ex.7z

굳이 델파이로 헤더까지 만들어 쓸 필요가 있을까.... 싶을지도 모르겠지만

1. 헤더 만들기가 그리 어려운게 아니고
2. 헤더 만들다 보면 자연스럽게 함수 원형에 구조체나 자료 구조를 파악하게 됩니다.
3. 가공할만한 델파이의 GUI 개발 능력에 편승할 수 있습니다.
4. 특히 http://graphics32.org 와 연동하면 빠르고 화려한 GUI를 구성할수 있습니다... 그것도 무료로 (너무 오래된 거라 좀... 그렇지만... 아직까지도 몹시 쓸만합니다. MIL 에도 붙여 보았었죠)
5. C 보다는 파스칼이 C++ 보다는 오브젝트 파스칼이 버그 유발 확률을 현저하게 줄여 줍니다.
6. 알고리즘을 완벽히 파악한다면 GPU 활용에 쓰일 수도 있겠군요 (음 이건 C/C++도 마찬가지네)

위 샘플 이외에도 몇가지 더 돌려봤습니다.
그것들을 클래스로 단순화 / 캡슐화도 해봤고요.
꽤 쓸만합니다.

여가 시간이 많아진다면 계속 해보고 싶네요.
현업 때문에 쉽지는 않겠지만 가급적이면 OpenCV 의 사용을 줄이고 직접 알고리즘을 작성해 봤으면.... 하는데 ...

2015-11-24 내용추가

케케묵은 내용이지만 어쩌다가 구글링으로 여기까지 들어온 분들에게 민폐가 되지 않도록 내용 추가합니다.

델파이로 헤더를 만드는 건 아주 비효율적인 방법입니다. 

OpenCV는 현재까지 매우 빠른 발전을 보이고 있고, 앞으로도 그럴것이라 예상 되는바

그때마다 헤더 고치는 노가다를 하느니 C++ 을 사용하는 것이 훨씬 낫습니다.

델파이와 연동할 땐

C++로 DLL 제작 (virtual class 사용) Delphi에서 사용합니다. (graphics32는 여전히 쓸만합니다)

갑자기 C/C++을 왜?

OpenCV (Open Source Computer Vision library) 를 구경하는 중....
소스만 보기 갑갑해서 델파이로 헤더 변환 노가다 해가며 테스트 하다가...
이게 뭔 삽질인가 싶어서 비용 부담 없는(GPL, LGPL, BSD, 기타 등등) C/C++ 를 찾게 되었슴.

Code::Blocks : Cross-Flatform C++ IDE
Eclipse : 유명한 자바외 기타 등등을 위한 IDE
wxWigets : Cross-Flatform UI Framework
QT : Cross-Flatform UI Framework
MinGW : GNU Compiler for Windows
BCC5.5 : Borland C++ 5.5 Compiler. 공개되었음.
RELO : Windows 용 C++ IDE

등등을 둘러보며 헤매다가 QT 로 결정

QT는 한큐에 IDE, GUI 라이브러리와 MinGW 까지 설치 되니 이보다 더 편할 수가 없다.
게다가 Nokia 에서 인수 후, 앞으로의 전망도 좋아 보임.

설치방법

1. QT SDK를 를 설치하면 IDE인 QT Creator 와 MinGW까지 같이 한꺼번에 설치됨

2. OpenCV 를 설치

3. __exchange_and_add 에 대해 에러가 나는데, 소스를 수정해야 한다. 이것 때문에 많이 헤맸음 ㅠㅠ

• Open cxoperations.hpp (found in <Open CV base dir>\include\opencv)
• Find this section (lines 67-68 in 2.0):
    #else
      #include <bits/atomicity.h>
      #if __GNUC__ >= 4
• And update it to reference a new definition, __MINGW32__ (defined by the MinGW compiler, see http://predef.sourceforge.net/precomp.html#sec31):
•   #else
      #include <bits/atomicity.h>
      #if __GNUC__ >= 4 || __MINGW32__

http://opencv.willowgarage.com/wiki/InstallGuide

4. 프로젝트 생성시 다음과 같이 세팅

INCLUDEPATH += [OpenCV설치경로]\include\opencv

LIBS += [OpenCV설치경로]\lib\libcv200.dll.a

LIBS += [OpenCV설치경로]\lib\libhighgui200.dll.a

LIBS += [OpenCV설치경로]\lib\libcxcore200.dll.a

http://trac.tistory.com/

http://kkamagui.tistory.com/90

TOW 패키지 릴리즈및 Subversion 설치 가이드 입니다.

TRAC 같은 경우 설정이 꽤 복잡한데 간단히 설치할수 있게 잘 정리해서 배포하시고 계십니다.

이런 분들 매우매우 고맙죠.

이번 기회에 회사에서 적용을 해보려고 합니다.

개인적인 코드들도 따로 넣어보고 싶고.... (딴데다....)

마침 회사 서버가 윈도우 2003이니 거기에 구겨넣어볼까 생각 중입니다...

사실은 서버하나 만들어달라고 하고 리눅스로 전용 서버 구축을 했으면 하는데...

들어줄지도 잘 모르겠고... 진행중인 프로젝트가 겹겹이 겹쳐있는 상황이라 일을 만들기가 부담스럽네요.

https://forums.embarcadero.com/thread.jspa?threadID=1069&tstart=0

간단 요약하면 환경변수의 Platform 항목을 지워주면 된다는 거

착한 직장 동료 덕에 4년만에 노트북을 업그레이드 하게 됐습니다.

술 사준다고 했는데 요즘 서로 바빠서 언제 먹으려나 -_-;

아무튼 문제는 OS가 비스타라는건데... 망할 HP사가 아예비스타밖에 못쓰도록 박아놔 버렸네요.

나중에 클래스 플랫폼 개발을 시도해보려는데 이거 리눅스 깔기도 고달플 듯

아무튼....

문제가 델파이 2007 사용시 설정한 컴파일 옵션이 제대로 안붙습니다.

뭘하든 --no-config가 붙어 버립니다. -_-;

처음엔 맵(map)파일과 리모트디버깅(rsm) 파일이 갱신이 안되길래 왜 그럴까 몇시간을 헤매다 찾았지요 어흑....

그 후엔 인터넷이 되는 여관(출장중이라...)에서 구글 검색 중 단 하나의 링크글을 발견...

...

스크립트 파싱을 못한 코드기어의 잘못인지 난데없는 Platform=MDC 가 세팅되는 비스타의 문제인지..

외진곳에 쳐 박힌 현재로선 알길이 없지만.... (별로 알고 싶지도 않음)

다른 버전의 윈도우에는 이런일이 없었죠....;

나중에 누군가 헤매는 사람이 또 있을까 봐(구글 보면 그리 많지는 않은 듯?) 블로깅합니다.

그외에도 느리고 불편한게 많네요.이노므 비스타... ㅜㅜ

파일 압축에 대한 고민

순간 보이는 빵 아이콘

빵집 스크립트 파일 포멧

1. 확장자는 bsz 이다.
2. 세미콜론이 주석이다.
3. Mode=Compress는 압축, Extract는 해제이다.
4. ArchiveFile=압축 파일 경로+이름이며 <DATE>는 자동으로 날짜를 파일 이름에 붙여주고 <INDEX>는 동일 이름의 파일이 존재하면 파일 이름에 숫자를 추가한다.
5. Progress.Caption=진행상황 윈도우의 캡션
6. Progress.Text=진행상황 윈도우의 텍스트 메세지
7. Files.RootPath=압축할 파일의 경로
8. Files.Count=압축할 파일+폴더의 합
9. Files.0=파일 이름 혹은 폴더 이름
10. Files.1=파일 이름 혹은 폴더 이름
11. Files.2=파일 이름 혹은 폴더 이름
12. Extract.Path=압축을 해제할 때의 대상 경로
13. After.Run=압축/해제의 완료후에 실행될 파일

빵집 스크립트 편집 화면

스크립트 파일을 생성해서 동작시키자

1. HSL Color Space : 위키를 보자
   - 친절하게도 이미지, 수식, HSV와의 비교도 쓰여 있다.
   - 더는 설명이 필요치 않다고 여긴다.
   
2. CMYK Color Model - yellow(노랑), magenta(자홍), cyan(청록)인데, 혼합할수록 명도가 떨어진다.
   - 이 Color Model은 흰색과 검은 색이 나올 수가 없기에 K로 이를 표현 하지만, 다이알로그의 공간이 모자라는 이유로 여기서는 CMY만을 넣었다.
   - 마찬가지의 이유로, YCbCr Model 도 취급하지 않았다.

HSL Color Space

CMYK Color Model

invalid-file

다운로드 : 언제나 그렇듯 맘대로 쓰되 출처를 밝혀주면 고마울 것이다.

대략적인 구상을 해보았다.

1. 이미지의 색상을 단순화하기 위한 포토샵의 포스터라이즈 필터 구현.
   - 간단한 방법이 있지만 결과가 좀 허접하다. 좀 제대로 된 효과가 나오도록 구현을 해볼 것이다. (물론 잘 안되면 그냥 간단한 걸로 넘어가겠지만...)
2. 외곽 픽셀 혹은 뼈대를 이루는 픽셀 추출
   - 외곽선을 따올 것인지 패치의 뼈대를 따올 것인지 두 갈래로 나뉜다.
   - 외곽선의 경우 이미지에 유용하고 뼈대의 경우 숫자나 문자 검출 유용하다고 할 수 있다.
   - 둘 다 할지 하나만 할지는 아직 정하지 않았다.
3. 이 픽셀들을 추출할 때 각각의 픽셀의 연결 정보를 알 수 있는 적당한 자료구조를 만들어야 한다.
   - 그래야만 쉽게 Vector 변환 을 할 수 있다.
4. 이젠 이 픽셀들을 바탕으로 Segment(선분)를 추출한다.
5. 무수히 많은 선분 중 불필요한 것들을 삭제하고, 하나로 묶을 수 있는 것들은 묶는다.
6. 뼈대를 추출할 때는 상관이 없으나 외곽선을 추출할 때는 2가지 옵션이 있다.
   - 단순히 외곽라인을 따라갈 것인지...
   - 이 선분들을 토대로 폴리곤을 만들 것인지
   - 둘 다 선분의 방향을 정해야 하겠지만 폴리곤을 만들 경우에는 Triangular Mesh가 추가되어야 한다. (슬슬 귀찮은 생각이 들기 시작...)
7. 생성된 결과를 적당한 Vector Graphic 포멧으로 만들어야 하는데, SVG 가 어떨까 생각 중이다.
   브라우저에서도 읽을 수 있고, InkScape 라는 프리웨어가 있었던 걸로 기억하는데, 그게 맞는다면 파일 포멧을 찾아본 후 적용할 것이다
   브라우저에서 못 읽는다거나 프리웨어가 아니거나 포멧이 복잡하다면 -_-; 걍 대강 그려 넣겠다....;

1. 동공이 커지지 않게 조명을 밝게 하거나 (혹은 밝은 곳에서만 사진을 촬영 -_-;)
2. 플래시의 빛이 반사되는 것이기에 피사체를 중심으로 플래시와 렌즈의 각도를 크게 하거나 (즉 렌즈와 플래시의 거리를 떨어뜨리거나 별도의 조명을 사용)

이번에도 집사람의 사진을 무단 도용하였다 (미안 -_-;)

마우스를 드래그하면 사각 영역이 그려지고,

드래그가 끝나면 선택 영역의 적목현상으로 나타난 빨간 눈을 대충 바꿔 준다.

1. RGB 칼라맵의 R 강도를 구하고 그 값이 일정 수치 이상인 경우를 찾는다.
   일정 수치라는 건 다양한 테스트로 아무거나 정하거나, 평균값을 구하거나, 평균값에 가중치를 약간 주거나 맘에 드는 걸로 하자.
   예제에서는 그냥 적당한 숫자를 넣었다.
   R 값의 강도 (Redness) 구하기

   function SubGetRedness: Double;
   begin
     if r = 0 then Result := 0
     else Result := (r - g + r - b) / r / 2;
   end;
2. R의 강도가 일정 수치를 넘으면 그 R 값을 G, B 값의 가장 작은 값으로 대체 해준다.
   이때 너무 빨간 빛이 확 줄어버릴 수 있기 때문에 적당한 가중치를 적용하여 기존 R 값을 넣어준다.
   예제에서는 8:2로 넣었다.
   R 값을 8:2 로 보정하는 식

   r := Trunc(Min(g,b) * 0.8 + r * 0.2);

invalid-file

• OOP를 따르는 것보다 OOP의 목적을 성취하는 것이 더 중요하다.
• 이를 위해서는 사용하는 언어가 얼마나 객체지향적인가 보다는 개발자가 얼마나 객체지향적으로 프로그래밍할 수 있는가가 중요하다.