Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SaveArrays Kopieren
Autor: Oskar
Datum: 27.10.01 19:13
Mit dem Code möchte ich ein UDT Array kopieren: Public Declare Sub RtlMoveMemory Lib "kernel32" (Dst As Any, Src As Any, ByVal Bytes&) Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long Public Declare Function CopyArrayA Lib "Oleaut32.dll" Alias "SafeArrayCopyData" (psa As Long, ppsa As Long) As Long Public Declare Function SafeArrayLock Lib "Oleaut32.dll" (psa As Long) As Long Public Declare Function SafeArrayUnlock Lib "Oleaut32.dll" (psa As Long) As Long 'Sub Kopieren RtlMoveMemory aAddr, ByVal VarPtrArray(mvarFOrg), 4 RtlMoveMemory bAddr, ByVal VarPtrArray(mvarFKop), 4 h = SafeArrayLock(ByVal aAddr) h = SafeArrayLock(ByVal bAddr) h = CopyArrayA(ByVal aAddr, ByVal bAddr) h = SafeArrayUnlock(ByVal aAddr) h = SafeArrayUnlock(ByVal bAddr) Funktioniert auch, aber irgendwie wird dabei ein Pointer zerstört und VB steigt aus, wenn das Programm beendet wird. Wer kann helfen ? mfg Oskar

SaveArrays Kopieren	104	Oskar	27.10.01 19:13
Re: SaveArrays Kopieren	450	unbekannt	27.10.01 20:02
Re: SaveArrays Kopieren	55	Oskar	28.10.01 07:58
Re: SaveArrays Kopieren, keiner kann helfen ?	57	Oskar	30.10.01 06:48
Re: SaveArrays Kopieren, keiner kann helfen ?	416	unbekannt	30.10.01 21:12
Re: SaveArrays Kopieren	61	Grieptoo	30.10.01 21:34
Re: SaveArrays Kopieren, SafeArrayCopyData funktioniert nich...	55	Oskar	31.10.01 06:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen