function GetIpAddress() : String; // 로컬IP 구하기 function GetxIpAddress(): String; // 외부IP 구하기 외부 IP는 내 PC 자체내에서 구할 수는 없다. 외부 서버와의 통신을 통해서 구하는 방법이 가장 좋다. 서버에 아래 프로그램을 업로드하고 호출하는 방식으로 외부 IP를 구할 수 있다. myip.asp 의 내용은 <% Dim connect_IP connect_IP = request.ServerVariables("Remote_Addr") response.write connect_IP %> PHP로 작성하려면 <? echo $_SERVER['REMOTE_ADDR'] ?> // // Local IP 구하기 // function GetIpAddress(): String; type pu_long = ^u_long; var varTWSAData: TWSAData; varPHostEnt: PHostEnt; varTInAddr: TIn
프로그래밍 하다보면 로그기록 등을 위하여 PC명칭 OS버젼 MAC주소 HDD볼륨을 구할 때가 있다. 내 PC에서는 잘 동작이 되는 데, 다른 PC는 어떤지는 잘 모르겠다. 그래도 비슷하지 않을까 싶어 올려본다. uses 절에 Winapi 포함 function GetMyPcName() : string; // PC명칭 구하기 function GetOSVersion() : String; // OS버젼 구하기 function GetMACAdress : string; // MAC 구하기 function GetHDDVolume() : string; // HDD 볼륨 구하기 // // PC명칭 구하기 // function GetMyPcName(): string; var UserName: string; UserNameLen: Dword; begin UserNameLen := 50; SetLength(UserName, UserNameLen); If GetUserName(PChar(UserName),
프로그래밍 하다 보면, 이미지 파일의 크기를 축소해서 서버에 업로드 해야 하는 경우가 많다. 특히, 썸네일을 만들어야 할 경우 반드시 축소를 해야 한다. 아래 함수는 실제 적용해서 사용중인 함수이다. uses 절에 Graphics, Imaging, GraphUtil aSourceImageFile : 원본파일명 aResultPngFile : 축소파일명 ThumbnailSize : 축소사이즈 // 파일 function ResizeImageFile(aSourceImageFile, aResultPngFile: String; ThumbnailSize: Integer): Boolean; function FileSize(FileName: string): Int64; // // Picture 리사이징. 가로MAX = ThumbnailSize. // function ResizeImageFile(aSourceImageFile, aResultPngFile: String; ThumbnailSize: In
프로그래밍 하다 보면 폼의 위치를 저장하고 다시 로딩할 때 그 위치에 띄워야 하는 경우가 있다. 프로그램을 종료할 때 Ini 파일에 폼의 위치를 저장하고 로딩할 때 Ini 파일에서 폼의 위치를 읽어서 로딩하면 된다. 대략 다음과 같은 2개의 함수를 만들어 놓으면 사용하기 편할 것 같다. // 폼위치 기록 저장 초기화 procedure LoadFormPosition(aForm: TForm; aDefaultPos: TDefaultFormPosition = dfpMainFormCenter); procedure SaveFormPosition(aForm: TForm); procedure InitFormPosition(aForm: TForm); // // 저장된 폼 위치 셋팅 // procedure LoadFormPosition(aForm: TForm; aDefaultPos: TDefaultFormPosition = dfpMainFormCenter); var ConfigIni: TIniFile
소상공인 또는 영업직 종사하시는 분들과 통화하고 나면 대부분 항상 문자가 옵니다. "홍길동님 전화주셔서 감사합니다. 행복하세요" 라는 간단한 문자부터 사진까지 포함된 상품홍보 문자까지 다양하죠. 다양한 콜백문자 제가 오늘 소개하는 상품이 있는데, 이 상품은 고객관리 프로그램입니다. 소개하는 이유는 대부분의 콜백서비스가 유료이지만, 이 프로그램은 콜백서비스만 이용한다면 무료로 사용할 수 있어서 입니다. 이 프로그램은 고객관리 프로그램이다보니 고객관리 수가 기준선을 넘어서면 유료이지만 고객관리 수가 기준선 아래이면 무료입니다. 고객관리프로그램 이름은 "고객이음"입니다. PC에서의 사용은 고객관리로 되어 있고, 내폰(휴대폰)에서는 문자보내기, 콜백서비스입니다. 홈페이지에서 정리된 내용은 아래와 같습니다. 고객이음이란? ▷ 고객 또는 거래처와의 인맥관리, 거래관리 등을 목적으로 제작되었습니다. 어느 누구나 이메일 인증으로 PC용 모바일용 모두 무료로 이용하실 수 있습니다. ▷ 초간단 고객
이번엔 RichEditor 에 편집된 내용을 파일에 저장하고, 읽는 함수에 대하여 설명한다. 우선 RichEditor의 내용을 파일에 저장하기. uses 절에 sysutils, UTFString, Classes, Soap.EncdDecd를 포함시킨다. BASE64형 문자열을 RichEditor편집기로 로딩하는 함수 =============================================================== // // RichEditor 파일로부터 로딩 // aFile : 저장된 파일명 // aRich : 편집중인 RichEditor // Procedure LoadStringToRich( aStr:String; aRich:TRichEditor ); var bytes: TBytes; utf8: UTF8String; memSub : TMemoryStream; begin // 문자열이 비어 있으면 반환 if (aStr = '') or (Not Assigned(aRich
KT 일반전화 부가서비스 중에 [통화매니저] 상품이 있습니다. 회선당 월 4천원이고 KT전화요금에 합산청구하는 KT부가서비스 상품입니다. KT통화매니저를 활용하여 PC화면에 발신사정보를 표시할 수 있죠. IT기업에서 출시한 상품들이 많은데요. 대부분 고객관리프로그램에 포함되어 있습니다. 소개하려는 고객이음 이라는 상품도 대표적인 KT통화매니저를 이용한 고객관리 프로그램입니다. 프로그램을 설치하고 이용하는 것은 모두 무료라고 합니다. 무료설치 방법은 아래를 참고하시구요 https://cafe.naver.com/customem/25 [설치] PC 고객이음 설치방법 및 주의사항 대한민국 모임의 시작, 네이버 카페 cafe.naver.com 기능들이 많은데요. 그 중 KT통화매니저를 활용하는 부분만 설명드릴게요. PC 발신자정보 표시란? 일반전화(사무실) 전화 또는 문자가 오면 고객 신상정보가 PC에 표시되는 기능입니다. 물론, 미등록 신규전화도 표시됩니다. KT 통화매니저 전화설정이
개업 1개월도 안 된 듯 함 메뉴 오무라이스 라면 김밥 7천원. 근데 잘 보면 공기밥 무상이다. 라면 1그릇 공기밥 4천원
오랜만에 집에서 김치전 했다. 김치와 오징어 잘게 썰고 청량고추 넣고. 일요일 오후 5시에 먹는 맛 정말 맛있다. ㅎ
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형의 시,분,초,밀리초 파라메타의 유효성을 체크한다. function IsValidTime(const AHour, AMinute, ASecond, AMilliSecond: Word): Boolea
델파이로 통신 프로그램 개발하다보면 흔하게 사용하는 함수죠. // // 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)+1]:= HexaChar[Integer(S[i+1]) shr 4]; Result[(i*2)+2]:= HexaChar[Integer(S[i+1]) and $0f]; end; end; // // Hexa 문자열을 Byte로 구성된 문자열로 변환 // function HexToValue(const S: AnsiString) : AnsiString; var i: Integer; begin SetLength(Result, Length(S) div 2); for i:=0 t
프로그래밍 하다보면 전화번호 형식을 표준화 해야 하는데, 항상 찾게 되네요... // // 전화번호 형식 변환 // function GetPhoneNumber(aNoDashTelNo: string): string; var tTelNo : String; FLocalNo, FSeoul : Boolean; begin tTelNo := StringReplace(aNoDashTelNo, '-', '', [rfReplaceAll, rfIgnoreCase]); if (Length(tTelNo) <= 0) then begin Result := ''; exit; end; if (Length(tTelNo) > 11) then begin result := copy(aNoDashTelNo,1,12); exit; end; FLocalNo := False; FSeoul := False; if tTelNo[1] = '0' then FLocalNo := True; if ( FLocalNo ) and ( tTel
패킷 및 통신 관련 프로그래밍 하다 보면 많이 사용하는 함수를 정리해 보았다. 델파이11에서 이미 사용중인 함수이기에 검증이 완료된 함수이다. Encrypt : 상수형 키값을 받아 암호화 Decrypt : 상수형 키값을 받아 복호화 EncryptRC4 : Word형 키값을 받아 RC4 유형으로 암호화 DecryptRC4 : Word형 키값을 받아 RC4 유형으로 복호화 Base64Encode : Base64 인코딩하여 반환 Base64Decode : Base64 디코딩하여 반환 C1, C2 값을 미리 정수형 상수로 정의하자 RC4 함수의 KetStr은 미리 문자열 상수로 정의하자. // // // function Encrypt(const S: AnsiString; Key: Word): AnsiString; var i: integer; FirstResult: AnsiString; begin SetLength(FirstResult, Length(S)); for i := 1 to Leng
통신용 프로그램 또는 로그 기록을 위하여 도메인을 IP로 변환하는 경우가 있다. 여기 저기 정보들을 정리하여, 실제 동작되는 함수를 만들어 보았다. uses 절에 Winapi.winsock 을 기본으로 포함시켜야 한다. 도메인을 상수로 전달받아 문자열로 반환한다. // // 도메인으로 IP 반환 // function GetIPAddressFromDomainName(Host: PAnsiChar): String; var WSAData1: WSADATA; HostEnt: PHostEnt; pAddr: PAnsiChar; addr: in_addr; begin Result:=''; // GetHostByName 을 쓰기 위해 WSAStartup 을 한번 해줘야 함 if WSAStartup(MAKEWORD(2, 2), WSAData1)<>0 then Exit; // WSAStartup 호출이 제대로 되지 않음을 체크(?) if (LOBYTE(WSAData1.wVersion)<>2) or (HI
고객이음 [콜백서비스 콜백문자] 설정 및 사용방법을 알려드릴게요. #콜백문자란? 휴대폰 전화 통화 후 상대방에 감사 문자를 자동으로 발송하는 기능입니다. 물론, 전화를 못 받은 경우 부재중문자를, 업무시간을 설정하면 업무외 #자동문자를 발송합니다. 우선 고객이음 모바일앱을 무료 설치하여 주세요. [ 모바일 고객이음 무료설치 바로가기(원스토어) ] 모든 콜백서비스 앱은 안드로이드 전용이란점 참고하시고, 설치 바로가기가 잘 안되시면 모바일(휴대폰) 설치방법 안내 바로가기. 아래와 같은 설정화면이 나오면 성공!! 아래쪽에 설정화면 도움말이 있으니 참고해서 설정하세요. PC용과 함께 사용하면 더더욱 활용도가 좋을 것 같네요. 모바일 콜백문자 설정화면 [ 모바일 고객이음 무료설치 바로가기(원스토어) ] ※ 고객이음 모바일앱은 아쉽게도 "Play스토어" 및 "App스토어"에 없습니다. ※ 자동문자를 설정하려면 개인보안장치 승인을 얻어야 하는데, 정책상 Play스토어에서는 허용하지 않습니다.
내 폰 하나면 안 되는 것이 없는 세상이에요... 소상공인이나 영업직 종사하시는 분들은 전화 통화 후에 감사 콜백문자를 보내고, 혹시 못 받은 경우 부재중문자를 자동으로 보내고, 밤늦게 영업시간외 전화가 오면 자동으로 안내문자를 보내시는 분이 아주 많습니다. 우리도 한 번 설정해 볼까요? 휴대폰 모바일 설치하기 ( 안드로이드 전용 ) 모바일 고객이음 설치 바로가기(원스토어) 설치 바로가기가 잘 안되시면 모바일(휴대폰) 설치방법 안내 바로가기. 가입을 마치고 내 휴대폰 [고객이음]에서 로그인하고 자동문자설정을 합니다. 통화 완료 후 자동문자, 부재중 자동문자, 업무시간외 자동문자 설정하고 꼭 아래 [설정 적용]을 눌러 주세요. 그리고 앱을 종료 하세요. 종료 해야 동작을 하는 것인지... 테스트 해 보니 아주 잘 되네요... PC용 고객이음 프로그램 [전화문자] 메뉴에 통화기록이 남아 있어요 기록을 남기지 않는 방법도 있는데, 찾아보시길... ㅎㅎ [고객이음] 이용에 관한 몇
고객이음이란? 고객 또는 거래처와의 일정관리, 상담관리, 전화관리, 문자관리 등을 목적으로 제작되었습니다. 어느 누구나 이메일 인증으로 PC용 모바일용 모두 무료로 이용하실 수 있습니다. '고객이음' PC 모바일 무료 프로그램 설치 안내 바로가기 ▷ 초간단 고객정보 일괄등록 지원 ① 휴대폰 주소록 일괄등록 : 모바일 고객이음과 연동하여 휴대폰에 저장된 성명+전화를 일괄 등록합니다. ② 엑셀파일 일괄등록 : 입력항목 포맷으로 등록된 고객 엑셀파일을 일괄 등록합니다. ▷ 휴대폰+일반전화 연동 고객관리 지원 ①발신자정보 표시 및 저장 : 휴대폰 or 일반전화로 걸려오는 발신자정보를 표시 및 저장하여 관리할 수 있습니다. ②휴대폰 무료문자활용 단체발송 : PC에서 고객을 선택하고 휴대폰으로 발송 요청하면 일괄 발송처리합니다. ③휴대폰 자동문자발송(문자콜백) : 전화통화 감사문자, 부재중문자, 업무외문자로 구분하여 자동문잘 발송합니다. ④PC단제문자발송 & 자동전화걸기 : KT통화매니저(LG
고객이음이란? 고객 또는 거래처와의 일정관리, 상담관리, 전화관리, 문자관리 등을 목적으로 제작되었습니다. 어느 누구나 이메일 인증으로 PC용 모바일용 모두 무료로 이용하실 수 있습니다. '고객이음' PC 모바일 무료 프로그램 설치 안내 바로가기 ▷ 초간단 고객정보 일괄등록 지원 ① 휴대폰 주소록 일괄등록 : 모바일 고객이음과 연동하여 휴대폰에 저장된 성명+전화를 일괄 등록합니다. ② 엑셀파일 일괄등록 : 입력항목 포맷으로 등록된 고객 엑셀파일을 일괄 등록합니다. ▷ 휴대폰+일반전화 연동 고객관리 지원 ①발신자정보 표시 및 저장 : 휴대폰 or 일반전화로 걸려오는 발신자정보를 표시 및 저장하여 관리할 수 있습니다. ②휴대폰 무료문자활용 단체발송 : PC에서 고객을 선택하고 휴대폰으로 발송 요청하면 일괄 발송처리합니다. ③휴대폰 자동문자발송(문자콜백) : 전화통화 감사문자, 부재중문자, 업무외문자로 구분하여 자동문잘 발송합니다. ④PC단제문자발송 & 자동전화걸기 : KT통화매니저(LG
고객이음이란? 고객 또는 거래처와의 일정관리, 상담관리, 전화관리, 문자관리 등을 목적으로 제작되었습니다. 어느 누구나 이메일 인증으로 PC용 모바일용 모두 무료로 이용하실 수 있습니다. '고객이음' PC 모바일 무료 프로그램 설치 안내 바로가기 ▷ 초간단 고객정보 일괄등록 지원 ① 휴대폰 주소록 일괄등록 : 모바일 고객이음과 연동하여 휴대폰에 저장된 성명+전화를 일괄 등록합니다. ② 엑셀파일 일괄등록 : 입력항목 포맷으로 등록된 고객 엑셀파일을 일괄 등록합니다. ▷ 휴대폰+일반전화 연동 고객관리 지원 ①발신자정보 표시 및 저장 : 휴대폰 or 일반전화로 걸려오는 발신자정보를 표시 및 저장하여 관리할 수 있습니다. ②휴대폰 무료문자활용 단체발송 : PC에서 고객을 선택하고 휴대폰으로 발송 요청하면 일괄 발송처리합니다. ③휴대폰 자동문자발송(문자콜백) : 전화통화 감사문자, 부재중문자, 업무외문자로 구분하여 자동문잘 발송합니다. ④PC단제문자발송 & 자동전화걸기 : KT통화매니저(LG
#고혈압 병원에서 이것부터 먹어보자네요. 가족력이 있어 언젠가 먹겠다 했는데 씁쓸하기만 합니다.
#초딩친구 #고딩친구 #우이동 #창경궁 #허해 창경궁 담넘던 시절이 엇그제 같더만 다들 바빠서 망년회 못하고 신년회라 해야하나? ㅎㅎ 우이동 계곡인데 산자락에 방갈로처럼 만들어서 반나절 놀다가라고... 괜잖네요. 올만에 편하게 인생얘기 실 컷 했습니다. 우이동 계곡 예전과 달라요 가족들이 대가족이거나 부모님 모시고 가려면 이런곳이 딱일듯 싶습니다. 8명이 20만원정도 ㅋ
#타이어 #펑크 나 원 참. 차 굴리면서 그렇게 못이 박혔어도 이런곳에 박히기는 첨이네요. 한달전쯤 야간에 경고등 들어와서 긴급출동 불렀었죠. 기사님이 못은 못 찾고 바람만 넣어주고 갔는데 한 달쯤 지나 다시 경고등. 기사님 길거리에서 맘먹고 차 들어올려 찾아보니 저곳에 못이 ㅎㅎㅎㅎ 타이어 3000킬로 띤 새것이라 타이어뱅크로 갔죠. 직원도 난감한 표정. 어쩌겠어요. 타이어 옆구리라 땜방은 위험해서 눈물머금고 교체했어요. 에거~~~~
"내폰으로 문자발송" 당연한 것 아닌가?? ㅎㅎ PC에서 내폰을 이용하여 문자발송을 한다... 그럴 필요가 있을까요? 있으니 글을 쓰죠 ㅎ 요즘은 거의 대부분 휴대폰 통신요금제 사용할 때 문자무제한이 대세인듯합니다. 소상공인이나 영업직... 아직까지는 휴대폰 보다는 PC에서 고객관리 하시는 분이 꽤 많아요. 그 분들이 관리하는 고객한테 단체문자를 보내려 할 때, PC에서 발송하려면 비용이 발생하죠... 얼마 안되는 비용이게지만 그것 아끼는 방법이 바로 "내폰으로 문자발송"인것 같습니다. 고객이음 고객관리 프로그램(PC용, 모바일용)을 이용하여 보세요. 프로모션 기간이라 무료로 설치 및 이용이 가능하다고 하네요. https://cafe.naver.com/customem 고객이음 : 네이버 카페 고객이음 고객관리 프로그램 설치 및 이용방법 공유. 무료문자 발송방법 cafe.naver.com 그리고 휴대폰 전화통화 후, 부재중 자동문자발송(문자콜백)기능도 무료 사용이 가능하다고 합니다.