請教各位先進!! 我已連線一個網路磁碟機..然後給一個磁碟代號為 R: 我用Delphi 7 寫了一段為 CreateDir('R:\aaa'),結果是順利的建立了一個 目錄. 但是我把同一個指令放到 Service Application(服務),卻無法順利建立一個 目錄吔~ 我該如何解決這個問題呢? 謝謝各位指教!!

會不會是權限的問題。 要不然將部分程式碼擺上。

Hi allenlue 你好: 先確認是否有R磁碟, Service有沒有載入, 並啟動? 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

1.權限沒有問題.因為我是用administrator登入的 2.Service 當然有啟動 3.當然也有R磁碟 程式碼很簡單.. 就只有 CreateDir('R:\aaa'); 這樣而已.. 我覺得應該是要有 Initialize 動作才能使用...

我測試過，完全正常可以建立 CreateDir 無誤 !

那你如果把他放進 Thread 呢!?

allenlue：程式放到 Service Application(服務),於網路磁碟機建立新 目錄，幾個問題請教： 一、Service Application一開機就啟動，但區域連線是否啟動。 二、是否人工執行Service Application程式一樣也無法建立目錄。 我認為你應該是第一項。最簡單方式試圖讀取R:成功後再執行建立目錄； 或是等待一小段時間再執行建立目錄。 請參考！ Andy Chang

------
Andy Chang

同意 andychang1690 大大所言。

Hi allenlue 你好: 請問你寫在哪一個Event是否為OnExecute或其他? 我測試的結果也是正常, 但我是建立在C磁碟, 不曉得怎麼又會出現Thread, 是否有特殊需求? 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

我自己也是有試過.. 建立在自己的電腦上是都沒有問題的! 我的 Service 最主要是跑排程用的! 定時會去備份某些目錄. 然後拷貝到已連線中的網路磁碟機. 但又因在拷貝時會浪費CPU的資源,因為在跑備份時CPU都衝到100%, 所以我就把複製的動作放到Thread裡去了! 但是問題來了. 沒把他放進Thread裡時,所有動作都是正常的! 但放進Thread裡,卻無法建立目錄,也無法複製檔案到網路磁碟裡去! 就連ADO元件也一樣無法執行~ 但ADO方面我已解決,也找出問題了. 唯獨複製檔案會無法順利的複製到網路磁碟!

我想應該不是 Service 的問題。 應該為您的 Thread 沒有寫好的關係導致。

參考看看 http://delphi.ktop.com.tw/topic.php?topic_id=40937 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

可能是各位都不瞭解我的意思吧! 我的 Thread 確定沒問題啦~ 我認為應該要 Initialize . 但我不知道應該要用哪一個!!

allenlue：先聲明我使用BCB(因為我沒有Delphi)，但於Thread多執行緒環境。 不論使用CreateDir();或mkdir();//include dir.h 都沒問題，於檔案總管內我除了宣告欲連線的網路磁碟機遠端目錄為共用外。 也必須勾選允許網路使用者變更我的檔案。沒有你所謂的問題！可能你需要 Post部分程式方便檢查！ Andy Chang

------
Andy Chang

以下是完整的程式碼!! 請各位幫忙..謝謝各位~ unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs; type TService1 = class(TService) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; var Service1: TService1; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin Service1.Controller(CtrlCode); end; function TService1.GetServiceController: TServiceController; begin Result := ServiceController; end; procedure TService1.Timer1Timer(Sender: TObject); begin CreateDir('R:\aaa'); end; end. 如果是把R:改成自己電腦上的磁碟是沒問題的. 但是改到R:就無法建立目錄.也沒任何錯誤訊息! 我的R:磁碟連接的方式如下: \\PcName\c$ 然後輸入PcName電腦的帳號及密碼, 帳號我是用 administrator!

allenlue：幾個方向參考一下；
一、我記得C$是Windows的預設共用，好像不可以直接以檔案總管給予一個
虛擬網路磁碟機號。我參考領航天使 站長的
http://delphi.ktop.com.tw/topic.php?topic_id=135
設定網路磁碟機；當然我翻成BCB測試加上hagar 版主提供的
連線: WNetGetConnection();斷線: WNetCancelConnection2();
恢復連線: WNetAddConnection2();等指令
procedure TForm1.Button1Click(Sender: TObject);
var    NRW: TNetResource;
begin    
  with NRW do        
    begin            
      dwType := RESOURCETYPE_ANY;            
      lpLocalName := 'R:'; //驅動器號
      lpRemoteName := '\\MyServer\MyDirectory';
      lpProvider := '';        
    end;    
  WNetAddConnection2(NRW, 'MyPassword', 'MyUserName', CONNECT_UPDATE_PROFILE);
end; 
以上是天使大人語法於BCB測試無誤！以下為BCB語法：
void __fastcall TThreadSortForm::Button1Click(TObject *Sender)
{
  TNetResource NRW;
  NRW.dwType=RESOURCETYPE_ANY;
  NRW.lpLocalName="R:";
  NRW.lpRemoteName="\\\\RexChang\\c$";
  NRW.lpProvider="";
  WNetAddConnection2(&NRW, (LPSTR) NULL, (LPSTR) NULL,CONNECT_UPDATE_PROFILE);
}
接著我再下
void __fastcall TSortThread::Execute()
{
  bool tf=CreateDir("R:\\Test");
  if (tf)
    // Create Dir is OK
  else  
    // Create Dir is Non-OK
  // .....
}
或直接下：CreateDir("\\\\RexChang\\c$\\Test");
都沒問題！我也沒有增加任何宣告。並且以上作業於Thread上完成。
BCB6 Win-XP。
是否可以考慮將程式上傳至會員求助中心！
P.S.BCB可以跑Delphi程式。
請參考！

