일마레의 개발이야기

안녕하세요, 일마레입니다. 업무를 보다 무료함을 느껴 로또 게임을 만들어 보았다.한 장에 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..