3계층 데이터베이스 응용프로그램을 작성하였습니다.



응용프로그램 서버와 클라이언트를 작성하고 나서



응용프로그램서버를 실행시키고



클라이언트를 실행시킬 경우 서버와 같은 PC에서는 실행이 되는데



다른 PC에 있는 클라이언트의 경우



Interface Not support라는 Error가 발생하고 완전히 종료도 되지 않고



계속 메모리에 남아 있습니다.



Interface Not support라는 Error가 발생가 발생하는 원인을 찾지 못하겠군요.



공부 중이라 간단하게 만들었는데.....



빠른 답변 부탁합니다.



그리고 추가로 MS-ACCESS를 이용하여 n계층 데이터베이스 응용프로그램을



작성할 수 있는지 궁금합니다.

김도진 께서 말씀하시기를...

> 안녕하세요 정말종은 사이트 같습니다.

> NT4.0을 쓰구요 LAN으로컴퓨터3대를 연결했습니다.

> A컴퓨터에서 B컴퓨터를 종료 하거나 리부팅 시킬려고 하는데 어떻게 하면

> 되나요?

> 또 한가지 질문 있습니다.

> 사용하고있는 사용자 ID와 비밀번호(로그오프 할때의) 를 델파이로 불러 오려

> 면 어떻게 하나요?

> 좋은 시간되십시오/

>

>

김도진님 안녕하세요?

접속해 들어간 PC(Windows95, 98, NT)를 재부팅 시키시려면,

서버, 즉 통신을 할 모듈이 어떤 형태로든 C/S로 나뉘어 져

서버측에 상시 대기형태로 실행 되어 있어야 할 거 같습니다.



사용자가 정의한 시스템 재시작을 요구하는 데이타(문자열)를

보내면 그때 아래 윈도우 종료함수를 실행하시면 됩니다.

윈도우 95, 98의 종료 API함수로는 아래 다섯가지가 있으며,



ExitWindowsEx(EWX_FORCE, 0); //강제종료

ExitWindowsEx(EWX_LOGOFF, 0); //LOG OFF

ExitWindowsEx(EWX_POWEROFF,0); //Shut Down & Turn Off

ExitWindowsEx(EWX_REBOOT, 0); //Shut Down & Reboot

ExitWindowsEx(EWX_SHUTDOWN, 0); //ShutsDown



NT에서는 위의 함수가 제대로 수행되지 않으므로

아래 내용을 사용하시면 NT에서 시스템을 종료

시키실수 있을 것입니다.

그럼 즐거운 프로그래밍 되시길~



var

PreviosPrivileges : ^TTokenPrivileges;

TokenPrivileges : TTokenPrivileges;

ProcessHandle : THandle;

tmp : Integer;

begin

if not OpenProcessToken( GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY,ProcessHandle ) then

Exit;



LookupPrivilegeValue( '', 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid );

TokenPrivileges.PrivilegeCount := 1;

TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

tmp := 0;

PreviosPrivileges := nil;

AdjustTokenPrivileges(ProcessHandle, False, TokenPrivileges, 0, PreviosPrivileges^, tmp);

if not GetLastError()=ERROR_SUCCESS then

Exit;

if not InitiateSystemShutdown( '', '', 0, True, True ) then

Exit;

TokenPrivileges.Privileges[0].Attributes := 0;

AdjustTokenPrivileges( ProcessHandle, False, TokenPrivileges, 0,PreviosPrivileges^, tmp );

end;

음냐.... 일딴 LAN환경이라면

하드웨어적인 환경은 충족이 된상태이고



마이다스를 이용하신다면

소프트웨어 적으로 환경을 설정해 주는

부분이 틀리지 않았나 생각이 됩니다.



아래의 내용을 참고하세요.

* DCOM을 이용할때 사전작업

서버가 실행될 호스트 :

BDE 4.0

windowssystemSTDVCL32.DLL

windowssystemDBCLIENT.DLL

BDE dirIDPROV32.DLL

위의 세가지가 레지스트리에 등록되어야 한다.

DCOM

클라이언트가 실행될 호스트 :

