프로그래밍 노트

델파이에서 DB를 써본적이 한번도 없어서 Interbase 컴포넌트를 이용하여 Firebird DB 사용하는 간단한 예제를 하나 만드는데 너무 시간이 많이 걸렸다. -.-;; 이렇게 간단한 예제를 만들기 위해서 몇일이나 허비했다. 정말 간단한 예제인데... 역시 델파이 예제는 구하기가 쉽지 않은 것같다. 더우기 파이어버드라는 DB를 쓰는 사람도 많지 않고 더군다나 Interbase 컴포넌트를 사용하는 사람도 그리 많지 않아보인다. 아니 델파이로 파이어버드를 Interbase 컴포넌트를 사용해서 쓰는 사람이 인터넷에 자료를 올려놓은 사람이 별로 없어 보인다. 나중에 찾다 찾다. 영어가 아닌 유럽말(프랑스어이려나?)로 씌여진 사이트에 아주 친절하게 만들어진 예제들이 있어서 그것을 보고 조금이나마 사용법을 알..

델파이에서 파이어버드를 쓰기 위해 삼일째 삽질중 델파이에서 파이어버드를 사용할 때 어떻게 하나를 찾고 있는데 우선 어떻게 파이어버드에 접속하는지를 고민하고 있다. 그러다 찾은 몇몇 자료들이 아래의 자료들이다. ■ 델파이에서 파이어버드를 사용하기 위한 컴포넌트들 Can I use Delphi with Firebird 2.0? Yes, you can. There are various ways to connect and various degrees of compatibility. IBX This is the InterBase tab in Delphi. Basic stuff like Query work fine, even with Firebird 2.0. Probably easiest to setup and s..

Firebird는 InterBase에서 파생된 오픈소스 관계형 데이터베이스 관리 시스템 (RDBMS : Relational database management system)이다. 오픈 소스로 개발된 RDBMS이고 라이선스는 Mozilla Public License를 기본으로 한 InterBase Public License로 상용이나 비상용으로 사용할 수 있지만 원 소스를 바꾸었을 경우에는 반드시 바꾼 소스를 공개하도록 되어있다. PostgreSQL의 MVCC(멀티 버젼 동시 실행 제어)와 같게 MGA(Multi Generation Architecture)에 의한 고도의 트렌젝션 관리 기능을 가지고 있다. 스토어드 프로시져(stored procedure)나 트리거(trigger), 유저 정의 함수(UDF)..

MAC 어드레스 확인하기 시작 > 모든 프로그램 > 보조 프로그램 > 명령 프롬프트를 실행한다. Microsoft Windows XP [Version 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. C:\Documents and Settings\User>ipconfig /all Windows IP Configuration Host Name . . . . . . . . . . . . : TTTCom Primary Dns Suffix . . . . . . . : korea.ttt.com Node Type . . . . . . . . . . . . : Hybrid IP Routing Enabled. . . . . . . . : No WINS Proxy Enabled. ..

설명이 따로 필요 없는 예제 tel.xml 파일 영업 홍길동 1111 01033334444 11/15 관리 홍당무 2222 01022220000 11/11 개발 최말봉 6153 01077775555 3333 홍보 최고봉 4444 01088889999 01/15 자바 스크립트에서 XML 파일의 맴버들을 참조하는 것은 의외로 쉬웠다.

지정한 폴더에 들어있는 파일을 검색해서 TStringList로 반환해주는 함수 예제 서브 폴더 밑의 파일까지도 파일을 까지도 검색하는 함수 // ************************************************************ // 지정한 폴더 밑에 파일을 필터링하여 // 지정한 폴더 밑의 파일 리스트를 얻는 함수 // ************************************************************ procedure GetSearchedFileList(sPath : String; slFileList : TStringList; sWildStr : string; bSchSubFolder : Bool); var sTempPath : String; SchR..

위의 화면과 같은 폴더 다이알로그 표시하기 예제 uses FileCtrl; procedure TForm2.Button1Click(Sender: TObject); var sStr:String; begin if SelectDirectory('폴더 선택', '',sStr) then Button1.Caption := sStr; end; SelectDirectory 함수를 사용하면 폴던 선택 다이얼로그를 표시할 수 있다. uese에는 FileCtrl을 추가해야 된다. SelectDirectory(DisplayMessage : string, RootFolder : string, SeletedFoldername : string) DisplayMessage는 다이알로그에 표시되는 메세지 RootFolder는 표시하는 ..

함수에서 동적 배열과 정적 배열을 파라미터로 넘기는 방법 unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Button2: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } // 정적 배열형 선언 type TArrVal = array[0..9] of Integer; function Static..

VB에서 사용하는 InStr은 Delphi에서 Pos 함수를 사용하면 된다. procedure TForm1.Button1Click(Sender: TObject); var sSearch : string; iSearch : integer; begin sSearch := '가나다라마바사'; iSearch := Pos('나',sSearch); // 반환값 = 3 iSearch := Pos('파',sSearch); // 반환값 = 0 end; 오래간만에 코드를 보니까 이렇게 간단한 것도 기억이 안나네 -.-;;

TIdFTP로 FTP 클라이언트를 만드는데 여러번 삽질을 했다. 자료가 많이 있거나 샘플이 어디 있는지 알면 좋았겠지만 내 검색 능력으로는 잘 검색되지 않아서 나름 고생했다. ■ FTP 서버 접속 // ftpCt: TIdFTP; 폼에서 선언 ftpCt.Host := edtHost.Text; // 기본 FTP 포트를 사용하는 경우, 설정 안해도 됨 ftpCt.Port := StrToInt(edtPort.Text); // Anonymous(익명)로 접속하는 경우 아래와 같이 설정 ftpCt.Username := 'anonymous';//edtId.Text; // 익명 접속일 경우 패스워드 설정할 필요 없음 //ftpCt.Password := edtPass.Text; // FTP 서버에 접속 ftpCt.Con..