مشکل در Upload فایل با وب سرویس

[Saeed_m_Farid]

سلام
من یه وب سرویس (اجباراً VB.net 2003) دارم که قراره یه وب متد واسه آپلود فایل داشته باشه، موقع استفاده از متد موردنظر یا خطای

The remote server returned an error: (401) Unauthorized.

می گیرم یا خطای زیر :

The remote server returned an error: (405) Method Not Allowed

================================================== =======

کارهایی که انجام دادم :

1. یه VirtualDir تو سرور ایجاد کردم که هم تو IIS و هم واسه دایرکتوری فیزیکی تمام مجوزها رو Allow کردم (تو شکلهای ضمیمه 1و 2)
2. با توجه به اینکه آپلود فایل از طریق Http صورت می گیره، من یه WebMethod ساده به صورت زیر نوشتم :

   
   
       <WebMethod()> Public Function Upload_File(ByVal SourcePath As String, _
   
                                                 ByVal ReqUri As String) As String
   
           Try
   
               Dim myWebClient As New WebClient
   
               If (ReqUri.Length > 0) Then
   
                   myWebClient.OpenWrite(ReqUri, "PUT")
   
                   Dim responseArray As Byte() = myWebClient.UploadFile(ReqUri, "PUT", SourcePath)
   
                   Return System.Text.Encoding.ASCII.GetString(responseArray  )
   
               Else
   
                   Return "Error: Empty Upload Path!"
   
               End If
   
           Catch ex As Exception
   
               Return "Error: Upload_File: " & ex.Message
   
           End Try
   
       End Function
   
   

3. تا اونجایی که من میدونم My.Computer.Network.UploadFile یه درخواست

   multipart/form-data POST request

   توسط کامپوننت های یه web application میفرسته ولی من فقط وب سرویس دارم و از برنامه تحت وب خبری نیست! بنابراین نمیتونم از کامپوننت هایی مثل HttpHandler استفاده کنم. ولی با اینحال

   UploadFile(ReqUri, "POST", SourcePath)

   رو هم امتحان کردم ولی بازم به مشکل خوردم ...
4. من دلفی کار هستم و زیاد وب کار نکردم، ولی به علت اینکه امکان استفاده از "کلاینت-سرور" ای غیر از SOAP و وب سرویس ها برای اینکار رو ندارم، نمیتونم از سوکت و Indy و ... استفاده کنم، ضمنا حجم زیادی کد واسه این وب سرویس نوشته شده که نمیشه به این راحتی همه رو به یه زبان دیگه کانورت کرد؛ به این دلایل فکر میکنم فقط باید از همین کلاسهای دات نت (اونم فقط 1.1 - بخاطر محدودیت نصب نسخه های بالاتر!) استفاده کنم.

البته این پست آقای علیرضا مداح روهم خوندم ولی زیاد با وب سرویس من سازگار نبود.
امیدوارم تو base کار اشتباه نداشته باشم و وقت اساتید محترم رو هم زیاد نگرفته باشم.
با تشکر.

[Saeed_m_Farid]

دوستان و اساتید گرامی:
لطفاً ایندفعه رو لطف کنید و یه وقتی واسه سوال بنده بذارید، واقعیتش من که هر موقع کاری یا سوالی از دوستان این سایت رو بتونم حل کنم، درنگ نمی کنم؛ ولی تو این مباحث که بی تجربه ام، خیلی کم تونستم از بچه ها جواب بگیرم، نمونش اینجاها :

• نحوه پاس دادن پارامتر به اکتیوایکس
• نحوه دانلود ActiveX‌ سفارشي در وب سايت؟
• نحوه احراز هويت كلاينت ها (Authentication)
• مشکل در ارتباط با Oracle 9.2

اکثراً هم لاینحل باقی موندن! مطمئنا من اولین کسی نبودم که تو کار با وب و دات نت مورد داشته و از MSDN یا فروم های دیگه نتونسته جواب بگیره ...
از دوستانی هم که از اینورا رد میشن و ایده ای به ذهنشون میرسه، میخوام لطف کنن و مطرح کنند.

با تشکر مجدد

[Saeed_m_Farid]

مشکل من حل شد، واسه دوستانی که به مشکل مشابه برخورد می کنن باید بگم با توجه به سادگی این تابع

WebClient.UploadFile

