Inhalt einer RTF-Datei in Blob-Feld speichern

Josef-B · Verfasst: Do 20.01.05 19:02

Hallo,

ich möchte in ein Blob.feld (DbRichedit) fertige Textkonserven aus einer rft-Datei übernehmen.

Folgenden Code habe ich schon, weiß dann aber nicht weiter, wie man die Übernahme jetzt genau macht.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TFEinkauf.BtnLadenClick(Sender: TObject);
var pfad:string;
begin
with opendialog1 do
  begin
  execute;
  pfad := filename;
  dataset1.fieldbyname('Blob').asstring := ? // hier weiß ich nicht weiter
  //oder macht man das anders?
  end;
end;

Josef-B · Verfasst: Fr 21.01.05 20:33

Wer suchet der findet:

Dank des Beitrages von UGrohne in den Datenbank-FAQs hab ich das Ganze wie folgt mit einem blobstream gemacht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TFEinkauf.BtnLadenClick(Sender: TObject);
var pfad:string;
var datei:Tstream;
begin
with opendialog1 do
  begin
  execute;
  pfad := filename;
   //Datei einlesen
  end;
  datei:=TFileStream.Create(pfad,fmOpenRead or fmShareDenyWrite);
  try
  (ibdataset1.fieldbyname(dbrichedit1.DataField)as TBlobField).LoadFromStream(Datei);
  finally
  datei.Free;
  end;
end;

Danke und Gruß an UGrohne !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme