Hola amigos del club, tengo un problema, tengo un software hecho en delphi 5 con motor de base de datos interbase, hace tiempo que almaceno la foto de los alumnos en un campo blob, todo bien, seleccionaba la foto en un software de tratamiento de imagenes y despues pegaba en mi aplicación.
dm.tAlumnosFoto.PastfromClipboard
no tuve nunca un problema pero desde que me cambie a winxp, ya nada, no pegaba la imagen. Bueno me consegui la siguiente rutina que la adepte a mi sistema.
Código Delphi
[-]procedure TFRegMatricula.bObtenerClick(Sender: TObject);
var
Jpg: TJpegImage;
Stream: TMemoryStream;
archivo: string;
begin
OpenPictureDialog1.Execute;
archivo := OpenPictureDialog1.FileName;
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(archivo);
Stream := TMemoryStream.Create;
Jpg.SaveToStream(Stream);
Stream.Position := 0;
dm.TALUMNOSFOTO.LoadFromStream(Stream);
jpg.Free;
Stream.Free;
end;
pero sale un error, "mapa de bist no válido", no se que pasará, por que incluso tengo las foto almacenas, ahora lo que quiero es actualizarla. gracias por leer este mensaje.