windowssystemDBCLIENT.DLL(레지스트리에 등록)

DCOM for Windows95

DCOM Configuration Utility

(DCOM은 Windows NT4.0이상,Windows98의 경우 기본으로 탑재되어 있다)

* OLEnterprise

서버가 실행될 호스트 :

BDE 4.0

windowssystemSTDVCL32.DLL

windowssystemDBCLIENT.DLL

BDE dirIDPROV32.DLL

위의 세가지가 레지스트리에 등록되어야 한다.

OLEnterprise

클라이언트가 실행될 호스트 :

windowssystemDBCLIENT.DLL(레지스트리에 등록)

OLEnterprise

* Socket

서버가 실행될 호스트 :

BDE 4.0

windowssystemSTDVCL32.DLL

windowssystemDBCLIENT.DLL

BDE dirIDPROV32.DLL

위의 세가지가 레지스트리에 등록되어야 한다.

Scktsrvr.exe 실행 (델파이디렉토리/bin 에 있다)

클라이언트가 실행될 호스트 :

windowssystemDBCLIENT.DLL(레지스트리에 등록)





배재민 wrote:

> 3계층 데이터베이스 응용프로그램을 작성하였습니다.

>

> 응용프로그램 서버와 클라이언트를 작성하고 나서

>

> 응용프로그램서버를 실행시키고

>

> 클라이언트를 실행시킬 경우 서버와 같은 PC에서는 실행이 되는데

>

> 다른 PC에 있는 클라이언트의 경우

>

> Interface Not support라는 Error가 발생하고 완전히 종료도 되지 않고

>

> 계속 메모리에 남아 있습니다.

>

> Interface Not support라는 Error가 발생가 발생하는 원인을 찾지 못하겠군요.

>

> 공부 중이라 간단하게 만들었는데.....

>

> 빠른 답변 부탁합니다.

>

> 그리고 추가로 MS-ACCESS를 이용하여 n계층 데이터베이스 응용프로그램을

>

> 작성할 수 있는지 궁금합니다.

Delphi4를 이용하는데



BDE dirIDPROV32.DLL이 존재하지 않습니다.



위의 파일은 어떻게 해야 얻을 수 있는지 ...



그리고 마이다스를 이용하는것이 아니라



그냥 (Delphi3을 설명하는 책을 참조)책을 보고 따라하다가



실행(Client가)이 되지 않더군요..



서버에서는 RemoteDataModule를 이용하여 만들었구요.



클라이언트에서는 RemoteServer, Provider등을 이용해서 만들었거든요..



기본 지식이 없다보니 소스를 확인해 보아도 잘 모르겠더군요.



분명히 서버와 같은 PC에서는 Client가 동작을 하는데 ....

BDE dirIDPROV32.DLL파일이 없어서 ......



.............

.............

아래는 서버의 RemoteDataModule의 소스입니다.

.............

.............

type

TKepcoServerData = class(TRemoteDataModule, IKepcoServerData)

Database1: TDatabase;

CardProvider: TProvider;

TblCEnt: TTable;

TblOEnt: TTable;

OutProvider: TProvider;

private

{ Private declarations }

public

{ Public declarations }

protected

function Get_CardProvider: IProvider; safecall;

function Get_OutProvider: IProvider; safecall;

procedure ApplyUpdates(var CardAlm, OutAlm: OleVariant); safecall;

end;



var

KepcoServerData: TKepcoServerData;



implementation



{$R *.DFM}



function TKepcoServerData.Get_CardProvider: IProvider;

begin

Result := CardProvider.Provider;

end;



function TKepcoServerData.Get_OutProvider: IProvider;

begin

Result := OutProvider.Provider;

end;



procedure TKepcoServerData.ApplyUpdates(var CardAlm, OutAlm: OleVariant);

var

ErrCount : integer;

begin

Database1.StartTransaction;



try

if not VarISNull(CardAlm) then

begin

CardAlm := CardProvider.ApplyUpdates(CardAlm,0,ErrCount);

if ErrCount > 0 then

SysUtils.Abort;

end;

