음냐.... 일딴 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;

>

>