Beiträge von dataspider

Hallo

Ich versende Mails mit Indy. Eigentlich ist Alles perfekt. Nur die Größe von Bildern stimmt nicht.
Die Bilder sind größer.

Ich habe den Quelltext in Outlook mal verglichen:

Füge ich das Bild mit Outlook ein, kommt folgendes im Mail - Quelltext an:

<img width=150 height=114 id="Grafik_x0020_1" src="cid:image001.jpg...>

Mit WPTools dagegen:

<img src="cid:imgage1" border="0" style="width:1.22in;height:0.92in;"/>

Ich hatte auch mal einen Beitrag hier gelesen, dass für Outlook width und height vor src geschrieben werden sollten.
Kann es an der Reihenfolge liegen und kann ich dies beeinflussen?

Danke

Frank Reim

Ich hatte gestern spät abends noch überlegt, ob ich noch poste, war aber zu müde.
Da habe ich nämlich die primäre Ursache gefunden, und die war bei meinen eigenen Actions.

Ich hab in meiner EditDeleteAction irgendwann einmal mit

ShortCut := 46

DELETE als Shortcut definiert.
Die Action hat

(Target as TWPCustomRichText).ClearSelection

aufgerufen.

Das ging vor meiner Umstellung von Delphi 2007 auf XE (und dabei WPTools 6 auf 7) ohne Fehler, nun knallts halt.
Ich habe den ShortCut entfernt und der Fehler ist weg. Macht man ja auch nicht, keine Ahnung, was mich mal geritten hat.

Danke und sorry, wenn ich nicht notwendigen Aufwand erzeugt habe...

Frank

[EDIT]
Ach ja, zur Frage:
Ich konnte das reproduzieren, sobald die Action im Menü eingeklinkt war und:
- Der markierte Text mit ENTER abgeschlossen war
- hinter dem markierten Text weitere Zeilen waren
Unter den Bedingungen kam der Fehler immer.
[/EDIT]

Hallo,

wenn ich in einem WPRichText einen Block markiere und dann die Taste DELETE drücke, erhalte ich die in den Screenshots angehangene Exception.
Löschen mit der Maus ist kein Problem, Zeile ohne CRLF am Ende geht auch.

Siehe die Screenshots:
http://www.reim-edv.de/download/screenshots.zip

Verwende Delphi XE6.

Frank Reim

Das passt...

Vielen Dank!

Frank Reim

Hallo,

ich habe jetzt mal folgenden Code:

px := WPViewPDF1.Command(COMPDF_GETMOUSE_X);
  py := WPViewPDF1.Command(COMPDF_GETMOUSE_Y);
  pxl := WPViewPDF1.Command(COMPDF_GetPageLogX);
  pyl := WPViewPDF1.Command(COMPDF_GetPageLogY);
  pw := WPViewPDF1.Command(COMPDF_GetPageWidth);
  ph := WPViewPDF1.Command(COMPDF_GetPageHeight);

Wenn ich rechts unten klicke, sollten ja px und pw sowie py und ph
etwa gleich sein.
Aber
px = 791
py = 1121
pw = 595 (A4 72 dpi)
ph = 842 (A4 72 dpi)

Das ist etwa ein Faktor von 0.75

Wenn ich jetzt meine errechneten X und Y mit 0.75 multipliziere, stimmt die Position etwa.

Aber ich verstehe es nicht.
Was sagen die Werte denn nun aus?

Herzlichen Dank,

Frank Reim

Hallo,

Ich habe schon einen Beitrag dazu gelesen.
Dort werden auf die commands
COMPDF_GETMOUSE_X
COMPDF_GETMOUSE_Y
verwiesen.

Nur wird das Image nicht an der Position eingefügt.

procedure TfrmMain.WPViewPDF1MouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
Var
  i: Integer;
begin
  i := WPViewPDF1.Plus.AddImage('barcode.jpg');
  if i > 0 then
    WPViewPDF1.Plus.UseImage(i,
        WPViewPDF1.command(COMPDF_GetPageUnderMouse),
        WPViewPDF1.Command(COMPDF_GetPageLogX),
        WPViewPDF1.Command(COMPDF_GetPageLogY),
        72, 24, 0, []);
