Richedit Fehler

[franktron]

Wenn ich in meinem TRichedit versuche einen Stream mit Richedit1.Lines.LoadFromStream(Stream) einzulesen dann kriege ich oft Exceptions (Exception bei Zugriff auf Adr. xxxxx auf xxxx.) was könnte das sein.

Ich bneutze Delphi7 Pro ohne SP (geht nicht zu installieren warum auch immer)

P.S. unter D5 SP3 ging alles noch.

Der fehler tritt erst dann auf wenn ich denn Stream mehrmals laden will.

Ich habe das ganze etwas eingegrenzt der Fehler tritt nur auf PC's auf wo MW Office drauf ist unt VMWare mit Win200 ist das Problem wohl nicht da zumindestens hab ich es nicht reprudozieren können.

P.S. das problem titt mit allen Richedit komp. RXRichedit JVCL beide Rihcedits

BITTE HELFT MIR ich bin schon am verzweifeln :cry:

[ibp]

wie wäre es denn mit ein wenig code ?

[Nicodius]

es wäre mal nicht schlecht :roll:

[franktron]

Hier ist der Code mit dem ich das immer teste

Delphi-Quellcode:

Var
   Stream   : TStream;
begin
   if View.Name = 'Memo_D4' then
   Begin
      If D_Master_SQL2.FieldByName('memop').IsNull then Exit;
      Stream:=D_Master_SQL2.CreateBlobStream(D_Master_SQL2.FieldByName('memop'),bmRead);
      Try
         F_Main.RxRichEdit1.Clear;
         Stream.Position:=0;
         If Stream.Size>0 then
            F_DruckerF.RxRichEdit1.Lines.LoadFromStream(Stream)
         Else
         F_DruckerF.RxRichEdit1.Clear;
      Finally
         FreeAndNil(Stream);
      End;
      F_DruckerF.RxRichEdit1.SelectAll;
      F_DruckerF.RxRichEdit1.SelAttributes.Size:=11;
      Stream:=TMemoryStream.Create;
      Try
         F_DruckerF.RxRichEdit1.Lines.SaveToStream(Stream);
         Stream.Position:=0;
         TfrRXRichView(View).RichEdit.Lines.LoadFromStream(Stream);
      finally
         FreeAndNil(Stream);
      End;
   End;

[edit=sakura] [code] :arrow: [delphi] Mfg, sakura[/edit]

[ibp]

Zitat:

Zitat von franktron

Code:

Var
   Stream   : TStream;
begin
   if View.Name = 'Memo_D4' then
   Begin
      If D_Master_SQL2.FieldByName('memop').IsNull then Exit;
      Stream:=D_Master_SQL2.CreateBlobStream(D_Master_SQL2.FieldByName('memop'),bmRead);  ' <--- wo ist ist das create von stream ?
      Try
         F_Main.RxRichEdit1.Clear;
         Stream.Position:=0;
         If Stream.Size>0 then
            F_DruckerF.RxRichEdit1.Lines.LoadFromStream(Stream)
         Else
         F_DruckerF.RxRichEdit1.Clear;
      Finally
         FreeAndNil(Stream);
      End;
      F_DruckerF.RxRichEdit1.SelectAll;
      F_DruckerF.RxRichEdit1.SelAttributes.Size:=11;
      Stream:=TMemoryStream.Create;
      Try
         F_DruckerF.RxRichEdit1.Lines.SaveToStream(Stream);
         Stream.Position:=0;
         TfrRXRichView(View).RichEdit.Lines.LoadFromStream(Stream);
      finally
         FreeAndNil(Stream);
      End;
   End;

... was passiert mit dem stream vorher ?

[franktron]

Ich habs gefunden es liegt daran das der ganz kram (bis auf des Richedit) auf einem Datenmodul liegt das darf wohl nicht sein

Hab mich leider geirt geht immer noch nicht.

@ibp
Der Stream ist in der DB da passiert eben nix mit

[franktron]

@ibp
Der Stream wird doch da wo du den Pfeil geamcht haste erstellt (CreateBlobStream) 8)