Thema: Delphi BLOB Feld kopieren

Einzelnen Beitrag anzeigen

marcus

Registriert seit: 13. Okt 2003
37 Beiträge
 
#2

Re: BLOB Feld kopieren

  Alt 13. Okt 2003, 13:53
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;
  Mit Zitat antworten Zitat