RPC - Server nicht verfügbar

[Rolf Ramacher]

Hallo zusammen,

ich drucke eine von mir erzeugt RTF-Datei mit Xbpprintdialog() aus - über Word mit activeX - bei einem Kunden erhält das
Programm die folgende Fehelrmeldung:

Code: Alles auswählen

------------------------------------------------------------------------------
FEHLERPROTOKOLL von "C:\orga\FilBestand.exe" Datum: 27.02.2009 16:01:18

Xbase++ Version     : Xbase++ (R) Version 1.90.331
Betriebssystem      : Windows 95 04.00 Build 00950
------------------------------------------------------------------------------
oError:args         :
          -> VALTYPE: C VALUE: visible
          -> VALTYPE: L VALUE: .F.
oError:canDefault   : J
oError:canRetry     : N
oError:canSubstitute: J
oError:cargo        : NIL
oError:description  : Der RPC-Server ist nicht verfügbar.

oError:filename     : NIL
oError:genCode      : NIL
oError:operation    : visible
oError:osCode       :          -2147023174
oError:severity     :          2
oError:subCode      :       6500
oError:subSystem    : Automation
oError:thread       :          1
oError:tries        : NIL
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------

Called from DRUCKEN(23)
Called from LISTEDRUCKEN(34)
Called from (B)MAIN(48)
Called from MAIN(62)

Ich habe kontoroliert - der RPC -dienst ist unter der Verwaltung/Dienste gestartet. Bei mir und bei anderen Kunden klappt dies ohne Probleme - Word hat er bereits deinstalliert und wieder neu installiert.

Hat jemand noch eine Idee ??

[Scarmo]

Hallo Rolf

Kann es einfach daran liegen, dass Windows 95 damit ein Problem hat?

Grüsse
Marco

[Rolf Ramacher]

Hi Marco,

das ist ja das verrückte - per Teamviewer habe ich mir das angeschaut. Er hat Win XP - warum schreibt die xpperror.log
Win95 ???????

[Martin Altmann]

Hallo Rolf,
vielleicht weil er Dein Programm im Kompatibilitätsmodus startet

Viele Grüße,
Martin

[Rolf Ramacher]

Hallo Martin ,

das mußt du mir mal erklären. So ist der Aufruf des Druckprogramms.

Code: Alles auswählen

 IF oPrinter <> NIL 
		cPrinter:=oPrinter:DevName
	
		oDlg:PageRangeSelected
		Drucken(cVerz+"\filbestandliste.rtf",cPrinter,oDlg)
	EndIf

Das ist die Druckversion mit Word im Hintergrund:

Code: Alles auswählen

#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Inkey.ch"
#include "xbpdev.ch"
#include "activex.ch"

#define wdPrintFromTo 3

#pragma Library( "XppUI2.lib" ) 
#pragma library( "ascom10.lib" ) 

Function Drucken( cDoc, cDrucker,oDlg) 
Local cActivePrinter, aSeite:={}, cVon:="", cBis:=""
Local oWord 
Local oDoc 

    oWord := CreateObject("Word.Application") 

   IF Empty( oWord ) 
     MsgBox( "Microsoft Word ist nicht installiert" ) 
     RETURN Nil
   ENDIF 

   oWord:visible   := .f.                               // Word unsichtbar! 
   cActivePrinter  := oWord:Activeprinter     // aktuellen Drucker feststellen 
   oWord:Activeprinter:= cDrucker               // Neuen Drucker setzen 
   oWord:documents:Open(cDoc)                  
   oDoc       := oWord:ActiveDocument 

bei oWord:visible:=.f. - knallt es

[Martin Altmann]

Hallo Rolf,
ich rede davon, dass Dein Kunde Dein Programm unter XP im Kompatibilitätsmodus startet - dann wird Deinem Programm vorgegaukelt, das Betriebssystem wäre ein älteres Windows (z.B. 98 oder 95 oder ME oder NT oder 2000 - je nach Einstellung)
Schau Dir mal die Eigenschaften Deines Programmlinks (auf dem Desktop oder im Startmenü) an und gehe auf das Register Kompatibilität - dann weißt Du, was ich meine!

Viele Grüße,
Martin

[Rolf Ramacher]

Hi Martin,

Danke für den Hinweis Kompatiblitä - das war es - habe ich eben beim Kunden umgestellt. Klappt