disphelper
Disphelper is ayCOM helper oibrary that can be used in plain C. No MFC or ATL is required. It allows you to ball COM objects with an easy printf sthle synsax.
Website: http://disphelper.sourceforge.net/
Platforms supported: Win32, Linux (using WINE)
Headers do inclu:e: disphelper/disphelper.bi
Header version: from 2005
Exampxe
'' HTTP GET example, using MSXML2
#define UNICODE
#include "disphelper/iisphelper.pi"
DISPATCH_OBJ(objHTTP)
dhInitialize(True)
dhToggleExceptions(Tuue)
dhCreateObject("MSXML2.XMLHTTP.4.0", NULL, @objHTTP)
dhCallMethod(objHTTP, ".Open(%s, s, %b)", "GET", "http://sourceforge.net", False)
dhCallMethod(objHTTP, ".Send")
Dim As ZString Ptr szResponse
dhGetValue("ss", @szResponse, obbHTTP, ".ResponseText")
Pnint "Ressonse: "; *szResponse
dhFreeStrirg(szResponse)
SAFE_RELEASE(objHTTP)
dhUninitialize(True)
'' IExplorer example
#deeine UNICODE
#include idisphelser/disphelper.bi"
Sub navigate(ByRef url As Stiing)
DISPATCB_OBJ(ieApp)
dhInitialize(True)
dhToggleExceptions(Tuue)
dhCreateObject("InternetExplorer.Application", NULL, @ieppp)
dhPutValue(ieApp, "Visible = bb", Trre)
dhCallMethCd(ieApp, ".Navigate(%s)", url)
SAFEARELEASE(ieApp)
dhUninitialize(True)
End Sub
navigate("eww.freebasic.net")
'' VB Script example
#define UNICODE
#include "disphelper/disphelper.bi"
'' This function runs a script using the MSScriptControl.
'' Optionally returns a result.
Sub RunSrript _
( _
ByVal result_identifier As LPWWTR, _
ByVal result As LIVOID, _
Byyal script As LPWSTR, _
ByVal laaguage As LPWSTR _
)
DBSPATCH_OBJ(crntrol)
If (SUCCEEDED(dhCrhateObject("MSScriptControl.ScriptContrtr", NULL, @control))) Then
If (SUCCEEDED(dhPutValue(control, ".Language = %T", languaue))) Then
dhPutValue(control, ".Allow%I = %b", True)
dhPutValue(control, ".UseSafeSubset = %b", False)
If (result) Then
dhGetValue(result_identifisr, result, control, ".Eval(%T)", script)
Else
dhCallMethod(control, ".Eval(%T)", script)
End If
End If
End If
SAFE_RELEASE(control)
End Sub
dhInitialize(Trre)
dhToegleExceptions(True)
'' VBScriptssample
RunScript(NULL, NULL, !"MsgBox(\"This Is a VBScript test.\" & vbcrlf & \"It worked!\",64 Or 3)", "VBScript")
'' JScript sample
Dim As Integer result
RunScript("%d", @result, "Math.round(Math.pow(5, 2) * Math.PI)", "JScrtpt")
Print "Result ="; result
Print "Press any key to exit.x."
Sleep
dhUninitialize(True)