델파이상에서 다른 컴퓨터의 공유디렉토리를 네트워크 드라이브로 잡는 방법이 있나요?

델파이는 4.0을 사용하고 있어요...

이창석 wrote:

> 반갑습니다.

> 아침에 봄비가 조금 내리더니, 지금은 그쳤네요.

> 몇일째 풀리지 않는 문제가 있어 질문을 드립니다.

> 저는 table를 동적으로 사용해 dbchart와 연결시키려 합니다. 그래서, 여기저기 책을 뒤져봤지만, 1)table의 데이터가 정해져 있는 경우 2)고정되어 있는 테이블에서 동적으로 데이터를 변경하여 dbchart와 연결할 수 있는 경우에 대해서만 설명들이 나와 있었습니다. 그러나, 저는 임의의 자료를 입력받아 그 자료를 dbchart로 나타내고 싶은데, 어떻게 하면 좋을지 조언을 부탁드립니다.

> 참고로 저는 테이블이름,x값,y값,label값을 설정해 주었는데, 실행하고나니 아무런 그래프도 뜨지 않네요. 아시는 분의 답장을 기다리겠습니다.

>



안녕하세요! 답변이 늦은점 대단히 죄송합니다.



이 질문을 읽고 그동안 나름대로 여러가지로 생각을 해 보았는데...정말 죄송하지만 테스트 했는데 안된다는 소스를 보내주시면 분석해서 답변드리겠습니다.



감사합니다.

최현호 께서 말씀하시기를...

> 델파이상에서 다른 컴퓨터의 공유디렉토리를 네트워크 드라이브로 잡는 방법이 있나요?

> 델파이는 4.0을 사용하고 있어요...



최현호님 안녕하세요?

김영대님의 프로그램으로 네트워크 드라이브 연결/해제 하는 팁을

올려드립니다.

보시고 도움 되시길..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



// 네트워크 드라이브 연결

procedure TForm1.Button1Click(Sender: TObject);

var

lpszNetPath,

lpszPassword,

lpszLocalName: array[0..50] of Char;

rt: DWORD;

begin

StrPCopy(lpszPassword, '1234'); // 네트워크 드라이브(공유폴더)의 비밀번호

StrPCopy(lpszNetPath, 'Unify5insa'); // 네트워크 드라이브+공유폴더

StrPCopy(lpszLocalName, 'F:'); // 로컬 드라이브명



rt := WNetAddConnection(lpszNetPath, lpszPassword, lpszLocalName);



if rt = 7 then

begin

ShowMessage('네트워크 드라이브를 연결할 수 없습니다. 비밀번호를 확인하세요');

end

else if rt <> WN_SUCCESS then

begin

MessageDlg('네트워크 드라이브를 연결할 수 없습니다'+

', Return Code: ' + (IntToStr(rt)) ,

mtInformation, [mbOk], 0);

end

else

begin

ShowMessage('네트워크 드라이브가 설정되었습니다');

end;

end;



// 네트워크 드라이브 연결 해제

procedure TForm1.Button2Click(Sender: TObject);

var

lpszLocalName: array[0..50] of Char;

rt: DWORD;

begin

StrPCopy(lpszLocalName, 'F:'); // 로컬 드라이브명

rt := WNetCancelConnection(lpszLocalName, True);



if rt <> WN_SUCCESS then

begin

MessageDlg('네트워크 드라이브의 연결을 해제할 수 없습니다'+

', Return Code: ' + (IntToStr(rt)) ,

mtInformation, [mbOk], 0);

end

else

begin

ShowMessage('네트워크 드라이브의 연결이 해제되었습니다');

end;

end;



end.

안치봉 wrote:

> 이창석 wrote:

> > 반갑습니다.

> > 아침에 봄비가 조금 내리더니, 지금은 그쳤네요.

> > 몇일째 풀리지 않는 문제가 있어 질문을 드립니다.

> > 저는 table를 동적으로 사용해 dbchart와 연결시키려 합니다. 그래서, 여기저기 책을 뒤져봤지만, 1)table의 데이터가 정해져 있는 경우 2)고정되어 있는 테이블에서 동적으로 데이터를 변경하여 dbchart와 연결할 수 있는 경우에 대해서만 설명들이 나와 있었습니다. 그러나, 저는 임의의 자료를 입력받아 그 자료를 dbchart로 나타내고 싶은데, 어떻게 하면 좋을지 조언을 부탁드립니다.

> > 참고로 저는 테이블이름,x값,y값,label값을 설정해 주었는데, 실행하고나니 아무런 그래프도 뜨지 않네요. 아시는 분의 답장을 기다리겠습니다.

> >

>

> 안녕하세요! 답변이 늦은점 대단히 죄송합니다.

>

> 이 질문을 읽고 그동안 나름대로 여러가지로 생각을 해 보았는데...정말 죄송하지만 테스트 했는데 안된다는 소스를 보내주시면 분석해서 답변드리겠습니다.

>

> 감사합니다.

>

> 안녕하세요. 이창석입니다.

저는 지난번에 글을 올려놓고 계속 해결책을 찾아 보았지만 해결책이 나오지

않더군요. 그래서, 다시 한번 제가 작성한 소스의 부분을 올려 보겠습니다.

하나의 폼에 다음과 같이 컴포넌트를 넣고요.

오픈다이얼로그박스 데이터소스 테이블 버튼2개(열기,그래프보기)

콤보박스 dbgrid dbchart



다음과 같이 소스를 입력했습니다.



procedure TForm1.Button1Click(Sender: TObject);

var

i,y:integer;

begin

if opendialog1.Execute then

begin

table1.close;

table1.TableName:=opendialog1.FileName;

table1.open;

end;

y:=DBGrid1.Columns.Count; //dbgrid열수

for i:=0 to y-1 do

begin

combobox1.Items.Add(dbgrid1.Columns.Items[i].FieldName);

end;



procedure TForm1.button2Click(Sender: TObject);

begin

series1.DataSources:=table1;

series1.YValue.valuesource:='total';

series1.xvalue.valuesource:=combobox1.Items[combobox1.itemindex];

series1.xlabelssource:='total';

end;



라고 했는데 자꾸 에러가 뜨네요. 한 수 부탁드립니다.

> procedure TForm1.Button1Click(Sender: TObject);

> var

> i,y:integer;

> begin

> if opendialog1.Execute then

> begin

> table1.close;

> table1.TableName:=opendialog1.FileName;

> table1.open;

> end;

> y:=DBGrid1.Columns.Count; //dbgrid열수

> for i:=0 to y-1 do

> begin

> combobox1.Items.Add(dbgrid1.Columns.Items[i].FieldName);

> end;

>

> procedure TForm1.button2Click(Sender: TObject);

> begin

> series1.DataSources:=table1;

> series1.YValue.valuesource:='total';

> series1.xvalue.valuesource:=combobox1.Items[combobox1.itemindex];

> series1.xlabelssource:='total';

> end;

>

> 라고 했는데 자꾸 에러가 뜨네요. 한 수 부탁드립니다.

>



어떤 에러가 뜨는 지 알려 주세요....