#pragma argsused
int WINAPI DllMain(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}

void* CALLING_CONV (*MemAlloc)(int size) = NULL;


__declspec(dllexport) int CALLING_CONV Initialize (void*, void* (CALLING_CONV *_MemAlloc)(int));
__declspec(dllexport) int CALLING_CONV ConnectToDB ();
__declspec(dllexport) int CALLING_CONV DisconnectFromDB ();
__declspec(dllexport) int CALLING_CONV GetAllVertices (LPVERTEX *lpVerts, ID_T id_parent);
__declspec(dllexport) int CALLING_CONV GetVertexParam (LPPARAM *lpParams, VERTEX vertex, TIMETYPE time_first, TIMETYPE time_last);
__declspec(dllexport) int CALLING_CONV GetSrcVertEdges (LPSRCVERTEDGE *lpsve, VERTEX vertex);
__declspec(dllexport) int CALLING_CONV GetDstVertEdgest (LPDSTVERTEDGE *lpdve, VERTEX vertex);
__declspec(dllexport) LPGRAPH CALLING_CONV GetAllGraphes (ID_T id_obj, int* graph_cnt);
__declspec(dllexport) ID_T CALLING_CONV SaveGraph (GRAPH graph);
__declspec(dllexport) ID_T CALLING_CONV SaveNode (ID_T id_graph, ID_T id_obj, char* node_name, RECT rc);
__declspec(dllexport) ID_T CALLING_CONV SaveLink (ID_T id_graph, ID_T id_obj, ID_T id_node1, ID_T id_node2, char* link_name);
__declspec(dllexport) int CALLING_CONV SaveAggregation (ID_T id_aggrnode, ID_T id_childnode);
__declspec(dllexport) int CALLING_CONV UpdateDB (int bCommit);
__declspec(dllexport) int CALLING_CONV DeleteGraph (ID_T id_graph);
__declspec(dllexport) LPGENODE CALLING_CONV LoadAllNodes (ID_T id_graph, int* node_cnt);
__declspec(dllexport) LPGELINK CALLING_CONV LoadAllLinks (ID_T id_graph, int* link_cnt);
__declspec(dllexport) ID_T CALLING_CONV SaveLG5Net (ID_T id_graph, char* lg5net_name, int lg5_level);
__declspec(dllexport) int CALLING_CONV SaveLG5NetItem (ID_T id_lg5net, ID_T id_node, int item_group);
__declspec(dllexport) LPLG5NET CALLING_CONV LoadLG5Net (ID_T id_graph, int* lg5net_cnt);
__declspec(dllexport) LPLG5NETITEM CALLING_CONV LoadLG5NetItem (ID_T id_lg5net, int* lg5netitem_cnt);

function DllMain(hInstance: hInst; reason: longint; lpReserved: Pointer): integer; stdcall;
begin
  result := 1
end;

void* CALLING_CONV (*MemAlloc)(int size) = NULL;

__declspec(dllexport) int CALLING_CONV Initialize (void*, void* (CALLING_CONV *_MemAlloc)(int));

library mvts218;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  ShareMem, {нужен если используешь длинные строки}
  SysUtils,
  Classes;
                    
{$R *.res}

function Identificator:shortstring;
begin
  Result:='VoIP Softswitch';
end;

procedure GetNames(var RNames :AnsiString);
begin
..... что-то .....
end;

function ConvertDate(sd:shortstring):shortstring;
begin
..... что-то .....
end;

function GetRecord(p,pe:PChar; var Data :AnsiString):PChar;
begin
..... что-то .....
end;
                              
exports  Identificator, GetNames, GetRecord; {экспортирование функций DLL (dllexport) }

begin  {вот здесь выполняется то, что в cpp прописывается в функции DLLMAIN}
end.