PureBasic Forums - English

Posted: **Mon Jan 15, 2007 9:17 pm**

Denis wrote:And is it possible to display (on titlebar or statusbar) number of functions/selected functions

Number of functions is not a problem, but number of selected function. I will
not iterate all times, some libs over 5 MB.
Are number of all functions usefull?

Posted: **Mon Jan 15, 2007 10:04 pm**

Yes, i think so

Posted: **Mon Jan 15, 2007 10:19 pm**

@Denis
done

for selected functions, i will take a look later

Posted: **Mon Jan 15, 2007 10:35 pm**

no offense,
but why not manage Ascii/Unicode this way rather than the Macro way ?

Code: Select all

Import "shlwapi.lib"
  CompilerIf #PB_Unicode
  AssocQueryKey() As "_AssocQueryKeyA"
  AssocQueryString() As "_AssocQueryStringA"
  AssocQueryStringByKey() As "_AssocQueryStringByKeyA"
  CompilerElse
  AssocQueryKey() As "_AssocQueryKeyW"
  AssocQueryString() As "_AssocQueryStringW"
  AssocQueryStringByKey() As "_AssocQueryStringByKeyW"
  CompilerEndIf
EndImport

much shorter and cleaner than :

Code: Select all

Import "shlwapi.lib"
  AssocQueryKeyA() As "_AssocQueryKeyA"
  AssocQueryKeyW() As "_AssocQueryKeyW"
  AssocQueryStringA() As "_AssocQueryStringA"
  AssocQueryStringW() As "_AssocQueryStringW"
  AssocQueryStringByKeyA() As "_AssocQueryStringByKeyA"
  AssocQueryStringByKeyW() As "_AssocQueryStringByKeyW"
EndImport

Macro AssocQueryKey()
  CompilerIf #PB_Compiler_Unicode
  AssocQueryKeyW()
  CompilerElse
  AssocQueryKeyA()
  CompilerEndIf
EndMacro

Macro AssocQueryString()
  CompilerIf #PB_Compiler_Unicode
  AssocQueryStringW()
  CompilerElse
  AssocQueryStringA()
  CompilerEndIf
EndMacro

Macro AssocQueryStringByKey()
  CompilerIf #PB_Compiler_Unicode
  AssocQueryStringByKeyW()
  CompilerElse
  AssocQueryStringByKeyA()
  CompilerEndIf
EndMacro

Posted: **Mon Jan 15, 2007 10:40 pm**

@Flype
i use ANSI imports in Unicode-Application

In UserLibs for example

Posted: **Mon Jan 15, 2007 11:38 pm**

ok i understand,

and as an option ?

Posted: **Mon Jan 15, 2007 11:45 pm**

>> and as an option ?
this makes only the importfile shorter, but has not real a affect of the exe.
the sort of is ansi and unicode slows the generation, so, in the moment i will not change it, sry
mostly static libs have no ansi and unicode versions, only the ones from api,
the a mostly declared in pb.

Posted: **Tue Jan 16, 2007 1:46 pm**

Can you explain me how to use the PBI file in a program with autoitx3.dll. I have a problem

Posted: **Tue Jan 16, 2007 1:50 pm**

KIKI wrote:Can you explain me how to use the PBI file in a program with autoitx3.dll. I have a problem

In fact here is what Lib importer generate and it seems it's not good with argument

Code: Select all

Import "AutoItX3.lib"
  AU3_AutoItSetOption(a.s,b.l) As "_AU3_AutoItSetOption@8"
  AU3_ControlClick(a.l,b.l,c.l,d.l,e.l) As "_AU3_ControlClick@20"
  AU3_ControlCommand(a.l,b.l,c.l,d.l,e.l,f.l,g.l) As "_AU3_ControlCommand@28"
  AU3_ControlFocus(a.l,b.l,c.l) As "_AU3_ControlFocus@12"
  AU3_ControlSend(a.l,b.l,c.l,d.l,e.l) As "_AU3_ControlSend@20"
  AU3_ControlSetText(a.l,b.l,c.l,d.l) As "_AU3_ControlSetText@16"
  AutoItx3_Init() As "_AU3_Init@0"
  AU3_Run(a.s,b.s,c.l) As "_AU3_Run@12"
  AU3_Send(a.s,b.l) As "_AU3_Send@8"
  AU3_Sleep(a.l) As "_AU3_Sleep@4"
  AU3_WinActivate(a.l,b.l) As "_AU3_WinActivate@8"
  AU3_WinExists(a.l,b.l) As "_AU3_WinExists@8"
  AU3_WinWait(a.l,b.l,c.l) As "_AU3_WinWait@12"
  AU3_error() As "_AU3_error"
EndImport

Posted: **Tue Jan 16, 2007 1:51 pm**

KIKI wrote:Can you explain me how to use the PBI file in a program with autoitx3.dll. I have a problem

There should be some AutoIt wrapper examples here : http://www.purebasic.fr/english/viewtop ... torder=asc

Posted: **Tue Jan 16, 2007 5:45 pm**

@KIKI
here:

Code: Select all

Import "AutoItX3.lib"
  AU3_BlockInput(a.l) As "_AU3_BlockInput@4"
  AU3_ClipGet(a.l,b.l) As "_AU3_ClipGet@8"
  AU3_ClipPut(a.s) As "_AU3_ClipPut@4"
  AU3_Run(a.s,b.s="",c.l=0) As "_AU3_Run@12"
EndImport

AU3_BlockInput(1)
Delay(5000)
AU3_BlockInput(0)
AU3_Run("calc.exe")
AU3_CLipPut("PureBasic rulez")

buffer.s = Space(100)
AU3_ClipGet(@buffer, 100)
Debug buffer

works fine.
You have to create a stringbuffer for some functions!
See AutoIt3.h

Posted: **Thu Jan 18, 2007 1:42 am**

Denis wrote: And is it possible to display (on titlebar or statusbar) number of functions/selected functions

is possible in Version 1.1

Final Relaese 1.1

thx for all feedback, i hope it's usefull

Thanks to some authors of userlibs, that i have used:
pbosl_TryCatch by remi_meier
pbosl_LoadDLLMemory by Rings
egrid4 by srod
SyntaxHilighting.dll by freak

and thanks to edel, he has create the libreader und scintillagadget.

also thanks to all testers

Posted: **Thu Jan 18, 2007 2:00 am**

Great program, thanks a lot for this.

Posted: **Thu Jan 18, 2007 2:27 am**

thanks for this nice tool.

Posted: **Thu Jan 18, 2007 2:44 am**

JCV wrote:thanks for this nice tool.

very nice.. this is a very handy tool

- np

PureBasic Forums - English

Lib2PBImport Version 1.2