Ciao a tutti, in questi giorni sto valutando tutti i possibili errori, oggi mi sto studiando le imageview nella quale a volte non fanno il loro lavoro
esempio nel modulo ftp
Sub UploadComplete(Files() As WebUploadedFile)
dim f as new FolderItem
dim namefolder as string = "circ_" + Session.IOFullName.ReplaceAll(" ","_")
f = GetFolderItem(namefolder)
if f.Exists = false then
f.CreateAsFolder
end if
f = f.Child(self.Label_title.Text.ReplaceAll(" ","_"))
if f.Exists = false then
f.CreateAsFolder
end if
For Each file As WebUploadedFile In files
dim ii as Integer = self.ListBox_list_doc.RowCount
dim s as string = self.Label_title.Text.ReplaceAll(" ","_") + "_image_" + ii.ToText + ".jpg"
Try
Dim outputFile As new FolderItem
outputFile = f
Dim output As BinaryStream
outputFile = outputFile.Child(s)
output = BinaryStream.Create(outputFile, True)
output.Write(file.Data)
output.Close
self.ListBox_list_doc.AddRow(s)
Catch e As IOException
msgbox e.Message + " " + str(e.ErrorNumber)
Continue
End Try
Next
End Sub
Esempio di codice al click della listbox1.list(Row)
if DebugBuild = true then
dim f as new FolderItem
f = GetFolderItem("circ_" + Session.IOFullName.ReplaceAll(" ","_")).Child(self.Label_title.Text.ReplaceAll(" ","_")).Child(me.List(Row))
try
self.ImageView1.URL = f.URLPath
Catch
end try
else
try
dim imagelink as string = "http://www.humanequality.eu/" + "circ_" + Session.IOFullName.ReplaceAll(" ","_") + "/" + self.Label_title.Text.ReplaceAll(" ","_") + "/" + me.List(Row)
self.ImageView1.URL = imagelink
Catch
end try
end if
per i test ho aggiunto la fase debugmode (speriamo che sul web non spacca i maroni) per verificare se tutto funziona, il link che creo con la folder item e il seguente
file:///E:/Recuperati%20da%20windows_seven_desktop/Xojo-HumanEquality/Debughumanequality/circ_Human_Equality/Ivano_Monti/Ivano_Monti_image_0.jpg
che poi viene trasformato nel link url quando nel web, ma non so se sono nella strada giusta o vado per incasinarmi… chiedo un consiglio.