Liebe 
,
bitte verrate mir, ob SirJonny einen Fehler in seinem Script hat, oder ob die UDF der Übeltäter ist.
Antwort: Error 404 - Script not found!
Hast du auch eine Datei womit man den Fehler reproduzieren könnte? Ein einfacher Test mit einer .txt Datei zeigt nämlich keinen Fehler.
[Blockierte Grafik: https://i.imgur.com/w7HK0rg.png]
Liegt es vielleicht an deinem PDF-Reader? Ich verwende Windows 7 64-Bit und nutze Chrome um die PDFs zu öffnen.
Meines Erachtens ist in Zeile 1184 der MPDF-UDF ein Fehler enthalten, habe es mal abgeändert und angehängt. Geht es damit bei dir?
Edit: falsche Zeile angegeben
Meines Erachtens ist in Zeile 1184 der MPDF-UDF ein Fehler enthalten, habe es mal abgeändert und angehängt.
Ich kratze mich gerade am Kopf... weil ich nicht verstehen kann, wieso du diese eine Zeile hier nicht einfach nennst, sondern stattdessen die komplette UDF dafür hochlädst - in der übrigens am Ende die letzte Funktion
_Iif(() fehlt - und deine Version der UDF somit garantiert nicht funktionieren kann! Die korrekte UDF hat SirJonny in Post #3 angehängt.
;For $j = $FirstChar To $LastChar
For $j = $FirstChar To $LastChar + $FirstChar; #FUNCTION# ====================================================================================================================
; Name...........: _Iif
; Description ...: Perform a boolean test within an expression.
; Syntax.........: _Iif($fTest, $vTrueVal, $vFalseVal)
; Parameters ....: $fTest - Boolean test.
; $vTrueVal - Value to return if $fTest is true.
; $vFalseVal - Value to return if $fTest is false.
; Return values .: True - $vTrueVal
; False - $vFalseVal
; Author ........: Dale (Klaatu) Thompson
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _Iif($fTest, $vTrueVal, $vFalseVal)
If $fTest Then
Return $vTrueVal
Else
Return $vFalseVal
EndIf
EndFunc ;==>_IifDas _Iif kann man sich seit einigen Versionen sparen und durch den ternären Operatoren ersetzen.
_Iif($a = $b, True, False) wird dann zu $a = $b ? True : False
Das _Iif kann man sich seit einigen Versionen sparen und durch den ternären Operatoren ersetzen.
Hehe, ja, jetzt wo du es sagst, sehe ich es auch...
In dem Fall müssten die Zeilen 251, 252, 253, 258, 824 geändert werden:
Func _ClosePDFFile()
$_iResource = __InitObj(4)
__ToBuffer("<<" & _
($_sFONT <> "" ? "/Font<<" & $_sFONT & ">>" : "") & _
"/ProcSet [/PDF/Text" & ($_Image <> "" ? "/ImageB/ImageC/ImageI" : "") & "]" & _
(($_Image <> "") Or ($_sObject <> "") ? "/XObject <<" & $_Image & $_sObject & ">>" : "") & ">>")
__EndObj()
$_iPages = __InitObj(3)
__ToBuffer("<</Type /Pages /Count " & $_Pages & " /MediaBox [0 0 " & __ToStr($_PageWidth,1) & " " & __ToStr($_PageHeight,1) & "] " & _
"/CropBox [" & __ToStr($__SetMargin) & " " & __ToStr($__SetMargin) & " " & __ToStr($_PageWidth - $__SetMargin,1) & " " & __ToStr($_PageHeight - $__SetMargin,1) & "] " & _
($_Orientation = $PDF_ORIENTATION_LANDSCAPE ? "/Rotate -90" : "") & "/Kids [" & $_sPage & "] " & "/Resources " & $_iResource & " 0 R>>")
__EndObj()
__ToBuffer("xref")
__ToBuffer("0 " & $_iMaxObject+1)
__ToBuffer("0000000000 65535 f")
For $i = 1 To $_iMaxObject
__ToBuffer($aXREF[$i])
Next
__ToBuffer("trailer" & @CRLF & _
"<< /Size " & $_iMaxObject + 1 & "/Info 1 0 R" & "/Root 2 0 R" & ">>")
__ToBuffer("startxref" & @CRLF & StringLen("startxref" & @CRLF & $_Buffer & "%%EOF" & @CRLF) + 6)
$_FileName = FileOpen($PDF_NAME,18)
FileWrite($_FileName, $_Buffer & "%%EOF" & @CRLF)
FileClose($_FileName)
If $_bOpen Then ShellExecute($PDF_NAME)
EndFunc ;==>_ClosePDFFile$k += (($C >= $FirstChar) And ($C <= $LastChar) ? $Widths[$C] : $MissingWidth)Mit SumatraPDF (dafür gibt es übrigens auch eine UDF) wird es auch korrekt angezeigt...