Ver Mensaje Individual
  #2  
Antiguo 15-06-2006
Avatar de waltergomez
waltergomez waltergomez is offline
Miembro
 
Registrado: may 2006
Posts: 202
Reputación: 19
waltergomez Va por buen camino
Que es TALUMNOSFOTO ?
Te dejo una modificacion para mejorar tu codigo.

Código Delphi [-]
procedure TFRegMatricula.bObtenerClick(Sender: TObject);
var
    Jpg: TJpegImage;
    Stream: TMemoryStream;
begin
      if OpenPictureDialog1.Execute then
      begin
        Jpg := TJpegImage.Create;
        Jpg.LoadFromFile(OpenPictureDialog1.FileName);
        Stream := TMemoryStream.Create;
        Jpg.SaveToStream(Stream);
        Stream.Position := 0;
        dm.TALUMNOSFOTO.LoadFromStream(Stream);
        jpg.Free;
        Stream.Free;
      end;
end;
Responder Con Cita