Hallo zusammen.
Und es geht doch.
Programm:
Code: Alles auswählen
#pragma Library( "XppUI2.lib" )
function main
clear screen
?
?
?
? BFBHolWinDrucker()
wait "...."
return
FUNC BFBHolWinDrucker
local oDlg,oPrinter
local cRet := ""
oDlg := XbpPrintDialog():new()
oDlg:create()
oPrinter := oDlg:display()
oDlg:destroy()
IF oPrinter <> NIL
cRet := oPrinter:devName
endif
return cRet
Project datei:
Code: Alles auswählen
//
// Project - Definition - File created by PBUILD Version 2.00.726
// Date: 21.09.2016 Time: 19:38:53
//
[PROJECT]
COMPILE = xpp
COMPILE_FLAGS = /q /p
DEBUG = no
GUI = no
LINKER = alink
LINK_FLAGS =
RC_COMPILE = arc
RC_FLAGS = /v
DEBUG_SAVE = yes
PROJECT.XPJ
[PROJECT.XPJ]
TEST.EXE
[TEST.EXE]
// $START-AUTODEPEND
std.ch
set.ch
natmsg.ch
get.ch
prompt.ch
memvar.ch
collat.ch
sql.ch
ot4xb.ch
TEST.obj
// $STOP-AUTODEPEND
TEST.PRG
habe es auch ins Echt-Programm eingebaut und funktioniert.
Warum Gui=No
Meine Warenwirtschaft ist seit 22 Jahren bei Kunden.
Die wollen sich nicht umgewöhnen.
Mein Clipper-Programm mit gleichem Umfang läuft immer noch.
Auch unter Win 10 32Bit Version 1702 Kein Problem.
Auch kein Problem mit meiner 32Bit Xbase ++ Version mit identischer Oberfläche
und Bedienung. Auch beim einstellen der Fentstergröße. (Consolen-Fenster) Alles wie gehabt und gewohnt.
Erste Frage wenn ich umstellen will: Aber an der Bedienung hat sich nichts geändert?
Ich kann Sie beruhigen. Ich muß nur meine EXE-Dateien austauschen und die BFBSTART.BAT neu anlegen
lassen und die Index-Dateien löschen. Die Daten-Basis ist in beiden Programm gleich.
Es läuft jetzt halt auch unter 64Bit Windows und auf neuen Servern.
Auf dem Server muß das gemeinsame Laufwerk z.B. O: aber mit dem subst-Befehl erstellt werden.
anstatt mit net use. Kann beim Index neu erstellen den Unterschied 1,5 Std zu 20 Min ausmachen.
Ich installiere Updates jetzt gern auf dem Server. Es geht jetzt einfach schneller.
So das waren meine Antworten.
Grüße aus Köngen