DreamMe

간단하게 모니터 인풋 렉 테스터기를 만들어 보았다. 얼마 전에 TV에 노트북을 연결했는데 TV의 화면 반응이 상당히 늦어서 TV의 인풋렉이 궁금해서 순전히 호기심 때문에 만들어 본 아주 간단한 프로그램이다. 혹시나 나와 같은 호기심 충족을 원하는 사람을 위해 공유한다. 일반적인 모..

서비스 프로그램에서 타이머를 사용하는 경우 ServiceStart 혹은 ServiceExecute 에서 타이머에 Access 하면 "Invalid argument"가 발생할 수 있다.

JPG_HEADER: array[0..2] of byte = ($FF, $D8, $FF);GIF_HEADER: array[0..2] of byte = ($47, $49, $46);BMP_HEADER: array[0..1] of byte = ($42, $4D);PNG_HEADER: array[0..3] of byte = ($89, $50, $4E, $47);TIF_HEADER: array[0..2] of byte = ($49, $49, $2A);TIF_HEADER2: array[0..2] of byte = (77, 77, 00);

델파이는 집합형 데이터(Set of) 형을 제공한다. 대표적인 집합형 데이터가 Font.Style이다. 그런데 이 데이터를 DB로 보관해야 한다면 어떻게 해야 할까? 답은 델파이의 집합형 데이터가 메모리에 어떻게 처리되는지를 확인해 보면 구할 수 있다. 델파이에서 집합형 데이터는 하나의 데이터를..

델파이에서 기본으로 제공되는 DBGrid의 DrawColumnCell의 기능이 동작하지 않아서 버그라고 생각하는 사람들이 있다. DBGrid에서 DefaultDrawing를 False로 설정한 경우 DrawColumnCell 에서 DefaultDrawColumnCell을 호출해 주어야 다른 코드가 정상적으로 동작한다. procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; co..

TClientDataSet은 델파이/C++빌더에서 3티어 데이터베이스 연결에서 클라이언트 쪽 DB 처리를 위해서도 많이 사용되지만, 메모리 데이터셋으로도 많이 사용됩니다. TClientDataSet에서 FileName 속성을 지정하거나 LoadFromFile / SaveToFile 메소드를 이용하면 로컬의 파일을 자체 메모리 내에 로드하여 메..

// 로컬 아이피 주소 얻는넘 procedure GetLocalIpList(aList : TStrings); type TaPInAddr = array [0..255] of PInAddr; PaPInAddr = ^TaPInAddr; var buff : array [0..63] of char; pHEnt : PHostEnt; pptr : PaPInAddr; WSData : TWSAData; i : integer; begin aList.Clear; if WSAStartup($101,WSData) <> 0 then begin showmessagefmt('%d',[getlasterror]); exit; end; try if GetHo..

// 패널을 클릭할 때 작동하게. 전역 변수로 bSet:Boolean; 선언 procedure TForm1.Panel1Click(Sender: TObject); var MouseRect : TRect; pMouse : TPoint; begin if(not bSet) then begin MouseRect := TPanel(Sender).ClientRect; pMouse := point( MouseRect.Left, MouseRect.Top ); pMouse := TPanel(Sender).ClientToScreen( pMouse ); OffsetRect( MouseRect, pMouse.X, pMouse.Y ..

// 한주의 첫 번째 날짜 구하기 function getFirstDayOfWeek(aYear, aMonth, aWeek:SmallInt):ShortInt; var dtTmpDate : TDateTime; ii, liDays, liFirstDayOfYear, liOffsetDay, liResult : SmallInt; function getDaysOfMonth(y, m : Word): Integer; begin case m of 1,3,5,7,8,10,12 : Result := 31; 4,6,9,11 : Result := 30; 2 : begin if (y mod 4 = 0) then begin if (y mod 100 = 0) then begin if (y mod..

출처 : Torry Site API를 이용한 아주 아주 간단한 방법입니다. 델파이 관련 사이트 돌아다니다보면, 이거에 관해서 질문이 가끔 있던데, 이렇게 해보시져~ 보이게 하거나, 감추는게 아주 간단합니다. 단순~ ^^; 윈도우 9x전용입니다. 다른데선 될라나? 암튼 딴데서 되면 저한테더 얘기점해주세여~ ... implementa..