고객이음

델파이로 양력을 음력으로 변환하거나, 반대로 음력을 양력으로 변환해야 하는 경우가 많은데요. 오늘은 음력과 양력을 변환하여 주는 함수를 포스팅 하여 보겠습니다. 오래전에 여기 저기 검색하여 찾은 함수인데, 다시 찾으려 하니 보이지가 않더군요. 다시 정리하여 올려 봅니다. 필요하신 분은 사용하여 보세요. 단, 저는 잘 사용하고 있는데 보장은 할 수 없습니다. 우선 상수 선언이 필요합니다. 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..

프로그래밍 개발을 하다보면, 내부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..

델파이로 프로그래밍 하다보면 전화번호 형식을 표준화 해야 하는데, 항상 찾게 되네요... 제 PC에서는 아직까지는 잘 활용되어 지고 있습니다. 이용중에 보완해야 할 부분이 있으시면 댓글 주세요. [ 함수 본문 ] 대시가 있건 없건 전화번호 문자열를 받아, 무조건 대시(-)를 넣어서 반환. // // 전화번호 형식 변환 // function GetPhoneNumber(aNoDashTelNo: string): string; var tTelNo : String; FLocalNo, FSeoul : Boolean; begin tTelNo := StringReplace(aNoDashTelNo, '-', '', [rfReplaceAll, rfIgnoreCase]); if (Length(tTelNo) 11) then ..

델파이로 통신 프로그램 개발하다보면 흔하게 사용하는 함수죠. 디버깅 등 덤프를 떠야 할 때도 자주 사용하죠. 그런데 막상 필요할 때 찾으면 잘 보이지가 않아요. ㅎ 제 PC에서는 잘 동작되는 함수이나, 사용하여 보시고 보완해야 할 사항이 있으시면 댓글 남겨 주세요. [ 함수 본문 ] Byte로 구성된 문자열을 Hexa 문자열로 변환하여 반환. // // Byte로 구성된 문자열을 Hexa 문자열로 변환 // function ValueToHex(const S: AnsiString): AnsiString; var i: Integer; begin SetLength(Result, Length(S)*2); // 문자열 크기를 설정 for i:=0 to Length(S)-1 do begin Result[(i*2)+..