end;

Bei COMPDF_GETMOUSE_XY ist die Position zu weit links oben,
bei COMPDF_GetPageLogXY zu weit rechts unten.

Muss man noch was rechnen?

Danke, Frank

Hallo,

das ging ja schnell.
Die DLL hat auf jeden Fall beide Probleme gelöst.

Der Fehler kam auch nur beim Start mit Debugger in der IDE.
Aber jetzt ist ja alles fein.

Herzlichen Dank

Frank Reim

Hallo,

ich möchte nun von Delphi2007 auf XE6 umstellen.
Ich bekomme aber die WPViewPdf (Plus) nicht zum Laufen.

Da kein XE6 Package im VCL Verzeichnis lag, habe ich ein neues Package erzeugt, die UNIT-Aliase eingetragen, damit er die VCL - Units findet...

Bei einem Mini - Testprogramm kommt beim Start aus der IDE eine Exception Unit WPViewPDF3 Methode WPViewPDFLoadDLL
Zeile:
WPViewPDFDLLHandle := LoadLibrary(PChar(DLLName));
EInOutError 'Invalid file Name - %s'

Ich kann das übergehen, aber das PDF wird mit vielen roten "DEMO"' s geschmückt.

Die PDFLicense.INC hat alle Daten.
Auch ein Aufruf von ViewerStart(...) ändert nichts.

Was kann denn bitte das Problem sein?

Frank Reim

[NACHTRAG]
Kompiliere ich für 64 bit, habe ich diese Probleme nicht!

OverLay.LoadFromFile('300.emf');  //PDFView.CommandStrEx(COMPDF_StampMetafileUnder, 'all', Overlay.Handle);  PDFView.Plus.SetStampMetaUnder('all', OverLay.Handle);

Was kann man falsch machen.
Beide Versionen bewirken in meinem Beispiel nichts.

Frank
[EDIT]
Ich habe es jetzt doch über JPEG gemacht.
Ich gehe davon aus, dass Metafiles, welche nur ein JPEG enthalten, nicht angezeigt werden können.
Ist zwar schade, da ich somit das Ganze nicht über Streams sondern halt über den Umweg mit Files machen muss, aber ich sehe erst mal keinen anderen Weg.

procedure TPdfViewer.ShowLetterHead;
var
  ImageId: Integer;
  i: Integer;
  w: Integer;
  h: Integer;
begin
  ImageId := FPdfView.CommandStr(COMPDF_ADDJPEG, ViewerForm.LetterHeadFileName);
  w := FPdfView.CommandEx(COMPDF_GetPageWidth, 0);
  h := FPdfView.CommandEx(COMPDF_GetPageHeight, 0);


  for i := 0 to FPdfView.PageCount - 1 do
    FPdfView.Plus.UseImage(ImageId, i, 0, 0, w, h, 0, [wpUnderPage, wpAtPageHorzCenter, wpAtPageVertCenter]);


end;

Hallo,

ich bekomme es nicht hin.
Ich habe PDF' s, die Rechnungen enthalten.
Ich habe Kopfbögen als JPeg.

Jetzt möchte mein Kunde die Kopfbögen mit der Rechnung drucken und vermailen.

Was ich auch versuche, meine Rechnung wird immer überdeckt.

CommandStrEx (COMPDF_SelectforegroundMeta - COMPDF_SelectBackgroundMeta) funktioniert nicht.

JPeg geht nicht, da es keine Trasparenz kann.

Wie geht man denn dieses Problem an?
Ist das so überhaupt machbar mit WPViewPDF Plus?

[EDIT]
Drucken geht schon mal:

OverlayMeta.LoadFromFile('300.emf');  WPViewPDF1.CommandStrEx(COMPDF_SelectBackgroundMeta, 'all', OverlayMeta.Handle);

