Search found 808 matches

by Tonton Luc
7 Mar 2019 22:47
Forum: Visual Prolog
Topic: sendMessage examples?
Replies: 5
Views: 5336

Re: sendMessage examples?

Hi,

:idea:

Code: Select all

postEvent(e_Menu(id_file_exit,c_Nothing)),
by Tonton Luc
7 Mar 2019 21:43
Forum: Visual Prolog
Topic: Dropdown activation
Replies: 1
Views: 4929

Re: Dropdown activation

Hi,

:idea: I think it's possible using this following code :

Code: Select all

_ = your_list_edit_ctrl:sendEvent(e_Native(0x014F,1,0)),
by Tonton Luc
5 Mar 2019 13:44
Forum: Visual Prolog
Topic: Edit pdf document
Replies: 5
Views: 4128

Re: Edit pdf document

Hi, :idea: You can create your own robot using : _ = gui_native::setcursorpos(X,Y), and gui_native::keybd_event(gui_native::vk_down,0,0,0), gui_native::keybd_event(gui_native::vk_down,0,gui_native::keyeventf_keyup,0), and gui_native::keybd_event(gui_native::vk_return,0,0,0), gui_native::keybd_event(...
by Tonton Luc
5 Mar 2019 13:22
Forum: Visual Prolog
Topic: xmlhttp60 : get_ResponseStream()
Replies: 6
Views: 3086

Re: xmlhttp60 : get_ResponseStream()

Hi, And do you think it's possible to upload some files using xmlhttp60 ? I've tried without success : XML = xmlhttp60::new(), XMLR = XML:get_IXMLHTTPRequest_import(), XMLR:predicate_open("PUT","ftp://???",comDomains::boolean(false),comDomains::string("my_user_name"),comDomains::string("my_password"...
by Tonton Luc
28 Feb 2019 21:57
Forum: Visual Prolog
Topic: xmlhttp60 : get_ResponseStream()
Replies: 6
Views: 3086

Re: xmlhttp60 : get_ResponseStream()

Hi,

Your previous code works fine with VP 7.3 + this :
F:writeBytes(Data, convert(byteCount, L)+1),
Many thanks for your help.
by Tonton Luc
28 Feb 2019 8:00
Forum: Visual Prolog
Topic: xmlhttp60 : get_ResponseStream()
Replies: 6
Views: 3086

xmlhttp60 : get_ResponseStream()

Hi, How to write the PDF file's contain using get_ResponseStream() [or get_responseText()] ? I've tried this following VP 7.3 code without success because my htmlSource PDF file contain a lot of "???" : XML = xmlhttp60::new(), XMLR = XML:get_IXMLHTTPRequest_import(), XMLR:predicate_open("GET","ftp:/...
by Tonton Luc
26 Feb 2019 14:29
Forum: Visual Prolog
Topic: Http Request
Replies: 7
Views: 3361

Re: Http Request

Hi,

Is it possible to use msglay_Connect with HTTPS or not ?
by Tonton Luc
12 Feb 2019 13:53
Forum: Visual Prolog
Topic: Http Request
Replies: 7
Views: 3361

Re: Http Request

Hi, Here is a VP 7.3 code sample : serveur = "your_server.com", Req = format("GET http://%/your_folder/your_php_file.php?x=%\n\n",serveur,Action), trap(SOCKET = msgSocketBlocking::msglay_Connect(serveur, 80, []),_,(stdio::write("msglay_Connect : not ok\n"),fail())), msglay_WriteStr(SOCKET,Req), stdi...
by Tonton Luc
16 Jan 2018 10:29
Forum: Visual Prolog
Topic: How to convert a safeArray ?
Replies: 2
Views: 1574

Re: How to convert a safeArray ?

Thanks for your help. My code work fine now : % with Selection = "D4:F6" Values == Selection:getProperty("Value"), if Values = comDomains::safeArray(SA) then Array = safeArrayVariant::newCopy(SA), Nb_array = Array:getBoundaries(), % [boundary(2,1),boundary(2,1)] Prem = Array:getValue([3,3]), % retur...
by Tonton Luc
15 Jan 2018 16:57
Forum: Visual Prolog
Topic: How to convert a safeArray ?
Replies: 2
Views: 1574

How to convert a safeArray ?

Hi,

When I recover the Range value in a Excel sheet Range("B6:E8") using comDispInterface::getProperty, I obtein a comDomains::safeArray variant.
How to convert it in string_list (or integer_list) ?
by Tonton Luc
15 Jan 2018 16:21
Forum: Visual Prolog
Topic: Mimic VBS code
Replies: 11
Views: 2523

Re: Mimic VBS code

Bingo !!! Works fine. Many many thanks for your help Thomas. Outputs2 = ApplicationExcell:invokeMethodWithOutput2("Range",[comdomains::in(comDomains::string("B6:E7"))]), stdio::writef("%\n", Outputs2), comDomains::iDispatch(IFind) == list::nth(0,Outputs2), CellSel = comDispInterface::new(IFind), Cel...
by Tonton Luc
15 Jan 2018 14:36
Forum: Visual Prolog
Topic: Mimic VBS code
Replies: 11
Views: 2523

Re: Mimic VBS code

I've tried this code without succes : Outputs2 = ApplicationExcell:invokeMethodWithOutput("Range",[comdomains::in(comDomains::string("B6"))]), ======================================== Dump: 2018/01/15 14:34:56 ---------------------------------------- Exception: disp_e_membernotfound_exception (com/v...
by Tonton Luc
15 Jan 2018 8:44
Forum: Visual Prolog
Topic: Mimic VBS code
Replies: 11
Views: 2523

Re: Mimic VBS code

Hi, All works fine now :D Many thanks for your help. Here is my code : class predicates getActiveObject : (comDomains::nativeClassId CLSID, pointer MustBeNull, iUnknown IUnknown [out]) -> hResult HResult language apicall. clauses onFileNew(_Source, _MenuTag):- CLSID = uncheckedConvert(comDomains::na...
by Tonton Luc
12 Jan 2018 13:24
Forum: Visual Prolog
Topic: Mimic VBS code
Replies: 11
Views: 2523

Re: Mimic VBS code

Hi Sorry, I did not see that you had indicated "Vip 8" in your first reply. I've try this code without success : XXX = uncheckedConvert(comDomains::nativeClassId,memory::allocAtomicHeap(sizeOfDomain(comDomains::nativeClassId))), CLSID = uncheckedConvert(pointer,XXX), R_clsid = com_native::cLSIDFromP...
by Tonton Luc
12 Jan 2018 11:49
Forum: Visual Prolog
Topic: Mimic VBS code
Replies: 11
Views: 2523

Re: Mimic VBS code

Hi, Many thanks for your help. I forget to indicate I use VP 7.3. So, I try to convert your code in VP 7.3 and I've an error. Here is my code : _R = com_native::cLSIDFromProgID("Excel.Application",CLSID), IApplicationExcell = uncheckedConvert(iDispatch, comCreation::createInstance(CLSID, iDispatch::...