Von Oliver Hahn am 06 April, 1998 um 13:03:01:
Hallo Pro-Fan-Gemeinde!
Ich habe mehrere Probleme mit Profan²-Programmen.
Konfiguration: Windows NT 4.0 (ServicePack1), Profan 6.0(NT).
Die beschriebenen Probleme treten sowohl im Interpretermodus als auch im
kompilierten Zustand auf.
Beide Probleme wurden bereits hier im Newsboard beschrieben,
aber es gab leider keine Antwort. Deshalb hier nochmal:
1. @SendString funktioniert unter NT nicht.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Was unter 3.1 hervorragend klappt ist unter NT offenbar nicht möglich. Ich habe es
nicht fertiggebracht Strings an Word 7.0 zu senden. Beispiel:
declare word%,hword%
cls
let word%=@winexec("D:\msoffice\winword\winword.exe",1)
Let hword%=GetActiveWindow() 'bis hierher klappt noch alles
@SendString(hWord%,"Dies ist ein Test!") 'funkioniert nicht
'lediglich die CPU-Last steigt für ca. 15s auf 99%, hauptsächlich durch
'PROFAN.EXE
waitkey
end
Das gleiche Skript läuft unter Win3.11 (Word6.0) tadellos.
Was mache ich falsch?
2. USEFONT wirkt unter NT nicht bei der Druckausgabe.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dieses Problem wurde bereits im Februar im News-Board beschrieben.
Drucker: HP Laserjet V, angeschlossen über Novell 4.11 Netzwerk, problemlos.
Beispiel:
Declare Zeile$
declare zz%
declare yPos%
declare xpos%
cls
usefont "Arial",14,0,0,0,0
Assign #1,"C:\TEST.TXT"
Reset #1
let zz%=0
let xpos%=20
let ypos%=20
Startprint
WhileNot @Eof(#1)
Input #1,Zeile$
drawtext xpos%,ypos%,Zeile$
add zz%,1
add ypos%,15
if @equ(zz%,50)
let zz%=0
let ypos%=20
NEXTPAGE
endif
EndWhile
Endprint
Close #1
end
Die Druckausgabe funktioniert zwar unter NT, aber immer in der Standard-Schrift.
Nach weiteren Tests habe ich festgestellt, daß USEFONT auch unter Win3.11
nicht richtig funktioniert. Hier muß ich irre Größen
(UseFont "Arial",130,0,0,0,0) angeben, und der gewählte Font wird erst
nach dem ersten NextPage berücksichtigt.
Ausgaben auf den Bildschirm erzeugen keine Fehler.
Wo liegt die Ursache?
Es wäre schön, wenn mir jemand weiterhelfen könnte
- vielleicht sogar das Profan-Orakel selbst? ;)
Oliver Hahn