TStream in/aus Datenbank schreiben/laden

[WizoHulk]

Hallo

Kann man einen Stream in eine Datenbank schreiben?

Und zwar habe ich das problem das ich ein TreeList abspeichern und Später wieder auslesen möchte.

Ich habe die TreeList in einen Stream gespeichert mit

Delphi-Quellcode:

trl.SaveToStream(sStream);

Nun möchte ich diesen Stream über ein INSERT in eine Tabelle schreiben.

Hat jemand ein paar Anregungen für mich?

[himitsu]

Ein BLOB-Feld?

[WizoHulk]

ja!
hab es über TBlobStream versucht, ging leider auch nicht.

[DeddyH]

Und was heißt "ging nicht"?

[WizoHulk]

Soooo,
ein Insert habe ich hinbekommen,
aber wie kriege ich den wieder raus aus der DB. der Parameter asBlob gibt asStream gibt es ja bei q.FieldByName ja nicht.

Delphi-Quellcode:

 sStream := TMemoryStream.Create;

  trlKontaktTyp.SaveToStream(sStream);

  CreateQuery(qtemp);
  qtemp.ParamCheck := true;
  qTemp.SQl.text := 'UPDATE Dateien SET DateiBlob   = :DateiBlob,'   +
                                       'Bezeichnung = :Bezeichnung,' +
                                       'Bemerkung   = :Bemerkung '   +
                    'WHERE DSN = '+alsDSN(sBlobDSN);

  qtemp.Parameters.ParamByName('DateiBlob').LoadFromStream(sStream,ftBlob);
  qtemp.Parameters.ParamByName('Bezeichnung').Value := 'Kundenanlegen';
  qtemp.Parameters.ParamByName('DateiBlob').Value   := 'EreignisSteuerung';
  qTemp.ExecSQL;

  DestructQuery(qTemp);

[DeddyH]

Womit greifst Du denn auf die DB zu?

[WizoHulk]

mit einer TADOQuery auf einer MSSQL Datenbank

[haentschman]

Moin...
so funktioniert das mit einem Bild... (Stream lesen, geklaut in einem anderen DP Fred 8-))

Delphi-Quellcode:

var
  BlobStream: TStream;
  aq : tabsquery;
begin
      aq := tabsquery.Create(nil);
      aq.DatabaseName := 'xyz';
      aq.SQL.Add('SELECT bild FROM tbltest WHERE id = 1');
      aq.Open;
      BlobStream := aq.CreateBlobStream(aq.FieldByName('bild'),bmRead);
      ImageAnswer.Picture.Graphic.LoadFromStream(BlobStream); // liegt auf der Form!!!
      BlobStream.Free;
      aq.Close;
      aq.Free;
end;

versuch das mal auf dein Problem umzusetzen...

[WizoHulk]

Guten Morgen


Hat wunderbar geklappt

danke