프로그래밍 노트

델파이에서 파이어버드를 쓰기 위해 삼일째 삽질중 델파이에서 파이어버드를 사용할 때 어떻게 하나를 찾고 있는데 우선 어떻게 파이어버드에 접속하는지를 고민하고 있다. 그러다 찾은 몇몇 자료들이 아래의 자료들이다. ■ 델파이에서 파이어버드를 사용하기 위한 컴포넌트들 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는 표시하는 ..

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

파일 유무 체크를 하는데 있어서 네트워크 경유로 파일을 체크할 경우에는 체크하려는 네트워크가 검색이 안 될 경우에는 프로그램이 먹통이 된 것처럼 잠시 멈쳐 버린다 그런 것을 해결하기 위해서 스레드로 이 처리를 하면 지정한 시간만 기다리고 응답이 없으면 다음 처리로 넘어가게 할 수 있다. 네트워크가 아닌 경우에는 FileExists는 폴더나 파일이 없으면 바로 다음 행으로 넘어간다. // 네트워크 파일 유뮤 체크 스레드 TCheckFileThread = class(TThread) private FFileName : String; FResult : Integer; protected procedure Execute;override; published property FileName : String read F..

미국의 Embarcadero Technologies，Inc.는 2008년 5월7일 미국의 Borland Software Corp.의 개발 툴 부문인 CodeGear를 매수하는 것을 발표했다. 매수를 완료한느 것은 6월 30일을 예정하고 있다. 매수가격은 2300만 달러로 이로 Turbo Pascal등으로 한세대를 풍미했던 Borland 브랜드의 개발툴은 사라지게 된다. Borland Software사는 1990년대에 컴퓨터용 데이터베이스 소프트웨어에서 일등 기업이였던 미국의 Ashton-Tate 사나 워드프로세서의 WordPerfect사를 매수하는등 마이크로소프트에 이어 페키지 소프트웨어에서 2위였었다. Borland사 제품은 거의 모든 것이 마이크로소프트와 경쟁제품이였다. 그러나 마이크로소프트 사와의 ..

델파이 : 사용할 수 있는 COM 포트 정보를 레지스터리에서 가져오기 procedure TfrmMain.FormCreate(Sender: TObject); var i:integer; regCom : TRegistry; begin regCom := TRegistry.Create; with regCom do try RootKey := HKEY_LOCAL_MACHINE; if OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', False)then begin GetValueNames(cmbComPort.Items); for i := 0 to cmbComPort.Items.Count - 1 do begin cmbComPort.items[i] := ReadString(cmbComPort.it..

델파이에서 원하는 버젼 정보를 문자열로 넘겨주는 함수의 예제 type TVerKind = ( tvComments, // 코멘트 tvCompanyName, // 회사명 tvFileDescription, // 설명 tvFileVersion, // 파일버젼 tvInternalName, // 내부명 tvLegalCopyright, // 저작권 tvLegalTrademarks, // 상표 tvOriginalFilename, // 정식파일명 tvPrivateBuild, // Private Build tvProductName, // 제품명 tvProductVersion, // 제품버젼 tvSpecialBuild); // Special Build const csVerKey: array [TVerKind] of Stri..

델파이에서의 VB의 ByRef같이 참조로 변수를 넘기는 방법 unit Unit1; interface uses Forms, StdCtrls, Controls, Classes; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private procedure RefParam(var sParam : string); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var sTest : string; begin sTest := ''; RefParam(sTest); Button1.Capt..