Andy Chang

------
Andy Chang

ForceDirectory

我覺得應該是 先 NetAddConnection2 成功之後 再 CreateDir 才對。

改這樣試試

var
   RemoteString : array[0..255] of char;
   lpRemote : PChar;
   StringLen : cardinal;
begin
  lpRemote := @RemoteString;
  StringLen := 255;
  if WNetGetConnection(Pchar(ExtractFileDrive('R:')), lpRemote, StringLen) = 0 then
     CreateDir( RemoteString   '\aaa');
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

嗚...還是不行吔!!   我歸類一下我目前的問題好了!! >>

改為這樣應可以吧 CreateDir('R:\\aaa');

allenlue：試試Windows API的CreateDirectory()吧！
Form1放一個Button，Label，Edit：
例程式：
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool MakeDirectoryEx(const AnsiString &P);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (MakeDirectoryEx(Edit1->Text))
    Label1->Caption="True";
  else
    Label1->Caption="False";
}
//---------------------------------------------------------------------------
bool MakeDirectoryEx(const AnsiString &P) // 入參為打算創建的目錄名,根據操作結果返回"true"或"false"
{
        if(P.IsEmpty())
                return false; 
        int len=P.Length(); 
        char *Path=P.c_str(); 
        if(Path[len-1]=='\\') { 
                len--; 
                Path[len]='\0';
        } // 刪除末尾的"\" 
        AnsiString Dir=Path; 
        // 分開父目錄和本身目錄名稱 
        AnsiString Parent; 
        for(int i=len-1;i>0;i--) { 
                if(Dir.IsPathDelimiter(i))         { 
                        Parent=Dir.SubString(0,i);
                        break; 
                } 
        }
        if(Parent.IsEmpty())
                return false; // 目錄名稱錯誤
        bool Ret=true; 
        if(Parent.Length()>3) // 如果長度小於3，表示為磁片根目錄 
                Ret=DirectoryExists(Parent.c_str());// 檢查父目錄是否存在  DirectoryExists
        if(!Ret)
                Ret=MakeDirectoryEx(Parent); // 父目錄不存在,遞迴調用創建父目錄 
        if(Ret) { // 父目錄存在,直接創建目錄 
                SECURITY_ATTRIBUTES sa; 
                sa.nLength=sizeof(SECURITY_ATTRIBUTES);
                sa.lpSecurityDescriptor=NULL; 
                sa.bInheritHandle=0; 
                Ret=CreateDirectory(Path,&sa);
        }
        return Ret; 
}    

Andy Chang

------
Andy Chang

Delphi 有提供一個 method 叫做 ForceDirectories (在 SysUtils) 建立目錄很方便

想問一下,你建立網路磁碟機,是用哪個身分建立的? 那麼執行Service時,又是用哪個身分去執行呢?我指的是每一個服務我們都 可以指定他的登入身分,而用Delphi產生出來的,通常都是用"本機系統帳戶" 而你的情況,據我猜想很可能是這樣,在"本機系統帳戶"的環境下,並不知道你 已經建立了一個網路磁碟機.所以當然無法建立.類似的情況我也遇過. 然而到目前為止,尚未找到一個好方法! 建議你,建立網路磁碟機的動作,直接在你的Service 程式中去做.然後在作你要 的建目錄的動作吧.. Best Regards, Rex Chiu

------
Best Regards,
Rex Chiu

非常赞同rexchiu 的做法，在有domain的情况下尤其应该在服务器端处理。 对于workgroup方式建立的对等网络里，不要使用\\computername\c$这样的做法，不太符合权限预定。 除非您的作业必须在client端运作，然后进行备份，这样的话就必须完整地进行：登陆/映射共享/建目录这样的过程，因为您使用本地的Administrator仍然不一定就可以使用server的c$系统共享。 权作参考 Justin Shen

------
====================
我为一切作努力！
Justin Shen

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;    type
  TService1 = class(TService)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;    var
  Service1: TService1;    implementation    {$R *.DFM}    procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;    function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;    procedure TService1.Timer1Timer(Sender: TObject);
var
  NRW: TNetResource;
  res :DWORD;
begin
    with NRW do
    begin
      dwType := RESOURCETYPE_ANY;
      lpLocalName := 'R:';
      lpRemoteName := '\\HostName\foldername';//這個要改成你適合的喔!!
      lpProvider := '';
    end;
   // password 跟Account 也都要改成你的設定喔...
  res:=WNetAddConnection2(NRW, 'password', 'Account',CONNECT_UPDATE_PROFILE);
  if (res=0) or(res=85) then
  begin
     CreateDir('R:\aaa');
  end;
  res:=WNetCancelConnection2(pchar('R:'),CONNECT_UPDATE_PROFILE,TRUE);
end;    end.

把程式改成以上,並且編譯好,安裝好. 然後依照以下的步驟作設定吧... step 1 先檢查你的Administrator 有沒有"以服務方式登入"的特殊權限.沒有就加上去吧. step2 然後將服務以上圖的方式設定.這樣就可以了...

------
Best Regards,
Rex Chiu