Forgotten your password?

Forum Index > Components > MekaDLL Component
Author Message
IF YOU USE THIS PLEASE ADD THE FOLLOWING LINE TO YOUR README

'MekaDLL Component :: http://www.meka-meka.com/'

DOWNLOAD:
[Login or Signup to view links and downloads.]


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...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
Looks cool, and since it is a .DLL it can be used in any programming language. :)
“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 ;)
Of course, here you are the Delphi wrapper for example:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(*
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.
works only with pChar so...

change to this...

1
function Scramble(str: pChar) : pChar; stdcall; external 'MekaDLL.dll' name 'Scramble';


then u can do:

1
Self.Caption := Scramble(pChar('TEAMELITE'));


i will include this wrapper in package also :)
Changed to pChar.
Thanx ;-)
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 ?
it is you :D
Forum Index > Components > MekaDLL Component