Funktion / Stream in Richmemo laden ( Lazarus )

[manfred_h]

Habs...

Der Aufruf war falsch...

Delphi-Quellcode:

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

Besten Dank für Eure Hilfe

[DeddyH]

Wieso übergibst Du eigentlich Tabellen- und Feldnamen statt gleich das Feld, das eigentlich gemeint ist?

[manfred_h]

Guten Morgen

Code:

Wieso übergibst Du eigentlich Tabellen- und Feldnamen statt gleich das Feld, das eigentlich gemeint ist?

DM.rtf_stream_load(tbl_testimony,'TESTIMONY',frm_t estimony.RichMemo1);

tbl_testimony: TDAMemDataTable
TESTIMONY: Feldname
frm_testimony: Formname
RichMemo1: Name der Komponente

Was darf dann hier fehlen?

[mkinzler]

Man könnte auch direkt die TField-Instanz übergeben:

procedure TDM.rtf_stream_load( aField: TField; ARichMemo: TCustomRichMemo); DM.rtf_stream_load(tbl_testimony.FieldByName('TESTIMONY'),frm_testimony.RichMemo1);

[manfred_h]

Hört sich gut an.
Danke für den Tipp.

Shalom
Manfred

[manfred_h]

Noch eine Frage

Habe eben diesen Post gefunden:
http://www.delphipraxis.net/107884-m...eichern-2.html

Bietet TReader, TWriter vorteile gegenüber meiner gefundenn Lösung?

Delphi-Quellcode:

procedure TForm1.ButtonLadenClick(Sender: TObject); 
Var Stream:TFilestream; 
begin 
  Stream:=TFileStream.Create('D:\TestStream',fmOpenRead or fmShareDenyNone); 
  try 
    //TReader objekt erstellen und Daten aus den Stream laden 
    with TReader.create(Stream,1024) do 
      try 
        Memo1.Text := ReadString; 
        Edit1.Text := ReadString; 
        SpinEdit1.Value := ReadInteger; 
        CheckBox1.Checked := ReadBoolean; 
      finally 
        free; 
      end; 
   finally 
     Stream.free; 
   end; 
end;

Delphi-Quellcode:

procedure TForm1.ButtonSpeichernClick(Sender: TObject); 
Var Stream:TFilestream; 
begin 
  Stream:=TFileStream.Create('D:\TestStream',fmcreate); 
  try 
    //TWriter objekt erstellen und Daten in den Stream speichern 
    with TWriter.create(Stream,1024) do 
      try 
        WriteString(Memo1.Text); 
        WriteString(Edit1.Text); 
        WriteInteger(SpinEdit1.Value); 
        WriteBoolean(CheckBox1.Checked); 
      finally 
        free; 
      end; 
   finally 
     Stream.free; 
   end; 
end;

[Perlsau]

Manfred, wieso probierst du nicht einfach die Universal-Lösung, die ich oben bereits gepostet hatte, einmal aus? Diese beiden Methoden kannst du für alle Blob-To-Stream- und Stream-To-Blob-Aufgaben einsetzen. Du mußt lediglich den Stream und das Feld übergeben. Das Feld legst du in der aufrufenden Methode fest:

Delphi-Quellcode:

Procedure TForm1.AufrufendeMethode(Sender : TObject);
Var
  Feld : TField;
  S : TMemoryStream;
begin
  S := TMemoryStream.Create;
  Try
    Feld := DatenModul.MyQuery.FieldByName('MeinBlobFeld'); // oder wie auch immer deine Tabellenkomponente und dein Blobfeld benannt sind
    Memo.Lines.SaveToStream(S);
    If Not DatenModul.StreamToBlob(S,Feld) Then
       ShowMessage('Fehler'); // oder eben ein globaler Fehlerstring, wie ich ihn verwende
  Finally
    S.Free;
  End;
end;

Wenn du das Feld angibst, mußt du weder Tabellenname noch sonstwas übergeben, denn das Feld führt ja ein Property mit, welches das Dataset beinhaltet: Feld.Dataset. Du mußt also nicht mit der Kirche ums ganze Dorf fahren

Ungetestet, da nur schnell als Beispiel reingetippt ...