SSL encrypted Email-server with cSMTP

[Kai]

Hello everyone!

Many thanks for your help. Everything works fine now.

Regards
Kai

[stecosta66]

Stefano,

Sorry for jumping in but anyone know how to get vo sp4 from a reputable source?

my email il stea@libero.it

There is NO way you can get VO 2.8 sp4 officially anymore.
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

HI Robert,
switching from VO -> X# is in the plan.

Now I'm in the process of converting my largest application from DBF to PostgreSQL using your VO2ADO (great product btw).

I'm dealing with a very large amount of data and things are getting difficult to manage with dbf and no more procrastinable .

Once I've closed this transition I'll go down the path of X#

Regards
Stefano

p.s. if any one is kind enough to share his sp4 with me, my email is stea@libero.it

[jonhn]

I have SP4 and happy to pass it over - will send you an email privately.

[ferpiazza]

Good afternoon Mr. Meinhard.
Would you be so kind as to send me the OleAutoObjectEx Class?
My e-mail is: ssoeste@gmail,com
Kind regards.

[wriedmann]

Hi Fernando,
here is the code:

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       

And here the relative PRG file:

OleAutoObjectExPreSP4.zip

(827 Bytes) Downloaded 126 times

Wolfgang

[Jamal]

Try contacting brian@grafxsoft.com

Sorry for jumping in but anyone know how to get vo sp4 from a reputable source?

my email il stea@libero.it

[robert]

There is no relyable source anymore that sells VO.
Grafxsoft no longer exists.
Brian still sells it from another email address but that is without invoice and not a legal copy.
And there is no support from him.

Robert

[ferpiazza]

Thank you very much Mr. Riedmann
Greetings from Argentina