고객이음

델파이 프로그래밍 하다 보면, 문자열 라이브러리에서 제공되지 않는 유익한 함수가 필요할 때가 있습니다. 아래 문자열 함수는 내가 항시 정의하고 사용하는 함수입니다. 필요하신 분은 별도로 함수 정의하시고 사용하시면 될 듯 합니다. // 문자열 aSrcStr에서 서브문자열 aCutStr을 구분문자열로 xCnt만큼 이후 문자열을 반환함 // 예: 서울시 강남구 역삼동 1234 강남빌딩 3층 : 역삼동 이후문자열을 받고 싶을 때 // 문자열 aSrcStr에서 서브문자열 aCutStr을 구분문자열로 xCnt만큼 이후 문자열을 반환함 // 예: 서울시 강남구 역삼동 1234 강남빌딩 3층 : 역삼동 이후문자열을 받고 싶을 때 function SeperateString(aSrcStr, aCutStr:String; a..

델파이로 양력을 음력으로 변환하거나, 반대로 음력을 양력으로 변환해야 하는 경우가 많은데요. 오늘은 음력과 양력을 변환하여 주는 함수를 포스팅 하여 보겠습니다. 오래전에 여기 저기 검색하여 찾은 함수인데, 다시 찾으려 하니 보이지가 않더군요. 다시 정리하여 올려 봅니다. 필요하신 분은 사용하여 보세요. 단, 저는 잘 사용하고 있는데 보장은 할 수 없습니다. 우선 상수 선언이 필요합니다. const s_Year = 1881; e_Year = 2050; LunDays: array[1..6]of Integer = (353, 354, 355, 383, 384, 385); LunData: array[s_Year..e_Year, 1..5]of Char = ( '5H57A', '3 55B', '2 25D', '5F9..

프로그래밍 하다 보면 폼의 위치를 저장하고, 다시 저장된 위치로 폼을 로딩할 때가 있다. [ 방법 설명 ] 프로그램을 종료할 때 Ini 파일에 폼의 위치를 저장하고 로딩할 때 Ini 파일에서 폼의 위치를 읽어서 로딩하면 된다. [ 구축 함수] 다음과 같은 3개의 함수를 만들어 놓으면 사용하기 편할 것 같다. // Ini 파일은 Main Application에서 공용으로 사용하는 파일 사용. // 폼을 Ini 파일에 저장된 위치정보로 로딩 procedure LoadFormPosition(aForm: TForm; aDefaultPos: TDefaultFormPosition = dfpMainFormCenter); // 폼의 위치정보를 Ini파일에 기록 procedure SaveFormPosition(aForm..

프로그래밍 하다 보면, 이미지 파일의 크기를 축소해서 서버에 업로드 해야 하는 경우가 많습니다. 특히, 썸네일을 만들어야 할 경우 반드시 축소를 해야 합니다. 아래 함수는 실제 적용해서 사용중인 함수입니다만 보장은 할 수 없습니다. 필요하신 분은 복사해서 활용하여 보시고, 보완해야 할 부분이 있으면 댓글을 올려 주시면 감사합니다. [ 필수 uses 절 ] Graphics, Imaging, GraphUtil [ 함수 정의 ] // 사이즈 조정 // aSourceImageFile : 원본파일명 // aResultPngFile : 축소파일명 // ThumbnailSize : 축소사이즈 function ResizeImageFile(aSourceImageFile, aResultPngFile: String; Thu..

프로그래밍 하다보면 로그기록 등을 위하여 PC명칭 OS버젼 MAC주소 HDD볼륨을 알아야 할 때가 있습니다. 막상 필요할 때 만들려 하면 생각도 안 나고... 내 PC에서는 잘 동작이 되는 데, 다른 PC는 어떤지는 잘 모르겠습니다. 그래도 비슷하지 않을까 싶어 올려봅니다. 혹 사용하여 보시고 의견이 있으면 댓글 올려 주세요. [ 필수 uses 절 ] Winapi [ 함수 정의 ] function GetMyPcName() : string; // PC명칭 구하기 function GetOSVersion() : String; // OS버젼 구하기 function GetMACAdress() : string; // MAC 구하기 function GetHDDVolume() : string; // HDD 볼륨 구하기..

프로그래밍 개발을 하다보면, 내부IP or 외부IP 정보가 필요할 때가 있습니다. 로그 기록할 때 주로 많이 필요로 합니다. 내부IP 주소는 윈도우 함수로 쉽게 구할 수 있습니다. 하지만 외부IP 주소는 PC 자체에서 구하기는 쉽지 않습니다. 주로 사용하는 방식은 외부 특정 서버와 통신할 때 반환되는 정보로 외부IP주소를 구합니다. 서버 호스트에 아래 프로그램을 업로드하고 호출하는 방식으로 외부 IP를 구할 수 있습니다. myip.asp 의 내용은 PHP로 작성하려면 [ 함수 정의 ] function GetIpAddress() : String; // 로컬IP 구하기 function GetxIpAddress(): String; // 외부IP 구하기 [ 함수 본문 ] 내부 IP 구하기 // // Local ..

통신용 프로그램 또는 로그 기록을 위하여 도메인을 IP로 변환하는 경우가 있습니다. 서버 도메인을 사용하여 접속하는 경우에 IP값을 알고 싶은 경우도 있습니다. 여기 저기 정보들을 정리하여, 실제 동작되는 함수를 만들어 보았습니다. 제 PC에서는 잘 동작이 되는 것을 확인하였지만, 동작이 안된다거나 보완이 필요한 부분은 댓을 남겨주시면 고맙습니다. [ 필수 Uses 절 ] Winapi.winsock [ 함수 정의 ] 도메인을 상수로 전달받아 문자열로 반환한다. function GetIPAddressFromDomainName(Host: PAnsiChar): String; [ 함수 본문 ] 도메인 주소를 전달받아 함수값으로 IP를 반환한다. // // 도메인으로 IP 반환 // function GetIPAd..

델파이로 통신용 프로그램을 개발하다보면, 패킷에 적용할 기본적인 함수들이 많이 필요합니다. 그 중 제가 사용하는 암호화, 인코딩 및 디코딩 함수입니다. 델파이11에서 이미 사용중인 함수이기에 검증이 완료된 함수이다. 제 PC에서는 잘 동작되고 있지만, 다른 PC에서는 잘 모르겠습니다. 오동작 또는 보완 사항이 있으시면 댓글 남겨 주세요. [ 함수 정의 ] // Encrypt : 상수형 키값을 받아 암호화 function Encrypt(const S: AnsiString; Key: Word): AnsiString; // Decrypt : 상수형 키값을 받아 복호화 function Decrypt(const S: AnsiString; Key: Word): AnsiString; // EncryptRC4 : Wo..