Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.06;
Скачать: CL | DM;

Вниз

Запись BLOB из Delphi в Oracle 9.2   Найти похожие ветки 

 
миникодер   (2008-11-18 16:35) [0]

procedure TfrmReports.SaveReportToDB(Report: TFrxReport);
Var
 Stream1: TStream;
 LOB: TLOBLocator;
begin
  oqUpdateTemplate.ClearVariables;
  try
    odsReports.Edit;
    try
      Stream1 := odsReports.CreateBlobStream(odsReports.FieldByName("template"), bmWrite);
      Report.SaveToStream(Stream1);

      Report.SaveToFile(ExtractFilePath(Application.ExeName)+"\tempreport.fr3");
      LOB := TLOBLocator.CreateTemporary(DMMain.OracleSession, otBLOB, True);
      Lob.LoadFromFile(ExtractFilePath(Application.ExeName)+"\tempreport.fr3");

      oqUpdateTemplate.SetComplexVariable("template", LOB);
      oqUpdateTemplate.SetVariable("id", odsReportsID.AsInteger);
      oqUpdateTemplate.Execute;
      DMMain.OracleSession.Commit;

    except
      DMMain.OracleSession.Rollback;
      odsReports.Cancel;
      Application.MessageBox("Ошибка записи отчета!", "Внимание", MB_ICONERROR);
      raise;
    end;
    odsReports.Post;
  finally
    Stream1.Free;
    LOB.Free;
  end;

end;

при записи в базу выдает такую ошибку:
update reports set template = :template where id = :id

:ID = 1
Oracle error occurred: 600 (ORA-00600: internal error code, arguments:
[kokegPinLob1], [], [], [], [], [], [], [])
----------------------------------
Timestamp: 15:29:39.762

Successful rollback.

Подскажите, что я делаю нетак?
Заранее благодарен!


 
Правильный$Вася   (2008-11-18 16:55) [1]


> Oracle error occurred: 600 (ORA-00600: internal error code,
>  arguments: [kokegPinLob1],

типичная ошибка ядра
лечится патчеванием как сервера, так и клиента
хотя патча можети не быть
читай металинк


 
Val ©   (2008-11-18 22:51) [2]

+ к первому посту: желательно обновиться до 9.2.0.6\9.2.0.8, если не патчили.



Страницы: 1 вся ветка

Текущий архив: 2009.09.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
2-1246866808
smirnoff
2009-07-06 11:53
2009.09.06
Вопрос по AnsiChar


15-1246894995
Пит
2009-07-06 19:43
2009.09.06
AVG ругается на практически чистый проект Delphi


15-1247085005
Юрий
2009-07-09 00:30
2009.09.06
С днем рождения ! 9 июля 2009 четверг


15-1246825805
Юрий
2009-07-06 00:30
2009.09.06
С днем рождения ! 6 июля 2009 понедельник


15-1245787291
Игорь Шевченко
2009-06-24 00:01
2009.09.06
Дядя Юра, с днем рождения!