if not VarISNull(outAlm) then

begin

OutAlm := CardProvider.ApplyUpdates(OutAlm,0,ErrCount);

if ErrCount > 0 then

SysUtils.Abort;

end;



DataBase1.Commit;

except

Database1.Rollback;

end;







end;



initialization

TComponentFactory.Create(ComServer, TKepcoServerData,

Class_KepcoServerData, ciMultiInstance, tmApartment);

end.







.............

.............

아래는 Client의 DataModule의 소스입니다.

.............

.............



type

TDataModule2 = class(TDataModule)

RemoteServer1: TRemoteServer;

CDSCard: TClientDataSet;

CDSOut: TClientDataSet;

DataSourceCard: TDataSource;

DataSourceOut: TDataSource;

CDSCardNo1: TStringField;

CDSCardRTU: TStringField;

CDSCardRDR: TStringField;

CDSCardSTATCODE: TStringField;

CDSCardSTATNAME: TStringField;

CDSCardCARDNO: TStringField;

CDSCardNAME: TStringField;

CDSCardDEPTNAME: TStringField;

CDSCardCOMPNAME: TStringField;

CDSCardOPID: TStringField;

CDSOutNo1: TStringField;

CDSOutRTU: TStringField;

CDSOutPNT: TStringField;

CDSOutSTATCODE: TStringField;

CDSOutSTATNAME: TStringField;

CDSOutSENSORNAME: TStringField;

CDSOutOPID: TStringField;

