Pues es muy raro, el código que puse lo copié tal cual de la prueba que hice y funcionó bien. Por el error que te marca tal pareciera que no estuvieras usando la unidad Jpeg de Delphi (el error significa que la clase TJPegImage no define el método AssignTo) o quizá tu versión aún no lo maneja. Yo lo he probado en Delphi 7.
// Saludos
|