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:
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.