프로그래밍 노트

델파이 : System Tray에 Icon 넣기

띠리 — Fri, 29 Apr 2011 18:44:00 +0900

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ShellApi, Menus;

const

WM_NOTIFYICON = WM_USER + 333;

type

TForm1 = class(TForm)

PopMenu: TPopupMenu;

Show1: TMenuItem;

EXit1: TMenuItem;

procedure EXit1Click(Sender: TObject);

procedure Show1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

NotifyIcnData : TNotifyIconData;

hMainIcon : HICON;

procedure ClickTrayIcon(var msg: TMessage); message WM_NOTIFYICON;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

// System Tray에 Icon의 Event 수신

procedure TForm1.ClickTrayIcon(var msg: TMessage);

var

pt: TPoint;

begin

case msg.lparam of

WM_LBUTTONDBLCLK : Show;

WM_RBUTTONDOWN :

begin

GetCursorPos(pt);

PopMenu.Popup(pt.x, pt.y);

end;

procedure TForm1.EXit1Click(Sender: TObject);

begin

Application.Terminate;

end;

// Form Close 했을 때

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caNone;

Hide; // Form 숨기기

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

// System Tray에 Icon 표시

hMainIcon := LoadIcon(MainInstance, 'MAINICON');

Shell_NotifyIcon(NIM_DELETE, @NotifyIcnData);

with NotifyIcnData do

begin

cbSize := sizeof(TNotifyIconData);

Wnd := handle;

uID := 11111;

uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;

uCallbackMessage := WM_NOTIFYICON;

hIcon := HMainIcon;

szTip := 'System Tray Test';

end;

Shell_NotifyIcon(NIM_ADD, @NotifyIcnData);

end;

procedure TForm1.Show1Click(Sender: TObject);

begin

Show;

end;

end.

[Delphi] SubFolder 안의 File 검색하기

띠리 — Tue, 12 Apr 2011 19:32:00 +0900

// GetFileList : Sub Folder안의 File까지 검색하는 함수

// slFileList : 반환하는 File List

// sPath : 검색한 Root Folder

// sMask : File 검색 Mask 설정

// 예) '*.txt', '*.exe'

// bSubDir : SubFolder 검색 유무

procedure GetFileList(slFileList: TStringList;

sPath, sMask: string; bSubDir: boolean);

var

i, iFindRst : integer;

SrchRec : TSearchRec;

slFolder : TStringList;

begin

if sPath[length(sPath)] <> '\' then

sPath := sPath + '\';

// 지정 Foldr 안의 지정 Mask의 Full File path 수집

iFindRst := FindFirst(sPath + sMask, faAnyFile - faDirectory, SrchRec);

while iFindRst = 0 do

begin

slFileList.Add(sPath + SrchRec.Name);

iFindRst := FindNext(SrchRec);

end;

FindClose(SrchRec);

// Sub Folder List 수집

slFolder := TStringList.Create;

iFindRst := FindFirst(sPath + '*.*', faAnyFile, SrchRec);

while iFindRst = 0 do begin

if ((SrchRec.Attr and faDirectory) <> 0) and (SrchRec.Name[1] <> '.') then

slFolder.Add(sPath + SrchRec.Name);

iFindRst := FindNext(SrchRec);

end;

FindClose(SrchRec);

// Sub Folder안 File 검색

for i := 0 to slFolder.Count - 1 do

GetFileList(slFileList, slFolder[i], sMask, bSubDir);

slFolder.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

slFiles : TStringList;

begin

slFiles := TStringList.Create;

