본문 바로가기

delphi15

XE2 에서 Custom VCL Style 을 리소스로 포함하여 사용하기 다음은 직접 제작한 vsf 파일을 리소스로 포함하여 사용할 경우이다. 먼저, Project > Resources and Images.. 를 실행한다. Add... 버튼을 클릭하여 제작한 vsf 파일을 선택한 후, Resource type 을 VCLSTYLE 로 입력한다. Resource identifier 에는 리소스를 불러올때 사용할 이름을 지정한다. 프로젝트에 생성된 RC 파일을 추가한다. 끝으로, 프로젝트 소스에 리소스로부터 스타일을 불러오도록 아래의 코드를 CreateForm 이전에 추가한다. 이때 반드시 uses 에 Vcl.Themes 와 Vcl.Styles 를 추가하여야한다. TStyleManager.SetStyle(TStyleManager.LoadFromResource(HInstance, '.. 2012. 8. 9.
FieldByName 사용팁 FieldByName 의 소스를 보면 다음과 같다. ### delphi function TDataSet.FieldByName(const FieldName: string): TField; begin Result := FindField(FieldName); if Result = nil then DatabaseErrorFmt(SFieldNotFound, [FieldName], Self); end; 3행의 FindField 메소드의 소스는 다음과 같다. ### delphi function TDataSet.FindField(const FieldName: string): TField; begin Result := FFields.FindField(FieldName); if (Result = nil) and Objec.. 2012. 7. 25.
ISAPI 기반 어플리케이션 서버의 데이터베이스 커넥션 처리 DataSnap REST Application Server 또는 SOAP Application Server 를 ISAPI 로 개발할 수 있다. 이때 해당 모듈을 데이터베이스 미들 티어로 사용할 경우라면 DB 커넥션에 대하여 몇 가지 작업을 해주어야한다. 1. 커넥션 관리 Wizard 에서 기본 생성되는 코드를 사용할 경우, 세션이나 요청별로 데이터베이스 커넥션이 발생하여 무수한 TIME_WAIT 를 발생시킨다. 물론 잦은 쿼리가 발생한다면 해당 쿼리당 커넥션 요청이 재발생하여 응답이 느려질 것이다. 다음은 데이터베이스 커넥션을 하나 생성해서 사용하는 방법이다. 물론, 풀링을 구현해서 사용하여도 좋을 것이다. 웹서비스로 개발되었다면, Service activation model 을 Global 로 해준다... 2012. 7. 20.
Delphi XE2 에서 DataSnap REST Application Cross Domain 처리 기껏 REST 서버를 구축하여도 만약 해당 서버 어플리케이션의 API를 또 다른 서버에서 호출하여 사용할 경우, 접근 권한 문제가 발생한다.(대충 그려보았다.) 이를 해결하는 다양한 방법들이 존재하는데... 익스플로러 및 어지간한 예전 웹브라우저들까지 모두 지원하려면 JSONP 를 사용하여야 한다.(서버에서 access-control-allow-origin:* 을 헤더에 싣는 방법도 있지만, 최신 웹브라우저에서만 올바르게 동작하며 익스플로러에선 제대로 동작하지 않는다.) 일단, JSONP 에서 요구하는 형태로 결과를 반환하여야하는데 XE2 에 추가된 TDSHTTPWebDispatcher 의 FormatResult 이벤트 메소드를 아래와 같이 만지작거려야한다. ### delphi procedure TWeb.. 2012. 6. 20.
DataSnap REST Application ISAPI 배포 - IIS 7.5 1. IIS 에서 ISAPI 사용 설정 IIS 관리자의 ISAPI 및 CGI 제한을 더블클릭한다. 기능 설정 편집... 을 클릭한 후, 지정하지 않은 ISAPI 모듈 허용을 선택한다. 2. IIS 가상 디렉토리 설정 별칭(Alias)을 지정한다. 해당 실제 경로에는 빌드된 파일들이 위치하고 있다. 추가된 Alias 를 선택한 후 응용 프로그램으로 변환을 실행한다. 응용 프로그램 추가 창이 뜨면 확인 버튼을 클릭한다. 3. 응용 프로그램 풀 검사 응용 프로그램 풀을 선택하고 DefaultAppPool 을 선택한 다음, 고급 설정을 클릭한다. 빌드한 DLL 이 32 비트인 경우, 일반 탭의 32비트 응용 프로그램 사용을 True 로 변경한다. 프로세스 모델의 ID 를 선택하고, 지정된 값이 Applicati.. 2012. 6. 5.
Delphi 투게더의 Observer 패턴 소스 오류 최근 XE2 에서 패치되었는지 모르겠지만, 투게더가 Delphi 에 포함되고 난 이후(2006부터~) 지금까지 이 소스 버그는 사라지지 않고 있다. 나야 UML 작성시 투게더를 사용하고 있지 않아 그냥 수정한 소스를 쓰고있지만, 만약 Pattern Organizer 에 등록된 Observer 패턴을 사용하여 소스를 생성하는 경우라면 네이티브 환경에서 사용시 AV 에러가 발생한다. 패치한 소스는 다음과 같다. ### delphi IObserver = interface procedure UpdateObserver(ASubject: TSubject); // 폼에서도 사용할 수 있게 메소드명을 변경함 end; TSubject = class strict private var FObservers: TList; st.. 2012. 4. 19.
Interface 요약 #7 지금으로부터 무려 10년전인 2002년 5월경, 델마당 개인게시판에 올렸던 총 9회의 글입니다. 유실된 줄 알았는데 싸이월드 게시판에 있는 걸 확인하고 복구합니다.;; 10. Interface DelegationIInterface1을 구현한 TObject1이 있다고하자. 만약, IInterface1 과 IInterface2 를 모두 사용하는 TCombinedObject의 경우 이미 TObject1에 의해 구현된 IInterface1를 소스카피와 같은 방법으로 다시 구현하여야할까? -> No. :)Delegation: 어떤 클래스가 다른 클래스의 포인터를 가지고 있음을 의미함.델파이는 다른 클래스에 인터페이스의 구현부를 위임(delegate)할 수 있는 방법을 제공한다. ### delphi type IIn.. 2012. 4. 19.
Interface 요약 #6 지금으로부터 무려 10년전인 2002년 5월경, 델마당 개인게시판에 올렸던 총 9회의 글입니다. 유실된 줄 알았는데 싸이월드 게시판에 있는 걸 확인하고 복구합니다.;; 9. 클래스 내(內) 다중 인터페이스 구현Object Pascal의 경우 C++ 과 같은 클래스의 다중상속은 지원하지 않는다.(다중상속 시 조상 메쏘드의 이름이 중복될 경우 애매한 상황이 연출되는 등의 문제가 있다.)다중 인터페이스의 구현은 다음과 같다. ### delphi type TMyMultiplyInterfacedClass = class(TInterfacedObject, IInterface1, IInterface2) 다중 인터페이스는 다중 상속과는 다르다.(상기 클래스의 조상 클래스는 TInterfacedObject 뿐이다.) ##.. 2012. 4. 19.
Interface 요약 #5 지금으로부터 무려 10년전인 2002년 5월경, 델마당 개인게시판에 올렸던 총 9회의 글입니다. 유실된 줄 알았는데 싸이월드 게시판에 있는 걸 확인하고 복구합니다.;; 8. 객체 모델과 인터페이스 모델을 혼용하지 말 것. ### delphi procedure DoSomethingWithInterface(Intf: IFormattedNumber); begin ShowMessage(Intf.FormattedString); end; procedure CreateAndUseObject; var MyInteger: TFormattedInteger; begin MyInteger:= TFormattedInteger.Create(12); DoSomethingWithInterface(MyInteger as IFormat.. 2012. 4. 19.
Interface 요약 #4 지금으로부터 무려 10년전인 2002년 5월경, 델마당 개인게시판에 올렸던 총 9회의 글입니다. 유실된 줄 알았는데 싸이월드 게시판에 있는 걸 확인하고 복구합니다.;; 7. Interface의 포인터 획득하기 ### delphi var MyInteger: TFormattedInteger; MyNumber: IFormattedNumber; begin MyInteger:= TFormattedInteger.Create(12); MyNumber:= MyInteger; end; 컴파일시 정적으로 할당됨(만약, 객체가 해당 인터페이스를 지원하지 않으면 컴파일시 에러발생) ### delphi var MyObject: TObject; MyNumber: IFormattedNumber; begin MyObject:= TF.. 2012. 4. 19.
Interface 요약 #3 지금으로부터 무려 10년전인 2002년 5월경, 델마당 개인게시판에 올렸던 총 9회의 글입니다. 유실된 줄 알았는데 싸이월드 게시판에 있는 걸 확인하고 복구합니다.;; 5. TInterfacedObjectIUnknown 인터페이스의 실행부가 작성되어 있음(따라서, TInterfacedObjet를 상속하면 QueryInterface, _AddRef, _Release를 구현해줄 필요가 없음.)system.pas 에 정의됨 ### delphi TInterfacedObject = class(TObject, IUnknown) protected FRefCount: Integer; function QueryInterface(const IID: TGUID; out Obj): HResul; stdcall; functio.. 2012. 4. 19.
Interface 요약 #2 지금으로부터 무려 10년전인 2002년 5월경, 델마당 개인게시판에 올렸던 총 9회의 글입니다. 유실된 줄 알았는데 싸이월드 게시판에 있는 걸 확인하고 복구합니다.;; 4. GUID(Globally Unique Identifier)GetInterface 와 as 연산자를 사용하기 위해선 필요함(따라서 COM외에도 사용됨)Ctrl + Shift + G 로 생성 혹은 CoCreateGuid (Win API) 함수 호출유일한 값임(현재 시간, 현재 프로세스 번호, MAC Address 등으로 생성) ### delphi TGUID = record D1: LongWord; D2: Word; D3: Word; D4: array[0..7] of Byte; end; MyGuid:= ['{2DE825C1-EADF-11D.. 2012. 4. 19.
Interface 요약 #1 지금으로부터 무려 10년전인 2002년 5월경, 델마당 개인게시판에 올렸던 총 9회의 글입니다. 유실된 줄 알았는데 싸이월드 게시판에 있는 걸 확인하고 복구합니다.;; 현재, 틈틈이 COM 공부를 하고 있는 중입니다. 해서 interface에 대해 이것저것 살펴보고 있는 중인데요. ^^ '사람은 아는 만큼 본다'라는 말을 절감하고 있습니다. 두어 달 전에는 볼 수 없었던 것들이 지금은 보이는 군요. 처음엔 아래 한글을 띄우고 공부한 것들을 강좌형태로 만들 생각이었는데 2페이지 가량 진행하다가 포기하였습니다. 아무래도 시간이 많이 부족하네요. 일단은 추후 문서화 작업을 하기로 하고... 급한대로 여기 게시판에다가 생각나는 부분을 요약할 생각입니다. 1. 추상 클래스일반적인 클래스와 차이는 없으나, 거기에 .. 2012. 4. 19.
Automation Server 에서 사용할 수 있는 type 일반적으로 윈도우즈에서 자동으로 Marshaling 해주는 타입(델파이 기준)은 다음과 같다. SmallInt, Integer, Single, Double, Currency, TDateTime, WideString, IDispatch, SCODE, WordBool, OleVariant, IUnknown, Shortint, Byte, Word, UINT, int64, Largeuint, SYSINT, SYSUINT, HResult, Pointer, SafeArray, PChar, PWideChar 하지만, COM Automation Server 에서는 아래 타입만을 안전하게 사용할 수 있다. SmallInt, Integer, Single, Double, Currency, TDateTime, WideStri.. 2011. 5. 25.
Automation Server 등록/해제 델파이에서 in-of-process COM 의 경우 regsvr32 등을 통하여 등록/해제한다. 그렇다면 out-of-process COM 으로 Automation Server 의 등록/해제는 어떻게할까? 가령, Automation Server 실행 파일이 AutoServer.exe 라고할 경우, 등록은... AutoServer.exe /regserver 해제는... AutoServer.exe /unregserver 를 한번 실행해주면 된다. 물론 Vista 나 Windows 7 의 경우에는 관리자 권한으로 실행해주어야한다. 뭐 이런걸 블로그에까지 적냐싶지만... 잘못된 책의 내용(그냥 실행만하면 된다나? ㅡㅡ;;)으로 몇 시간을 삽질했다. 말그대로 분노의 블로깅이다. (차라리 책이 없었더라면 고생하지도.. 2011. 5. 24.