Ergebnis 1 bis 12 von 12

Thema: Bildschirm clonen...

  1. #1
    H@ckse Avatar von SailorSat
    Registriert seit
    26.08.2004
    Ort
    Hanau (Hessen)
    Beiträge
    2.057

    Bildschirm clonen...

    Also...
    Ich hab einen Rechner, mit zwei seperaten Grafikkarten, und suche eine brauchbare Lösung das Bild von einer Karte auf die zweite zu Clonen.

    Kennt jemand ein Tool dafür? (Muss auf XP laufen)
    Ich mach das alles auch ohne Joystick ,)

  2. #2
    Registered User Avatar von Luigi
    Registriert seit
    29.03.2004
    Ort
    Neustadt/Wstr.
    Beiträge
    5.067
    Hääää?

  3. #3
    H@ckse Avatar von SailorSat
    Registriert seit
    26.08.2004
    Ort
    Hanau (Hessen)
    Beiträge
    2.057
    Mit der Reaktion hab ich gerechnet

    Also nochmal für die langsamen

    Ich habe einen PC, in diesem stecken zwei Grafikkarten drinnen.

    An beiden hängt ein Monitor.

    Ich würde gerne auf beiden Monitoren das selbe sehen.
    Ich mach das alles auch ohne Joystick ,)

  4. #4
    Administration Avatar von zyx
    Registriert seit
    15.06.2004
    Ort
    Strass/Tirol
    Beiträge
    6.478
    Hi Sailor,

    mir ist keine solche loesung bekannt, aber manche grafikkarten unterstuetzen 2
    displays.... findest sicher was im google..

    was mir noch einfaellt sind die mehrfachverteiler die in computerabteilungen
    von kaufhaeusern verwendet werden, soweit ich weiss sind die aber sau
    teuer.
    Alte Real Life Tetris (TM) Weisheit: Je schwerer das Cab, um so mehr Stiegen...

    Electricity is a vengeful bitch who is not to be trifled with

  5. #5
    H@ckse Avatar von SailorSat
    Registriert seit
    26.08.2004
    Ort
    Hanau (Hessen)
    Beiträge
    2.057
    Najo ich hab mir inzwischen ein kleines VB Programm gebastelt das 60 mal pro Sekunde das Bild von der ersten Grafikkarte kopiert und 'vollbild' auf der zweiten darstellt...
    Ich mach das alles auch ohne Joystick ,)

  6. #6
    Administration Avatar von zyx
    Registriert seit
    15.06.2004
    Ort
    Strass/Tirol
    Beiträge
    6.478
    auch ne idee, der zweck heiligt die mittel... jetzt wuerd mich aber interessieren was du damit machst *neugier*
    Alte Real Life Tetris (TM) Weisheit: Je schwerer das Cab, um so mehr Stiegen...

    Electricity is a vengeful bitch who is not to be trifled with

  7. #7
    Registered User
    Registriert seit
    04.01.2005
    Ort
    Ahrensburg
    Beiträge
    550
    Also ich kenn' da prinzipiell auch nur die Grafikkarten mit 2 VGA-Ausgängen (z.B. von Matrox MGA-200 oder so) Da ist dann auch die nötige Software mit bei, mit der man nicht nur clonen, sondern auch den Bildschirm auf alle möglichen Arten auf beide Monitore ausdehnen kann.Gibts bestimmt auch günstig bei Ebay.

  8. #8
    Tommicassi
    Gast
    Die Lösung mit zwei Grafikkarten in einem System wird seit Windows 98 unterstützt. Allerdings hab ich mich wenig damit beschäftigt. Du müsstest doch in den Anzeigeeigenschaften beide Monitore konfigurieren können?! Allerdings weiss ich nicht, ob man da auch ein Clonen einstellen kann.

    Gruß
    TC

  9. #9
    Registered User Avatar von Luigi
    Registriert seit
    29.03.2004
    Ort
    Neustadt/Wstr.
    Beiträge
    5.067
    Also hab ich das doch richtig verstanden. Ich wusste nur nicht, wozu du dann zwei GraKas brauchst.

    In meiner "aktiven" Zeit habe ich in der BASF desöfteren Y-Kabel "installiert". Da konnte man einfach an eine Karte zwei Monitore anschließen. Was die kosten und wo man die herkriegt, weiß ich jetzt allerdings auch nicht.


    Wie bitte schreibt man in VB ein Tool, das den Inhalt einer Grafikkarten auf eine andere kopiert????? [Respekt!!]

  10. #10
    H@ckse Avatar von SailorSat
    Registriert seit
    26.08.2004
    Ort
    Hanau (Hessen)
    Beiträge
    2.057
    Also...

    @Luigi:
    Die Idee mit dem Y-Kabel hatte ich auch schon, allerdings hab ich auf die schnelle keines bekommen, und auch keine Stecker um mir eines zu löten.

    @Tommicassi:
    Nunja... Clonen wird generell vom Grafikkartentreiber gemacht, und dann auch nur wenn es eine Karte ist.

    @Thomas:
    Naja es sind spezielle Grafikkarten, daher das Problem. Sonst hätte ich eine G450 reingesteckt.



    @Luigi2:
    Ohne Worte
    Code:
    Option Explicit
    
    Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
    
    Private Declare Function GetDesktopWindow Lib "user32" () As Long
    Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
    
    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDevicename As String, ByVal iModeNum As Long, ByRef lpDevMode As DEVMODE) As Long
    Private Declare Function ChangeDisplaySettingsEx Lib "user32.dll" Alias "ChangeDisplaySettingsExA" (ByVal lpszDevicename As String, lpDevMode As DEVMODE, ByVal hwnd As Long, ByVal dwflags As Long, ByVal lParam As Long) As Long
    
    Const CCDEVICENAME As Long = 32&
    Const CCFORMNAME As Long = 32&
    Const DM_PELSWIDTH As Long = &H80000
    Const DM_PELSHEIGHT As Long = &H100000
    Const CDS_UPDATEREGISTRY As Long = &H1&
    Const DISP_CHANGE_SUCCESSFUL As Long = 0&
    Const DISP_CHANGE_RESTART As Long = 1&
    Const ENUM_CURRENT_SETTINGS As Long = -1&
    
    Private Type DEVMODE
        dmDeviceName As String * CCDEVICENAME
        dmSpecVersion As Integer
        dmDriverVersion As Integer
        dmSize As Integer
        dmDriverExtra As Integer
        dmFields As Long
        dmOrientation As Integer
        dmPaperSize As Integer
        dmPaperLength As Integer
        dmPaperWidth As Integer
        dmScale As Integer
        dmCopies As Integer
        dmDefaultSource As Integer
        dmPrintQuality As Integer
        dmColor As Integer
        dmDuplex As Integer
        dmYResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * CCFORMNAME
        dmUnusedPadding As Integer
        dmBitsPerPel As Integer
        dmPelsWidth As Long
        dmPelsHeight As Long
        dmDisplayFlags As Long
        dmDisplayFrequency As Long
    End Type
    
    Dim myWidth As Long
    Dim myHeight As Long
    
    Private Sub Form_Load()
      Dim myCounter As Long
      myWidth = 321
      myHeight = 240
      Me.Move myWidth * -15, 0, myWidth * 15, myHeight * 15
      Timer1.Interval = 1000 / 60
      Timer2.Interval = 1000
      Timer1.Enabled = True
      Timer2.Enabled = True
    End Sub
    
    Private Sub Timer1_Timer()
      Dim myDC As Long
      myDC = GetDC(GetDesktopWindow)
      BitBlt Me.hDC, 0, 0, myWidth, myHeight, myDC, 0, 0, vbSrcCopy
      DeleteObject myDC
    End Sub
    
    Public Function CheckDisplayResolution() As Boolean
      Dim typDM1 As DEVMODE
      Dim lRet As Long
      Dim iResp  As Integer
    
      lRet = EnumDisplaySettings("\\.\DISPLAY1", ENUM_CURRENT_SETTINGS, typDM1)
      If lRet = 0 Then Exit Function
      If typDM1.dmPelsWidth = myWidth And typDM1.dmPelsHeight = myHeight Then Exit Function
      
      myWidth = typDM1.dmPelsWidth
      myHeight = typDM1.dmPelsHeight
      
      typDM1.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
    
      lRet = ChangeDisplaySettingsEx("\\.\DISPLAY2", typDM1, 0&, CDS_UPDATEREGISTRY, 0&)
      Select Case lRet
        Case DISP_CHANGE_SUCCESSFUL
          CheckDisplayResolution = True
          Me.Move myWidth * -15, 0, myWidth * 15, myHeight * 15
        Case Else
          CheckDisplayResolution = False
      End Select
    End Function
    
    
    Private Sub Timer2_Timer()
      CheckDisplayResolution
    End Sub
    Ich mach das alles auch ohne Joystick ,)

  11. #11
    Administration Avatar von zyx
    Registriert seit
    15.06.2004
    Ort
    Strass/Tirol
    Beiträge
    6.478
    los rück raus, wofür brauchst du das und ist es auch performant das grafikinhalt kopieren ?
    Alte Real Life Tetris (TM) Weisheit: Je schwerer das Cab, um so mehr Stiegen...

    Electricity is a vengeful bitch who is not to be trifled with

  12. #12
    H@ckse Avatar von SailorSat
    Registriert seit
    26.08.2004
    Ort
    Hanau (Hessen)
    Beiträge
    2.057
    Ich mach das alles auch ohne Joystick ,)

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •