Office: (Office 2010) BLOB

muku · 2. März 2021

von daolix

hallo

64 ist irgendwie die letze Sch..e.

probiers mal so:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

#If VBA7 Then
Private Declare PtrSafe Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
byref pDestination As any, _
byref pSource As any, _
ByVal cbLength As Long _
)
#Else
Private Declare Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
byref pDestination As any, _
byref pSource As any, _
byval cbLength As Long _
)
#End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und den Aufruf dann:
Code:

copymemory dblVal, Buffer(0), 8
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber schau mal hier, das ist evtl genauer erklärt.

Alternativ könntest du via VBA-Befehl LSet und 2 UDT's es versuchen und die RtlMoveMemory - Api rausschmeissen.
ist aber etwas unflexibler wenn andere Dateigrößen abgearbeitet werden müssesten. Code:

Private Type td8String
s as string *4
end type

Private Type tdDouble
d as double
end type

.....

Private Sub Liste_Firmen_Click()
....
If Dateigroesse = 8 Then
dim tdS as td8String
dim tdD as tdDouble
ReDim Buffer(Dateigroesse - 1)
Buffer = rs(strOLEField).GetChunk(0, Dateigroesse)
tds.s = Buffer()
lset tdD = tdS
Me!feld1.Value = tdD.d
else
....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@ Thomas: Danke ich habs mir mal angeschaut und dann gleich heruntergeladen und installiert. Danke dafür :-).

So, wieder zu meinem Problem.
Ich hab die Deklaration mit "Any" angepasst und den Aufruf ensprechend deinem Vorschlag geändert. Auch hier wieder beim Kompilieren die Fehlermeldung, dass "Buffer" Typen unverträglich ist:
Code:

---------------------------
Microsoft Visual Basic for Applications
---------------------------
Fehler beim Kompilieren:

Typen unverträglich
---------------------------
OK Hilfe
---------------------------
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich bin im Moment ehrlich gesagt etwas Ratlos und hoffe das wir (ich) das noch mit Variante 1 (OHNE LSet und 2 UDT's) hinbekommen.

Viele Grüße
muku

daolix · 31. Januar 2013

Hallo

lt. der, im velinkten Download von Thomas, enthaltenen Textdatei, lautet die Deklaration Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDestination As Any, pSource As Any, ByVal Length As LongPtr)
der Aufruf ist dann CopyMemory dblVal, Buffer(0), 8

sollte dies auch nicht funktionieren so ändere die Deklaration in Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (byval pDestination As LongPtr, byval pSource As LongPtr, ByVal Length As LongPtr)
der Aufruf sollte dann CopyMemory CLngPtr(varptr(dblval)), CLngPtr(varptr(Buffer(0))), 8 sein.

bedenke aber das du auch die 32 bit Deklaration entsprechend anpasst, sonst jibbet im Code probleme.

muku · 2. März 2021

von daolix

Hallo

lt. der, im velinkten Download von Thomas, enthaltenen Textdatei, lautet die Deklaration Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDestination As Any, pSource As Any, ByVal Length As LongPtr)
der Aufruf ist dann CopyMemory dblVal, Buffer(0), 8

sollte dies auch nicht funktionieren so ändere die Deklaration in Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (byval pDestination As LongPtr, byval pSource As LongPtr, ByVal Length As LongPtr)
der Aufruf sollte dann CopyMemory CLngPtr(varptr(dblval)), CLngPtr(varptr(Buffer(0))), 8 sein.

bedenke aber das du auch die 32 bit Deklaration entsprechend anpasst, sonst jibbet im Code probleme.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo,

mit Vorschlag 2 hat es geklappt. *Smilie Wie genau muss das denn für 32bit Office angepasst werden?

Leider gibt es auch etwas negatives zu berichten. Nun hab ich mir die vermutlichen Double-Wert anzeigen lassen und bekomme, falls byte-Länge=8, immer die gleiche Zahl für egal welchen Datensatz angezeigt.

Code:

8,2914679683E-317
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Laut dieser Seite gibts nur drei Möglichkeiten für ein 8 byte große Variable
1. Double
2. Currency
3. Date

Ich habe im BCM (Business Contact Manager) nocheinmal nachgeschaut als welchen Datentyp BCM die Daten gespeichert hat, nämlich als Nummer OHNE Dezimalanzeil. Ich hab dazu bei Microsoft folgendes gefunden. Das heisst wohl, die Zahlen werden theoretisch als Integer gespeichert sind aber nich 2 oder 4 bytes lang sonder immer 8?! *upps

edit:// Es wird auch der Datentyp "Währung" genutzt, welcher ebenfalls 8 bytes lang ist. Infos hier

daolix · 31. Januar 2013

Wenn das Feld Währung ist dann nimm Currency
...
Dim dblVal As Currency
...

Sollter das Feld aber Numeric sein so kann ich dir ab hier nicht weiterhelfen da mir der Aufbau von diesem Datenty nicht bekannt ist. lt diese msseite besteht dieser Datentyp aus zahlen, einem Vorzeichen und einem dezimalzeichen.