Πρώτα Βήματα - Web Development

Απ: Αλλού παίζει, αλλού δε...παίζει

epp1123 — Thu, 05 Jun 2008 23:09:49 GMT

Έλεος, απλά έλεος. Αντέγραψα τον κώδικα από άλλη σελίδα και έτρεξε. Ο ίδιος κώδικας. Τι στο καλό;;;;;;;;

Απ: Αλλού παίζει, αλλού δε...παίζει

epp1123 — Thu, 05 Jun 2008 23:04:07 GMT

Δεν είναι όχι. Με το που φτάνει εκεί το debugging μου πετάει το σφάλμα.

Απ: Αλλού παίζει, αλλού δε...παίζει

cap — Thu, 05 Jun 2008 22:54:28 GMT

Μήπως στις υπόλοιπες σελίδες που παίζει έχεις hasfile=true, και το πρόβλημα δεν είναι στη γραμμή που μας υποδεικνύεεις αλλα στην αμέσως επόμενη, οπου ζητάς το filename property, το οποίο δεν θα υφίσταται αν δεν υπάρχει file;

Απ: Αλλού παίζει, αλλού δε...παίζει

epp1123 — Thu, 05 Jun 2008 22:49:22 GMT

Ήδη το έχω δοκιμάσει, μου έβγαζε HasFile = false. Έσβησα τα controls, τα ξαναέβαλα με διαφορετικά ονόματα, τίποτα. Ξαναέγραψα τον κώδικα του event τίποτα. Δεν ξέρω αν τρέξει σε άλλο πισι, μάλλον αυτό θα δοκιμάσω σήμερα. Δεν μπορώ να σκεφτώ κάτι άλλο.

Απ: Αλλού παίζει, αλλού δε...παίζει

manosB — Thu, 05 Jun 2008 22:24:30 GMT

Μετα τη γραμμή αυτή:
'Βρίσκουμε τα control για το ανέβασμα του αρχείου
TempSuppliersLogoFileUploadEditItemTemplate = Suppliersform.FindControl("FileUpload1") <-- Η εύρεση του control από το FormView

τι έχει μέσα το TempSuppliersLogoFileUploadEditItemTemplate . Βάλε ένα breakpoint μετά από αυτή τη γραμμή και με ένα quick watch ή στο immiediate ένα .tostring να δεις τι έχει μέσα. Μήπως είνα nothing αυτή η μεταβλητή
Και εγώ εκεί νομίζω είναι το λάθος. Τσέκαρε πάλι και το id και μην ξεχνάς ότι είναι case sensitive.

Απ: Αλλού παίζει, αλλού δε...παίζει

epp1123 — Thu, 05 Jun 2008 21:44:46 GMT

To FileUpload Control υπάρχει κανονικά, και η FormView και όλα.

Απ: Αλλού παίζει, αλλού δε...παίζει

cap — Thu, 05 Jun 2008 21:41:44 GMT

Best Guess: Το πρόβλημα ξεκινάει από εδώ:

TempSuppliersLogoFileUploadEditItemTemplate = Suppliersform.FindControl("FileUpload1")

Λογικά η Suppliersform πρέπει να υπάρχει, αλλιώς θα σου χτύπαγε εκεί. Ομως, οπως λες το τρέχεις σε τρείς σελίδες και στην τέταρτη δεν τρέχει. Υπάρχει το FileUpload1 control με αυτό το id στην συγκεκριμένη σελίδα που δεν τρέχει; Αλλιώς η ΜεταβλητηΜεΠολυΜεγαλοΟνομαΠουΒαριεμαιΝαΞαναγραφω που έχεις βάλει θα πάρει τιμή nothing, και φυσικά θα χτυπήσει όταν πας παρακάτω να τη ρωτήσεις "HasFile"? "Τι hasfile ρε μεγάλε", θα σου πει, "εγώ δεν ξέρω ουτε καν ποιός είμαι και απο που έρχομαι και που πηγαίνω". :)

Απ: Αλλού παίζει, αλλού δε...παίζει

cap — Thu, 05 Jun 2008 21:37:26 GMT

Ακυρο, το είδα στα σχόλια εντός του κώδικα (κοιτώντας λίγο πιό προσεκτικα :) )

Απ: Αλλού παίζει, αλλού δε...παίζει

cap — Thu, 05 Jun 2008 21:36:47 GMT

Για ποιά από τις μεταβλητές που έχεις δηλωμένες μιλάς, και ποιό είναι το full error? Θα ήταν χρήσιμο να δούμε σε ποιά γραμμή (με την αρίθμηση που δίνεις εδώ) συμβαίνει το πρόβλημα.

Αλλού παίζει, αλλού δε...παίζει

epp1123 — Thu, 05 Jun 2008 21:31:31 GMT

Καλησπέρα. Νομίζω ότι το μηχανάκι έχει βάλει σκοπό να με τρελάνει. Ο ίδιος κώδικας σε τρεις σελίδες τρέχει, στην τέταρτη αρνείται. Μου βγάζει ένα Object reference not set to an instance of an object (ενημερωτικά, ξέρω τι είναι αυτό το σφάλμα), και το ανέκδοτο είναι πως η μεταβλητή και είναι δηλωμένη, και πως παίρνει την τιμή κανονικά και πως ο ίδιος κώδικας έχει τρέξει σε άλλες τρεις σελίδες.

