Hallo,
ich hoffe ich bin in dieser Rubrik richtig. Ich habe folgendes Problem: Ich habe in meine Anwendung die mit D2007 erstellt worden ist den TOleContainer verwendet und Daten in eine Firebird Datenbank gespeichert.
Delphi-Quellcode:
procedure TDokumenteFrme.AddSeiteActExecute(Sender: TObject);
var Stream: TMemoryStream;
begin
if Ole.InsertObjectDialog
then begin
Stream := TMemoryStream.Create;
Ole.SaveToStream(Stream);
Stream.Seek(0, 0);
try
DummyQry.SQL.Text := '
insert into tbl_seite (dokumentnr, data , status) values (:dokumentnr, :data, :status)';
DummyQry.ParamByName('
dokumentnr').AsInteger := DokumenteQry.FieldByName('
DOKUMENTNR').AsInteger;
DummyQry.ParamByName('
DATA').SetBlobData(Stream.Memory, Stream.Size);
DummyQry.ParamByName('
status').Value := DS_OLE;
DummyQry.ExecSQL;
finally
Stream.Free;
end;
Ole.Modified := False;
DokumenteQryAfterScroll(
nil);
SeiteQry.Last;
end
end;
Nun habe ich die Anwendung mit DXE2 überarbeitet und nicht mehr den TOleContainer verwendet sondern den TIB_OleContainer von IBObjects. Leider sind die beiden nicht compatibel. ich kann die Daten aus dem alten Container nicht mehr lesen. Hat jemand eine Idee wir ich die alten Daten konvertieren kann, damit der neue OleContainer diese wieder anzeigt.
Vielen Dank für einen Tipp im voraus.