Recent Posts

41

Problems & Solutions / Re: COM OLE

« Last post by Charles Pegge on March 23, 2021, 04:04:28 PM »

Good! I will keep context=5.

Did you get Sage to work with your SB COM instead of BOI ?

Yes I see you did on page 1

42

Problems & Solutions / Re: COM OLE

« Last post by JRS on March 23, 2021, 03:44:27 PM »

Yes.

First 4 which I made the dialog screen shots of then 5 which showed the same dialog sequence.

43

Problems & Solutions / Re: COM OLE

« Last post by Charles Pegge on March 23, 2021, 03:37:35 PM »

Did it create an interface with context=5 ?

44

Problems & Solutions / Re: COM OLE

« Last post by JRS on March 23, 2021, 03:29:14 PM »

I think you're making progress.

oWorkbook is the last dialog to show. I'm now seeing the same Excel loading pause in O2 as I do in SB. I get the same dialogs for 4 and 5.

Code: [Select]

'07:01 23/03/2021
$filename "exceldemo.exe"
'uses RTL32                                   
uses  COM/COMutil                                   
 
CoInitialize null
 
string filename
int i, j
 
filename = "C:\OxygenBasic\examples\COM\exceldemo.xls"
CreateInterfaceByName "Excel.Application" oExcelApp
print "CLSID: " + guidtxt ObjectGuid
print "ERROR: " + hex(err)
print "oExcelApp: " + @oExcelApp
ObjectByName(oExcelApp, "Workbooks", BSTR {}, oWorkBook)
print "oWorkBook: " + @oWorkBook
ObjectByName(oWorkBook, "Add", BSTR {0}, oExcelWorkbook)
print "oExcelWorkbook: " + @oExcelWorkbook
ObjectByName(oExcelWorkbook, "Worksheets", BSTR {1}, oExcelSheet)
print "oExcelSheet: " + @oExcelSheet
ObjectByName(oExcelSheet, "Range", BSTR {"G3"}, oRange)
print "oRange: " + @oRange
LetByName(oRange, "Value", 123)
oRange.Release
ObjectByName(oExcelSheet, "Range", BSTR {"B1:B5"}, oRange)
CallByName(oRange, "BorderAround", BSTR {1, -4138, 3})
ObjectByName(oRange, "Interior", BSTR {1}, oInterior)
LetByName(oInterior, "ColorIndex", 38)
LetByName(oInterior, "Pattern", "xlSolid")
oRange.Release
oInterior.Release
for i = 0 to 10
  for j = 0 to 10
    ObjectByName(oExcelSheet, "Cells", BSTR {i, j}, oCell)
    LetByName(oCell, "Value", "test-" + str(i) + "-" + str(j))
    oCell.Release
  next j   
next i   
CallByName(oExcelWorkbook, "SaveAs", BSTR {filename})
CmdByName(oExcelWorkbook, "Close")
CmdByName(oExcelApp, "Quit")
oExcelSheet.Release
oExcelWorkbook.Release
oWorkBook.Release
oExcelApp.Release

CoUninitialize
 
print "Speadsheet Created."


45

Problems & Solutions / Re: COM OLE

« Last post by JRS on March 23, 2021, 03:12:50 PM »

Charles,

You can try Office free for a month which gives Excel to play with. $99 / year if you decide to subscribe. Get the 32 bit version of office.

https://www.microsoft.com/en-us/microsoft-365/try

46

Problems & Solutions / Re: COM OLE

« Last post by Charles Pegge on March 23, 2021, 03:11:49 PM »

In ComUtil.inc:

Code: [Select]

  'CLSCTX_INPROC_SERVER            = 0x1
  'CLSCTX_INPROC_HANDLER           = 0x2
  'CLSCTX_LOCAL_SERVER             = 0x4
  'CLSCTX_INPROC_SERVER16          = 0x8
  'CLSCTX_REMOTE_SERVER            = 0x10
  '
  int context = 15 '1 2 4 8


could you try with the context set to 5, then 4

This value is used by CocreateInstance.

47

Problems & Solutions / Re: COM OLE

« Last post by JRS on March 23, 2021, 01:45:34 PM »

Yep.

Prints zero.

Also the last thing to print. The others never print (pop messageboxes)

48

Problems & Solutions / Re: COM OLE

« Last post by Charles Pegge on March 23, 2021, 01:39:14 PM »

Thanks.

Is this still null?
print @oExcelApp

49

Problems & Solutions / Re: COM OLE

« Last post by JRS on March 23, 2021, 12:51:19 PM »

Charles,

Attached is the following. I assume you still have the SCRIBA.INI and ScriptBasic installed on your box.

sbc.exe - console w/styles
sbw.exe - true Windows consoleless interpreter w/styles
com.dll - Dave's / Mike's COM extension module
com.dll.debug - COM extension with debug messages
com.sbi - COM include/import

50

Problems & Solutions / Re: COM OLE

« Last post by JRS on March 23, 2021, 12:23:19 PM »

print "CLSID: " + guidtxt ObjectGuid

oExcelApp = COM::CREATE(:SET, "{00024500-0000-0000-C000-000000000046}")

It worked under SB.