خبری از authenticate توش نیست و باید از طریق instance ای که از کلاس WebClient ساخته شده و Credentials مقداردهی بشه، یعنی بصورت زیر :

    <WebMethod()> Public Function Upload_File_Test(ByVal SourcePath As String, _

                                                   ByVal UriPath As String) As String

        Try

            Dim myWebClient As New WebClient

            If System.IO.File.Exists(UriPath) Then  ' It isn't work, is any equal method in Network

                Return UriPath & " > File Exist before ..."

            Else

                Dim myCred As NetworkCredential = New NetworkCredential("myUserName", "myPassword")

                myWebClient.Credentials = myCred

                Dim responseArray As Byte() = myWebClient.UploadFile(UriPath, "PUT", SourcePath)

                Return System.Text.Encoding.ASCII.GetString(responseArray  )

            End If

        Catch ex As Exception

            Return "Error: Upload_File: " & ex.Message

        End Try

    End Function

فقط یه مشکلی که هست (همون خطی که جلوش کامنت قرمز گذاشتم) اینه که اگه قبلاً فایل تو مسیر موردنظر موجود باشه، overwrite میشه، اگه دوستان راه حلی برای FileExist تو یه Uri دارن لطف کنن.

ولی خداییش نذارین اینم بره زباله دان تاریخ! حداقل یه نظری بدین در مورد اینکه سوال پرسیدن بنده استاندارد نیست یا ...

با تشکر

[Saeed_m_Farid]

سلام
یه چند تا کد در مورد بارگذاری و بارگیری! فایل با وب سرویس ها و معایبشون :

1. ارسال و دریافت فایل با وب سرویس از طریق بارگذاری محتویات فایل در بافرهای ورودی و خروجی :

       [WebMethod]
   
       public byte[] GetFile(string filename) {
   
           BinaryReader binReader = new
   
           BinaryReader(File.Open(Server.MapPath(filename), FileMode.Open,
   
           FileAccess.Read));
   
           binReader.BaseStream.Position = 0;
   
           byte[] binFile =
   
           binReader.ReadBytes(Convert.ToInt32(binReader.Base  Stream.Length));
   
           binReader.Close();
   
           return binFile;
   
       }
   
   
   
       [WebMethod]
   
       public void PutFile(byte[] buffer, string filename) {
   
           BinaryWriter binWriter = new
   
           BinaryWriter(File.Open(Server.MapPath(filename), FileMode.CreateNew,
   
           FileAccess.ReadWrite));
   
           binWriter.Write(buffer);
   
           binWriter.Close();
   
       }
   
   

   پارامترهای ورودی و خروجی از نوع []byte هستند که اولاً نوع استانداردی در پلت فرمهای مختلف نیست و فقط تو کلاینتهای مبتنی بر دات نت قابل اعمال هستند (اگه جای دیگه هم بشه استفاده کرد؛ باید یه فایل راهنما همراه وب سرویس موردنظر در مورد نحوه استفاده اش رو هم تحویل بدیم!) و مهمتر اینکه حجم زیادی اطلاعات برای ارسال و دریافت بافرها رو شبکه حمل میشه، که آسیب شدیدی به پهنای باند میزنه و درصورت بروز اشکال در ارتباط شبکه همه چیز از دست میره!
2. ارسال و دریافت فایل با وب سرویس از طریق دایرکتوری مجازی و IIS :

   
   
       <WebMethod()> Public Function Upload_File_To_Web(ByVal UriPath As String, _
   
                                                        ByVal SourcePath As String) As String
   
           Try
   
               Dim myWebClient As New WebClient
   
               If (SourcePath.Length > 0) And (UriPath.Length > 0) Then
   
                   Dim sUser_Name As String = ConfigurationSettings.AppSettings("UploadUserName"  )
   
                   Dim sPass As String = ConfigurationSettings.AppSettings("UploadPassword"  )
   
                   Dim myCred As NetworkCredential = New NetworkCredential(sUser_Name, sPass)
   
                   myWebClient.Credentials = myCred
   
                   Dim responseArray As Byte() = myWebClient.UploadFile(UriPath, "PUT", SourcePath)
   
                   Return System.Text.Encoding.ASCII.GetString(responseArray  )
   
               Else
   
                   Return "Error: Upload URI  > " + SourcePath
   
               End If
   
           Catch ex As Exception
   
               Return "Error: Upload_File_To_Web: " & ex.Message
   
           End Try
   
       End Function
   
   
   
       <WebMethod()> Public Function Download_File_From_Web(ByVal UriPath As String, _
   
                                                            ByVal SourcePath As String) As String
   
           Try
   
               Dim myWebClient As New WebClient
   
               If (SourcePath.Length > 0) And (UriPath.Length > 0) Then
   
                   Dim sUser_Name As String = ConfigurationSettings.AppSettings("UploadUserName"  )
   
                   Dim sPass As String = ConfigurationSettings.AppSettings("UploadPassword"  )
   
                   Dim myCred As NetworkCredential = New NetworkCredential(sUser_Name, sPass)
   
                   myWebClient.Credentials = myCred
   
   
   
                   myWebClient.DownloadFile(UriPath, SourcePath)
   
                   Return "Download successful form > " & UriPath
   
               Else
   
                   Return "Error: Download URI  > " + UriPath
   
               End If
   
           Catch ex As Exception
   
               Return "Error: Download_File_From_Web: " & ex.Message
   
           End Try
   
       End Function
   
   

   اشکال این روش نیاز به دایرکتوری مجازی سمت کلاینت یا سرور و نصب IIS و مشکلات امنیتی و محدودیتهای سمت کلاینت (برای Upload) هست. که مطمئناً کار خنده داری هست که واسه آپلود IIS نصب کنیم.
