unit dll39;
// 39DLL LIB UNIT FOR DELPHI CREATED BY
// PIETER6
// Enjoy <img src="http://s12.ucoz.net/sm/1/smile.gif" border="0" align="absmiddle" alt="smile">
interface
function dllInit():double; cdecl; external '39dll.dll';
function writebyte(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function writestring(arg1:pchar; arg2: double):double; cdecl; external '39dll.dll';
function writeshort(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function writeint(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function writefloat(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function writedouble(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function readbyte(arg1: double):double; cdecl; external '39dll.dll';
function readstring(arg1: double):pchar; cdecl; external '39dll.dll';
function readshort(arg1: double):double; cdecl; external '39dll.dll';
function readint(arg1: double):double; cdecl; external '39dll.dll';
function readfloat(arg1: double):double; cdecl; external '39dll.dll';
function readdouble(arg1: double):double; cdecl; external '39dll.dll';
function clearbuffer(arg1: double):double; cdecl; external '39dll.dll';
function setpos(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function getpos(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function buffsize(arg1: double):double; cdecl; external '39dll.dll';
function writechars(arg1:pchar; arg2: double):double; cdecl; external '39dll.dll';
function readchars(arg1: double; arg2: double):pchar; cdecl; external '39dll.dll';
function createbuffer():double; cdecl; external '39dll.dll';
function freebuffer(arg1: double):double; cdecl; external '39dll.dll';
function writeushort(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function writeuint(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function readushort(arg1: double):double; cdecl; external '39dll.dll';
function readuint(arg1: double):double; cdecl; external '39dll.dll';
function copybuffer(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function copybuffer2(arg1: double; arg2: double; arg3: double; arg4: double):double; cdecl; external '39dll.dll';
function bytesleft(arg1: double):double; cdecl; external '39dll.dll';
function bufferexists(arg1: double):double; cdecl; external '39dll.dll';
function readsep(arg1:pchar; arg2: double):pchar; cdecl; external '39dll.dll';
//sockets
function tcpconnect(arg1:pchar; arg2: double; arg3: double):double; cdecl; external '39dll.dll';
function tcplisten(arg1: double; arg2: double; arg3: double):double; cdecl; external '39dll.dll';
function tcpaccept(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function sendmessage(arg1: double; arg2:pchar; arg3: double; arg4: double):double; cdecl; external '39dll.dll';
function receivemessage(arg1: double; arg2: double; arg3: double):double; cdecl; external '39dll.dll';
function setsync(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function setformat(arg1: double; arg2: double; arg3:pchar):double; cdecl; external '39dll.dll';
function udpconnect(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function hostip(arg1:pchar):pchar; cdecl; external '39dll.dll';
function lastinIP():pchar; cdecl; external '39dll.dll';
function closesock(arg1: double):double; cdecl; external '39dll.dll';
function tcpip(arg1: double):pchar; cdecl; external '39dll.dll';
function socklasterror():double; cdecl; external '39dll.dll';
function myhost():pchar; cdecl; external '39dll.dll';
function compareip(arg1:pchar; arg2:pchar):double; cdecl; external '39dll.dll';
function sockexit():double; cdecl; external '39dll.dll';
function sockstart():double; cdecl; external '39dll.dll';
function getmacaddress():pchar; cdecl; external '39dll.dll';
function peekmessage(arg1: double; arg2: double; arg3: double):double; cdecl; external '39dll.dll';
function setnagle(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function tcpconnected(arg1: double):double; cdecl; external '39dll.dll';
function getsocketid(arg1: double):double; cdecl; external '39dll.dll';
function lastinPort():double; cdecl; external '39dll.dll';
function fileopen(arg1:pchar; arg2: double):double; cdecl; external '39dll.dll';
function fileclose(arg1: double):double; cdecl; external '39dll.dll';
function filewrite(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function fileread(arg1: double; arg2: double; arg3: double):double; cdecl; external '39dll.dll';
function filepos(arg1: double):double; cdecl; external '39dll.dll';
function filesetpos(arg1: double; arg2: double):double; cdecl; external '39dll.dll';
function filesize(arg1: double):double; cdecl; external '39dll.dll';
function md5string(arg1:pchar):pchar; cdecl; external '39dll.dll';
function md5buffer(arg1: double):pchar; cdecl; external '39dll.dll';
function adler32(arg1: double):double; cdecl; external '39dll.dll';
function bufferencrypt(arg1:pchar; arg2: double):double; cdecl; external '39dll.dll';
//function bufferdecrypt(arg1:pchar; arg2: double):double; cdecl; external '39dll.dll';
function iptouint(arg1:pchar):double; cdecl; external '39dll.dll';
function uinttoip(arg1: double):pchar; cdecl; external '39dll.dll';
function netconnected():double; cdecl; external '39dll.dll';
function bool(arg0:double):boolean;
implementation
function bool(arg0:double):boolean;
begin
if arg0 > 0 then
result := true
else
result := false;
end;
end.
Если списков в делфи нет, тогда придется извращаться над массивом, ибо мне нужно удалять значения прямо из середины и все последующие должны смещаться, изменяя свой индекс.
