PureBasic Forums - English

Hi,

thanks for the kind offer, but I do have webspace I can use if I need. Truth is that the grid controls have pretty much run their course I reckon; being Windows only, and so I have no real wish to put them up for sale again. They still run fine mind and good for Windows apps.

If anyone wants ...

acreis wrote:No error with version found in

http://www.rsbasic.de/backups

Thanks, acreis.

Hi,

When compiling an old project that includes COMate, specifically the version at

http://www.purebasicpower.de/downloads/COMatePLUS.pbi


, there's an error on line 607: Garbage at the end of the line.


;Has the automation server deferred from filling in the EXCEPINFO structure?
If excep ...

"yes, the same way you do it with VB6"

Well, I guess it depends on how you look at it. But I think calling Get Integer/String/etc Property(), with a method name & its parameters as a parameter, looks very different syntactically, from calling the method directly.

Anyway, thanks for the help, Kiffi ...

sTestString = " what the heck " + "," + "why, you" + "," + "you dirty rat"
Debug sTestString
Debug oOleServerTest\GetIntegerProperty( "GetNumberOfTokens('" + sTestString + "')" )
Debug COMate_GetLastErrorDescription()

HTH

Greetings ... Kiffi


Ah, ok. So the Get...Property() in CoMate methods ...

"Store the files somewhere offsite (of the forum), i.e. Dropbox, and use:

...

This is also useful to link to other threads in the forum."


So, in the attached, there are 2 simple projects (a PB and a VB6 version) which make use of the simplified Harbour oleserver hbTokenUdfs.dll.

The idea is to ...

"
Well, I'm trying to create the simplest ole server, and the simplest Test pb code which will illustrate the COMatePlus issue. But am getting an error, in the COMatePlus.pbi code, that wasn't there before.

When you do a syntax check, it chokes on line 1838,

errorCode = COMatePLUS ...

However, although it's clear how to attach an image, I'm not sure how to attach a Zip or dll or ocx file to a thread, for illustration.

Store the files somewhere offsite (of the forum), i.e. Dropbox, and use:

http://web.newsguy.com/otter_mine/include_file.png

This is also useful to link to ...

' one or more arguments are invalid' type of message.
please post some code. Perhaps we see, what's going wrong.

Greetings ... Kiffi


Absolutely. Will put something out there, over the weekend. However, although it's clear how to attach an image, I'm not sure how to attach a Zip or dll or ocx ...

"
SendMessage_(GadgetID(0), #WM_KEYDOWN, #VK_END, #Null)
SendMessage_(GadgetID(0), #WM_VSCROLL, #SB_BOTTOM, #Null)
"

Yep, adding


SendMessage_(GadgetID( edtOutput ), #WM_KEYDOWN, #VK_END, #Null)
SendMessage_(GadgetID( edtOutput ), #WM_VSCROLL, #SB_BOTTOM, #Null)

after every AddGadgetItem ...

Thanks everyone for the assistance. Got one final question for the day, before taking a break -

How do you automatically point the cursor to the end of an Editor Gadget, after your program prints a lot of information on the gadget?

Currently, after the program throws lots of messages at the ...

Here's a function I've successfully used for quite a while: Procedure.i IsNumeric(num$) ; AKJ 07-Mar-11
; Tests whether the given value is purely numeric
; If an exponent is present, it will never be classed as a integer
; A number like 5.00 will be classed as an integer
; Return: -1 if a floating ...

Cool, thanks.

It also returns "0" if it's a string without spaces. So if you try

sTestString = Evaluate( "what" )

, sTestString will contain "0".

If

sTestString = Evaluate( "What the...?" )

, then it returns "ERROR"

, as you mentioned.




I can work with that, easily. Thanks, Danilo ...

With database:


Enumeration
#Database
EndEnumeration

Procedure.f Evaluate(String.s, X.f=0)
Protected Result.s
If DatabaseQuery(#Database, ReplaceString("SELECT ("+String+")", "x", StrF(X)))
If NextDatabaseRow(#Database)
Result = GetDatabaseString(#Database, 0)
EndIf
FinishDatabaseQuery ...

Try this:
XIncludeFile "Evaluate.pbi" ; http://danilo.purearea.net/EvaluateExpression.zip

Debug Evaluate("5 * 23")

Debug Evaluate("some text")
It returns "ERROR" if it is not a valid expression.

Cool, thanks.

It also returns "0" if it's a string without spaces. So if you try

sTestString ...