Author | Message |
---|
Meka][Meka Unstopable Posts: 700
| IF YOU USE THIS PLEASE ADD THE FOLLOWING LINE TO YOUR README 'MekaDLL Component :: http://www.meka-meka.com/' DOWNLOAD: CLICK HERE this component is easy to use, put it in same dir as your vb exe, ive included a vb wrapper... add the wrapper.bas into your vb project, then u can call any of the following procedures/functions, u can use this dll in just about any language u want if u write the wrapper... if u do please post it...
Code: | string = AfterFirst(Str As String, Find As String) string = BeforeFirst (str As String, Find As String) integer = Rand(MaxInt As Integer) string = Scramble(str As String) OpenINI(filename As String) CloseINI() integer = INIWrite(Section As String,Ident As String,Value As String) string = INIRead(Section As String,Ident As String,DefaultValue As String) string = FindPath(SysFolder As String) string = ByteToSize(Size As String,Conv As String) | any requests to be add, please reply to this thread, thanks
|
Mickey Ametuar Posts: 115
| Looks cool, and since it is a .DLL it can be used in any programming language.
|
Meka][Meka Unstopable Posts: 700
|
Quoted from Mickey | Looks cool, and since it is a .DLL it can be used in any programming language. | ye i guess so, if u write a wrapper for any other languages please post them... thanks to all that does ;)
|
Mickey Ametuar Posts: 115
| Of course, here you are the Delphi wrapper for example:
Code: | (* wrapper for '{ ----- MEKA MEKA LIBRARY ----- {' ' MEKADLL ' '{ ----------------------------- }' Delphi code by Mickey *) unit Wrapper; interface // Remember, there is no need to give name '*****' only if the name in DLL is different from the call name we want to use in our program. function AfterFirst(str:string; Find:string) : string; stdcall; external 'MekaDLL.dll'; // name 'AfterFirst'; function BeforeFirst(str:string; Find:string) : string ; stdcall; external 'MekaDLL.dll' name 'BeforeFirst'; function Rand(x:Integer) : Integer; stdcall; external 'MekaDLL.dll' name 'Rand'; function Scramble(str: pChar) : pChar; stdcall; external 'MekaDLL.dll' name 'Scramble'; procedure OpenINI(filename:string); stdcall; external 'MekaDLL.dll' name 'OpenINI'; procedure CloseINI; stdcall; external 'MekaDLL.dll' name 'CloseINI'; function INIWrite(Section:string; Ident:string; Value:string) : Integer; stdcall; external 'MekaDLL.dll' name 'INIWrite'; function INIRead(Section:string; Ident:string; DefaultValue:string) : string; stdcall; external 'MekaDLL.dll' name 'INIRead'; function FindPath(SysFolder:pChar) : pChar; stdcall; external 'MekaDLL.dll'; function ByteToSize(Size:pChar; Conv:pChar) : pChar; stdcall; external 'MekaDLL.dll'; implementation end. |
|
Meka][Meka Unstopable Posts: 700
| works only with pChar so... change to this...
Code: | function Scramble(str: pChar) : pChar; stdcall; external 'MekaDLL.dll' name 'Scramble'; | then u can do:
Code: | Self.Caption := Scramble(pChar('TEAMELITE')); | i will include this wrapper in package also
|
Mickey Ametuar Posts: 115
| Changed to pChar. Thanx ;-)
|
b_w_johan Regular Posts: 56
| hey meka, i just found out something weird about this dll when writing to ini. johan.no-ip.biz < for example is filled in and i save to file and when i want to read from the file it loads like this: johan<space>no-ip.<space> any explanations for this ?? -- its not even like this ... Hilly Billy zegt: als ik dutch-dvd.no-ip.biz doe haalt ie dutch-dvd.no-ip. spatie op Hilly Billy zegt: als ik woutersplace.hopto.org doe dan haalt ie wel < when i use addy its not taking the whole line and makes biz a space when i use addy it does work > ok thats how he discribed to me and i have no idea what is happening .. is it me or is it something in the dll ?
|
Meka][Meka Unstopable Posts: 700
| it is you
|