황선희 wrote:

>

>

> 마이다스에서 시스템(서버)의 current 값을 읽어와서 클라이언트의 도스 날짜에 세팅을 해 줄 수는 없는지요?

>

> 그러니까 제어판 국가별 설정에서 날짜와 시간을 세팅해 주는 것이지요.



MIDAS 를 통한다면 보통 만들듯이 어플리케이션 서버 프로그램에 시간을

넘겨주는 인터페이스를 하나 만들어서 클라이언트가 그걸 받아서

설정해주면 되는데 아래 소스를 보시고 고쳐서 사용해 보세요



// 파라미터: 설정할 날짜와 시간의 TDateTime 형 값

// 리턴값: Boolean값으로 True 이면 설정 성공 False 이면 실패

function SetPCSystemTime(tDati: TDateTime): Boolean;

var

tSetDati: TDateTime;

vDatiBias: Variant;

tTZI: TTimeZoneInformation;

tST: TSystemTime;

begin

GetTimeZoneInformation(tTZI);

vDatiBias := tTZI.Bias / 1440;

tSetDati := tDati + vDatiBias;

With tST do

begin

wYear := StrToInt(FormatDateTime('yyyy', tSetDati));

wMonth := StrToInt(FormatDateTime('mm', tSetDati));

wDay := StrToInt(FormatDateTime('dd', tSetDati));

wHour := StrToInt(FormatDateTime('hh', tSetDati));

wMinute := StrToInt(FormatDateTime('nn', tSetDati));

wSecond := StrToInt(FormatDateTime('ss', tSetDati));

wMilliseconds := 0;

end;

SetPCSystemTime := SetSystemTime(tST);

end;





그리고 MIDAS 를 거치지 않고 직접 서버의 시간/날짜를 가져오는 소스는

제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의

"공개 프로그램 소스"에 보시면

"Windows NT, UNIX 서버의 시간 읽어오기" 가 있는데 한번 보세요