AuthorMessage
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