Ver Mensaje Individual
  #1  
Antiguo 08-03-2010
Avatar de alonso.esparza
alonso.esparza alonso.esparza is offline
Miembro
 
Registrado: nov 2008
Posts: 16
Reputación: 0
alonso.esparza Va por buen camino
Talking Constructing instance of 'TStream' containig astract method.......ba que es?

Saludos, ya hacia mucho tiempo que no escribia jeje, bueno, espero me puedan ayudar:

Tengo una aplicacion que guarda imagenes jpg a una base de datos de SQL server 2005 con este codigo:

Código Delphi [-]
 
  contenedordeimagen:=TImage.Create(F_Enviar);
  fimagen:=TMemoryStream.Create;
  contenedordeimagen.Picture.LoadFromFile('C:\Oficialia\Tmp\Temp.jpg');
  contenedordeimagen.Picture.Graphic.SaveToStream(fimagen);
  With Q_Enviar do
    begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO Ima (IdMov,Documento,Paginas,imagen)');
    SQL.Add('VALUES (:idMov,oc,:Pag,:Ima)');
    Parameters.ParamByName('IdMov').Value := Q_Util.Fields.Fields[0].Value;
    Parameters.ParamByName('Doc').Value := LB_Rutas.Items.Strings[con];
    Parameters.ParamByName('Pag').Value := IntToStr(con+1)+'-'+IntToStr(LB_Rutas.Items.Count);
    Parameters.ParamByName('Ima').LoadFromStream(fimagen ,ftBlob); // Aqui se guarda ala bd
    ExecSQL;
    end;

La cuestion es que siempre que compilo me sale el sig. mensaje:

[Warning] Unit1.pas(179): Constructing instance of 'TStream' containing abstract method 'TStream.Read'
[Warning] Unit1.pas(179): Constructing instance of 'TStream' containing abstract method 'TStream.Write'
[Warning] Unit1.pas(209): Constructing instance of 'TStream' containing abstract method 'TStream.Read'
[Warning] Unit1.pas(209): Constructing instance of 'TStream' containing abstract method 'TStream.Write

Todo funciona de hecho, guarda perfectamente, pero cuando cierran la aplicacion, se queda en el administrador de tareas, como si estubiera co
rriendo todavia.

a que se debe?
que tendria que cambiar para evitar los Warnings?

espero me ayuden, gracias?
Responder Con Cita