Aber Speichern geht nicht.
Auch wenn ich über wppdfPrinter gehe:

...
WPViewPDF1.PrintHDC(0, PDFPrinter.Canvas.Handle, 72, 72);
...

fehlt der Kopfbogen.
[/EDIT]

Danke

Frank Reim

Hallo,

ich bin dabei, WPTools für den Einsatz im Mail - Client zu testen.
Dabei ist erst mal Alles perfekt.
Allerdings benötige ich anstatt:

<img src="img1.JPG" style="width:1.94in;height:1.54in;"/>

<img src=3d"img1.JPG" style=3d"width:1.94in;height:1.54in;"/>

Leider zeigt sonst z.B. WindowsMail von Vista nichts an.

Kann man das in WPTools steuern oder muss ich selbst parsen.

Danke, Frank

Hi,

I' d like to order upgrade from WPTools 5 Pro Bundle (Single) to WPTools 6 Pro (Single), but I can' t find that option in the upgrade order page.
I can find upgrade from 4 to 6 or from 5 team and 5 site.

How to upgrade from WPTools 5 Pro Bundle to Version 6...

Thanks

Frank

Hi Julian,

danke für die umgehende Anpassung. Doch leider kommt es erneut zu AV's.
Ich habe die Methode mal so angepasst, wie es aus meiner bescheidenen Sicht funktioniert:

procedure TWPMMDataProvider.DoMergeGetText(Sender: TObject;
  const fieldname: string; Contents: TWPMMInsertTextContents);
var
  field: TField;
  dataset: TDataset;
  done: Boolean;
  obj: TWPOImage;
  isnew: Boolean;
  isBMP, isRTF: Boolean;
  s: string;
  i: Integer;
  blobstream: TStream;
  function FindInList(list: TStringList): Boolean;
  var
    ii: Integer;
  begin
    Result := FALSE;
    for ii := 0 to list.Count - 1 do
      if CompareText(fieldname, list[ii]) = 0 then
      begin Result := TRUE;
        break;
      end;
  end;
