Es sieht so aus, dass es daran liegt, dass ADS die Blobdaten cached. Dieses Verhalten läßt sich auch nicht abschalten.
Die einzige Möglichkeit wäre wahrscheinlich, direkt über AdsSetField zu gehen. Aber sehr viel overhead schaltet man damit auch nicht aus.
So geht es (Post und Edit sind wichtig, weil man sich sonst den Recordcache durcheinanderbringt!):
Delphi-Quellcode:
sFileName := Path+sr.Name;
tblBackup.Post;
tblBackup.AdsFileToBinary(tblBackupFileData.FieldName , btBINARY, sFileName);
tblBackup.Edit;
Ergebnis
Code:
Blobtest
---------------------------
Imported 73 files (Local) with 241.710.203 bytes in 23030 ms
---------------------------
OK
---------------------------
Also eine fast 10-Fache Geschwindigkeitssteuerung!