3. راهی که شما پیشنهاد میکنید ...

   شما که تو سایتتون عکس کاربر رو آپلود می کنید، اگه مثلاً کامپوننت FileUpload رو نداشته باشید چکار میکنید؟ یعنی چطور مسیر فایل مورد نظر کاربر رو تشخیص می دین و فقط با استفاده از مسیر فایل که از کاربر تو Open Dialog برای گرفتن مسیر فایل (مثلاً بارگذاری عکس کاربران) میتونید فایل رو آپلود کنید

خیلی کد مفید و بی نقصی هست و هیچ ایرادی نمیشه ازش گرفت. واقعاً ممنون که به تاپیک بنده توجه کردید.

چند تا هم اندرز از فلسفه کهن به ذهنم رسید گفتم با شما هم در میان بذارم :

• اگر میخواهید پر باشید، خالی شوید.
• اگر میخواهید چیزی را بدست آورید، ابتدا آنرا ببخشید.
• فرزانگان کهن، سعی در آموزش مردم نداشتند. وقتی کسی فکر می کند که جوابها را می داند، راهنمایی کردنش سخت است.
• تلاش برای اندوحتن دانش بیماری است. ابتدا باید بدانید که بیمارید، سپس برای سلامتی کوشش کنید.
• فرزانه طبیب خود است. او خود را از تمام دانسته هایش رها نموده؛ پس درحقیقت یکپارچه و کامل است.

با این تفاسیر عیبی نداره که من بگم، دوستان من خیلی چیزها رو نمیدونم! با به اشتراک گذاشتن دانسته هاتون یکم خودتون رو سبک کنید.
یه پست قدیمی هم داشتم :

نيست ياري كننده اي كه مرا ياري كند؟
هَل مِن ناصِرِ يَنصُرَني؟
Can anyone help me?
Quelqu'un peut m'aider?
Chiunque può aiutarmi?
Bana yardim edan var mi?
Может ли кто мне помочь?

آثار هنري :

I : دوست آن باشد كه گيرد دست دوست، در پريشان حالي و درماندگي ...
II: غير أنه يود أن يكون صديقه وتصرف واليأس حين
It would like to be his friend, while distracted and helplessness :III
Она хотела бы, чтобы его друга, хотя отвлекаться и беспомощности :IV

متشکرم.

[rezaei manesh]

