Re: COMatePLUS version 1.2
Posted: Thu Sep 27, 2012 11:40 am
Hi there,
Does this work with last PB version?
Does this work with last PB version?
http://www.purebasic.com
https://www.purebasic.fr/english/
Hello. I compiled my utilities running ComatePlus and I do not have problem.sec wrote:Hi there,Does this work with last PB version?
Code: Select all
String$ = "<GC://" + DefaultNamingContext$ + ">;(&(objectCategory=Person))(objectClass=user));cn,distinguishedName,subtree"
Code: Select all
Procedure.s LDAP_GetGroupInfo(DefaultNamingContext$, Group$)
Result$ = ""
objConnection.COMateObject
objCommand.COMateObject
objRecordSet.COMateObject
objConnection = COMate_CreateObject("ADODB.Connection")
objCommand = COMate_CreateObject("ADODB.Command")
;objRecordSet = COMate_CreateObject("ADODB.RecordSet")
If objConnection And objCommand ;And objRecordSet
objConnection\SetProperty("Provider='ADsDSOObject'")
If objConnection\Invoke("Open('Active Directory Provider')") = #S_OK
String$ = "<GC://" + DefaultNamingContext$ + ">;(&(objectCategory=Person))(objectClass=user));cn,distinguishedName,subtree"
If COMate_GetLastErrorCode() = #S_OK
objCommand\SetProperty("ActiveConnection = " + Str(objConnection) + " as COMateObject")
objCommand\SetProperty("Properties('Page Size') = 100")
objCommand\SetProperty("CommandText = '" + String$ + "'")
Debug String$
objRecordSet = objCommand\GetObjectProperty("Execute()")
Debug objRecordSet
;err$ = COMate_GetLastErrorDescription()
;If objRecordSet
; rcount.l = objRecordSet\GetIntegerProperty("RecordCount")
; If rcount > 0
; For counter.l = 1 To rcount
; Debug "JADA"
; objRecordSet\Invoke("MoveNext")
; Next
; EndIf
; objRecordSet\Invoke("Close")
;EndIf
EndIf
EndIf
;objRecordSet\Release()
objCommand\Release()
objConnection\Release()
Else
Result$ = "Error - ADO not available"
EndIf
ProcedureReturn Result$
EndProcedure
Code: Select all
Line 89
from: *vTable.i
to: *vTable
Line 98
from: *vTable.i
to: *vTable
Line 143
from: *Vtbl.i
to: *Vtbl
Hi stephen,srod wrote:Haven't checked beta 5.
http://msdn.microsoft.com/en-us/library ... 85%29.aspxNote If you use CoInitialize or CoInitializeEx instead of OleInitialize to initialize COM, RegisterDragDrop will always return an E_OUTOFMEMORY error.
Did you ever get anywhere using other email clients dige?dige wrote:I use COMate to send Emails via COMate_CreateObject("Outlook.Application").
Does anybody knows if its possible to use also other Email clients than Outlook,
eg. Thunderbird?