461ea1568f
- contrib/examples
+ examples
* doc/dirstruc.txt
* doc/whatsnew.txt
* examples/hbdoc/Makefile
* examples/pp/Makefile
* examples/hboleold/Makefile
* examples/hbsqlit2/Makefile
* examples/misc/Makefile
* examples/hbapollo/Makefile
* examples/rdddbt/Makefile
* examples/guestbk/Makefile
* examples/pe/Makefile
* examples/hbgf/hbgfwin/Makefile
* examples/hbgf/hbgfos2/Makefile
* examples/hbgf/hbgfgtk/Makefile
* examples/hbgf/Makefile
* examples/uhttpd/readme.txt
* examples/dbu/Makefile
* examples/hscript/Makefile
* examples/hbwhat/Makefile
* examples/rl/Makefile
* examples/Makefile
* Moved to flatten our dir layout and sync the locations
in unified distro and source tree.
; TODO: As a next step I'll replace Makefiles with .hbm
files. This will allow users to build these parts
outside the source distribution.
331 lines
8.4 KiB
Plaintext
331 lines
8.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* demonstration code for FOR EACH used for OLE objects
|
|
* this code needs hbwin library
|
|
*
|
|
* Copyright 2007 Enrico Maria Giordano e.m.giordano at emagsoftware.it
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
*/
|
|
|
|
/* Explicit usage of OLE DEFAULT Method when syntax implies it. */
|
|
#xtranslate :<!Method!>( <args,...> ) := => :<Method>( <args> ):Value :=
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL nOption
|
|
|
|
CLS
|
|
SetColor("W+/R")
|
|
@ 6, 25 TO 19, 55 DOUBLE
|
|
@ 8, 28 SAY "Test Harbour OLE with..."
|
|
|
|
While .t.
|
|
@ 10, 32 PROMPT "MS Excel"
|
|
@ 11, 32 PROMPT "MS Word"
|
|
@ 12, 32 PROMPT "MS Outlook (1)"
|
|
@ 13, 32 PROMPT "MS Outlook (2)"
|
|
@ 14, 32 PROMPT "Internet Explorer"
|
|
@ 15, 32 PROMPT "XP CDO"
|
|
@ 16, 32 PROMPT "OpenOffice"
|
|
@ 17, 32 PROMPT "Quit"
|
|
|
|
MENU TO nOption
|
|
|
|
IF nOption == 0
|
|
nOption := 8
|
|
ELSEIF nOption == 1
|
|
Exm_MSExcel()
|
|
ELSEIF nOption == 2
|
|
Exm_MSWord()
|
|
ELSEIF nOption == 3
|
|
Exm_MSOutlook()
|
|
ELSEIF nOption == 4
|
|
Exm_MSOutlook2()
|
|
ELSEIF nOption == 5
|
|
Exm_IExplorer()
|
|
ELSEIF nOption == 6
|
|
Exm_CDO()
|
|
ELSEIF nOption == 7
|
|
Exm_OpenOffice()
|
|
ELSEIF nOption == 8
|
|
EXIT
|
|
ENDIF
|
|
End
|
|
|
|
SetColor("W/N")
|
|
CLS
|
|
|
|
RETURN
|
|
|
|
// ; Requires Windows XP
|
|
|
|
STATIC PROCEDURE Exm_CDO()
|
|
|
|
LOCAL oCDOMsg
|
|
LOCAL oCDOConf
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oCDOMsg := CreateObject( "CDO.Message" )
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
|
|
oCDOConf := CreateObject( "CDO.Configuration" )
|
|
|
|
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") := 2 // ; cdoSendUsingPort
|
|
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") := "localhost"
|
|
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") := 25
|
|
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") := 120
|
|
oCDOConf:Fields:Update()
|
|
|
|
oCDOMsg:Configuration := oCDOConf
|
|
oCDOMsg:BodyPart:Charset := "iso-8859-2" // "iso-8859-1" "utf-8"
|
|
oCDOMsg:To := "test@localhost"
|
|
oCDOMsg:From := "sender@localhost"
|
|
oCDOMsg:Subject := "Test message"
|
|
oCDOMsg:TextBody := "Test message body"
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oCDOMsg:Send()
|
|
RECOVER
|
|
Alert( "Error: CDO send error. [" + Ole2TxtError()+ "]" )
|
|
END SEQUENCE
|
|
|
|
oCDOConf := NIL
|
|
|
|
END SEQUENCE
|
|
|
|
oCDOMsg := NIL
|
|
|
|
RECOVER
|
|
Alert( "Error: CDO subsystem not available. [" + Ole2TxtError()+ "]" )
|
|
END SEQUENCE
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE Exm_IExplorer()
|
|
|
|
LOCAL oIE
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oIE := CreateObject( "InternetExplorer.Application" )
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oIE:Visible := .T.
|
|
oIE:Navigate( "http://www.harbour-project.org" )
|
|
END SEQUENCE
|
|
RECOVER
|
|
Alert( "Error: IExplorer not available. [" + Ole2TxtError()+ "]" )
|
|
END SEQUENCE
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE Exm_MSExcel()
|
|
|
|
LOCAL oExcel
|
|
LOCAL oWorkBook
|
|
LOCAL oWorkSheet
|
|
LOCAL oAS
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oExcel := CreateObject( "Excel.Application" )
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
|
|
oWorkBook := oExcel:WorkBooks:Add()
|
|
|
|
FOR EACH oWorkSheet IN oWorkBook:WorkSheets
|
|
? oWorkSheet:Name
|
|
NEXT
|
|
|
|
oAS := oExcel:ActiveSheet()
|
|
|
|
oAS:Cells:Font:Name := "Arial"
|
|
oAS:Cells:Font:Size := 12
|
|
|
|
// Explicit use of DEFAULT method by means of #xtranslate above!!!
|
|
oAS:Cells( 3, 1 ) := "Explict DEFAULT Method Text:"
|
|
|
|
// Array notation seem to have REVERSED indexs for the Cells Collections!!!
|
|
// Implicitly using DEFAULT Method
|
|
oAS:Cells[ 2, 3 ] := "Implicit DEFAULT Method using *reversed* array index notation"
|
|
|
|
// Operator overloading will attempt explict resolutin using :OleValue
|
|
oAS:Cells[ 2, 3 ] += "!"
|
|
|
|
oAS:Cells( 4, 1 ):Value := "Numeric:"
|
|
oAS:Cells( 4, 2 ):NumberFormat := "#.##0,00"
|
|
|
|
oAS:Cells[ 2, 4 ] := 1234.50
|
|
oAS:Cells[ 2, 4 ] *= 4
|
|
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
|
oAS:Cells[ 2, 4 ] /= 2
|
|
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
|
|
|
oAS:Cells[ 2, 4 ]++
|
|
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
|
oAS:Cells[ 2, 4 ]--
|
|
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
|
|
|
oAS:Cells( 5, 1 ):Value := "Logical:"
|
|
oAS:Cells( 5, 2 ):Value := .T.
|
|
oAS:Cells( 6, 1 ):Value := "Date:"
|
|
oAS:Cells( 6, 2 ):Value := DATE()
|
|
|
|
oAS:Columns( 1 ):Font:Bold := .T.
|
|
oAS:Columns( 2 ):HorizontalAlignment := -4152 // xlRight
|
|
|
|
oAS:Columns( 1 ):AutoFit()
|
|
oAS:Columns( 2 ):AutoFit()
|
|
|
|
oAS:Cells( 1, 1 ):Value := "OLE from Harbour"
|
|
oAS:Cells( 1, 1 ):Font:Size := 16
|
|
oAS:Range( "A1:B1" ):HorizontalAlignment := 7
|
|
|
|
oAS:Cells( 1, 1 ):Select()
|
|
|
|
oExcel:Visible := .T.
|
|
|
|
oExcel:Quit()
|
|
|
|
END SEQUENCE
|
|
RECOVER
|
|
Alert( "Error: MS Excel not available. [" + Ole2TxtError()+ "]" )
|
|
END SEQUENCE
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE Exm_MSWord()
|
|
|
|
LOCAL oWord
|
|
LOCAL oText
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oWord := CreateObject( "Word.Application" )
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
|
|
oWord:Documents:Add()
|
|
|
|
oText := oWord:Selection()
|
|
|
|
oText:Text := "OLE from Harbour" + hb_OSNewLine()
|
|
oText:Font:Name := "Arial"
|
|
oText:Font:Size := 48
|
|
oText:Font:Bold := .T.
|
|
|
|
oWord:Visible := .T.
|
|
oWord:WindowState := 1 // ; Maximize
|
|
|
|
END SEQUENCE
|
|
RECOVER
|
|
Alert( "Error: MS Word not available. [" + Ole2TxtError()+ "]" )
|
|
END SEQUENCE
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE Exm_MSOutlook()
|
|
|
|
LOCAL oOL
|
|
LOCAL oList
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oOL := CreateObject( "Outlook.Application" )
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
oList := oOL:CreateItem( 7 ) // ; olDistributionListItem
|
|
oList:DLName := "Distribution List"
|
|
oList:Display( .F. )
|
|
END SEQUENCE
|
|
RECOVER
|
|
Alert( "Error: MS Outlook not available. [" + Ole2TxtError()+ "]" )
|
|
END SEQUENCE
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE Exm_MSOutlook2()
|
|
|
|
LOCAL oOL
|
|
LOCAL oLista
|
|
LOCAL oMail
|
|
LOCAL i
|
|
|
|
oOL := TOleAuto():New( "Outlook.Application.9" )
|
|
|
|
IF Ole2TxtError() != "S_OK"
|
|
Alert("Outlook is not available", "Error")
|
|
ELSE
|
|
oMail := oOL:CreateItem( 0 ) // olMailItem
|
|
|
|
FOR i := 1 TO 10
|
|
oMail:Recipients:Add( "Contact" + LTRIM( STR( i, 2 ) ) + ;
|
|
"<contact" + LTRIM( STR( i, 2 ) ) + "@server.com>" )
|
|
NEXT
|
|
|
|
oLista := oOL:CreateItem( 7 ) // olDistributionListItem
|
|
oLista:DLName := "Test with distribution list"
|
|
oLista:Display( .F. )
|
|
oLista:AddMembers( oMail:Recipients )
|
|
oLista:Save()
|
|
oLista:Close( 0 )
|
|
|
|
oMail:End()
|
|
oLista:End()
|
|
oOL:End()
|
|
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE Exm_OpenOffice()
|
|
|
|
LOCAL oOO_ServiceManager
|
|
LOCAL oOO_Desktop
|
|
LOCAL oOO_PropVal01
|
|
LOCAL oOO_Doc
|
|
|
|
LOCAL cDir
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
|
|
oOO_ServiceManager := CreateObject( "com.sun.star.ServiceManager" )
|
|
|
|
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
|
|
|
hb_FNameSplit( hb_ArgV( 0 ), @cDir )
|
|
|
|
oOO_Desktop := oOO_ServiceManager:createInstance( "com.sun.star.frame.Desktop" )
|
|
oOO_PropVal01 := oOO_ServiceManager:Bridge_GetStruct( "com.sun.star.beans.PropertyValue" )
|
|
oOO_Doc := oOO_Desktop:loadComponentFromURL( OO_ConvertToURL( hb_FNameMerge( cDir, "sample.odt" ) ), "_blank", 0, { oOO_PropVal01 } )
|
|
|
|
// ...
|
|
|
|
oOO_Doc:Close( .T. )
|
|
oOO_Doc := NIL
|
|
|
|
oOO_Desktop:Terminate()
|
|
oOO_Desktop := NIL
|
|
oOO_PropVal01 := NIL
|
|
|
|
END SEQUENCE
|
|
|
|
oOO_ServiceManager := NIL
|
|
|
|
RECOVER
|
|
Alert( "Error: OpenOffice not available. [" + Ole2TxtError()+ "]" )
|
|
END SEQUENCE
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION OO_ConvertToURL( cString )
|
|
|
|
// ; Handle UNC paths
|
|
IF !( Left( cString, 2 ) == "\\" )
|
|
cString := StrTran( cString, ":", "|" )
|
|
cString := "///" + cString
|
|
ENDIF
|
|
|
|
cString := StrTran( cString, "\", "/" )
|
|
cString := StrTran( cString, " ", "%20" )
|
|
|
|
RETURN "file:" + cString
|