TIB_OleContainer

[Walter Landwehr]

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.

[Walter Landwehr]

Habe es gelöst. Bisschen kompliziert zu erklären. Wer Interesse hat melden.