Hallo zusammen!
Ich möchte aus einer Paradox-Datanbank Blob-Felder in eine MySQL-Datenbank kopieren. Ich habe bisher mit der Methode CreateBlobStream herumgespielt, aber leider ist da nichts sinnvolles herausgekommen. Hier mal der Quelltext dazu.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| with u_data.Data do
begin
MainTable.TableName := 'ProjRem.db';
MainTable.Active := TRUE;
while not MainTable.Eof do
begin
Stream1 := MainTable.CreateBlobStream(MainTable.FieldByName('Remarks'),bmRead);
Stream2 := SQLTable.CreateBlobStream(SQLTable.FieldByName('remarks'), bmReadWrite);
Stream2.CopyFrom(Stream1, Stream1.Size);
Stream1.Free;
Stream2.Free;
MainTable.Next;
end;
MainTable.Active := FALSE;
end; |
Es gibt unter Delphi ein Beispiel und nach diesem habe ich es mal versucht.
Gibt es vielleicht eine andere Möglichkeit oder habe ich einen Denkfehler bei dem bisherigen versuch.
