Foros del Web » Programando para Internet » ASPX (.net) »

Repeater carga imagenes de un directorio

Estas en el tema de Repeater carga imagenes de un directorio en el foro de ASPX (.net) en Foros del Web. Hola Bueno tengo un problema , tengo un repeater que me muestra imagenes de un directorio, ya que le asigno un array, pero este array ...
  #1 (permalink)  
Antiguo 14/04/2010, 17:36
 
Fecha de Ingreso: febrero-2010
Mensajes: 24
Antigüedad: 9 años, 8 meses
Puntos: 0
Repeater carga imagenes de un directorio

Hola Bueno tengo un problema , tengo un repeater que me muestra imagenes de un directorio, ya que le asigno un array, pero este array es de una dimension, ahora mi array es 2 dimesiones, y quiro solo que me muestre la informacion que esta en la primera dimensión: aca Pongo el codigo:

client code: Veran la etiqueta img, tiene como origen un arry de una dimension:

<asp:Repeater ID="Rp_Producto" runat="server">
<ItemTemplate>


<p><img src="<%# Container.DataItem %>" /></p>
<p>
<asp:Label ID="Label1" runat="server" Text="<%# Container.DataItem %>"></asp:Label></p>
</div>

</ItemTemplate>



</asp:Repeater>


behind code:

Imports System.IO

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


Dim NomCat As String
Dim NomFile As String
Dim j As Integer = 0

NomCat = Request("categoria")
NomCat = Replace(NomCat, "'", "")

If NomCat <> Nothing Then
Dim imagenes(Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/")).Length, 1) As String

Dim sFile As String
For Each sFile In Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/"))
NomFile = Path.GetFileNameWithoutExtension(sFile).ToString ' solo es el nombre

If NomFile <> "Thumbs" Then
sFile = Replace(sFile, "\", "/")

Dim i As Integer = 0
i = InStr(sFile, "images")
Dim QuitarSec As String
QuitarSec = Left(sFile, i - 1)

sFile = Replace(sFile, QuitarSec, "")
imagenes(j, 0) = sFile
imagenes(j, 1) = NomFile
j += 1

End If

Next
Rp_Producto.DataSource = imagenes
Rp_Producto.DataBind()
End If






End Sub
  #2 (permalink)  
Antiguo 15/04/2010, 08:54
 
Fecha de Ingreso: febrero-2010
Mensajes: 24
Antigüedad: 9 años, 8 meses
Puntos: 0
Respuesta: Repeater carga imagenes de un directorio

Porfavor alguien ayudeme,necesito eso de manera urgente.
  #3 (permalink)  
Antiguo 15/04/2010, 12:02
 
Fecha de Ingreso: febrero-2010
Mensajes: 24
Antigüedad: 9 años, 8 meses
Puntos: 0
Respuesta: Repeater carga imagenes de un directorio

Bueno nadie me pudo ayudar(porfavor moderadores todos sabes que ustedes dominan mucha asp.net, traten de darnos una manito), pero aqui esta la solucion la encontre.

behingCode:



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim myDV As DataView
myDV = CreateDataSource

' Repeater that outputs plain comma seperated data
Rp_Producto.DataSource = myDV
Rp_Producto.DataBind()


End Sub

Function CreateDataSource() As DataView



Dim myDataTable As New DataTable
Dim myDataRow As DataRow
Dim myDataView As DataView


myDataTable.Columns.Add(New DataColumn("DirImagen", System.Type.GetType("System.String")))
myDataTable.Columns.Add(New DataColumn("NombreImg", System.Type.GetType("System.String")))





Dim NomCat As String
Dim NomFile As String
Dim j As Integer = 0

NomCat = Request("categoria")
NomCat = Replace(NomCat, "'", "")

If NomCat <> Nothing Then
Dim imagenes(Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/")).Length, 1) As String

Dim sFile As String
For Each sFile In Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/"))
NomFile = Path.GetFileNameWithoutExtension(sFile).ToString ' solo es el nombre

If NomFile <> "Thumbs" Then
sFile = Replace(sFile, "\", "/")

Dim i As Integer = 0
i = InStr(sFile, "images")
Dim QuitarSec As String
QuitarSec = Left(sFile, i - 1)

sFile = Replace(sFile, QuitarSec, "")


myDataRow = myDataTable.NewRow

myDataRow(0) = sFile
myDataRow(1) = NomFile

myDataTable.Rows.Add(myDataRow)


End If

Next

End If


myDataView = New DataView(myDataTable)

CreateDataSource = myDataView


End Function



Client code:



<asp:Repeater ID="Rp_Producto" runat="server">

<ItemTemplate>
<div class="Listado_Copas">

<p><img src="<%# DataBinder.Eval(Container.DataItem, "DirImagen") %>" /></p>
<p>
<%#DataBinder.Eval(Container.DataItem, "NombreImg")%></p>
</div>

</ItemTemplate>



</asp:Repeater>



Etiquetas: carga, directorio, imagenes, aspx
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 14:16.