سلام
من در SourcePath نام مسیری رو مانند (E:\VS2005\HomePrj\BongahPrgV2\images\1.jpeg) و در UriPath نام سایت و مسیری که باید فایل درش درج شود رو مانند
(http://www.amlak66.com/usrpic/img/1.jpeg)
وارد کردم در یوز و پسورد هم یوزر و پسورد ftp رو وارد کردم اما خطای 501 به من داد؟!
مشکل از کجاست آیا آدرس سایت رو باید با آدرس ftp بدم؟

[Saeed_m_Farid]

سلام
من در SourcePath نام مسیری رو مانند (E:\VS2005\HomePrj\BongahPrgV2\images\1.jpeg) و در UriPath نام سایت و مسیری که باید فایل درش درج شود رو مانند
(http://www.amlak66.com/usrpic/img/1.jpeg)
وارد کردم در یوز و پسورد هم یوزر و پسورد ftp رو وارد کردم اما خطای 501 به من داد؟!
مشکل از کجاست آیا آدرس سایت رو باید با آدرس ftp بدم؟

اگه وب سرويس موردنظر بالا مياد و سولوشن شما كامپايل ميشه :

• اين مشكل اگه Upload_File_To_Web رو از IE پارامتر ميديد؛ احتمالاً از تنظيمات IE شما ميتونه باشه : HTTP Error 501 - Not implemented
• اگه از كلاينت اين پيغام رو دريافت مي كنيد و تو تنظيمات شبكه، از ISA سرورتون يا شبكه هاي مستقل با مسكهاي مختلف استفاده مي كنيد، بايد اونها رو چك كنيد.
• به احتمال قوي مشكا از ASP.net يا كدنويسي نيست، تنظيمات IIS و IE يا FF‌ رو بايد چك كنيد.

يه نگاهي اينجا بندازيد.
ضمناً اگه مسير Uri شما ftp‌ هست، بايد ftp مسيردهي كنيد نه Http، يعني هرچي تو Address Bar تايپ ميشه همون رو بعنوان پارامتر ورودي ميدين.

[rezaei manesh]

سلام
من یک برنامه ویندوزی دارم که باید یک فایل رو توی یه مسیر که تو هاست هست ( فولدر اصلیش( usrpic ) پریمیشن رایت رو داره یعنی من از تو برنامه وبیم می تونم فایل تو بزارم اما با این ویندوزی نمی تونم)
کپی کنم از کد شما هم استفاده کردم یعنی این:

   <WebMethod()> Public Function Upload_File_To_Web(ByVal UriPath As String, _

                                                     ByVal SourcePath As String) As String

        Try

            Dim myWebClient As New WebClient

            If (SourcePath.Length > 0) And (UriPath.Length > 0) Then

                Dim sUser_Name As String = ConfigurationSettings.AppSettings("UploadUserName"  )

                Dim sPass As String = ConfigurationSettings.AppSettings("UploadPassword"  )

                Dim myCred As NetworkCredential = New NetworkCredential(sUser_Name, sPass)

                myWebClient.Credentials = myCred

                Dim responseArray As Byte() = myWebClient.UploadFile(UriPath, "PUT", SourcePath)

                Return System.Text.Encoding.ASCII.GetString(responseArray  )

            Else

                Return "Error: Upload URI  > " + SourcePath

            End If

        Catch ex As Exception

            Return "Error: Upload_File_To_Web: " & ex.Message

        End Try

    End Function

اما همون خطای 501 رو میده
در ضمن این خطا رو در زمان اجرا و هنگام رسیدن خط زیر میده
(myWebClient.UploadFile(UriPath, "PUT", SourcePath

[Saeed_m_Farid]

سلام
من یک برنامه ویندوزی دارم که باید یک فایل رو توی یه مسیر که تو هاست هست ( فولدر اصلیش( usrpic ) پریمیشن رایت رو داره یعنی من از تو برنامه وبیم می تونم فایل تو بزارم اما با این ویندوزی نمی تونم)
کپی کنم از کد شما هم استفاده کردم

آقای رضایی، یعنی شما این وب متد رو تو برنامه ویندوزی دارید میذارید؟ یا من درست متوجه نشدم؟ اگه اینطوریه :
این یه متد از وب متدهای وب سرویس هست و همونطوریکه میدونید :

• باید یه سولوشن وب سرویس ایجاد کنید، بعد این توابع رو تو وب سرویس موردنظر گذاشته و اسم سرویس رو تعیین کنید، بعد پروژه رو کامپایل کرده و Publish کنید.
• فایلهای Publish شده رو تو سرور درنظر گرفته شده، Deploy کنید (تو IIS یه Virtual Directory به نام پروژه درست میکنید با پرمیژن Browse)
• WSDL وب سرویس خودتون رو بعنوان وب رفرنس به پروژتون اضافه می کنید و از تابع موردنظر استفاده می کنید.

برای آپلود مستقیم فایل از Win app. میتونید System.Net.FtpWebRequest و System.Net.FtpWebResponse استفاده کنید و نیازی به وب سرویس نیست، همچنین می تونید از Stream ها استفاده کنید : مثلاً اینطوری

امیدوارم منظورتون رو درست متوجه شده باشم.

[Saeed_m_Farid]

ضمناً اگه فقط میخواهید آپلود فایل انجام بدین : این پست آقای مداح رو هم نگاه کنید

[مهدی کرامتی]

فقط یه مشکلی که هست (همون خطی که جلوش کامنت قرمز گذاشتم) اینه که اگه قبلاً فایل تو مسیر موردنظر موجود باشه، overwrite میشه، اگه دوستان راه حلی برای FileExist تو یه Uri دارن لطف کنن.

من معمولا آدرس فایل های آپلود شده رو در دیتابیس نگهداری می کنم. فایل رو پس از آپلود تغییر نام میدم (به یک نام تصادفی) و نام اصلی فایل و نام جدید فایل رو در دو ستون در جدول مربوطه نگهداری می کنم. این طوری هیچ وقت مشکل نام فایل تکراری پس از آپلود ندارم.