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); 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?