ネットワーク上のファイルにアクセスする際、ＩＤとパスワードを入力させるには？
解決いつも、教えていただいています。ありがとうございます。
今回も、どうぞよろしくお願いします。
ネットワーク上の共有フォルダに保存したファイルにアクセスすることを考えいます。
次のようにやってみましたが、そのままではアクセス許可の問題でアクセスできません。
Memo1.Lines.LoadFromFile('\\192.168.1.111\commonfolder\test.txt');
そこで、ネットワークコンピュータを開き、ＩＰを指定します。
するとダイアログが表示され、そこで接続先マシンに登録したＩＤとパスワードで接続できます。・・・（Ａ）
一度接続した後であれば、上記のコードでアクセスができるようです。
上記Ａで表示されるＯＳのダイアログが自然に出てくれることを期待していたのですが、それを実現する方法があるのでしょうか？
または、このような場合、みなさんはどのように（接続先マシンの）ＩＤとパスワードを入力して、接続なさっていますか？
どうぞ、教えてください。
環境として、クライアント／ネットワーク上の共有フォルダとも、Ｘｐを使っています。
なお、コンピュータはドメインに参加せず、上記のように直接ＩＰアドレスを指定したいと考えています。
よろしくお願いします。
以前にも出てますが
https://www.petitmonte.com/bbs/answers?question_id=2922
Borlandのページは変更になっています
http://support.borland.com/entry.jspa?externalID=4335
リモートシャットダウンを参考にしてください
kkkさん、ありがとうございます。
既出の内容だったのですね。ご紹介くださりありがとうございます。
上記２ページを見てみました。
ボーランドのページでは、特に「リモートログオン認証」のくだりが、図も含めて簡潔でとてもわかりやすいですね。
２番目にご紹介くださった既出スレッドも、具体的なコードが示されているので助かります。
ログオフはどうするのかな？と疑問を抱き始めていたところでした。その情報も含まれていますね。
２つの情報をもとに、これから、トライしてみます。
結果を別途報告いたします。
次の関数を使って、リモートログオン認証ができました。（リモートログオフは、まだテストしていませんが）
kkkさん、ありがとうございます。
function LoginExecute(Host, UserName, Passwd: string): DWord;
var
NetRes: TNetResource;
str: String;
begin
FillChar(NetRes, SizeOf(NetRes), 0); //何をやっているのだろう？
NetRes.dwType := RESOURCETYPE_DISK;
str := '\\' + Host + '\IPC$'; //IPC$とは何だろう？
NetRes.lpRemoteName := PChar(str); //接続先ネットワークリソース名をセット
//最終パラメータは、ネットワークリソースへの接続を記憶するフラグ→Nullの場合記憶しない
Result := WNetAddConnection2(NetRes, PChar(Passwd), PChar(UserName), CONNECT_UPDATE_PROFILE);
end;
無事動作できたものの、いくつかわからないことが残ってしまいました。
よろしければ、どなたか教えてください。m(__)m
疑問１．次の行は何をやっていることになるのでしょうか？
FillChar(NetRes, SizeOf(NetRes), 0); //何をやっているのだろう？
ボーランドのページ：C++でのコードでも同じ処理がされています。
コード的には、NetResをすべて０で埋めていることは理解できますが、その意味がわかりません。
このコードにより、どのような意味が出てくるのでしょうか？
疑問２．IPC$とは何なのでしょう？
str := '\\' + Host + '\IPC$'; //IPC$とは何だろう？
ボーランドのホームページの説明から推測すると、マイクロソフトのネットワーク関連のものなのかな？
疑問３．ネットワークリソースへの接続を記憶しない方法は？
記憶するとログオン時に復元されますが、記憶させたくないときはどのようにすればよいでしょう？
Win32APIリファレンスを参照し、第４引数がNullだと記憶しないということで、次のコードにしてみました。
Result := WNetAddConnection2(NetRes, PChar(Passwd), PChar(UserName), Null);
その結果、次のエラーが出てしまいました。
バリアントの型変換が正しくありません
記憶させない場合、WNetAddConnection2の第４引数をどのように設定するのでしょうか？
以上、細かい内容で申し訳ありませんが、どうぞご指導お願いいたします。
>疑問１．FillChar(NetRes, SizeOf(NetRes), 0); //何をやっているのだろう？
NetResの中をあらかじめ０クリアしておくことによって全ての値を記述しなくても良いようにするためです。(必要なものだけを設定する)
>疑問２．IPC$とは何なのでしょう？
こちらを参考にしてください
http://www.atmarkit.co.jp/fwin2k/win2ktips/117ipcpassword/117ipcpassword.html
>疑問３．ネットワークリソースへの接続を記憶しない方法は？
NULLではなく０を指定します。
kkkさん、ご指導ありがとうございます。
疑問１について、
NetResは０クリアにより初期化できるんですね。分かりました。
疑問２について、
詳しい資料のご紹介、ありがとうございます。
まだちょっと混乱はありますが、具体的にコーディングを進める中で、少しずつ理解できてきたように思います。
疑問３について
０を指定して、エラーが出なくなりました。ありがとうございます。
Win32API呼び出しで引数をNullにする場合、Delphiでは０にするのでしょうね。
おかげさまで、かなり理解できるようになったと思います。
ただ、IPC$だとなぜかログオフができないような感じです。
（原因をうまくきりわけられないでいるのですが・・）
そこで、IPC$でなく、特定フォルダを指定してリモートログオン認証し、その指定したフォルダでログオフすると、うまく切断できるとか、そんなこともわかりました。
接続したままアプリケーションを終了すると、次に起動した際にもう一度同じユーザでリモートログオン認証をしてから一度ログオフしないと他のユーザでログオンできないようです。
そこで、アプリケーション終了時に、ログオンしたユーザとフォルダでログオフするようにしました。
これで、ある程度期待通りの動きをしてくれています。
それでも、一度リモートにログオンしてしまうと、それが保持されてしまうことがあり、クリアするためにクライアント側もログオフしてテストするなど、結構手数がかかります。
ローカルユーザは取得できるのですが、リモートにログオンしたユーザ名が今何なのか取得できないので、そんなことをしながら試行錯誤しています。
ネットワークを利用すると、テストなども含め、とたんに複雑になってしまうのですね・・。
そんなふうにはまっていたときに、kkkさんにまた貴重な情報をいただけました。
ほんとうにありがとうございました。
少しだけ・・・
>Win32API呼び出しで引数をNullにする場合、Delphiでは０にするのでしょうね。
DelphiでのNullはバリアントで使用します。
ＣでのポインタのNULLはDelphiでは nil を使用します。
今回のWNetAddConnection2の第４引数は単にDWORDなので０を指定します。
kkkさん、ご説明ありがとうございます。
型により違いがあること（私が誤解していたことも）がわかりました。
まだまだ理解は足りないと思いますが、使いながら徐々にわかってくると考えようと思います。
これからもよろしくお願いします。
| ツイート |  |