Скачать: CL | DM;

ptOraBlob как параметр TStoredProc   Найти похожие ветки 

← →
Val ©   (2004-01-12 11:53) [0]

При попытке запуска процедуры - Access Violation.В чем я ошибаюсь?Работает ли BDE корректно с данными параметрами у TStoredProc?

var P: TStoredProc;
Stream : TMemoryStream;
//...создание процедуры - тут ошибки нет 100%
Stream :=TMemoryStream.Create;
try
(DSMainFrame.DataSet.FieldByName(dxDBGraphicEditMain.DataField) as TBlobField).SaveToStream(Stream);
P.ParamByName("IMAGETYPEID").AsInteger := 2; //photo temporary
P.ParamByName("IMAGESRC").DataType := ftOraBlob;
P.ParamByName("IMAGESRC").ParamType := ptInput;
Stream.Seek(0, soFromBeginning);
P.ParamByName("IMAGESRC").LoadFromStream(Stream, ftOraBlob);
P.ParamByName("IMAGEFILENAME").AsString := DSMainFrame.DataSet.FieldByName(CSEditIMAGEFILENAME.DataField).AsString;
P.ExecProc;
ImageHistoryID := P.ParamByName("IMAGEHISTORYID").AsInteger;
finally
P.Free;
Stream.Free;
end;


---

← →
Sandman25 ©   (2004-01-12 11:58) [1]

А все-таки зря Вы не показали код инициализации P...
На какой строке ошибка?

---

← →
Val ©   (2004-01-12 12:29) [2]

Не показал, потому что там используется функция, которая тянет еще одну..поверьте, там нет ошибки - код функции используется с 97-го года: P := GetTmpSProc("EPRIMAGE_NEW", True);
Ошибка именно на P.ExecProc;

---

← →
Sandman25 ©   (2004-01-12 12:36) [3]

[2] Val © (12.01.04 12:29)

Включите Use debug dcu и попробуйте потрассировать. Возможно, поможет.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c