Get Text

[lavachri]

Hi,
i want to make external tools for a better accessibility in editing code.
I need to get text of the IDE editor, but my code don't work !

Code: Select all

hSCI = Val(GetEnvironmentVariable("PB_Tool_Scintilla")) 
If hSCI
  mem$ = Space(  1000 )
  Len = SendMessage_( hSCI, #SCI_GETLINE, 1, @mem$ )
  MessageRequester( Str(Len), Mem$ )
EndIf
End

or crash the IDE !

Code: Select all

hSCI = Val(GetEnvironmentVariable("PB_Tool_Scintilla")) 
If hSCI
  *Mem = Allocatememory  1000 )
if *Mem
    Len = SendMessage_( hSCI, #SCI_GETLINE, 1, *Mem )
    MessageRequester( Str(Len), Peeks( *Mem, 1000) )
  endif
EndIf

Someone know how to do ?
Thanks