AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi RTF-Dokument in DB, raus kommt Müll
Thema durchsuchen
Ansicht
Themen-Optionen

RTF-Dokument in DB, raus kommt Müll

Offene Frage von "emsländer"
Ein Thema von emsländer · begonnen am 4. Mai 2007 · letzter Beitrag vom 5. Mai 2007
 
Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#1

RTF-Dokument in DB, raus kommt Müll

  Alt 4. Mai 2007, 17:53
Datenbank: MSSQL • Version: 2005 • Zugriff über: ADO
Moin,

hab da echt ein dickes Problem: Ein RTF-Dokument, welches ich in einer DB (Field ist Typ Image), speichere, kommt als Müll wieder heraus (bzw. alle Formatierungen sind weg)

Der Quelltext zum Speichern ist hier: (inhalt enthält wprichtext.text, also das rtf)
Delphi-Quellcode:
function Tfrm_dokumente.neuer_datensatz(zu_akte, _name, inhalt : string) : integer;
  var _stmp : string;
   _query : TAdoquery;
   store : boolean;
begin
  result := 0;
  _query := TADOquery.Create(nil);
  with _query do begin
     connection := AktenManager.ADOConnFDD;
     try
       _stmp := 'insert into dokumente (dokument) values ('''+inhalt+''')';
       sql.Add(_stmp);
       result := ExecSQL;
       SQL.Text := 'Select @@Identity';
       Active := True;
       result := Fields[0].AsInteger;
       sql.Clear;
       _stmp := 'insert into dokumentenliste (zu_akte,name,dokument_nr) values ('+zu_akte+','''+_name+''','+inttostr(result)+')';
       sql.Add(_stmp);
       result := ExecSQL;
     except
       result := 99;
     end;
   end;
   freeandnil(_query);
end;
Hier nun der Code zum Lesen: (Wptext ist wprichtext von den WPTOOLS)
Delphi-Quellcode:
    try
      _stmp := 'select dokument from finanzdesk.dbo.dokumente where lfdnr ='+dok_nr;
      _query.sql.Text := _stmp;
      _query.open;
      erg64 := _query.FieldByName('dokument').Value;
      _query.close;
      erg := base64decode(erg64);
      wptext.Text := erg;
      wptext.SaveToFile('text.rtf'); // Dieses RTF ist zerhackt - die Formatierung ist weg
    except
      //
    end;
  end;
Gruss

EL


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz