AutoHotkey Community
It is currently May 27th, 2012, 12:26 am

View unanswered posts | View active topics


Board index » AutoHotkey » Support

All times are UTC [ DST ]



Post new topic Reply to topic  Page 1 of 1
  [ 9 posts ] 
  Print view | E-mail friend Previous topic | Next topic 
Author Message
dadepp
PostPosted: December 8th, 2009, 9:23 pm 
Offline

Joined: June 12th, 2008, 1:48 am
Posts: 27
Hi,

hope someone with COM knowledge can help me out here.
I'm trying to access the TOM implementation of a Richedit via COM.

I already have tried to adapt an example from VB, but failed on something simple: COM_CreateObject !

Code:
; requires corrupts richedit implementation:
; http://www.autohotkey.com/forum/ntopic49028.html
;
; Example VB Code that I tried to adapt:
; http://www.tech-archive.net/Archive/VB/microsoft.public.vb.general.discussion/2009-01/msg01380.html
;
; Msdn docu on EM_GETOLEINTERFACE
; http://msdn.microsoft.com/en-us/library/bb788041(VS.85).aspx

Gui Add, Button, ym gtest1, test1
Gui Show, +hide w500 h500, RichEdit demo
If A_OSVersion = WIN_95
  cGUI("Add", REdit1, 10, 40, 480, 450, "RICHEDIT")
Else
  cGUI("Add", REdit1, 10, 40, 480, 450, "RichEdit20A")
cRichEdit(REdit1, "Text", "Test string to illustrate how to use the `nText Object Model")
COM_Init()
Gui Show
Return

test1:
ptobj := COM_CreateObject("IRichEditOle")        ; cant find any references on what to put here !!!
SendMessage, 0x43C,0,&ptobj,, ahk_id %REdit1%
pito := COM_QueryInterface(ptobj, "{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}")
; {8CC497C0-A1DF-11CE-8098-00AA0047BE5D} = ITextDocument ???
ptr := COM_Invoke(pito, "SetRange", 1, 3)
ptf := COM_CreateObject("ITextFont")             ; cant find any references on what to put here !!!

COM_Invoke(ptr, "GetFont", &ptf)
COM_Invoke(ptf, "SetForeColor", "0x00FF0000")
COM_Invoke(ptr, "SetColor", &ptf)

COM_Release(ptf)
COM_Release(ptr)
COM_Release(ptobj)
Return

GuiClose:
COM_Term()
If (REdit1)
  cRichEdit(REdit1, "Destroy")
Gui, %A_Gui%:Destroy
cGUI("FreeDlls", NULL)
ExitApp
Return

#Include cGUI.ahk
#Include cRichEdit.ahk


Then the next problem will probably be the EM_GETOLEINTERFACE message since the lparam is "Pointer to a pointer that receives the IRichEditOle object". No idea how to implement this double pointer system.
Hope someone has some more insight into this.


Report this post
Top
 Profile  
Reply with quote  
jethrow
 Post subject:
PostPosted: December 9th, 2009, 12:22 am 
Offline
User avatar

Joined: May 24th, 2009, 5:35 am
Posts: 2099
Location: Iowa, USA
Perhaps supplying the VBScript might help.

_________________
Image
Recommended: AutoHotkey_L
Basic Webpage Controls


Report this post
Top
 Profile  
Reply with quote  
dadepp
 Post subject:
PostPosted: December 9th, 2009, 1:33 am 
Offline

Joined: June 12th, 2008, 1:48 am
Posts: 27
jethrow wrote:
Perhaps supplying the VBScript might help.

dadepp wrote:
Code:
; Example VB Code that I tried to adapt:
; http://www.tech-archive.net/Archive/VB/microsoft.public.vb.general.discussion/2009-01/msg01380.html

I wrote it into the code. sry if it was not obvious.


Report this post
Top
 Profile  
Reply with quote  
dadepp
 Post subject:
PostPosted: December 10th, 2009, 12:20 am 
Offline

Joined: June 12th, 2008, 1:48 am
Posts: 27
Bump!

