Hallo zusammen,
hat jemand eine Ahnung ob es unter Delphi XE2 Probleme mit der
BDE TStoredProc Komponenten gibt? Grundsätzlich kann ich die
BDE Komponenten ja noch benutzen (ja ich weis, die sind veraltet und sollten eigentlich nicht mehr benutzt werden)
Ich habe allerdings eine Alt-Anwendung die ich noch supporten muss und
BDE vorraussetzt.
Grundsätzlich kann ich Queries absetzen und erhalte auch Ergebnisse. Mit Stored Procedures bekomme ich aber Ärger:
Code:
StoredProc := TStoredProc.create(nil);
try
// TDatabase zuweisen, geht über eine Factory...
(Factory as TD5DAOFactoryBDE).Link(StoredProc);
StoredProc.StoredProcName := 'pr_class_create';
// Parameter erstellen
StoredProc.Params.CreateParam(ftinteger,'@parent_class_id',ptinput);
StoredProc.Params.CreateParam(ftstring,'@code',ptinput);
StoredProc.Params.CreateParam(ftstring,'@long_name',ptinput);
StoredProc.Params.CreateParam(ftstring,'@short_name',ptinput);
StoredProc.Params.CreateParam(ftstring,'@description',ptinput);
StoredProc.Params.CreateParam(ftinteger,'@color',ptinput);
StoredProc.Params.CreateParam(ftinteger,'@killdate_offset',ptinput);
StoredProc.Params.CreateParam(ftstring,'@full_name',ptinput);
StoredProc.Params.CreateParam(ftinteger,'@created_class_id',ptoutput);
// ...und Parameter laden....
StoredProc.ParamByName('@code').asstring := Value.Code;
StoredProc.ParamByName('@long_name').asstring := Value.LongName
StoredProc.ParamByName('@short_name').asstring := Value.ShortName;
StoredProc.ParamByName('@description').asstring := Value.Description
StoredProc.ParamByName('@color').asinteger := Value.color;
StoredProc.ParamByName('@killdate_offset').asinteger := Value.KilldateOffset;
StoredProc.ParamByName('@full_name').asString := Value.Fullname;}
StoredProc.ParamByName('@parent_class_id').asinteger := Value.Parent.oid;
StoredProc.ParamByName('@code').asstring := Value.Code;
StoredProc.Prepare;
for i := 0 to StoredProc.Params.Count-1 do
OutputdebugString(pWidechar('Parameter['+IntToStr(i)+']: '+
StoredProc.Params[i].Name+
' Value='+
StoredProc.Params[i].AsString));
StoredProc.execProc;
// hier soll noch ein bißchen was passieren....
finally
StoredProc.free;
end;
Bei ExecProc bekomme ich eine
Exception, das die StoredProc einen NULL Wert in die Tabelle long_name einfügen will, was nicht erlaubt ist. Der Wert für den Parameter @long_name (der dem Wert für die Spalte long_name entspricht) ist aber übergeben worden und nicht NULL. Durch die OutputDebugString Meldungen sehe ich das die Parameter Werte den Eigenschaften des Objektes Value entsprechen.
Trace ich den Traffic mit Wireshark kann ich sehen, dass die Parameter und deren Werte auch übergeben werden, trotzdem gibt es diese
Exception. Die Ursprüngliche
Unit ist mit Delphi2007 erstellt worden und funktionierte dort auch. Das Projekt sollte jetzt nach kleinen Änderungen mit Delphi XE2 neu kompiliert werden, seitdem bekomme ich die Exceptions an dieser Stelle.
Hat jemand eine Erklärung dafür?