GetFileList(slFiles, 'c:\data\', '*.txt', true); //

memo1.Clear;

memo1.Lines := slFiles;

slFiles.Free;

end;

Firebird에서 auto_increment 같은 자동 연번 field 사용하기

떡잎 — Wed, 09 Feb 2011 16:32:48 +0900

Firebird의 Firebird ISQL Tool을 실행해서 아래 녹색 상자의 Source를 전체를 붙여 넣어보면 어떻게 동작하는지 대충 알 수 있다.

create database 'TestAutoNoDb.fdb' user 'sysdba' password 'masterkey';

set autoddl off;

create table AutoNoTable (
AutoId integer not null,
Fld_Int integer,
Fld_Char char(200),

constraint pk_AutoNoTable primary key (AutoId)
);

create generator gen_AutoId;

set term ^;

create trigger trg_AutoNoTable_SeqNo for AutoNoTable
active before insert position 1
AS
begin
if (new.AutoId is null) then
new.AutoId = gen_id(gen_AutoId, 1);
end
^
commit work^

set term ; ^

insert into AutoNoTable (Fld_Int, Fld_Char) values (1, 'one');
insert into AutoNoTable (Fld_Int, Fld_Char) values (2, 'two');
insert into AutoNoTable (Fld_Int, Fld_Char) values (3, 'three');

commit work;

select * from AutoNoTable;

설명

// Database 만들기
create database 'TestAutoNoDb.fdb' user 'sysdba' password 'masterkey';

// 자동 Commit mode off(?)
set autoddl off;

// 자동 연번 Test용 Table 만들기
create table AutoNoTable (
AutoId integer not null,
Fld_Int integer,
Fld_Char char(200),

constraint pk_AutoNoTable primary key (AutoId)
);

// 자동 연번용 generator 만들기
create generator gen_AutoId;

// 자동 연번 Trigger 만들기
set term ^;

create trigger trg_AutoNoTable_SeqNo for AutoNoTable
active before insert position 1
AS
begin
if (new.AutoId is null) then
new.AutoId = gen_id(gen_AutoId, 1);
end
^
commit work^

// 데이터 추가
set term ; ^

insert into AutoNoTable (Fld_Int, Fld_Char) values (1, 'one');
insert into AutoNoTable (Fld_Int, Fld_Char) values (2, 'two');
insert into AutoNoTable (Fld_Int, Fld_Char) values (3, 'three');

commit work;

// 데이터 가져오기
select * from AutoNoTable;

실행 결과

AUTOID    FLD_INT FLD_CHAR
============ ============ ===========
1 1 one
   2 2 two
   3 3 three

AUTOID와 추가 하지 않아도 자동으로 연번이 생성됨

주의) 이 트리거에 문제점이 하나 있다.
연번이 가장 큰 숫자에서 시작하지 않는다. -.-;;
그래서 이 트리거를 사용하지 않고 인위적으로 AUTOID field에 높은 번호를 입력하면
자동으로 AutoID가 입력될 때 같은 번호가 나오면 Error가 발생되게 된다.

-----------------------------------------

참고

위 Source를 Firebird ISQL Tool에 붙이려면 Firebird ISQL Tool의 Caption bar에서 오른쪽 click하면 popup menu가 표시되고 편집 > 붙여넣기(P)를 선택하면 된다.

[델파이]DBGrid에서 깜박거림 없애기

떡잎 — Wed, 09 Feb 2011 11:06:24 +0900

DBGrid의 자료를 다시 표시할 때 코딩을 잘못하면 DBGrid가 깜박거리는 현상이 발생한다.

TDBGrid에 연결된 DataSource의 연결된 DataSet에 SQL이 바뀔 때 아래와 같이 하면
문제가 해결되었다.

ZQuery1.DisableControls;
ZQuery1.close;
ZQuery1.SQL.Text := edit1.Text;
ZQuery1.Open;
ZQuery1.EnableControls;

개발환경
Delphi2006
ZeosLib 6.6.6

[SQL] 특정 조건에 해당하는 앞에서 원하는 만큼만 record를 가져오는 TOP 구문

떡잎 — Tue, 08 Feb 2011 20:01:34 +0900

DB를 잘 안써서 모르고 있었는데
이렇게 좋은 기능이 있었다.

어떤 조건에 해당하는 record중 앞쪽에서 지정한 수만큼 record를 가져올 수 있다.

Microsoft SQL Server	SELECT TOP 10 column FROM table
PostgreSQL and MySQL	SELECT column FROM table LIMIT 10
Oracle	SELECT column FROM table WHERE ROWNUM <= 10
Sybase	SET rowcount 10 SELECT column FROM table
Firebird	SELECT FIRST 10 column FROM table

DB마다 좀 문법은 틀리기는 해도 이런 기능들이 다 있기는 하네
이런 기능이 예전부터 있었던건가?

하기야 나같은 경우는 access를 주로 써서 access는 이런 기느이 없네