일마레의 개발이야기

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

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

필자는 델파이 2009 을 사용하고 있습니다. 얼마전 거래처 요청으로 API 연동을 하던 중 "SSL routines:SSL3_READ_BYTESalert protocol version"에러 메시지를 확인했다. 열심히 구글링을 하고 해결할 수 있는 기쁨에 한줄을 작성했는데 빨간색 밑줄을 보고 좌절했다. SSLHandler.SSLOptions.SSLVersions := [sslvTLSv1_2, sslvTLSv1_1]; 이건 또 뭔가 싶어 찾아봤는데 내가 쓰고 있는 IndySSL버전에 너희들이 없었어..... 안되겠다 싶어 Indy 최신 버전으로 설치하기로 마음먹고 실행! 1. 최신 Indy 10 다운로드Indy 공식 GitHub 저장소에서 최신 버전을 다운로드합니다.저장소 링크: Indy GitHub Re..