프로그래밍 노트

DLL의 파라미터를 동적 배열로 넘기기 DLL의 반환값을 동적 배열로 반환하기 library SecondDll; uses SysUtils, Classes; {$R *.res} type TDynArrVal = array of Integer; function DynamicSum(DynArr: TDynArrVal): Integer; stdcall; var i, iSum : integer; begin iSum := 0; for i := Low(DynArr) to High(DynArr) do iSum := iSum + DynArr[i]; Result := iSum; end; function DynamicReturn(iCnt: integer): TDynArrVal; stdcall; var i : integer; D..

델파이 DLL 만들기 library FirstDll; uses SysUtils, Classes, Windows; {$R *.res} // 더하기 function NumPlus(iA, iB: Integer): Integer; stdcall; begin Result := iA + iB; end; // 메세지 박스 표시하기 function MsgBoxYN(pcMsg: PChar; pcTitle: PChar): BOOL; stdcall; begin Result := (MessageBox(0, pcMsg, pcTitle, MB_YESNO or MB_ICONQUESTION) = IDYES); end; exports NumPlus, MsgBoxYN; begin end. 델파이에서 만든 DLL 사용하기 unit uMa..

TComDataPacket을 쓰면 처음 문자와 마지막 문자를 설정해 주면 알아서 알아서 Buffering해주고 처음 문자와 마지막 문자를 빼서 보여준다. 그런데 With문하고 버그가 있는 것같다. With로 묶어서 쓰면 이상하게 ComDataRecvOnPacke의 이벤트가 발생하지 않는다. 풀어서 쓰면 특별히 문제가 없는데.... ---------------------------------------------------------------------------------------- CDatapacket := TComDataPacket.Create(nil); with CDatapacket do begin ComPort := Comport; StartString := #02; StopString := ..

// 지정한 폴더의 파일 리스트 가져오기 : 서브 폴더 검색 대응 function FindFiles(const sPath, sMask: string; slFiles: TStringList; bSubDir: boolean): integer; var iFindResult: integer; srSchRec : TSearchRec; begin result := 0; iFindResult := FindFirst(sPath + sMask, faAnyFile - faDirectory, srSchRec); while iFindResult = 0 do begin slFiles.Add(sPath + srSchRec.Name); iFindResult := FindNext(srSchRec); end; FindClose(srS..

// 로컬 컴퓨터에 존재하는 드라이브의 문자열을 반환 function TForm1.GetDriveList:TStringlist; var sDrvChr : string; i : integer; cDrvChr : array[1..255] of char; iDrvType : integer; // 지정한 드라이브의 타입 반환 function GetDrvType(sDrvChr: string): string; begin // 드라이브 타입 반환 iDrvType := GetDriveType(Pchar(sDrvChr)); case iDrvType of DRIVE_UNKNOWN: Result := 'UNKNOWN'; DRIVE_NO_ROOT_DIR: Result := 'NO ROOT'; DRIVE_REMOVABLE: R..

예전부터 VB에 있던 Me가 Delphi에서는 무엇일까 궁금해서 검색도 나름대로 하고 그랬는데 찾지 못했었다. 그런데 오늘 알았다. VB의 Me는 Delphi에서는 Self였다. 알고나니까 이렇게 쉬운데 이걸 알기까지 너무 오랜 시간이 지난 것 같다.

델파이에서 컴퓨터의 IP어드레스 설정하기와 설정된 IP어드레스 가져오기 uses ComObj, ActiveX, UrlMon, // for Set IP address Winsock; // for Get IP address // ====================================================================== // SetIpConfig() // WMI로 IP 어드레스, 게이트웨이, 서브넷마스크 설정 // Arguments ... // AIpAddress - IP 어드레스 입력이 안되었을 경우는 DHCP로 설정 // AGateWay - [생략가] 생략시 GATEWAY 변경 안함 // SubnetMask - [생략가] 생략시 기본설정 '255.255.255.0'. /..

procedure TForm1.Button2Click(Sender: TObject); var ctrlTest: TControl; edtTemp : TEdit; begin ctrlTest := SearchCtrl(Panel1, 'Edit2'); edtTemp := ctrlTest as TEdit; edtTemp.Text := 'Test'; end; function TForm1.SearchCtrl(wctlParent:TWinControl; sName:string):TControl; var i : integer; ctrlRet : TControl; wctlTemp : TWinControl; begin Result := nil; // Parent컨트롤에 검색할 컨트롤이 있는지 검색 for i := 0 to wc..

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

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