Q&A

  • 서버쪽의 날짜시간을 가지고와서 내PC의 시간에 셋팅하고싶거든요...???
[질문] 서버쪽의 날짜시간을 가지고와서 내PC의 시간에 셋팅하고싶거든요...???



말그대로 어떻게 해야 되는지요..????



아시고계시는 님 알려주시면 대단히 감사하겠습니다...





2  COMMENTS
  • Profile
    Orpheus 2001.10.24 21:15
    procedure TForm.ChangeLocalTime;

    var

    SystemTime: TSystemTime;

    sQryStr,sDateStr : String;

    begin

    with Query1 do begin

    Close;

    Sql.Clear;

    sQryStr := 'SELECT TO_CHAR(SYSDATE,''YYYYMMDDHH24MISS'') NOWDATE FROM DUAL';

    Sql.Add(sQryStr);

    Open;

    sDateStr := FieldByName('NOWDATE').AsString;

    Close;

    end;



    with SystemTime do begin

    wYear := StrToInt(Copy(sDateStr,1,4));

    wMonth := StrToInt(Copy(sDateStr,5,2));

    wDay := StrToInt(Copy(sDateStr,7,2));



    wHour := StrToInt(Copy(sDateStr,9,2));

    wMinute := StrToInt(Copy(sDateStr,11,2));

    wSecond := StrToInt(Copy(sDateStr,13,2));

    end;

    SetLocalTime(SystemTime);

    end;

  • Profile
    델파이 탐 크르즈 2001.10.24 21:30
    감사합니다...



    그럼 수고하십시오...