begin
  if FNowWriteData and FShowFieldNames then
    exit; // not allowed !
  // ---------- EditField, the end marks should not be used for mailmerge ! ----
  if Contents.c = WPEditFieldEnd then
    exit;
  if Contents.c = WPEditFieldStart then
    Contents.Options := [mmDeleteUntilFieldEnd];
  // ---------------------------------------------------------------------------
  dataset := FDataLink.DataSet;
  Done := FALSE;
  if assigned(FOnGetDataset) then
  begin
    FOnGetDataset(Self, fieldname, Contents, dataset);
    if dataset = nil then exit;
  end;
  // ---------------------------------------------------------------------------
  s := '';
  isBMP := FindInList(FBMPFields);
  isRTF := not isBMP and FindInList(FRTFFields);
  if FNowWriteData then
  begin
    if dataset <> nil then
    begin
      field := dataset.FindField(fieldname);
      if assigned(FSaveFielddata) then
      begin
        if (field is TGraphicField) or isBMP then
          s := ''
        else
          if (FRTFFieldList.IndexOf(UpperCase(fieldname)) < 0) and not isRTF then // use last loaded format !
            //  if Contents.OldIsPlain then
            s := Contents.OldText
          else
            s := Contents.OldFormattedText;
        FSaveFielddata(Self, fieldname, contents, s, field, done);
        if done then
          exit
        else
          if not (field is TGraphicField) and not isBMP and (field <> nil) then
            field.AsString := s;
      end
      else
        if not (field is TGraphicField) and (field <> nil) and not isBMP then
        begin
          if not isRTF and (FRTFFieldList.IndexOf(UpperCase(fieldname)) < 0) then // use last loaded format !
            s := Contents.OldText
          else
            s := Contents.OldFormattedText;
          field.AsString := s;
        end;
    end;
    exit;
  end;
  // ---------------------------------------------------------------------------
  if assigned(FGetTextToInsert) then
  begin
    FGetTextToInsert(Self, fieldname, contents, done);
    if done then
      exit;
  end;
  Contents.StringValue := '';
  if (dataset <> nil) and dataset.Active then
  begin
    field := dataset.FindField(fieldname);
    if FShowFieldNames then
    begin
      if field <> nil then
        Contents.StringValue := field.DisplayName
      else
        Contents.StringValue := fieldname;
      if FAppendSpaceToNonEmpty and (Contents.StringValue <> '') then
        Contents.StringValue := Contents.StringValue + #32;
      // Done := TRUE;
      Done := (field <> nil); // further next dataset
    end
    else
      if (field = nil) {otherwise AV} or field.IsNull {otherwise AV with images} then
      begin
        done := (field <> nil); // further next dataset
        Contents.StringValue := '';
      end
      else
        if (field is TGraphicField) or isBMP then
        begin
          Done := TRUE;
          if (wpmmPreserveObjectSize in FOptions) and
            (Contents.CurrentObject <> nil) and
            (Contents.CurrentObject is TWPOImage) then
          begin
            obj := TWPOImage(Contents.CurrentObject);
            isnew := FALSE;
          end
          else
          begin
            obj := CreateTWPTOClass(
              (Sender as TWPCustomRtfEdit).Memo.RTFData
              , 'BMP') as TWPOImage;
            isnew := TRUE;
          end;
          if obj <> nil then
          begin
            // TWPOImage(obj).Graphic.Width := 10;
            if field is TGraphicField then
              TWPOImage(obj).Picture.Assign(field)
            else
              if field is TBlobField then
              begin
                blobstream := TMemoryStream.Create;
                try
                  TBlobField(field).SaveToStream(blobstream);
                  blobstream.Position := 0;
                  TWPOImage(obj).FileExtension := 'BMP';
                  TWPOImage(obj).LoadFromStream(blobstream);
                except
                 // We don't want to see any image errors here !
                end;
                blobstream.Free;
              end;
            if isnew then
            begin
              TWPOImage(obj).HeightTW := MulDiv(TWPOImage(obj).Graphic.Height, 1440, 96);
              TWPOImage(obj).WidthTW := MulDiv(TWPOImage(obj).Graphic.Width, 1440, 96);
            end;
            TWPOImage(obj).WriteRTFMode := wobOnlyRTF;
            Contents.obj := obj;
          end;
        end
        else
        if field <> nil then
        begin
          Done := TRUE;
          if field.IsNull then
            Contents.StringValue := ''
          else
          try
            Contents.StringValue := field.AsString;
            i := FRTFFieldList.IndexOf(Uppercase(fieldname));
            if (Copy(Contents.StringValue, 1, 5) = '{\rtf') then
            begin
            // Attention, we will loos the formatting !
              if wpmmConvertRTFToANSI in FOptions then
                Contents.StringValue := WPToolsRTFToANSI(Contents.StringValue);
            // we want to save as RTF since it was in this format !
              if i <0>= 0) then
                FRTFFieldList.Delete(i);
              if FAppendSpaceToNonEmpty and (Contents.StringValue <> '') then
                Contents.StringValue := Contents.StringValue + #32;
            end;
          except
         // If we have a problem create a message but don't hurt further operation
            on e: Exception do Contents.StringValue := 'ERROR:' + e.Message;
          end;
        end;
  end
  else
    if FShowFieldNames then
    begin
      Done := TRUE;
      Contents.StringValue := fieldname;
    end;


  if not Done and assigned(FNextDataProvider) and (FNextDataProvider <> Self) then
    FNextDataProvider.DoMergeGetText(Sender, FieldName, Contents);
end;

Auch im Block if ShowFieldNames hebe ich Done mal so angepasst, dass auch die DisplayLabels aus den datasets gefunden werden.

Cu, Frank

Hallo,

ich habe über TWPMmDataProvider ein DataSet mit einem BlobField verbunden. Darin ist im besten Fall eine Bitmap mit einer Unterschrift.
Wenn das Feld keine Grafik enthält (IsNull), so erhalte ich eine AV in:
WPdbRich.Pas im Modul TWPMMDataProvider.DoMergeGetText.

