FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Yo solucione el problema de la siguente manera.
mira yo tenia el mismo problema pero tengo las rutas de los archivos en una lista cuando hago click en la lista me tiene que mostrar la foto en un TImage. y lo que hice fue lo siguiente
procedure TForm1.listaClick(Sender: TObject); var imagenJPG : TJpegImage; begin if sacaExt(lista.Items.Strings[lista.itemIndex]) then view.Picture.Assign(imagenJPG) else view.Picture.Assign(view.Picture.Bitmap); view.Picture.LoadFromFile(lista.Items.Strings[lista.itemIndex]); end; saca extension lo hice porque no se como se saca una extension en delphi si sabes decimelo en patatasadultas@yahoo.com.ar el codigo de sacaExt es el siguiente function sacaExt(s : string) : boolean; var i : integer; s1 : string; begin s1 := ''; i := length(s); for i := i - 4 to i do begin if not(s[i] = '.') then s1 := s1 + s[i]; end; sacaExt := ((upperCase(s1) = 'JPEG') or (upperCase(s1) = 'JPG')); end; |
#2
|
||||
|
||||
Para extraer la extensión de cualquier archivo: ExtractFileExt
function ExtractFileExt(const FileName: string): string; |
|
|
|