Thema: Delphi Problem mit Blobfield

Einzelnen Beitrag anzeigen

Fellmer Lloyd
(Gast)

n/a Beiträge
 
#1

Problem mit Blobfield

  Alt 8. Mär 2004, 10:51
Hi!

Ich habe einen formatierten Text aus einem Richedit in eine Datenbank geschrieben.
Datenbank: Access 97.
Feldtyp: OLE-Object.
Zugriff: BDE (TDatabase, TTable).
Delphi Version: 5.0 Professional.

Zum Problem:
Wenn ich die Anwendung in Delphi starte (F9), funktioniert das laden ohne Probleme.
Starte ich die Anwendung jedoch "normal", erhalte ich folgenden fehler: Externe Exception EEFFACE.

Ich verwende folgende Prozedur:
Delphi-Quellcode:
procedure TForm1.ButtonTestClick(Sender: TObject);
var
  BlobStream: TBlobStream;
begin
  try
    if not (Table1.FieldByName('Text') AS TBlobField).IsNull THEN
    begin
      BlobStream:= TBlobStream.Create(TMemoField(Table1.FieldByName('Text')) , bmRead);
      try
       RichEdit1.Lines.LoadFromStream(BlobStream); //Fehler tritt hier auf
      finally
        BlobStream.Free;
      end;
    end;//not IsNull
  except

  end;
end;
Das seltsame ist, das es mit Debugger keine Probleme gibt. Die Prozedur funktioniert.
Ich habe die Anwendung bereits auf einem anderen Rechner Compilliert und getestet - selber Fehler.

Gruss
  Mit Zitat antworten Zitat