After a few hours on google, i came up with something that might work:
(but its probally just wishfull thinking on my part :( )
Code:
ptobj := COM_CreateObject("IID_IUnknown")
SendMessage, 0x43C,0,&ptobj,, ahk_id %REdit1%
pito := COM_QueryInterface(&ptobj, "IID_ITextDocument")


But still got the COM error:
Quote:
Function Name: "SetRange"
ERROR: The COM Object may not be a valid Dispatch Object!
First ensure that COM Library has been initialized through COM_Init().
()

Will continue?


I hope someone with COM knowledge can help here!
Or maybe someone can point me in the rigth direction, on where to get needed infos, or maybe even an ahk script that has the same "pointer to a pointer to an object" problem, so I can try to adapt it.

Below is the VB code (note I only tried the first part, not the searching for a word part):
Code:
Option Explicit

Private Const WM_USER As Long = &H400
Private Const EM_GETOLEINTERFACE As Long = (WM_USER + 60)
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Dim oUnknown As stdole.IUnknown
Dim oTextDocument As ITextDocument
Dim oTextRange1 As ITextRange
Dim oTextFont1 As ITextFont
Dim oTextPara1 As ITextPara
Dim oTextSelection1 As ITextSelection

Private Sub Command1_Click()
Dim ret As Long

ret = SendMessage(RichTextBox1.hwnd, EM_GETOLEINTERFACE, 0, oUnknown)
Debug.Print "EM_GETOLEINTERFACE returned " & ret & _
", LastDllError = " & Err.LastDllError
Set oTextDocument = oUnknown
If oTextDocument Is Nothing Then
Debug.Print "oTextDocument Is Nothing"
Exit Sub
End If

Debug.Print "StoryCount = " & oTextDocument.StoryCount

' Specify range char 5 to 11
Set oTextRange1 = oTextDocument.Range(5, 11)
Debug.Print "TextRange1: '" & oTextRange1.Text & "'"
' Change its color
Set oTextFont1 = oTextRange1.Font
oTextFont1.ForeColor = RGB(255, 0, 0)

' Find "Object"
oTextRange1.FindText "Object", tomForward, tomMatchWord
' Change its color
oTextFont1.ForeColor = RGB(0, 255, 0)

Set oTextPara1 = oTextRange1.Para

Set oTextSelection1 = oTextDocument.Selection

' Done
Set oTextSelection1 = Nothing
Set oTextPara1 = Nothing
Set oTextFont1 = Nothing
Set oTextRange1 = Nothing
Set oTextDocument = Nothing
End Sub

Private Sub Form_Load()
RichTextBox1.HideSelection = False
RichTextBox1.Text = "Test string to illustrate how to use the " & _
"Text Object Model"
End Sub


I hope someone can help/ shed some light on things.


Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: December 10th, 2009, 1:00 am 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
You did it completely wrong. It's a great mystery how you reached the posted code from the mentioned VB code. Do you understand the VB code? Anyway, there exist two ways to obtain IRichEidtOle/ITextDocument interface.

Only for RichEdit controls in the same AHK/thread,
Code:
COM_Init()
VarSetCapacity(lp,4,0)
SendMessage, 1084,, &lp,, ahk_id %hwndRichEdit%
preo := NumGet(lp) ; IRichEditOle
; ptom := COM_QueryInterface(preo, "{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}"), COM_Release(preo)

or, also for RichEdit controls in other apps,
Code:
COM_AccInit()
ptom := COM_AccessibleObjectFromWindow(hwndRichEdit, -16) ; ITextDocument


Report this post
Top
 Profile  
Reply with quote  
dadepp
 Post subject:
PostPosted: December 10th, 2009, 6:29 pm 
Offline

Joined: June 12th, 2008, 1:48 am
Posts: 27
First off many thanks for taking the time to help the idiotic me.

Sean wrote:
You did it completely wrong. It's a great mystery how you reached the posted code from the mentioned VB code. Do you understand the VB code?


...... Owned :!: ..... That was the first thought that crossed my mind after reading your post, and i deserve it. No excuses for me (except maybe the standard ones like "it was late" and so on ...).

To answer your question if I understood the VB code I can honsetly say Yes/No, since I never worked with VB, except when adapting vb scripts to ahk (sucessfully till now i might add!), and concerning COM, well that was my first try into the field, that I didn't touch, even with a 10 foot pole, till now.

Believe it or not, but your solution was the first thing i tried, minus the VarSetCapacity and the NumGet part of course. Since that didn't work I came up with that piece of code. It went down something like this:
- They create the Com objects before using them, so lets do it like this too --> COM_CreateObject
- send EM_GETOLEINTERFACE --> ok the same
- hm setting one object to the recieved lparam pointer and then using it like an ITextDocument object --> msdn says the sendmsg returns a IRichEditOle and to get ITextDocument use QueryInterface --> total mess
- and so on ..

After I got that it didnt work, and I thought i adapted it right and the only thing wrong here was the params of COM_CreateObject, and thats how this mess came to be.

Sean wrote:
Anyway, there exist two ways to obtain IRichEidtOle/ITextDocument interface.

Only for RichEdit controls in the same AHK/thread,
Code:
COM_Init()
VarSetCapacity(lp,4,0)
SendMessage, 1084,, &lp,, ahk_id %hwndRichEdit%
preo := NumGet(lp) ; IRichEditOle
; ptom := COM_QueryInterface(preo, "{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}"), COM_Release(preo)


With your solution I managed to make it work, so heres the working code with many thanks to Sean:
Just run this, select some part of the text then press button!
Code:
; requires corrupts richedit implementation:
; http://www.autohotkey.com/forum/ntopic49028.html
;
Gui Add, Button, ym gtest1, test1
Gui Show, +hide w500 h500, RichEdit demo
If A_OSVersion = WIN_95
  cGUI("Add", REdit1, 10, 40, 480, 450, "RICHEDIT")
Else
  cGUI("Add", REdit1, 10, 40, 480, 450, "RichEdit20A")
cRichEdit(REdit1, "Text", "Test string to illustrate how to use the `nText Object Model")
COM_Init()
Gui Show
Return

test1:
VarSetCapacity(lp,4,0)
SendMessage, 1084,, &lp,, ahk_id %REdit1%
preo := NumGet(lp)
ptom := COM_QueryInterface(preo, "{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}")
COM_Release(preo)

ptr := COM_Invoke(ptom, "Range", 5, 11)
ptf := COM_Invoke(ptr, "Font")
COM_Invoke(ptf, "ForeColor", "0x000000FF")

COM_Invoke(ptr, "FindText", "object", "1073741823", "2")
COM_Invoke(ptf, "ForeColor", "0x0000FF00")

COM_Release(ptf)
COM_Release(ptr)

COM_Release(ptom)
Return

GuiClose:
COM_Term()
If (REdit1)
  cRichEdit(REdit1, "Destroy")
Gui, %A_Gui%:Destroy
cGUI("FreeDlls", NULL)
ExitApp
Return

#Include cGUI.ahk
#Include cRichEdit.ahk


Report this post
Top
 Profile  
Reply with quote  
tank
 Post subject:
PostPosted: December 10th, 2009, 7:16 pm 
Offline
User avatar

Joined: December 21st, 2007, 3:14 pm
Posts: 3826
Location: Louisville KY USA
care to share these?
#Include cGUI.ahk
#Include cRichEdit.ahk

_________________
No matter what your oppinion Please join this discussion
Formal request to Polyethene
Image


Report this post
Top
 Profile  
Reply with quote  
dadepp
 Post subject:
PostPosted: December 10th, 2009, 11:49 pm 
Offline

Joined: June 12th, 2008, 1:48 am
Posts: 27
tank wrote:
care to share these?
#Include cGUI.ahk
#Include cRichEdit.ahk


dadepp wrote:
Code:
; requires corrupts richedit implementation:
; http://www.autohotkey.com/forum/ntopic49028.html
;
.....
........


It is an include from corrupt:
http://www.autohotkey.com/forum/ntopic49028.html


Report this post
Top
 Profile  
Reply with quote  
tank
 Post subject:
PostPosted: December 11th, 2009, 12:33 am 
Offline
User avatar

Joined: December 21st, 2007, 3:14 pm
Posts: 3826
Location: Louisville KY USA
doh :!: :oops:

_________________
No matter what your oppinion Please join this discussion
Formal request to Polyethene
Image


Report this post
Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 1
  [ 9 posts ] 

Board index » AutoHotkey » Support

All times are UTC [ DST ]

Who is online

Users browsing this forum: BrandonHotkey, Google Feedfetcher, iDrug, Leef_me, rjgatito, Yahoo [Bot] and 22 guests

You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Powered by phpBB® Forum Software © phpBB Group