Vorschaudatei wird nicht angezeigt mit LL-15[Erledigt]

[wolfgang37]

Hallo Xbase-Freunde:

Ich will mit nRet := LlPreviewDisplay( hJob, 'GutschrD.LL', 'F:\clfx\vie\', SetAppWindow():GetHWND() )
eine früher gedruckte Vorschaudatei anzeigen. Dies geht nun nicht mehr (weder unter XP noch
unter Win-7), obwohl der Fehlercode = 0 ist.
Zuletzt arbeitete ich mit LL-10 und da hat es funktioniert.
Entwicklung erfolgt unter Xbase++ 1.9.355 und LL-15
Entweder stehe ich auf der Leitung oder es gab diesbezüglich gravierende Änderungen für diese
Funktion.

Code: Alles auswählen

//------------L+L Previewdatei anzeigen (z.B. GutschrD.LL )
//
PROCEDURE ViewList( po_pare )
LOCAL n_ber, n_rec, hJob, nRet, c_prev

	IF ValType( po_pare ) # 'O'
		po_pare := MainWin()
	ENDIF
	SetAppWindow( po_pare )

	c_prev := GetDirFile( po_pare, gc_dirview + '*.LL' )

	IF .not. Empty( c_prev )

		InfMess( 'Druckdatei holen und anzeigen' )
		c_prev := Substr( c_prev, 1, At( '.', c_prev ) - 1 )
		L9MODULEInit()
		hJob := LlJobOpen(0) 	&& L+L Job oeffnen und handle holen 0=deutsch
		LlPreviewSetTempPath( hJob, gc_dirview )
		InfMess()

		nRet := LlPreviewDisplay(hJob, c_prev, gc_dirview,;
												 SetAppWindow():GetHWND())

		IF nRet <> 0
			InfoBoxA( 'View-Fehler: ' + Str( nRet ) )
		ENDIF

		LlJobClose(hJob) 	&& L+L-Job beenden
		L9MODULEExit()

	ELSE
		MsgBox( 'kein Dateiname als Rckgabe' )
	ENDIF

RETURN

Vielleicht hat einer noch einen neuen Hinweis.
mfg wolfgang

[Tom]

Hallo, Wolfgang.

Combit hat mit L&L 11 oder 12 ein neues Modell für Multithreading und Templates eingeführt. Vergleich mal Deine Funktionen L9MODULEInit() und L9MODULEExit() mit den aktuellen Varianten aus den Xbase-Beispielen von Combit.

[wolfgang37]

Hallo Tom,
danke für diese rasche Antwort.
Das Programmbeispiel im Handbuch ist sowohl in LL-9 wie in LL-15 identisch.
Nach dem Druck wird die Vorschaudatei korrekt angezeigt, auch im jetzigen
Entwicklungsstand mit dem gleichen Aufruf.
Da L+L den Returncode 0 zurückgibt vermute ich dass die Anzeige der Vorschaudatei
erfolgt, jedoch unsichtbar im 'Nirwana' . Ich werde nun versuchen in einem extra
dafür angelegten Fenster diese Anzeig aufzurufen.
Es ist nur ärgerlich, wenn einmal alles funktioniert hat und man wird wieder an
den Start zurückgeschickt wird.
Gruß aus dem noch fast 'schneelosen' Westen von Österreich
wolfgang

[wolfgang37]

Problem ist behoben !
Ab LL-13 wurde die Geschwindigkeit der Vorschau erhöht und dadurch wurde
das setzten einer zusätzlichen Option notwendig.
LlSetOption( hJob, LL_OPTION_INCREMENTAL_PREVIEW, 0 )
Siehe LL-Knowledgebase KBTD000706 v. 29.10.2007
Nochmals Dank an Tom für den wichtigen Hinweis.
mfg wolfgang