Les cuento, tengo un TImage que en éste momento ya contiene el resultado de un scanneo realizado con TWAIN, pero ahora, hay que guardar ésa imagen.
Yo tengo éste código:
procedure TfrmDgtlzr.tolbtnGrdClick(Sender: TObject); var fsArchvImgn : TFileStream; sNmbrArchv : string; begin if svepctrdlgGrd.Execute then begin sNmbrArchv := QuotedStr(sIncP)+QuotedStr(sMncP)+QuotedStr(sCrpP)+'.jpg'; svepctrdlgGrd.InitialDir := 'C: mp'; svepctrdlgGrd.FileName := sNmbrArchv; try fsArchvImgn := TFileStream.Create(sNmbrArchv, fmCreate or fmShareDenyRead); finally FreeAndNil(fsArchvImgn); end; end; tolbtnScnnr.Enabled := True; jvdrctrylstboxDrc.Enabled := True; jvdrvcmbDsc.Enabled := True; jvflelstboxArch.Enabled := True; tolbtnGrd.Enabled := False; end;
Pero no me guarda nada, y necesito que se guarde el resultado del scanneo contenido en el TImage. ¿Alguna ayuda que me puedan prestar? ¿Qué me está faltando de poner o quitar para que se guarde?
Y por cierto, para amenizar el hilo, el vídeo del título, "El Retrato de Manuela", de Chava Flores...
El Retrato de Manuela