在delphi中如何访问共享目录???
我已经在Linux建立了和windows一样的共享目录,需要用户名和密码才能访问,我是想让程序启动时就建立连接,我的程序是用来获取该共享目录中的文件和写入文件,但我试过了,要在windows的开始菜单的运行方式然后登陆该目录后,程序才可以正常运行,否则报找不到该文件目录的错误,请各位帮帮忙,看看可以用什么方法可以解决,谢谢!!
我的源码是:
procedure Tmonitor_course_form.Timer1Timer(Sender: TObject);
var
sF: TStringList;
i :integer;
s1: string;
READ_Dir : string;
begin
try
MSGwuhanIni:=TIniFile.Create(GetCurrentDir+'\wuhan.ini');
except
on E: EConvertError do
showmessage(e.Message);
end;
READ_Dir:=MSGwuhanIni.ReadString('ProcessID', 'READ_Dir', '');
Memo1.Clear;
sF := TStringList.Create; try
sF.LoadFromFile(READ_Dir+'USCAPS.TXT');
except
on E : EStringListError do
showmessage(e.Message);
end;
for I:=0 to sF.Count-1 do
begin
s1 := sF.Strings[i];
Memo1.Lines.Add(s1);
end;
sF.Free;
end;其中READ_Dir的值是:"\\192.16.10.22\postgre\"
请各位帮帮忙,谢谢!!
我已经在Linux建立了和windows一样的共享目录,需要用户名和密码才能访问,我是想让程序启动时就建立连接,我的程序是用来获取该共享目录中的文件和写入文件,但我试过了,要在windows的开始菜单的运行方式然后登陆该目录后,程序才可以正常运行,否则报找不到该文件目录的错误,请各位帮帮忙,看看可以用什么方法可以解决,谢谢!!
我的源码是:
procedure Tmonitor_course_form.Timer1Timer(Sender: TObject);
var
sF: TStringList;
i :integer;
s1: string;
READ_Dir : string;
begin
try
MSGwuhanIni:=TIniFile.Create(GetCurrentDir+'\wuhan.ini');
except
on E: EConvertError do
showmessage(e.Message);
end;
READ_Dir:=MSGwuhanIni.ReadString('ProcessID', 'READ_Dir', '');
Memo1.Clear;
sF := TStringList.Create; try
sF.LoadFromFile(READ_Dir+'USCAPS.TXT');
except
on E : EStringListError do
showmessage(e.Message);
end;
for I:=0 to sF.Count-1 do
begin
s1 := sF.Strings[i];
Memo1.Lines.Add(s1);
end;
sF.Free;
end;其中READ_Dir的值是:"\\192.16.10.22\postgre\"
请各位帮帮忙,谢谢!!
密码是:123
谢谢各位!