프로그래밍 노트

델파이에서 Form이 있는 DLL만들기 먼저 File메뉴에서 Other를 선택한다. New Items에서 DLL Wizard를 선택한다. 그리고 만들어진 DLL 프로젝트에서 오른쪽 클릭을 하여 Add New의 Form을 선택한다. 이렇게 하면 DLL에 폼을 추가하게 된다. 추가한 폼에 컨트롤들을 추가하고 이 폼에 대한 코딩을 한다. 폼 DLL을 확인하기 위한 프로그램을 만들기 위해서 ProjectGroup에서 오른쪽 클릭을 하여 Add New Project를 선택한다. New Items에서 VCL Forms Application을 선택한다. 이렇게 작업하면 우선 폼이 있는 DLL을 테스트할 수 있는 환경이 갖추어진다. (이 글을 전혀 델파이를 잘 모르는 사람을 위해 썼음) DLL이니까 당연히 DLL에서 ..

try, except, finally을 한번에 쓰려고 아래와 같이 썼더니 안됬다. Try ... Except ... Finally ... End; 델파이에서 try, except, finally을 한번에 쓰려면 아래와 같이 써야된다고 한다. Try Try ... Except ... End; Finally ... End;

델파이에서 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..

지정한 폴더에 들어있는 파일을 검색해서 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..

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..

[델파이]Edit에 수치값만 입력 가능하게(소수, 음수입력 가능) 자리수 제한 Edit컨트롤에 정수, 소수, 음수만을 입력할 수 있게 한다. 숫자의 자릿수를 설정하여 자릿수만큼만 입력할 수 있게 한다. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var iKey : Integer; iPos : Integer; iLen : integer; iSel : integer; iAfterPointDigit :integer; iBeforePointDigit :integer; sText : string; begin sText := Edit1.text; iKey := ord(Key); iLen := Length(trim(sText)); iSel := ..

StringGrid의 셀에 색칠하기 예제 StringGrid의 1열은 녹색으로 표시하고 2행은 적색으로 표시하고 StringGrid의 1열과 2행 외의 다른 셀을 클릭하였을 때, 클릭한 셀을 청색으로 표시한다. procedure TForm1.StringGrid1Click(Sender: TObject); var pntCurPos :TPoint; iCol :integer; iRow :integer; begin with StringGrid1 do begin pntCurPos := ScreenToClient(Mouse.CursorPos); // 마우스가 위치가 어느 셀위에 있는지 정보얻기 MouseToCell(pntCurPos.x, pntCurPos.y, iCol, iRow); // 셀 별 오브젝트가 설정되었는..