고객이음

프로그래밍 하다보면 로그기록 등을 위하여 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..

델파이로 프로그래밍 하다보면 전화번호 형식을 표준화 해야 하는데, 항상 찾게 되네요... 제 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)+..

DateUtils.pas 날짜 연산 정리 //일자를 추출한다. function DateOf(const AValue: TDateTime): TDateTime; //시간을 추출한다. function TimeOf(const AValue: TDateTime): TDateTime; //평년,윤년을 구분하다. function IsInLeapYear(const AValue: TDateTime): Boolean; //오전,오후를 구분한다. function IsPM(const AValue: TDateTime): Boolean; //Word형의 년,월,일 파라메타의 유효성을 체크한다. function IsValidDate(const AYear, AMonth, ADay: Word): Boolean; //Word형의 시,분,..

SNS가 하루가 다르게 빠르게 진화한다 하여도, 아직도 문자는 대중에 가장 빨리 전달할 수 있는 방법이기에 문자발송 서비스를 선호합니다. 많은 사업하시는 분, 영업하시는 분, 친목 모임에서 주기적으로 단체문자 보내야 하는 상황. 이분들은 모두 문자발송 서비스 비용을 줄이는 방법을 고민하고 계실텐데요. 문자를 무료로 보낼 수 있는 방법 한 가지 공유하려고 합니다. 내폰(휴대폰)을 이용하여 무료문자발송이란? PC에서 고객을 선택한 후, 내폰(휴대폰)으로 문자발송을 요청하면, 내폰에서 자동발송하는 기능입니다. 이게 가능하려면 내폰의 요금제가 무제한 무료문자 발송이 가능해야 하겠죠(그렇지 않으면 문자요금 폭탄) 다음 순서대로 설정하고 발송하여 보세요. 고객이음 고객관리프로그램 고객이음이란? 고객 또는 거래처와의..