Fórum Insert de Imagem no banco Oracle #555633

  vStream := TMemoryStream.Create;
  jpeg := TJPEGImage.Create;

  // recuperando a imagem da primeira tabela
  OraQuery1.Close;
  OraQuery1.ParamByName('ID_SOLICITANTE').AsInteger := 21493;
  OraQuery1.Open;
  BlobField(OraQuery1.FieldByName('IM_IDENTIFICACAO')).SaveToStream(vStream);
  vStream.Position := 0;
  jpeg.LoadFromStream(vStream);

  // associando a imagem ao componente TImage (so pra ver se esta vindo)
  Image1.Picture.Assign(jpeg);


   OraQuery3.Close;
   OraQuery3.SQL.Clear;
   OraQuery3.SQL.Add('INSERT INTO SDC_IMAGEM (ID_SOLICITANTE, UF_SG_UF, ID_CARGO, DT_INICIO, IN_TIPO_IMAGEM, IMAGEM)');
   OraQuery3.SQL.Add('VALUES (:ID_SOLICITANTE, :UF_SG_UF, :ID_CARGO, :DT_INICIO, :IN_TIPO_IMAGEM, :IMAGEM) RETURNING IMAGEM INTO :IMAGEM');
   OraQuery3.ParamByName('ID_SOLICITANTE').AsInteger := 21493;
   OraQuery3.ParamByName('UF_SG_UF').AsString := 'MG';
   OraQuery3.ParamByName('ID_CARGO').AsInteger := 197;
   OraQuery3.ParamByName('DT_INICIO').AsDate := StrToDate('01/06/2015');
   OraQuery3.ParamByName('IN_TIPO_IMAGEM').AsString := 'A';
   OraQuery3.ParamByName('IMAGEM').ParamType := ptInput;
   Oraquery3.ParamByName('IMAGEM').LoadFromStream(vStream, ftOraBlob);
   OraQuery3.ExecSQL;