SSL encrypted Email-server with cSMTP
Posted: Sat Sep 03, 2022 7:30 am
Hello everyone!
Many thanks for your help. Everything works fine now.
Regards
Kai
Many thanks for your help. Everything works fine now.
Regards
Kai
HI Robert,robert post=23610 userid=253 wrote:Stefano,There is NO way you can get VO 2.8 sp4 officially anymore.diobrando post=23608 userid=697 wrote:Sorry for jumping in but anyone know how to get vo sp4 from a reputable source?
my email il stea@libero.it
GrafX no longer exists.
For a while Brian sold stuff on the web (without an invoice I was told) but that website seems to be closed now.
You will either have to continue to work with 2.8 sp3 (which is what I would do) or ask someone to share his copy with you.
Even better is: switch from VO to X# .
Robert
Code: Select all
STATIC GLOBAL GUID_NULL is _WINGUID
CLASS OleAutoObjectEx Inherit OleAutoObject
EXPORT cIID as STRING // Interface Id of the class
EXPORT cClsId as STRING // ClassId of the class (when it is a coclass)
EXPORT cProgId as STRING // ProgId idem
protect destroyCounter as int
METHOD __CreateFromIDispatch(lpIDispatch as ptr) as LOGIC PASCAL Class OleAutoObjectEx
LOCAL sIID is _WINGUID
LOCAL lpNewIDispatch as ptr
LOCAL oDispatch as cIDispatch
LOCAL hResult as LONG
BEGIN SEQUENCE
IF lpIDispatch != null_ptr
IF SLen(self:cIID) > 0
oDispatch := OBJECT(_cast, lpIDispatch)
IF oDispatch != null_object
IF CreateGuidFromString(cIID, @sIID) .and. ! IsEqualGuid(@sIID, @GUID_NULL)
hResult := oDispatch:QueryInterface(@sIID, @lpNewIDispatch)
IF ( OleFailed(self:hResult) .and. lpNewIDispatch != null_ptr)
BREAK
ENDIF
lpIDispatch := lpNewIDispatch
ENDIF
oDispatch:Release()
oDispatch := null_object
ENDIF
ENDIF
ENDIF
RETURN Super:__CreateFromIDispatch(lpIDispatch)
RECOVER
if (oDispatch != null_object)
oDispatch:Release()
ENDIF
END
RETURN FALSE
METHOD Init(ObjID, uLcid, fNoFuncArray, fROTCheck) Class OleAutoObjectEx
destroyCounter := 0
IF IsNil(ObjID) .and. SLen(self:cClsId) > 0
ObjID := self:cClsId
ENDIF
Super:Init(ObjID, uLcid, fNoFuncArray, fROTCheck)
IF SLen(self:cProgId) > 0
self:atomObjName := String2Symbol(self:cProgId)
ENDIF
RETURN self
diobrando post=23608 userid=697 wrote:Sorry for jumping in but anyone know how to get vo sp4 from a reputable source?
my email il stea@libero.it