일마레의 개발이야기

안녕하세요 일마레입니다. 오늘은 프로그램의 파일 버전을가져오는 방법을 알아보려고 합니다. 프로그램 배포 및 업데이트를 하기 위해서는파일 버전을 관리하는게 편하실 건데요. 버전 관리를 위해선 먼저실행되고 있는 파일의 버전을 알아야겠죠! 그럼 아래 코드로 알려드리겠습니다.  TVersionInfo = record      CompanyName        :  String;      FileDescription    :  String;      FileVersion        :  String;      InternalName       :  String;      LegalCopyright     :  String;      LegalTradeMarks    :  String;      OriginalF..

안녕하세요, 일마레입니다. 오늘은 json 데이터를 처리하는 방법에 대해 알아 보려고 하는데요. 요즘 업체들과 데이터 연동을 할 때 json 데이터를 활용하는데요. 델파이 2009버전 에서는 기본적으로 사용할 수 있는 라이브러리가 없어 uJson 이라는 라이브러리를 사용해 보도록 하겠습니다. 델파이에서 uJSON 라이브러리를 사용하려면 먼저 설치해야 하며,uJSON.pas 파일을 프로젝트에 추가하거나 패키지 매니저를 통해 설치할 수 있습니다. 파일은 첨부해 두도록 하겠습니다.  설치가 끝나셨다면 활용하는 방법을 알아봐야하는데요. 아래와 같은 데이터가 있다는 가정하에 파싱하는 예제를 알아보겠습니다. 우선 폼에 데이터 확인을 위해 MEMO 하나 올려주시고, 아래 소스를 활용해 보세요. var       jO..

안녕하세요, 일마레입니다. TMSNPopup 관련하여 안내해 드리려고 하는데요.MSN 알림창을 쉽게 구현할 수 있게 해주는 무료 컴포넌트입니다. ↓ ↓ ↓ 다운로드 사이트 ↓ ↓ ↓ https://torry.net/components/forms/appearence/tmsnpopup Forms > TMSNPopUp. Torry's Delphi Pages" data-og-description="In category Components > Forms > Appearence Description The TMsnPopUp component is created to mimic the behavior of the popup windows that can be seen in MSN/Windows Messenger fr..

안녕하세요, 일마레입니다. 오늘은 PC 프로세스 목록에 있는 프로그램을 종료하는 방법을 알려드리려고 해요. 프로그램의 프로세스 아이디를 얻어와서 종료하는 방법인데요. 아래 소스를 알려 드리도록 하겠습니다.function KillTask(ExeFileName: string): Integer;const  PROCESS_TERMINATE = $0001;var  ContinueLoop: BOOL;  FSnapshotHandle: THandle;  FProcessEntry32: TProcessEntry32;beginResult := 0;  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  FProcessEntry32.dwSize := Siz..

안녕하세요, 일마레입니다. 오늘은 전화번호에 바 넣는 함수를 알려드리려고 하는데요. 프로그램을 개발하고 운영하다 보면 고객사에서전화번호를 입력하는 경우가 많이 생기죠! "숫자만 입력하고 바는 자동으로 넣어주면 안되는지...?"라는 문의를 많이도 받아봤어요. 그래서 입력하면서 자동으로 바를 입력해주는함수를 만들어 보았습니다.function PrintPhone(const asSource:String):String;var  lsTmpStr:String;  liLength:Integer;begin  try    lsTmpStr := asSource;    lsTmpStr := StringReplace(lsTmpStr, '-', '', [rfReplaceAll]);    liLength := length(lsTm..

안녕하세요, 일마레입니다. 얼마전에 프로그램 LOG를 생성하는 방법을 안내해 드렸는요. 계속 사용하다 보면 LOG도 무시 못할 정도로 쌓이게되죠.그래서 오늘은 삭제 하는 방법을 알려드리려고 해요. 아래 안내해 드리는 내용 확인하시고, 좋은 하루 보내세요!function LogFileDel : Boolean;var    DirInfo: TSearchRec;    r : Integer;    ts : TStringList;begin    try        r := FindFirst(ExtractFilePath(Application.ExeName)+'\log\*.*', FaAnyfile, DirInfo);        while r = 0 do  begin           if ((DirInfo.Attr ..

안녕하세요, 일마레입니다. 일을 하다 보면 거래처에서 "작업이 안되는거 같아요","느려진거 같은데 확인 좀 해주세요" 등등의 연락을 받는다. 기능 혹은 물리적인 문제가 아니라면 대부분 네트워크 환경의 문제인데... 현장의 네트워크 상태를 일일히 확인하기에는 어려움이 있기에PING 테스트통해 네트워크 연결 유무를 파악하고 로컬모드로 작업을 하고있다. 자 그럼 Ping 테스트 하는 방법을 알아봅시다.function GetIntChk(addr: string): Boolean;   var   SZSQL : string;    IdicmpClient1 : TIdIcmpClient;  begin     IdicmpClient1:= TIdIcmpClient.Create(Nil);     try{ addr은 각 통신사..

안녕하세요, 일마레입니다. 개발을 하고 운영을 하다 보면 에러가 발생할 경우가 생기는데 빠른 수정을 위해 생성 해놓은 로그를 보면서 처리하고 있습니다. 어떤 작업 혹은 상황이었는지 로그를 만들어 놓으면 빠른 확인 및 처리가 가능하기에 사용하고 있습니다.public  gsLogFile  : string;procedure Log(ALog: string);var  hFile: TextFile;begin  if VarIsNull(gsLogFile) then    gsLogFile := ExtractFilePath(Application.ExeName)+'log\'+FormatDateTime('yyyymmdd', Now)+'.log';  try    AssignFile(hFile, gsLogFile);    try..

안녕하세요, 일마레입니다. 이전에 FTP에서 이미지 파일을 관리한다는 글을 올렸는데실제 사용하는 예제를 알려드리겠습니다.procedure TForm.IMAGE_DOWNLOAD(aFileNanme : string);var URL: string; TempFolder: String; DownLoadURL : TDownLoadURL;begin    TempFolder := Format('%s', [ExtractFilePath(Application.ExeName)+'\itemimage']);    if not DirectoryExists(TempFolder) then         ForceDirectories(TempFolder);    DeleteFile(PChar(ExtractFilePath(Applicat..

안녕하세요, 일마레입니다. 프로그램 내에서 데이터 관리를 위해 TVirtualTable를 사용하고 있는데,이미지를 넣어 달라는 요청이 있었다. 이미지는 파일 이름만 관리하고 FTP를 이용하여 데이터를 저장하고 있던 터라작업이 좀 필요했고 아래와 같이 처리하였다.var  sFile : string;  Stream: TMemoryStream;begin  Stream := TMemoryStream.Create;    try    with VirtualTable do    begin            sFile := ExtractFilePath(Application.ExeName) +                      ChangeFileExt(ExtractFileName(FieldByName('ImgNam..