Muss das Thema nochmal puschen.
Hat keiner eine Idee woher ein Error -303 internal Error bei IBDac im Zusammenhang mit Blobs kommen kann.
Das eigenartige.
Ich lese aus einer Paradoxdatenbank über
BDE und speichere in Firebird.
Delphi-Quellcode:
if Query.Fields[i].isBlob
then
begin
(
Query.Fields[i]
as TBlobField).SaveToStream(m);
m.Position := 0;
if m.Size > 0
then QueryWork.ParamByName(f).LoadFromStream(m, ftBlob);
m.Clear;
Continue;
end;
Query ist in diesem Fall ein TDBQuery
dieser Codeteil funktioniert.
Danach will ich zwei
IB Tabellen zusammenführen.
Query ist in diesem Fall eine Firebird(IBDac)
Query.
Delphi-Quellcode:
if Query.Fields[i].isBlob
then
begin
(
Query.Fields[i]
as TBlobField).SaveToStream(m);
m.Position := 0;
if m.Size > 0
then QueryWork.ParamByName(f).LoadFromStream(m, ftBlob);
m.Clear;
Continue;
end;
In diesem Fall kommt Error -303 interner Fehler.
Der einzige Unterschied ist jetzt, das die Quelle IBDAC und nicht die
BDE ist.
Wie im ersten Posting erwähnt, habe ich auch eine Reihe anderer Varianten zum
Blobtransfer ausprobiert.
Ohne Erfolg.
Gruß
Peter