Hallo zusammen

vor einiger Zeit habe ich damit begonnen meine Delphianwendung nach Lazarus zu migrieren.
Da ich in Lazarus keine Richtext-Memokomponente mit DB anbindung gefunden habe verwende ich richmemo http://wiki.lazarus.freepascal.org/RichMemo

Ich verwende gerade diese Funktion ( die noch unschön ist ).

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String);
var
    rtfString : String;
begin
     //Get the data from the database as AnsiString
     rtfString := aTable.FieldByName(aField).AsAnsiString;

     //Write the string into a stream
     stream := TMemoryStream.Create;
     stream.Clear;
     stream.Write(PAnsiChar(rtfString)^, Length(rtfString));
     stream.Position := 0;

     //aForm.aElement.LoadRichText(stream);

     //stream.Free;
end;

Der Aufruf erfolgt so:

markieren

Delphi-Quellcode:

procedure TDM_testimony.rtf_stream_read(Sender: TObject);
begin
     DM.rtf_stream_load(tbl_testimony,'TESTIMONY');
     frm_testimony.RichMemo1.LoadRichText(stream);

     stream.Free;
end;

Frage:
Wie kann ich der Funktion auch noch das zu verwendende Form übergeben?

Danke für Eure Tipps.

Wozu mußt du TForm übergeben? Du machst dir im Datemodul eine Funktion, die den Tabellennamen, den Datensatz-Identifier (Primary-Key) und den Stream entgegennimmt, den Stream dann befüllt und bei Erfolg True zurückgibt. Zum Speichern des Memo-Inhalts machst du dir eine Kopie dieser Funktion und baust sie derart um, daß der Stream in der Datenbank gespeichert wird:

zusammenfalten · markieren

Delphi-Quellcode:

// ----- Übergibt den Inhalt eines Blobfelds an Stream
Function TDatMod.BlobToStream(Stream: TMemoryStream; Feld: TField): Boolean;
Var
  S : TStream;
begin
   Result := False;
   If Not Feld.IsBlob Then Exit;
   If Feld.IsNull Then Exit;

   S := Nil;

   Try
     S := Feld.DataSet.CreateBlobStream(Feld, bmRead);
     Stream.Clear;
     Stream.CopyFrom(S,S.Size);
     Result := True;
   Finally
     S.Free;
   End;
end;

// ----- Übergibt den Inhalt eines Streams
Function TDatMod.StreamToBlob(Stream: TMemoryStream; Feld: TField): Boolean;
Var
  S : TStream;
begin
   Result := False;
   If Not Feld.IsBlob Then Exit;
   S := Nil;

   Try
     S := Feld.DataSet.CreateBlobStream(Feld, bmReadWrite);
     S.CopyFrom(Stream,Stream.Size);
     Result := True;
   Finally
     S.Free;
   End;
end;

Bei mir fehlt die Lokalisierung des Datensatzes, weil ich in meinen Anwendungen bereits in jeweiligen Datensatz bin. Auch die Übergabe des Tabellennamens erübrigt sich, wenn man das Feld vom Typ TField übergibt:

zusammenfalten · markieren

Delphi-Quellcode:

Procedure MemoAktualisieren;
Var
  Feld : TField;
  S : TMemoryStream;

begin
  Feld := DatenModul.MyQuery.FieldByName('BEMERKUNGEN');
  S := TMemoryStream.Create;

  Try
    Memo.Lines.SaveToStream(S);
    If Not DatenModul.BlobToStream(S,Feld) Then
    ShowMessage('Fehler');
  Finally;
    S.Free;
  End;
end;

Den Stream kannst du dann jeweils mit LoadFromStream bzw. SaveToStream ins Memo einlesen bzw. aus dem Memo extrahieren.

Nachtrag: Dein geposteter Quelltest enthält keine Functions, sondern lediglich zwei Procedures. Will man beide, Function und Procedure, die zu einer Klasse gehören, umschreiben, spricht man von Methoden.

Alles ungetestet.

Einfach einen weiteren Parameter hinzufügen.

Danke für die Tipps.
Werde es gleich bei mir testen.

Versuche nur meine Ursprüngliche Idee zum laufen zu bringen...
Irgendwie fehlt mir da das Grundverständniss.....

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String; aForm: TForm; aComponent: TObject);
var
    rtfString : String;
begin
     //Get the data from the database as AnsiString
     rtfString := aTable.FieldByName(aField).AsAnsiString;

     //Write the string into a stream
     stream := TMemoryStream.Create;
     stream.Clear;
     stream.Write(PAnsiChar(rtfString)^, Length(rtfString));
     stream.Position := 0;

     aForm.aComponent.LoadRichText(stream);
     //
     stream.Free;

end;

Ich erhalte hier:

markieren

Code:

udm.pas(229,12) Error: identifier idents no member "aComponent"

Sorry wenn ich da nochmals nachfrage

Die Angabe der Form ist auch nicht nötig. Dafür aber ein cast auf die richtige Kllase bzw. gleich die richtige Vorgabe auf eine Komponenetnklasse, welche die Methode unterstützt.

Danke schon mal...
Hab's ein wenig angepasst.. Bin mir nur nicht sicher wie ich das mit der Form mache....

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String; ARichMemo: TCustomRichMemo);
var
    rtfString : String;
begin
     //Get the data from the database as AnsiString
     rtfString := aTable.FieldByName(aField).AsAnsiString;

     //Write the string into a stream
     stream := TMemoryStream.Create;
     stream.Clear;
     stream.Write(PAnsiChar(rtfString)^, Length(rtfString));
     stream.Position := 0;

     ARichMemo.LoadRichText(stream);
     //
     stream.Free;
end;

Der Aufruf:

markieren

Delphi-Quellcode:

procedure TDM_testimony.rtf_stream_read(Sender: TObject);
begin
    DM.rtf_stream_load(tbl_testimony,'TESTIMONY',RichMemo1);
end;

Ich erhalte den Fehler:

markieren

Code:

udm_testimony.pas(137,64) Error: Identifier not found "RichMemo1"

Ich hab Ihm ja auch nicht gesagt wo die Richmemo liegt...