[[Caral]]

Hola
Ya sabes, no me hagas mucho caso por que no entiendo muy bien tu codigo, pero lo que veo es esto.

Código Delphi [-]
procedure TFrmenuu.BitBtn1Click(Sender: TObject);
var
blob:TStream;
fs:tstream;
begin
if OpenDialog.Execute then
begin
Olecontainer1.CreateObjectFromFile(PChar(OpenDialog.FileName),false);
vertbar.max:= Olecontainer1.Height;
horzbar.max:= Olecontainer1.Height;
Panelcontenedor.Visible:=true;
// esto no se para que es, lo puse arriba para probar
//blob := Querygestion.CreateBlobStream(Querygestion.FieldByName('archivoblob'),bmWrite);

Querygestion.Close;
// Querygestion.SQL.Clear;  // no me gusta
Querygestion.SQL.Text:= 'insert into tabla_prueba(llave,nombre,archivoblob) values(006,'1',blob)';
Querygestion.ExecSQL;
// Querygestion.Open; // esto y lo anterior es lo mismo, solo que este enseña el resultado y el otro nada mas lo ejecuta sin enseñarlo
showmessage('agregado');

try
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create(OpenDialog.FileName, fmOpenRead or fmShareDenyWrite);
   try
      blob.CopyFrom(fs, fs.Size)
    finally
      fs.Free
    end;
  finally
    blob.Free
  end;

end;
end;

Bueno, hasta aqui, si ves algo, lo dices.
Saludos