일마레의 개발이야기

안녕하세요, 일마레입니다. 어제 RNP의 "...이에게"를 소개해 드렸는데요. 오늘은 소개해드릴 노래는 좋아하던 남자에게 끝내 전하지못한 여자의 마지막 메시지  "혜원이에게"  입니다. 두 노래가 서로 대비되어 더욱이 슬퍼지네요.같이 들어보시죠!

안녕하세요, 일마레입니다. 개발을 하고 운영을 하다 보면 에러가 발생할 경우가 생기는데 빠른 수정을 위해 생성 해놓은 로그를 보면서 처리하고 있습니다. 어떤 작업 혹은 상황이었는지 로그를 만들어 놓으면 빠른 확인 및 처리가 가능하기에 사용하고 있습니다.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..

영화 "시월애"는 2000년에 개봉한 한국 로맨스 영화로,이정재와 전지현이 주연을 맡았습니다.이 영화는 시간과 공간을 초월한 사랑 이야기를 중심으로 전개되며,감성적인 스토리와 아름다운 영상미로 많은 사랑을 받았습니다.필자가 사용하고 있는 "일마레" 라는 단어 또한 영화를 보고 난 이후 사용하게 되었습니다."일마레"는 이탈리아어로 "바다"를 의미하며, 영화에서 중요한 장소로 등장하는 바닷가의 집 이름입니다.주인공들이 시간과 공간을 초월하여 서로 소통하는 장소로 사용됩니다.  마찬가지로 제 블로그를 인터넷 공간의 집이라 생각하고 모든이들과의 소통 창구로 활용해 보려고 합니다.좋은글, 좋은음악, 좋은장소 공유해 보도록 하겠습니다. 잘 부탁드립니다.

안녕하세요, 일마레입니다. 업무를 보다 무료함을 느껴 로또 게임을 만들어 보았다.한 장에 5천원 3번이 당첨된 적은 있으나...더 이상의 금액은 무리였다. 과연 당첨이 될까...?procedure TForm1.Button1Click(Sender: TObject);// mm_lotto : 폼에 메모 하나 올려놓았음.  const    BallMax = 45;  SelectionMax = 6;  SelectCount = 5;  procedure QuickSort(var A: array of Integer; L, R: Integer);  var    I, J, P, T: Integer;  begin    if L     begin      I := L;      J := R;      P := A[(L + R..

안녕하세요, 일마레입니다. 거래처에서 일정시간 동작을 하지 않을 경우 화면을갱신해 달라는 요청이 있었다. 그냥 조회버튼 한 번 딸각 해주면 안될까요? T^T 그래도 거래처 요청이니 .. 요청 화면에 살짝 끄적여 봄..var   liInfo: TLastInputInfo;begin    Timer1.Enabled := False; // turn off the timer    try        liInfo.cbSize := SizeOf(TLastInputInfo); //Last input by user        GetLastInputInfo(liInfo); //last input by user        if (GetTickCount - liInfo.dwTime) div 1000 > 5 * 60 the..

안녕하세요, 일마레입니다. 요즘 업체들과 데이터 연동하기위해 API를 많이 사용하시는데요. 아래 소스 확인하시고업무에 참고해 보시기를 바랍니다!var  idhttp :TIdHTTP;  RequestHeaders: TStringList;  RequestBody: TStringStream;  Response: TBytesStream;  IdHTTP : tidhttp;  rbstr: RawByteString;  URL, Res  :String;    SSLHandler: TIdSSLIOHandlerSocketOpenSSL;begin    IdHTTP := TIdHTTP.Create(nil);    try        SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(ni..