Hallo,

ich brauche mal wieder Eure Hilfe.
Ich möchte gerne eine HTML Datei öffnen und dann bestimmte Werte ersetzen.
Wenn man die HTML Datei mailen will geht es. Also habe ich es wieder mit IDMessage versucht, um die Datei zu öffnen.

Hier der Code:

zusammenfalten · markieren

Delphi-Quellcode:

var n : integer;
    text : string;
begin
   // Senden per E-Mail

   IdMessage.Clear;


  // HTML Part
  with TIdText.Create(IdMessage.MessageParts, nil) do
  begin
    ContentType := 'text/html';
    Body.LoadFromFile('HTMLDATEI.html');

    //Daten einsetzen
    text := body.Text;
    n := pos('$titel',text);
    delete(text,n,5);
    insert(DBAdvEdit1.Text,text,n);

    //Daten einsetzen
    text := body.Text;
    n := pos('$text2',text);
    delete(text,n,6);
    insert(DBMemo2.Text,text,n);


    //Daten einsetzen
    text := body.Text;
    n := pos('$link',text);
    delete(text,n,4);
    insert(DBAdvEdit2.Text,text,n);



 // Datensatz im Verzeichnis speichern

 SavetoFile('verzeichnis\'+dataDaten.DB.FieldbyName('id').asString+'.html');

Leider weiß ich nicht, mit welchem Befehl ich die HTML Datei auf andere Weise öffnen kann. Außerdem funktioniert das Speichern nicht und ich bin etwas ratlos.

Könnt Ihr mir helfen?

Danke im Voraus.

Hallo,

mir ist nicht ganz ersichtlich, warum Du einen so umständlichen Weg gehst, eine normale Textdatei zu editieren

Eine der Möglichkeiten wäre beispielsweise, dass Du die HTML-Datei in eine Stringliste einliest, bearbeitest, und hinterher wieder zurückschreibst.

Desweiteren könntest Du auch den Inhalt der Datei in einen FileStream lesen, diesen bearbeiten und hinterher wieder zurückschreiben.

Du hast Recht.
In ein Memo laden ist wirklich einfacher.
ABER: Wie kann ich denn die Variablen '$titel' finden und ersetzen in einem Memo??

Wäre cool, wenn Du mir nochmal helfen könntest.

Schade, dass du deine Delphi-Version noch nicht in dein DP-Profil eingetragen hast. Je nach Version gibt es die Komponente TPageProducer, welche genau dein Problem sehr einfach löst.

Grüße vom marabu

Ich habe Delphi 7, aber die Funktion sagt mir nichs. Wird wohl dann erst später dabei gewesen sein oder?