تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شرح هذه الاكـواد
#1
الـسلام عليــكم ... كيفكم ....
ممكن شــرح لهذه الاكــواد ...!!
PHP كود :
<?php
if (!empty($_FILES["file"])){
move_uploaded_file($_FILES["file"]["tmp_name"],
      
"images/" $_FILES["file"]["name"]);
}
?>



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#2
مرحباً اخي ,

يبدو ان هذا جزء من كود php خاص برفع الصور

يعطيك العافية
الرد }}}}
تم الشكر بواسطة: a_almisery
#3
اذا الحقل المرسل -- الملف ليس فارغ اي ضفطت على الارسال دون ارسال ملف --
كود :
if (!empty($_FILES["file"])

انقل الملف من الملفات المؤقتة للسرفر الى مجلد الرفع المحدد ويجب ان يكون المجلد لديه تصريح الكتابة

كود :
])){
move_uploaded_file($_FILES["file"]["tmp_name"],
      "images/" . $_FILES["file"]["name"]);
الرد }}}}
تم الشكر بواسطة: a_almisery
#4
كــيف يمكــنني استخدامه مع VB.NET في ارسال ملف الى هذه الصفحهـ اي حفظ الملف المرفوع بجانب هذه الصفحه في المجلد نفسه المرفوع عليه هذه الصفحه .....

* - هل بامكاني ان اغير في هذه الكود ليستطيع رفع ملفات اخرى غير الصور



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#5
اســتخدمت
PHP كود :
Uploadfile(path file link page this code 

لكــن لم تـــعمل ....!!



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#6
نفس المشــكله .... لا يتم الرفع ....!! Sad



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#7
إقتباس :<?php
move_uploaded_file($_FILES["file"]["tmp_name"], $_FILES["file"]["name"]);
?>
كتبت هذه الاكواد وحفظتها بامتداد php
ورفعتها الى السيرفر باسم Up.php


إقتباس :Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using op As New OpenFileDialog
If op.ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.Network.UploadFile(op.FileName, "http://xxxxxxxx.xxx/vbnetupload.php")
End If
End Using
End Sub

قمت بكتابه هذه الاكواد في زر البوتون
وقم بتعديل بسيط في هذه الاكواد وهو هذا الجزاء
http://xxxxxxxx.xxx/vbnetupload.php
قمت باستبداله برابط الصفحه التي رفعتها ع السيرفر (( الاكواد PHP التي في الاعلى))
وقمت بعمل تشغل وحينما اضغط يتاخر قليلاً ثم يعود ...
ولكن حينما اذهب الى الملف الي فيه صفحه Up.php لا اجد اي ملف قمت برفعه ...!!!



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#8
لا فـــايده Sad ....
قم بتغير الـ 775 الملف والمجلد Sad drwxrwxr-x



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#9
.....

منقول مع تعديل بسيط ليناسب طلبك
VB.NET

طريقة استخدام للدالتين WebClient وHttpWebRequest
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using op As New OpenFileDialog
        If op.ShowDialog = DialogResult.OK Then

            Dim filename As String = op.FileName
            Dim url As String = "http://xxxxxxxxxx.xxx/uploadfile.php"

            Dim result As String = uploadfile(url, filename)
            MsgBox(result)

        End If
    End Using
End Sub


' باستخدام WebClient
كود :
Private Function uploadfile(ByVal url As String, ByVal filename As String) As String
    Try

        Dim result As String
        Using wc = New Net.WebClient()
            Dim responseArray As Byte() = wc.UploadFile(url, filename)
            result = System.Text.Encoding.UTF8.GetString(responseArray)
        End Using

        Return result

    Catch ex As Exception
        Return ex.Message
    End Try
End Function


' باستخدام HttpWebRequest
كود :
Private Function uploadfile(ByVal url As String, ByVal filename As String) As String
    Try

        Dim boundary As String = IO.Path.GetTempFileName
        Dim header As New System.Text.StringBuilder()
        header.AppendLine("--" & boundary)
        header.Append("Content-Disposition: form-data; name=""file"";")
        header.AppendFormat("filename=""{0}""", IO.Path.GetFileName(filename))
        header.AppendLine()
        header.AppendLine("Content-Type: application/octet-stream")
        header.AppendLine()

        Dim headerbytes() As Byte = System.Text.Encoding.UTF8.GetBytes(header.ToString)
        Dim endboundarybytes() As Byte = System.Text.Encoding.UTF8.GetBytes(vbNewLine & "--" & boundary & "--" & vbNewLine)

        Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
        request.ContentType = "multipart/form-data; boundary=" & boundary
        request.ContentLength = headerbytes.Length + New IO.FileInfo(filename).Length + endboundarybytes.Length
        request.Method = "POST"

        Using stream As IO.Stream = request.GetRequestStream
            Dim filebytes() As Byte = My.Computer.FileSystem.ReadAllBytes(filename)
            stream.Write(headerbytes, 0, headerbytes.Length)
            stream.Write(filebytes, 0, filebytes.Length)
            stream.Write(endboundarybytes, 0, endboundarybytes.Length)
            stream.Close()
        End Using

        Dim result As String
        Using response As Net.WebResponse = request.GetResponse
            Using stream As IO.Stream = response.GetResponseStream
                Using reader As New IO.StreamReader(stream)
                    result = reader.ReadToEnd
                    reader.Close()
                End Using
                stream.Close()
            End Using
        End Using

        Return result

    Catch ex As Exception
        Return ex.Message
    End Try
End Function


ملف uploadfile.php
كود :
<?php
    try {
    
        $dir = "files"; // المجلد الذي يتم الحفظ فيه
        
        // التأكد من وجود المجلد
        if ( ! is_dir ($dir)) {
            mkdir($dir); // إنشاء المجلد
        }

        //   الحفظ في المجلد المحدد
        if(move_uploaded_file($_FILES["file"]["tmp_name"], $dir . "/" . $_FILES["file"]["name"])){
            echo "تم رفع الملف  بنجاح";
        } else {
            echo "فشلت عملية رفع الملف";
        }
    } catch (Exception $e) {
            die ('لم يتم رفع الملف للأسباب التالية: ' . $e->getMessage());
    }
?>

.....
الرد }}}}
تم الشكر بواسطة:
#10
اشكرك اخي .... تم الرفع والحمد لله ...
ولكن هناك ملاحظه كود Vb.net لم اقم باستخدامه واستخدمت الكود الاول ونجحت العمليه ...



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم