BLOB Feld kopieren

[marcus]

Mittlerweile bekomme ich wenigstens schon mal eine Fehlermeldung. Und zwar
"Eine Datenmenge die nur zum lesen ist, kann nicht geändert werden".
Jedoch ist meines wissens read-only auf false gesetzt.

Hier mal der Source-code:

P.S. Ich weiß die Fehlerbehandlung fehlt hier noch

Delphi-Quellcode:

    SQLConnection.Connected := TRUE;
    SQLTable1.Open;
    SQLTable1.Edit;

    MainTable.TableName := 'ProjRem.db';
    MainTable.Active := TRUE;

    Stream1 := MainTable.CreateBlobStream(MainTable.FieldByName('Remarks'),bmRead);
    Stream2 := SQLTable1.CreateBlobStream(SQlTable1.FieldByName('Remarks'),bmWrite);

    Stream2.CopyFrom(Stream1,Stream1.Size);

    SQLTable1.Post;

    Stream1.Free;
    Stream2.Free;