Αρχικά αναρωτιέμαι εάν έχετε αντιμετωπίσει ποτέ τέτοιο πρόβλημα. Παρακάτω θα σας βάλω και τον κώδικα, μήπως και δείτε κάτι που δεν βλέπω εγώ εδώ και τρεις μέρες.

 'Ανέβασμα Λογοτύπου του Προμηθευτή στην Επεξεργασία του Προμηθευτή
    Protected Sub SuppliersLogoUploadButtonEditItemTemplate_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        
        'Ορισμός μεταβλητών για το ανέβασμα του αρχείου
        
        Dim TempSuppliersLogoFileUploadEditItemTemplate As New FileUpload <--- Η δήλωση του 
        Dim TempResultLabelEditItemTemplate As New Label
        Dim ClientSideFileNameEditItemTemplate As String
        Dim ServerSideFilePathEditItemTemplate As String
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        Dim PromptUpdate As Integer
      
        'Βρίσκουμε τα control για το ανέβασμα του αρχείου
        TempSuppliersLogoFileUploadEditItemTemplate = Suppliersform.FindControl("FileUpload1") <-- Η εύρεση του control από το FormView
        TempResultLabelEditItemTemplate = Suppliersform.FindControl("SuppliersLogoUploadStatusLabelEditItemTemplate")
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        'Ορίζουμε το path του server
        ServerSideFilePathEditItemTemplate = Server.MapPath("../SuppliersLogos/")
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        'Εκίννηση διαδικασίας ανεβάσματος αρχείου 
        If TempSuppliersLogoFileUploadEditItemTemplate.HasFile Then <------Εδώ μου βγάζει το σφάλμα
        
            
            'Παίρνουμε το όνομα του αρχείου που βρίσκεται στον client
            ViewState("FileNameEditItemTemplate") = TempSuppliersLogoFileUploadEditItemTemplate.FileName
            ClientSideFileNameEditItemTemplate = TempSuppliersLogoFileUploadEditItemTemplate.FileName
           
            'Ελέγχουμε αν αυτό το αρχείο είναι εικόνα
            If CheckFileType(TempSuppliersLogoFileUploadEditItemTemplate.FileName) = True Then
                
                'Καθορίζουμε το path που θα αποθηκευτεί το αρχείο στο server + το όνομα του αρχείου
                'και παίρνουμε το path για να το αποθηκεύσουμε στη βάση
                ServerSideFilePathEditItemTemplate = ServerSideFilePathEditItemTemplate + ClientSideFileNameEditItemTemplate
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                'Ελέγχουμε αν υπάρχει ήδη το αρχείο με αυτό το όνομα
                If System.IO.File.Exists(ServerSideFilePathEditItemTemplate) Then
                                       
                    PromptUpdate = MsgBox("Είστε σίγουρος ότι θέλετε να αντικαταστήσετε το υπάρχον αρχείο με αυτό;", 1, "Επιβεβαίωση Αντικατάστασης Αρχείου")
                    If PromptUpdate = 1 Then
                        'Ανεβάζουμε όλες τις πληροφορίες στο server
                        Try
                            
                            If TempSuppliersLogoFileUploadEditItemTemplate.PostedFile.ContentLength > 2097152 Then
                                TempResultLabelEditItemTemplate.Text = "Το αρχείο δεν ανέβηκε γιατί είναι μεγαλύτερο από 2 MB"
                            End If
                            TempSuppliersLogoFileUploadEditItemTemplate.SaveAs(ServerSideFilePathEditItemTemplate)
                            TempResultLabelEditItemTemplate.Text = "Το αρχείο " + TempSuppliersLogoFileUploadEditItemTemplate.FileName + " ανέβηκε επιτυχώς "

                        Catch ex As Exception
                            TempResultLabelEditItemTemplate.Text = "Η εισαγωγή απέτυχε." + ex.Message
                        End Try
                        
                    Else
                        TempResultLabelEditItemTemplate.Text = "Ακυρώσατε την αντικατάσταση του αρχείου"
                    End If
                Else
                    'Ανεβάζουμε όλες τις πληροφορίες στο server
                    Try
                            
                        If TempSuppliersLogoFileUploadEditItemTemplate.PostedFile.ContentLength > 2097152 Then
                            TempResultLabelEditItemTemplate.Text = "Το αρχείο δεν ανέβηκε γιατί είναι μεγαλύτερο από 2 MB"
                        End If
                        TempSuppliersLogoFileUploadEditItemTemplate.SaveAs(ServerSideFilePathEditItemTemplate)
                        TempResultLabelEditItemTemplate.Text = "Το αρχείο " + TempSuppliersLogoFileUploadEditItemTemplate.FileName + " ανέβηκε επιτυχώς "

                    Catch ex As Exception
                        TempResultLabelEditItemTemplate.Text = "Η εισαγωγή απέτυχε." + ex.Message
                    End Try

                    
                End If
            Else
                
                TempResultLabelEditItemTemplate.Text = "Το αρχείο δεν είναι εικόνα, δεν ανέβηκε στο server, γιατί είναι τύπου " + TempSuppliersLogoFileUploadEditItemTemplate.PostedFile.ContentType
            End If
           
           
        Else
            TempResultLabelEditItemTemplate.Text = "Δεν μπορείτε να ανεβάσετε στο server αυτήν την εισαγωγή, γιατί δεν είναι διαδρομή αρχείου"
                
        End If
    End Sub
    ''''''''Τέλος Ανεβάσματος Λογοτύπου του Προμηθευτή στην Επεξεργασία του Προμηθευτή '''''''''''''''''''''