프로그래밍 노트

델파이에서 동적으로 배열 컨트롤을 만들었을 때의 컨트롤 유무 체크 하는 방법 VB에서는 어떤 오브젝트가 생성되었는지 안되었는지 알기위해서는 IsObject라는 함수가 있다. 델파이에서는 배열 컨트롤이 있는지 없는지 체크하기 위해서는 밑의 소스처럼 is를 사용수 있다. procedure TForm2.Button1Click(Sender: TObject); begin if btnD[3] is TObject then btnD[3].Caption := 'ttttt'; end;

■ 시리얼 포트 오픈 시리얼 포트는 파일처럼 다룬다. 시리얼 포트를 오븐 하기위해서는 CreateFile()을 사용한다. HANDLE CreateFile( LPCTSTR lpFileName, // 포트 이름을 가르키는 버퍼의 포인터 DWORD dwDesiredAccess, // 억세스모드(READ, WRITE) DWORD dwShareMode, // 포트의 공유 방법 비정（공유 불가: 0으로 설정） LPSECURITY_ATTRIBUTES lpSecurityAttributes, // 시큐리티 속성 DWORD dwCreationDisposition, // 포트 여는 방법 지정（OPEN_EXISTING로 기존 파일 지정） DWORD dwFlagsAndAttributes, // 포트의 속성 지정 HANDLE h..

델파이에서 동적으로 컨트롤 만드는 두가지 방법 밑의 소스의 ①과 ②를 보면 컨트롤을 동적으로 만드는 법이 두가지가 있다. ①처럼 바로 컨트롤을 만드는 방법과 ②처럼 기존에 동적 배열 컨트롤을 정의해 두고 배열의 크기를 설정해서 컨트롤을 만드는 방법이 있다. 이 프로그램을 실행시켜서 컨트롤 키를 누르고 마우스를 클릭하거나 컨트롤 키를 누르지 않고 마우스를 클릭하면 동적으로 컨트롤들이 폼에 생성되어진다. 그리고 그렇게 생성되어진 컨트롤을 클릭하면 각 컨트롤의 캡션이 폼의 캡션에 표시되어진다. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, stdctrls, E..

델파이 XML Data Binding으로 xml 파일 조작하기 소스를 열어둔 상태에서 Tool Palette를 보면 Delphi Projects | XML이 있다. 그 밑에 XML Data Binding이 있다. 그것을 클릭한다. 그러면 아래 윈도우가 표시되어지고 조작할 XML 파일을 선택하고 "Next" 버튼을 누른다. XML Data Binding Wizard 화면에서도 특별히 고치지 않고 "Next" 버튼을 누른다. 그러면 아래와 같이 새로운 pas파일이 생성되면서 조금전에 선택한 XML 파일의 조작하기 쉽게 xml 파일이 바인딩된다. 그리고 이 바인딩된 xml 파일을 사용하고자 하는 곳에 추가된 unit명과 xmldom, XMLIntf, XMLDoc을 uses에 추가해야 된다. xml Data B..

델파이에서 프로그램이 있는 패스(디렉토리) 얻기 procedure TForm1.FormCreate(Sender: TObject); var CurrentPath : array [0..256] of char; begin // 프로그램이 있는 현재의 디렉토리 정보 얻기 GetCurrentDirectory(sizeof(CurrentPath), CurrentPath); Form1.Caption := CurrentPath; end;

델파이에서 XMLDocument 컴포넌트를 사용해서 XML 파일 불러 TreeView에 표시하는 소스 ■ XML 파일 불러오기 // XML 파일 읽어오기 procedure TForm1.Button2Click(Sender: TObject); Var xdSoft : TXMLDocument; begin OpenDialog1.Filter := 'Xml file|*.xml'; if OpenDialog1.Execute then begin // XML Document 만들기 xdSoft := TXMLDocument.Create(Application); // XML Document 불러오기 xdSoft.LoadFromFile(OpenDialog1.FileName); xdSoft.Active := True; // Tre..

델파이에서 XMLDocument 컴포넌트로 XML파일을 읽고 쓰는 방법은 말로 설명하기는 좀 어렵고 그냥 소스를 보는 것이 알기 쉬울 것같다. 먼저 uses에 XMLDoc, XMLIntf을 추가한다. ■ XML 파일 쓰기 // XML 파일 만들고 쓰기 procedure TForm1.Button1Click(Sender: TObject); Var xdSoft : TXMLDocument; xnRoot : IXMLNode; xnChild : IXMLNode; xnGrandchild : IXMLNode; begin // XML Document 만들기 xdSoft := TXMLDocument.Create(Application); xdSoft.Active := True; xdSoft.Encoding:= 'euc-kr..

델파이에서 엑셀 파일에 선그리기 procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; Const xlNone = -4142; xlDiagonalDown = 5; xlDiagonalUp = 6; xlEdgeLeft = 7; xlEdgeTop = 8; xlEdgeBottom = 9; xlEdgeRight = 10; xlContinuous = 1; xlThin = 2; xlThick = 4; xlAutomatic = -4105; begin Excel := CreateOleObject('Excel.Application'); Excel.V..

델파이에서 엑셀로 데이터 출력하는 간단한 예제 맨 위의 uses에는 "ComObj"를 추가 해야된다. procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; begin Excel := CreateOleObject('Excel.Application'); Excel.Visible := True; // 워크북 추가 Excel.WorkBooks.Add; WorkBook := Excel.ActiveWorkBook; // 워크시트 추가 Workbook.sheets.add; try // 작업할 워크시트 선택 WorkSheet := WorkBoo..