Ponerle Nombre a Una Imagen

International Español
1

Buenas tarde Colegas del foro.
tengo el siguiente problema al tratar de guardar una imagen a una carpeta temporal, la imagen esta en una base de datos y los visualizo en un ImageWell.
Hago los siguiente.

[code] ImgEvi.Image = Nil
CONSULTA = Android.SQLSelect(“SELECT * FROM evidenciaext WHERE HoraEvi=’” + Trim(ListaDetalles.Cell(ListaDetalles.ListIndex,0) + “’”))
If CONSULTA <> Nil Then
While Not CONSULTA.EOF
ImgEvi.Image = CONSULTA.Field(“FotoEvidencia”).PictureValue
CONSULTA.MoveNext
Wend
End If
Dim IMGDATA As String
Dim BS As BinaryStream
Dim F As FolderItem

If ImgEvi.Image <> Nil Then
//Obtener un archivo temporal para guardar la imagen
If Picture.IsExportFormatSupported(Picture.FormatJPEG) Then
f = SpecialFolder.Documents.Child("/TempXojo/"+CONSULTA.Field(“NombreEvidencia”).StringValue +“2.jpg”)

  //Guardamos la imagen en el archivo
  ImgEvi.Image.Save(F, Picture.SaveAsJPEG)
End If

End If[/code]

todo lo hace correcto, pero la darle el nombre a la imagen en esta parte…

 f = SpecialFolder.Documents.Child("/TempXojo/"+CONSULTA.Field("NombreEvidencia").StringValue +"2.jpg")

solo me lo guarda con este nombre

"2.jpg"

y esto no lo respeta

+ CONSULTA.Field("NombreEvidencia").StringValue +

deberia de funcionar, nombrarla con el nombre del que viene en la base de datos + 2.jpg…

Pero no lo hace, alguien me puede orientar…

2

Creo q es por el

While Not CONSULTA.EOF ImgEvi.Image = CONSULTA.Field("FotoEvidencia").PictureValue CONSULTA.MoveNext Wend

Justo despus del wend el recordset esta en EOF por eso la instruccin “CONSULTA.Field(“NombreEvidencia”).StringValue” da cadena vaca. Pruebe no utilizar el While…Wend, o si lo q necesita el el ultimo registro, justo depus de “ImgEvi.Image = CONSULTA.Field(“FotoEvidencia”).PictureValue” asigne una variable string con “CONSULTA.Field(“NombreEvidencia”).StringValue”

Algo as:

[code] Dim sNombreArch As String

ImgEvi.Image = Nil
CONSULTA = Android.SQLSelect(“SELECT * FROM evidenciaext WHERE HoraEvi=’” + Trim(ListaDetalles.Cell(ListaDetalles.ListIndex,0) + “’”))
If CONSULTA <> Nil Then
While Not CONSULTA.EOF
ImgEvi.Image = CONSULTA.Field(“FotoEvidencia”).PictureValue
sNombreArch= CONSULTA.Field(“NombreEvidencia”).StringValue
CONSULTA.MoveNext
Wend
End If
Dim IMGDATA As String
Dim BS As BinaryStream
Dim F As FolderItem

If ImgEvi.Image <> Nil Then
//Obtener un archivo temporal para guardar la imagen
If Picture.IsExportFormatSupported(Picture.FormatJPEG) Then
f = SpecialFolder.Documents.Child("/TempXojo/"+sNombreArch+“2.jpg”)

  //Guardamos la imagen en el archivo
  ImgEvi.Image.Save(F, Picture.SaveAsJPEG)
End If

End If[/code]

3

Gracias bernardo; justo es fue lo que hice… te lo agradezco…