搞不定的網路磁碟機 |
尚未結案
|
elvis114
一般會員 發表:37 回覆:53 積分:18 註冊:2003-06-17 發送簡訊給我 |
請問各位大大
我用D6 寫網路磁碟連接,但是會出現如下問題:
網路斷線的寫法:
procedure TDisk_MappingForm.UnConnection(Sender: TObject); var I : Char; J : integer; ThePath : String; MaxNetPathLen:DWord; drivestr:string; begin CheckListBox1.Clear; MaxNetPathLen:=MAX_PATH; SetLength(ThePath,MAX_PATH); For I := 'E' to 'Z' Do begin DriveStr:=I ':'; If WNetGetConnection(pchar(DriveStr),PChar(ThePath),MaxNetPathLen)=NO_ERROR Then begin WNetCancelConnection2(PChar(DriveStr), 0 , false); end; end;1.但是檔案總管看的到,有些顯示磁碟機代號為打X狀態(R,S,U,V,W),其他磁碟機代號並沒有看見,不知識為何? 網路連線的寫法: 簡單列舉如下 For I := 'E' to 'Z' Do Begin . . NRW.dwScope := RESOURCE_GLOBALNET; NRW.dwType := RESOURCETYPE_DISK; NRW.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE; NRW.dwUsage := RESOURCEUSAGE_CONNECTABLE; NRW.lpRemoteName := PChar(Read_Path); NRW.lpLocalName := PChar(Read_Driver); NRW.lpProvider := nil; ID := Read_ID; PWD := Read_PWD; iret := WNetAddConnection2( NRW, PChar(PWD), PChar(ID) , 0); . . END;2.連接(R,S,U,V,W)過程會出現iret = ERROR_ALREADY_ASSIGNED,不知我要如何改此問題,我有確定本機的(R,S,U,V,W)磁碟機代號並無開啟使用 3.如果有些網路磁碟機連不上,不知可否縮短或設定TimerOut的時間,每次都要等有一段時間,才會跳出無法連上網路磁碟機 麻煩各位大大了,謝謝< > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > ======================= 發表人 - elvis114 於 2004/12/31 18:13:58
------
願 南無藥師琉璃光如來 保佑您 |
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
|
elvis114
一般會員 發表:37 回覆:53 積分:18 註冊:2003-06-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |