Bildschirm clonen...

[SailorSat]

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)

[Luigi]

Hääää? :confused:

[SailorSat]

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.

[zyx]

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.

[SailorSat]

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...

[zyx]

auch ne idee, der zweck heiligt die mittel... ;) jetzt wuerd mich aber interessieren was du damit machst *neugier* :confused:

[Thomas]

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. :)

[Tommicassi]

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

[Luigi]

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!!]

[SailorSat]

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 ;)


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

[zyx]

los rück raus, wofür brauchst du das ;) und ist es auch performant das grafikinhalt kopieren ? :confused:

[SailorSat]

Hierfür :D
http://www.arcadeinfo.de/showthread.php?p=18870#post18870