| ■53301 / inTopicNo.1) |
ファイルの送信ができない＞＜ |
□投稿者/ やんまー (23回)-(2010/09/10(Fri) 00:02:16)
|
分類:[VB.NET/VB2005 以降]
恐れいります。
アップロードのＷＥＢアプリを使って簡単にファイルのやりとりが出来ないかと思い、VB.NETでも簡単にできそうなことを知り試しているのですが、なぜか失敗します。
---------------------------------
upload.php （拾ったソースですが 汗）
---------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>sample</title>
</head>
<body>
<p><?php
if (is_uploaded_file($_FILES["upfile"]["tmp_name"])) {
if (move_uploaded_file($_FILES["upfile"]["tmp_name"], "files/" . $_FILES["upfile"]["name"])) {
chmod("files/" . $_FILES["upfile"]["name"], 0644);
echo $_FILES["upfile"]["name"] . "をアップロードしました。";
} else {
echo "ファイルをアップロードできません。";
}
} else {
echo "ファイルが選択されていません。";
}
?></p>
</body>
</html>
---------------------------
で、VBの方は
--------------------
Sub Button1Click(sender As Object, e As EventArgs)
'ユーザーインターフェイスを表示してファイルをアップロードする
My.Computer.Network.UploadFile( _
"test.txt", "http://localhost/upload/upload.php", "", "",
True, 60000, FileIO.UICancelOption.DoNothing)
End Sub
--------------------
としました。
ボタンを押すと、びゅーっとプログレスバーが上がってうまくいった！！！・・・・と思ったのですが
なにもアップロードされません。
カレントのtext.txtが見つからないかと思い「text.tx」とわざと間違えると、エラーが発生しますので見つかっていると思います。
phpのほうもapacheを止めたりするとエラーになるのでたどれていると思います。
さらにphpがうまく動いていることを確認するために適当にindex.htmlを作って試すのですが、あっさりアップロードできました。
---------------------------
<form action="upload.php" method="post" enctype="multipart/form-data">
<input type="file" name="upfile" size="30">
---------------------------
仕方ないので他のやり方で
-----------------------
Sub Button2Click(sender As Object, e As EventArgs)
Dim filePath As String = "test.txt"
Dim url As String = "http://localhost/upload/upload.php"
Dim wc As New System.Net.WebClient
Dim resData As Byte() = wc.UploadFile(url, filePath)
Dim resText As String = System.Text.Encoding.UTF8.GetString(resData)
debug.Print(">" & resText)
End Sub
-----------------------
とやってみたものの、なんとログには
「ファイルが選択されていません」
が出ました・・・・
いったいどういう事なのでしょう・・・
なにかお気づきの点がありましたら、どうぞよろしくお願いします。
|
|