Beiträge von HPB

    Guten Tag Herr Ziersch,
    ich möchte WPRichText als Grundlage für den E-Mailversand verwenden.
    In den Demos gibt es hierfür wohl keine Demo. Die Demo MailM4, die es vermuten ließ
    ist es nicht. Gibt es es von Ihnen ein Workaround hierzu?
    Die Schwierigkeit ist nun folgende:
    Ich möchte die Indykomponenten zum Senden einsetzen. Im Body der E-Mail werden Text und Bilder versandt.
    Die Indy-Komponente will im Body TString benutzen. Aber Bilder mit TString geht ja wohl nicht.
    Gibt es in WPTools eine funktion für das korrekte Umsetzen?

    Mit freundlichem Gruß
    HPB

    Guten Tag Herr Ziersch,
    warum antworten Sie nicht??
    Ich möchte nun auch die WPTools für das Senden von Mails benutzen.
    Bekomme aber den Signaturtext, der im BlobFeld einer Tabelle gespeichert wird,
    nicht angezeigt.
    Wenn ich die Komponente "TDBWRichtext" benutze, wird der Feldinhalt angezeigt.
    Aber Als E-Mail Grundlage möchte ich keine DB-Komponente benutzen.

    Versucht habe ich es nun auch mit folgendem Code:


    Aber es wird nichts angezeigt.

    Mit Gruß HPB

    Guten Tag Herr Ziersch,
    wie kann man ein Blob-Feld das Text und eine Grafik enthält in WPTools darstellen?
    Ich lese das Blob-Feld als WideString in die Variable "Signaturtext" ein.
    Versucht habe ich es mit folgendendem Code:

    Code
    wprchtxtVorlage.InputStringW(SignaturText);


    Bedauerlicherweise wird es nicht richtig dargestellt.
    In der JediKomponete JVRichEdit wird das Blob-Feld mit z. B.

    Code
    jedMailBody.Lines.Add(Signatur);


    korrekt dargestellt. Grafik und Text werden an der richtigen Stelle angegeben.
    Sicherlich gibt es in WPTools dafür auch eine Lösung.

    Bedauerlich das hier kein Screenshoot mit übergeben werden kann.

    Mit freundlichem Gruß
    HPB


    Guten Tag Herr Ziersch,
    vielen Dank für Ihre Antwort.
    Mit "RTF-nomergefields" werden die Serienbrieffelder nicht gespeichert.
    Aber die Grafik in der Kopfzeile, die als Grafik eingefügt wurde,
    wird nicht mit gespeichert. Auch nicht mit "-alwaysembed".
    Nun kann es sein, das die Grafik nicht als verlinkte Grafik erkannt wird.
    Aber wie soll denn eine Grafik eingebunden werden?
    Gibt es dabei etwas zu beachten?
    Mit freundlichem Gruß
    HPB

    Zitat von wpsupport

    Wenn Sie beim abspeichern im Formatstring (das ist ein parameter in SaveToFile) -NoMergeFields angeben wrden die Feldinhalte aber nicht die Felder gespeichert.

    Guten Herr Ziersch,
    vielen Dank für Ihre Antwort.
    Ich speicher das Dokument wie folgt ab:

    Code
    wprchtxtVorlage.SaveToFile(pDateiName, True, 'NoMergeFields');


    Nach dem Speichern sind aber keine Daten im Text vorhanden. D. H. Das Dokument ist leer. Dabei ist es egal ob der zweite Parameter mit "True oder False"
    übergeben wird und ohne zweiten Parameter kann ja nicht aufgerufen werden.
    Wo liegt jetzt noch das Problem. Was ist falsch?
    Mit Gruß und ein erfolgreiches Jahr 2015
    HPB

    Guten Tag Herr Ziersch,
    ich erzeuge einen Serienbrief. Der Serienbrief wird als RTF-Datei gespeichert.
    Wenn ich die erzeugte Datei in MS-Word aufrufe, dann sieht es so aus:

    Zitat

    MERGEFIELD TitelHerrn
    MERGEFIELD VornameRolf MERGEFIELD NachnameAppel
    MERGEFIELD Name3
    MERGEFIELD StrasseMundsburger Damm 60
    MERGEFIELD PLZ22087 MERGEFIELD OrtHamburg


    Wie kann ich nun erreichen, dass die Bezeichnung "MERGEFIELD" nicht
    mit abgespeichert wird?
    Der Sinn dahinter ist folgender:
    An einigen Adressen soll der Brief nicht per Post, sondern als Mail-Anhang versandt werden.
    Vielleicht haben Sie eine Muster-Lösung??

    Guten Tag Herr Ziersch,
    es will einfach nicht gelingen!
    ich habe es nun mit folgendem Code versucht:

    Code
    procedure TFrmSchriftverkehr.OeffneEinVorhandenesDokument;begin  Dokumente.FindeEinDokument(DokumentID);  wprchtxtSchriftVerkehr.Clear;  wprchtxtSchriftVerkehr.AsANSIString('RTF'); // auch 'WPTOOLS' brachte kein erfolg  wprchtxtSchriftVerkehr.AsString := Dokumente.Dokument;  wprchtxtSchriftVerkehr.CPPosition := MaxInt;end;

    Beim Probieren merke ich gerade dass das Dokument richtig angezeigt wird!
    Ich habe nur diese Zeile geändert:

    Code
    Dokumente.Dokument := wprchtxtSchriftVerkehr.SaveToString('RTF');

    In das Blobfeld der Tabelle speicher ich als "WideString".

    Mit dem von Ihnen vorgeschlagenem Stream komme ich nicht nicht zurecht.
    Was nicht wie ich das programmieren soll.
    Wären Sie bitte so nett eine Demo-Procedure bereitzustellen, anhand ich genau
    sehen kann, wie das alles abzulaufen hat??
    Also eine für das Speichern und eine für das Laden. Ich möchte ja den Text in ein Feld der Datenbank speichern. Wäre wirklich nett von Ihnen.
    Mit freundlichem Gruß
    HPB
    Mit Gruß
    HPB

    Guten Tag Herr Ziersch,
    ich habe auf einem Formular Textfelder definiert. Diese Felder werden über
    folgenden Code gefüllt:

    Code
    if inspname = 'Dokumentart' then      Contents.StringValue := 'Rechnung';    if inspname = 'ReNummer' then      Contents.StringValue := RechnungsNr;    if inspname = 'KundenNr' then      Contents.StringValue := KundenNr;    if inspname = 'AuNummer' then      Contents.StringValue := AuftragsNr;    if inspname = 'Datum' then      Contents.StringValue := FormatDateTime('dd.mm.yyy', AktDatum);    if inspname = 'Betreff' then      Contents.StringValue := 'Betreff: ' + AuBetreff;    if inspname = 'Ausführungstext' then      Contents.StringValue := 'Leistungszeitraum: ' +        FormatDateTime('mmmm yyyy', LeistDatum);


    Dies wird auch richtig ausgeführt. D. H. Die korrekten Daten stehen in den Feldern.
    Nun ist es so das z. B. das Feld "Ausführungstext" durch einen neuen Wert ersetzt werden soll.
    Dazu wird folgender Code ausgeführt:

    Code
    procedure TFrmSchriftverkehr.SetzeLeistungsDatumNeu;begin  LeistDatum := advsmthdtpckrRechnungsdatum.Date;  wprchtxtSchriftVerkehr.MoveToField('Ausführungstext');  wprchtxtSchriftVerkehr.InputMergeField('Ausführungstext', '');  wprchtxtSchriftVerkehr.InputMergeField('Ausführungstext',   'Leistungszeitraum: ' + FormatDateTime('mmmm yyyy', LeistDatum));


    Nach dem Ausführen wird aber der vorhandene Wert nicht gelöscht sondern es wird dem vorhanden Text "Leistungszeitraum: Juni 2014"
    der neuerzeugte Text hinzugefügt. Es sieht dann so aus!
    Leistungszeitraum: November 2010Leistungszeitraum: Juni 2014

    Auch das erneute Ausführen von:

    Code
    wprchtxtSchriftVerkehr.MergeText;


    brachte keine Lösung!
    Können Sie mir bitte mitteilen was ich hier falsch mache??
    Bedauerlich das keine Screenshots hinzugefügt werden können.

    [Blockierte Grafik: http://www.bps-nienburg.de/wp-content/upl…ler-wptools.zip]
    Download der Screenshots: http://www.bps-nienburg.de/wp-content/upl…ler-wptools.zip

    Mit freundlichem Gruß
    Hans-Peter Bongers

    Guten Tag Herr Ziersch,
    ich möchte gerne das mit WPRichText erzeugte Dokument in ein Blobfeld
    der Datenbank speichern. Ich habe Interbase als Datenbank im Einsatz.
    Die Daten werden auch in das Blobfeld gespeichert,
    jedoch beim Wiedereinladen in WPRichText sind die Tabulatoren und sonstige Textkennungen nicht mehr vorhanden.
    Das Speichern erfolgt mit dem folgemdem Befehl:

    Code
    NeuesDokument.Dokument := wprchtxtSchriftVerkehr.Text;


    Die Vaiable "Dokument" ist vom Typ ein WideString.

    Öffnen mit folgendem Befehl:

    Code
    wprchtxtSchriftVerkehr.Text := Dokumente.Dokument;

    Irgendetwas mache ich falsch. Ich habe schon die unterschiedlichen
    Aufrufe für "wprchtxtSchriftVerkehr.fff" ausprobiert, bin aber nicht zum Ziel gelangt.
    Ich bin mir aber sicher ich dies schon einmal gelöst habe, weiß aber nicht mehr wie die Befehle dazu. Verdammt!!!!
    Vielleicht können Sie mir helfen??
    Mit Gruß
    Hans-Peter Bongers

    Guten tag Herr Ziersch,
    vielen Dank für Ihre bisherige Mühen.
    Ich habe dank Ihrer Hilfe alles bestens lösen können und fand noch Dies eine oder Andere. Ich habe gut dazu gelernt.
    Auch möchte ich ein Lob für WPTools ausprechen. Es ist ein wirklich hervoragendes Tool.
    Bedauerlich finde ich es aber trotzallem, dass die Dokumentation nicht auf deutsch erhältlich ist. So könnten viele Fragen im Vornhinein gelöst werden.
    Jedenfalls für die jenigen Nutzern, die in der englischen Sprache nicht so zu gut Hause sind. Ich gehöre auch dazu.
    Mit Gruß
    HPB

    Guten Tag Herr Ziersch,
    wie kann ich die Seiteneinstellungen ändern. Ich stelle mir so etwas wie in MS-Word vor ==> Seitenlayout ==> Seitenränder.

    Wie kann ich zur letzten Zeile eines Dokumentes gelangen?

    Code
    Par := WPRichtext1.LastPar
     wprchtxtVorlage.ActiveText.AppendPar


    Was ich meine ist, wie kann ich die letzte Zeile im Dokument aktivieren, damt der User sofort schreiben kann.
    Wenn das Dokument geladen wird, befindet sich der Cursor auf der ersten Zeile des Dokumentes.
    Gerade bei Serienbriefe könnte es von Vorteil sein, wenn der Cursor sich auf der letzten Zeile zum sofortigen Schreiben befindet.

    Ich finde in der Dokumentation für beide Probleme keine Hinweise.

    Mit freundlichem Gruß
    HPB

    Guten Tag Herr Ziersch,
    obwohl ich die Einstellungen für WPLanguages, wie in der Dokumentation beschrieben siehe Seite 14ff, eingestellt habe, sind die Hints noch in englisch.
    Muß noch irgend etwas Anderes eingestellt werden?
    Mit freundlichem HPB

    Zitat von wpsupport

    Hallo,

    Diese Unit ist Teil des Produktes wPDF.
    https://www.wpcubed.com/products/wpdf/index.htm

    Wenn Sie wPDF haben können sie es in das WPTools package installieren, indem sie in der Datei WPINC.INC das compiler symbol WPDFEX definieren und das package neu kompilieren.

    Beste Grüsse,

    Julian Ziersch


    Guten Tag Herr Ziersch,
    vielen Dank für Ihre Antwort.
    Ich habe in der Datei WPINC.INC folgende Einstellung gemacht beziehungsweise den Punkt entfernt:

    {$DEFINE WPPDFEX} //= link in wPDF, our PDF addon

    Beim Compilieren bekomme ich jedoch diese Fehlermeldung angezeigt:
    Fataler Fehler WPTools_Reg.pas(23) Datei nicht gefunden: wpdf_inc.Inc
    Im Installationsordner von WPTools sind nur folgende Inc-Dateien vorhanden:
    WPINC.INC
    WPMSG.INC

    Woher bekomme ich die fehlende Datei?
    Mit freundlichen Gruß
    HPB

    Guten Tag Herr Ziersch,
    ich möchte gerne ein Dokument in PDF exportieren.
    Dazu soll/muß ich die Unit WPPDFWP in die Uses-Klausel aufnehmen.
    Siehe hierzu auch die Dokumentation 7.11.1 Export to PDF
    Kann es sein das meine Version von WPTools, ich besitze ja WPTools 6 Standard Bundle, diese Unit nicht kennt??
    Muss ich ein anderes WPTools einsetzen? Das Bundle neu kaufen?
    Auf jeden Fall kann ich die Unit nicht einbinden.
    Mit freundlichem Gruß
    HPB

    Zitat von wpsupport

    Vor dem
    WPAPrint1.Execute;
    müssen Sie wprchtxtDokument.ReformatAll(true, false) aufrufen. TWPRichText formatiert den Text in idle Phasen, also z.b. wenn ShowMessage aufgerufen wurde.

    Anstatt WPAPrint1.Execute würde ich allerdings wprchtxtDokument.Print direkt aufrufen.


    Guten Tag Herr Ziersch,
    vielen Dank für den Hinweis.
    Mit

    Zitat

    wprchtxtDokument.Print direkt aufrufen

    werden die Daten korrekt gedruckt.
    Mit besten Grüßen
    HPB

    Guten Tag Herr Ziersch,
    kaum ist das Eine gelöst, kommt auch schon das andere Problem.
    Um einen Serienbrief zu drucken benutze ich folgenden Code:

    Code
    for i := 1 to 4 do        begin          FAktAdressNr := i;          wprchtxtDokument.MergeText;          ShowMessage('Drucken');          WPAPrint1.Execute;        end;

    Die Variable FAktAdressNr brauch ich als Datensatz Zähler.
    Die Adressen befinden sich in einem Rocord.
    In MailMergeGetText befindet sich folgender Code:


    Es gibt bestimmt eine elegantere Weise um auf die Felder zuzugreifen, aber dies soll hier nicht berücksichtigt werden. Darum kümmere ich mich später. Habe jetzt noch keine Idee wie ich davor gehen soll.
    Wenn ich das "showmessage" in der Druckprozedur entferne, dann werden 4 leere Seiten gedruckt. Lass ich hingegen jeden Druck bestätigen, dann werden die Daten korrekt gedruckt.
    Woran kann das Liegen? Welchen Gedankenfehler mache ich, was verstehe ich hier nicht richtig?
    Gruß HPB