Ich habe jetzt erst mal den Code für mich angepasst und einen Test auf IsNull eingebaut:

procedure TWPMMDataProvider.DoMergeGetText(Sender: TObject;
    ...
    end else if (field is TGraphicField) or isBMP then
    begin
      Done := TRUE;
      if field.isnull then // sonst AV
        Contents.StringValue := ''
      else
      begin
        ...
              TWPOImage(obj).HeightTW :=
                MulDiv(TWPOImage(obj).Graphic.Height, 1440, 96); // hier kommt AV, da TWPOImage(obj).Graphic dann nil ist
        ...
      end;
    ...

Ist das so richtig?

It would be great, if TWPTools supports Developer Express Skins Library - possibly as separate product...

Frank

Hallo,

ich wollte den PDF - Export von ReportBuilder auf wPDF umstellen.
Allerdings erscheinen bei mir Bilder (Jpeg) in Graustufen mit schlechter Qualität.

Beispiel:
http://www.reim-edv.de/download/1.pdf

Originalbild
http://www.reim-edv.de/download/1.jpg

Was kann ich tun?

Frank Reim

Ich habe im RB Designer die Eigenschaft Transparent auf False gesetzt und es funktioniert.

Zitat von wpsupport

Hallo,

Keine Ahung - hier handelt es sich offensichtlich um ein generelles Delphi problem.
Julian Ziersch

Hi Julian,

ich habe erst mal - hoffentlich - eine Lösung.
Vor dem Druckdialog initialisiere ich noch mal mit:

Printer.Refresh;
    WPCheckPrinterAvail;

Das scheint erst mal zu funktionieren.

Danke, Frank

Leider kann ich unter Citrix nicht drucken.
Die lokalen Drucker werden verzögert gemappt.
Der PrintDialog erzeugt eine Exception bei dlg.Copies := 1;.
Wenn ich einen PrintDialog erzeuge und auf OK klicke, liefert mit Printer aus der Unit Printers erst alle lokalen Drucker.
Vorher fehlen diese Drucker.
Gibt es eine elegante Lösung für dieses Problem.

Danke, Frank

Zitat von jziersch

Hallo,

bin mir nich ganz sicher. Wird der feldname von der datenbank die von DP1 erreichbar ist denn verwendet. Dann ist es richtig dass done auf true gestellt wird.

Grüsse,

Julian Ziersch

Nein, das Feld ist ja in DP2.
Da es das Feld (heisst bei mir UNTERSCHRIFT) nicht in DP1 gefunden wird, sollte in DP2 weitergesucht werden. Da existiert das Feld ja auch.
Es sit definitiv so, dass bei normalen Feldern in allen DataProvidern gesucht wird. Bei einem Grafik - Feld wird nur im ersten Dataprovider gesucht, und das ist so nicht richtig.

Cu, Frank

Hallo,

Ich habe mehrere DataProvider, nennen wir diese DP1 und DP2.
DP1 erhält in EditBox das TWPRichText zugewiesen und in NextDataProvider steht dann DP2.
In DP2 gibt es ein Blobfeld mit einer Grafik. Da es nicht als Graphic Field erkannt wird, trge ich es unter BMPFields ein.
Jetzt funktioniert MergeText nicht mehr.
Ist das BMPFeld in DP1, funktioniert es.
In der procedure TWPMMDataProvider.DoMergeGetText wird, wenn es ein Feld mit Grafik ist, irgendwo Done auf True gesetzt und:
if not Done and assigned(FNextDataProvider) and (FNextDataProvider<>Self) then
FNextDataProvider.DoMergeGetText(Sender,FieldName,Contents);
wird dann nicht mehr ausgeführt. Damit wird die Grafik nicht angezeigt.
Ich habe jetzt mein Projekt so angepasst, dass die Grafik im ersten DataProvider ist.
Aber vielleicht können Sie es ja nachvollziehen und fixen...

Cu, Frank Reim