procedure DataModule2Create(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure ApplyUpdates;

end;



var

DataModule2: TDataModule2;



implementation



{$R *.DFM}



procedure TDataModule2.DataModule2Create(Sender: TObject);

begin

CDSCard.Active := true;

CDSOut.Active := true;

end;



procedure TDataModule2.ApplyUpdates;

var CardAlm,OutAlm : OleVariant;

begin

CDSCard.CheckBrowseMode;

CDSout.CheckBrowseMode;



if CDSCard.ChangeCount > 0 then

CardAlm := CDSCard.Delta

else

CardAlm := NULL;



if CDSOut.ChangeCount > 0 then

OutAlm := CDSOut.Delta

else

OutAlm := NULL;



RemoteServer1.AppServer.AllpyUpdates(CardAlm,OutAlm);



if not VarIsNull(CardAlm) then

CDSCard.Reconcile(CardAlm)

else if not VarIsNull(OutAlm) then

CDSOut.Reconcile(OutAlm)

else

begin

CDSCard.Reconcile(CardAlm);

CDSout.Reconcile(OutAlm);



CDSCard.refresh;

CDSOut.refresh;



end;



end;

분명히 BDE dirIDPROV32.DLL 은 있어야 합니다.

델파이 CD로 BDE부분만 다시 깔아 보세요...

하이텔 Vtool이나 천리안 PDSPF에 가보면

아마도 최신 버젼이 있을 듯 합니다만........



배재민 wrote:

> Delphi4를 이용하는데

>

> BDE dirIDPROV32.DLL이 존재하지 않습니다.

>

> 위의 파일은 어떻게 해야 얻을 수 있는지 ...

>

> 그리고 마이다스를 이용하는것이 아니라

>

> 그냥 (Delphi3을 설명하는 책을 참조)책을 보고 따라하다가

>

> 실행(Client가)이 되지 않더군요..

>

> 서버에서는 RemoteDataModule를 이용하여 만들었구요.

>

> 클라이언트에서는 RemoteServer, Provider등을 이용해서 만들었거든요..

>

> 기본 지식이 없다보니 소스를 확인해 보아도 잘 모르겠더군요.

>

> 분명히 서버와 같은 PC에서는 Client가 동작을 하는데 ....

> BDE dirIDPROV32.DLL파일이 없어서 ......

>

> .............

> .............

> 아래는 서버의 RemoteDataModule의 소스입니다.

> .............

> .............

> type

> TKepcoServerData = class(TRemoteDataModule, IKepcoServerData)

> Database1: TDatabase;

> CardProvider: TProvider;

> TblCEnt: TTable;

> TblOEnt: TTable;

> OutProvider: TProvider;

> private

> { Private declarations }

> public

> { Public declarations }

> protected

> function Get_CardProvider: IProvider; safecall;

> function Get_OutProvider: IProvider; safecall;

> procedure ApplyUpdates(var CardAlm, OutAlm: OleVariant); safecall;

> end;

>

> var

> KepcoServerData: TKepcoServerData;

>

> implementation

>

> {$R *.DFM}

>

> function TKepcoServerData.Get_CardProvider: IProvider;

> begin

> Result := CardProvider.Provider;

> end;

>

> function TKepcoServerData.Get_OutProvider: IProvider;

> begin

> Result := OutProvider.Provider;

> end;

>

> procedure TKepcoServerData.ApplyUpdates(var CardAlm, OutAlm: OleVariant);

> var

> ErrCount : integer;

> begin

> Database1.StartTransaction;

>

> try

> if not VarISNull(CardAlm) then

> begin

> CardAlm := CardProvider.ApplyUpdates(CardAlm,0,ErrCount);

> if ErrCount > 0 then

> SysUtils.Abort;

> end;

> if not VarISNull(outAlm) then

> begin

> OutAlm := CardProvider.ApplyUpdates(OutAlm,0,ErrCount);

> if ErrCount > 0 then

> SysUtils.Abort;

> end;

>

> DataBase1.Commit;

> except

> Database1.Rollback;

> end;

>

>

>

> end;

>

> initialization

> TComponentFactory.Create(ComServer, TKepcoServerData,

> Class_KepcoServerData, ciMultiInstance, tmApartment);

> end.

>

>

>

> .............

> .............

> 아래는 Client의 DataModule의 소스입니다.

> .............

> .............

>

> type

> TDataModule2 = class(TDataModule)

> RemoteServer1: TRemoteServer;

> CDSCard: TClientDataSet;

> CDSOut: TClientDataSet;

> DataSourceCard: TDataSource;

> DataSourceOut: TDataSource;

> CDSCardNo1: TStringField;

> CDSCardRTU: TStringField;

> CDSCardRDR: TStringField;

> CDSCardSTATCODE: TStringField;

> CDSCardSTATNAME: TStringField;

> CDSCardCARDNO: TStringField;

> CDSCardNAME: TStringField;

> CDSCardDEPTNAME: TStringField;

> CDSCardCOMPNAME: TStringField;

> CDSCardOPID: TStringField;

> CDSOutNo1: TStringField;

> CDSOutRTU: TStringField;

> CDSOutPNT: TStringField;

> CDSOutSTATCODE: TStringField;

> CDSOutSTATNAME: TStringField;

> CDSOutSENSORNAME: TStringField;

> CDSOutOPID: TStringField;

> procedure DataModule2Create(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> procedure ApplyUpdates;

> end;

>

> var

> DataModule2: TDataModule2;

>

> implementation

>

> {$R *.DFM}

>

> procedure TDataModule2.DataModule2Create(Sender: TObject);

> begin

> CDSCard.Active := true;

> CDSOut.Active := true;

> end;

>

> procedure TDataModule2.ApplyUpdates;

> var CardAlm,OutAlm : OleVariant;

> begin

> CDSCard.CheckBrowseMode;

> CDSout.CheckBrowseMode;

>

> if CDSCard.ChangeCount > 0 then

> CardAlm := CDSCard.Delta

> else

> CardAlm := NULL;

>

> if CDSOut.ChangeCount > 0 then

> OutAlm := CDSOut.Delta

> else

> OutAlm := NULL;

>

> RemoteServer1.AppServer.AllpyUpdates(CardAlm,OutAlm);

>

> if not VarIsNull(CardAlm) then

> CDSCard.Reconcile(CardAlm)

> else if not VarIsNull(OutAlm) then

> CDSOut.Reconcile(OutAlm)

> else

> begin

> CDSCard.Reconcile(CardAlm);

> CDSout.Reconcile(OutAlm);

>

> CDSCard.refresh;

> CDSOut.refresh;

>

> end;

>

> end;

>

>