Récupération d’informations sur le 4D Server par les librairies 4D Open : Projets Windows, CFM, Mach-O (1/2)

    typedef struct IDRec {
      st32 StationName;
      st32 UserName;
      st32 UserPass;
      st32 TaskName;
      byte isapi;
      byte unused;
   }IDRec;

    typedef struct {
      int2 nbFiles;
      st32 fileNames[1];
   }FileList;

    typedef struct FileDef {
      int2 NB_Fields;
      int2 Invisible;
      int2 unused1;
      int2 FileNum;
      int2 unused2;
      int4 unused4;
      Rect4D Frame;
      int2 unused3;
      char TrigOnSavingNew;
      char TrigOnSavingExisting;
      char TrigOnDeleting;
      char TrigOnLoading;
      int2 unused5;
      FieldDef Fields[1];
   }FileDef;

FileDef->NB_Fields

FileDef->Invisible

    typedef struct ProcessInfo {
      st32 UserName;
      st32 StationName;
      st32 Taskname;
      int4 TotalTimeSpent;
      int2 State;
   }ProcessInfo;

   typedef struct ListProcess {
      int2 NB_Process;
      ProcessInfo Processes[1];
   }ListProcess;
   typedef struct ListProcess *ListProcessPtr;
   #if !MacintoshStyleHandle
      typedef Handle4D ListProcessHandle;
   #else
      typedef ListProcessPtr *ListProcessHandle;
   #endif

#if __INTEL__    
    /* #pragma once */
    /* #include "ansi_prefix.win32.h" */
    /* #include <Windows.h> */
    /* Use pre-compiled header instead */
#elif WIN32    /* <-- defined by Visual C++ */
    #include <Windows.h>
#endif

#if WINVER
    #undef COLOR_WINDOWFRAME
    #undef COLOR_BTNSHADOW
    #undef COLOR_BTNFACE
    #undef COLOR_BTNHIGHLIGHT
    #undef COLOR_BTNTEXT
    #undef InsertMenuItem
    #undef InsertMenu
    #undef AppendMenu
    //#include "ASIPORT.H"    /*To use Altura headers (in the folder PPC_H, placed in the project folder)*/
#endif

#define Openlib 1


#include "Open4D.h"    
#include <stdlib.h>
#include <string.h>

const short KNC = NC_TCPIP;
const unsigned char KStationName[32]="Intel machine\0";
const unsigned char KUserName[32]="APIUser\0";
const unsigned char KUserPass[32]="APIPass\0";
const unsigned char KUserTask[32]="APITask\0";

NetworkComponentHandle hNetworkComponent;
NetworkLocationPtr pNetworkLocation;
ConnectHandle hConnect;
IDRec logRec;
unsigned char szName[256];

void          initialisation(void);
int2          StartWSConnection(void);
void          Check(int2 myErr, char *description);
unsigned char *PversCstring(unsigned char *pstr);
void          DisplayStructureInfo(void);

void          DisplayServerInfo(void);
void          CloseWSConnection(void);



void Check(int2 myErr, char *description)
{
    char err[256];
    if(myErr)
    {
      sprintf(err, "%s: returns %d\n", description , myErr);
      printf(err);
      getchar();
    }
}

//Convert Pstring to Cstring
unsigned char *PversCstring(unsigned char *pstr)
{
    unsigned char len= *pstr;
    memcpy(pstr,pstr+1,len);
    pstr[len]='\0';
    return (pstr);
}

int2 StartWSConnection(void)
{
    int2 myErr;
    myErr =_4D_Select4DServer(szName, &pNetworkLocation, KNC, hNetworkComponent);
    if(!myErr)
    {
        _4D_Open4DConnection(&logRec, pNetworkLocation, &hConnect,KNC, hNetworkComponent);
    }
    return(myErr);
}

void CloseWSConnection(void)
{
    _4D_Close4DConnection(hConnect);
}

void initialisation(void)
{
    memcpy(&logRec.StationName[1],KStationName, strlen((char *)KStationName));
    logRec.StationName[0]=strlen((char *)KStationName);

    memcpy(&logRec.UserName[1],KUserName, strlen((char *)KUserName));
    logRec.UserName[0]=strlen((char *)KUserName);

    memcpy(&logRec.UserPass[1],KUserPass, strlen((char *)KUserPass));
    logRec.UserPass[0]=strlen((char *)KUserPass);

    memcpy(&logRec.TaskName[1],KUserTask, strlen((char *)KUserTask));
    logRec.TaskName[0]=strlen((char *)KUserTask);
}

void DisplayServerInfo(void)
{
    ServerInfoRec sInfo;
    Date4D        d;
    int4          l;
    unsigned char b;
    printf(" \n APPUYER SUR LA TOUCHE ENTREE POUR AVOIR DES INFOS SUE LE 4D SERVEUR \n");
    getchar();
    printf("szName : %s\n", PversCstring(szName));
    Check(_4D_GetServerInfo(hConnect, &sInfo),"_4D_GetServerInfo\0");
    printf("ServerCurVers : %X\n",  ((sInfo.ServerCurVers & 0xfff) << 16) );
    printf("InvertedData : %d\n", sInfo.ServerHasInvertedData);
    Check(_4D_Server_CurrentTime(hConnect, &l),"_4D_Server_CurrentTime\0");
    printf("Server_CurrentTime :  %ld ticks\n", l);
    Check(_4D_Server_CurrentDate(hConnect, &d),"_4D_Server_CurrentDate\0");
    printf("Server_CurrentDate : %d/%d/%d\n", d.Day, d.Month, d.Year);
    Check(_4D_IsConnectionAsync(hConnect, (unsigned char *) &b),"_4D_IsConnectionAsync\0");
    printf("IsConnectionAsync ? : %d\n", b);
    printf("\n");
}

void DisplayStructureInfo(void)
{
    int2 i,f;
    FileListHandle    hList=0L;
    FileListPtr        pList;
    FileDefHandle    hDef =0L;
    FileDefPtr        pDef;

    printf("\n APPUYER SUR LA TOUCHE ENTREE POUR AVOIR DES INFOS SUR LA STRUCTURE \n");
    getchar();

    Check(_4D_CountFiles(hConnect, &i),"_4D_CountFiles\0");
    printf("CountFiles: %d\n", i);

    Check(_4D_GetFileList(hConnect, &hList),"_4D_GetFileList\0");
    pList=(FileListPtr)Lock4DHandle((Handle4D)hList);


    for ( f=1; f<=pList->nbFiles; f++) 
    {
        Check(_4D_GetFileDefinition(hConnect, f, &hDef), " _4D_GetFileDefinition");
        pDef=(FileDefPtr)Lock4DHandle((Handle4D)hDef);

        printf("GetFileList : %s\n", PversCstring(pList->fileNames[f-1]));
        printf("GetFileDefinition_NB_Fields : %d\n", pDef->NB_Fields);
        printf("GetFileDefinition_Invisible : %d\n", pDef->Invisible);
        printf("GetFileDefinition_FileNum : %d\n", pDef->FileNum);
        printf("GetFileDefinition_Frame : %d/%d/%d/%d\n", pDef->Frame.left,
            pDef->Frame.top, pDef->Frame.right, pDef->Frame.bottom);
        printf("GetFileDefinition_TrigOnSavingNew : %d\n", pDef->TrigOnSavingNew);
        printf("GetFileDefinition_TrigOnSavingExisting : %d\n", pDef->TrigOnSavingExisting);

        printf("GetFileDefinition_TrigOnDeleting : %d\n", pDef->TrigOnDeleting);
        printf("GetFileDefinition_TrigOnLoading : %d\n", pDef->TrigOnLoading);
        printf("\n APPUYER SUR LA TOUCHE ENTREE POUR AVOIR DES INFOS SUR LES CHAMPS \n");
        getchar();
    
        for ( i = 0 ; i < pDef->NB_Fields ; i ++ ) {
            printf("GetFileDefinition_Fields[%d]_Name : %s\n", i, PversCstring(pDef->Fields[i].Name));
            printf("GetFileDefinition_Fields[%d]_Typ : %d\n", i, pDef->Fields[i].Typ);
            printf("GetFileDefinition_Fields[%d]_AlphaLen : %d\n", i, pDef->Fields[i].AlphaLen);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_RelatedFile : %d\n", i,
                pDef->Fields[i].u.SimpleField.RelatedFile);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_RelatedField : %d\n", i,
                pDef->Fields[i].u.SimpleField.RelatedField);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_Att : %X\n", i,
                pDef->Fields[i].u.SimpleField.Att);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_DiscriminantField : %d\n", i,
                pDef->Fields[i].u.SimpleField.DiscriminantField);
            printf("GetFileDefinition_Fields[%d]_u_PictField_PicAtt : %X\n", i,
                pDef->Fields[i].u.PictField.PicAtt);
            printf("GetFileDefinition_Fields[%d]_u_PictField_CompressDriver : %X\n", i,
                pDef->Fields[i].u.PictField.CompressDriver);
            
            printf("\n APPUYER SUR LA TOUCHE ENTREE POUR PASSER AU CHAMP SUIVANT \n");
            getchar();
        }


        Unlock4DHandle((Handle4D)hDef);
        Free4DHandle((Handle4D)hDef);
        printf("\n");
    }
    Unlock4DHandle((Handle4D)hList);
    Free4DHandle((Handle4D)hList);
}

void DisplayProcessInfo(void)
{
    ListProcessHandle    hList = 0L;
    ListProcessPtr        pList;
    int2                i;
    
    printf("\n APPUYER SUR LA TOUCHE ENTREE POUR AVOIR DES INFORMATIONS PROCESS \n");
    getchar();
    Check(_4D_GetNbUsers(hConnect, &i),"_4D_GetNbUsers\0");
    printf("GetNbUsers : %d\n", i);
    Check(_4D_GetNbUserProcesses(hConnect, &i),"_4D_GetNbUserProcesses\0");
    printf("GetNbUserProcesses : %d\n", i);
    Check(_4D_GetListProcess(hConnect, &hList),"_4D_GetListProcess\0");
    pList = (ListProcessPtr) Lock4DHandle((Handle4D)hList);
    for ( i = 0 ; i < pList->NB_Process ; i ++ ) {
        printf("GetListProcess_ProcessInfo[%d]_UserName : %s\n", i,
            PversCstring(pList->Processes[i].UserName));
        printf("GetListProcess_ProcessInfo[%d]_StationName : %s\n", i,
            PversCstring(pList->Processes[i].StationName));
        
        printf("GetListProcess_ProcessInfo[%d]_Taskname : %s\n", i,
            PversCstring(pList->Processes[i].Taskname));
        printf("GetListProcess_ProcessInfo[%d]_TotalTimeSpent : %ld ticks\n",
            i, pList->Processes[i].TotalTimeSpent);
        printf("GetListProcess_ProcessInfo[%d]_State : %d\n",
            i, pList->Processes[i].State);
    }
    Unlock4DHandle((Handle4D)hList);
    Free4DHandle((Handle4D)hList);
}


void main(void)
{
    initialisation();

    _4D_Init4DWS();


    printf("LE NUMERO DE VERSION EST: %ld\n", (_4D_GetVersionNumber()>>16));
    printf("LE NOMBRE DES COMPOSANTS RESEAU UTILISES EST %ld\n",_4D_NB_NetworkComponent());
    printf("\n");

    hNetworkComponent= _4D_InitNetworkComponent(KNC);

    if(hNetworkComponent)
    {
        if(!StartWSConnection())
        {
            DisplayServerInfo();
            DisplayProcessInfo();
            DisplayStructureInfo();

            CloseWSConnection();
        }
        _4D_DeInitNetworkComponent(KNC,hNetworkComponent);
    }
    _4D_DeInit4DWS();
}

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define OpenLib 1

#ifdef __MWERKS__
    #ifdef __INTEL__
        #define WINVER 0x0400
        #define    MACVER 0
    #endif
#else
    #define WINVER 0x0400
    #define    __INTEL__
#endif

#include "Open4D.h"
#ifdef __INTEL__
    const    unsigned char    kStationName[32] = "Intel machine\0";
#else
    const    unsigned char    kStationName[32] = "Motorola machine\0";
#endif
    
const unsigned char   kUserName[32] = "APIUser\0";
const unsigned char   kUserPass[32] = "APIPass\0";
const unsigned char   kUserTask[32] = "APITask\0";
unsigned char         *PversCstring(unsigned char *pstr);

void    initialisation();
void    Check(int2    myErr, char    *description);
int2    StartWSConnection(void);
void    CloseWSConnection(void);
void    DisplayServerInfo(void);
void    DisplayProcessInfo(void);
void    DisplayStructureInfo(void);

NetworkComponentHandle hNetworkComponent;
NetworkLocationPtr     pNetworkLocation;
ConnectHandle          hConnect;
IDRec                  logRec;
unsigned char          szName[256];

// converts a pstring to a cstring
unsigned char    *PversCstring(unsigned char    *pstr)
{
    unsigned char    len = *pstr;
    
    memmove(pstr, pstr+1, len);
    pstr[len] = '\0';
    return    pstr;
}

// checks for errors and reports
void    Check(int2    myErr, char    *description)
{
    char    err[256];

    if ( myErr ) {
        sprintf(err,"%s : returns %d\n", description, myErr);
        printf(err);
        getchar();
    }
}

// opens a connection with server and errors if any
int2   StartWSConnection(void)
{
    int2  myErr;
    
    myErr = _4D_Select4DServer(szName, &pNetworkLocation, kNC, hNetworkComponent);
    if ( ! myErr ) {
        myErr = _4D_Open4DConnection(&logRec, pNetworkLocation, &hConnect, kNC, hNetworkComponent);
    }
    return    myErr;
}

// closes connection
void    CloseWSConnection(void)
{
    if (hConnect)
        _4D_Close4DConnection (hConnect);
}
void    DisplayServerInfo(void)
{    
    ServerInfoRec    sInfo;
    Date4D            d;
    int4            l;
    unsigned char    b;
    
    printf("\n INFORMATIONS SUR LE 4D SERVEUR \n");
    
    printf("szName : %s\n", PversCstring(szName));
    Check(_4D_GetServerInfo(hConnect, &sInfo),"_4D_GetServerInfo\0");
    printf("ServerCurVers : %X\n",  ((sInfo.ServerCurVers & 0xfff) << 16) );
    printf("InvertedData : %d\n", sInfo.ServerHasInvertedData);
    Check(_4D_Server_CurrentTime(hConnect, &l),"_4D_Server_CurrentTime\0");
    printf("Server_CurrentTime :  %ld ticks\n", l);
    Check(_4D_Server_CurrentDate(hConnect, &d),"_4D_Server_CurrentDate\0");
    printf("Server_CurrentDate : %d/%d/%d\n", d.Day, d.Month, d.Year);
    Check(_4D_IsConnectionAsync(hConnect, (unsigned char *) &b),"_4D_IsConnectionAsync\0");
    printf("IsConnectionAsync ? : %d\n", b);
    
    printf("\n");
}

// displays running processes on server
void    DisplayProcessInfo(void)
{
    ListProcessHandle    hList = 0L;
    ListProcessPtr        pList;
    int2    
                i;
    printf("\n INFORMATIONS SUR LES PROCESS SERVEUR \n");
    
    Check(_4D_GetNbUsers(hConnect, &i),"_4D_GetNbUsers\0");
    printf("GetNbUsers : %d\n", i);
    Check(_4D_GetNbUserProcesses(hConnect, &i),"_4D_GetNbUserProcesses\0");
    printf("GetNbUserProcesses : %d\n", i);
    Check(_4D_GetListProcess(hConnect, &hList),"_4D_GetListProcess\0");
    pList = (ListProcessPtr) Lock4DHandle((Handle4D)hList);
    
    for ( i = 0 ; i < pList->NB_Process ; i ++ ) {
        printf("GetListProcess_ProcessInfo[%d]_UserName : %s\n",
            i, PversCstring(pList->Processes[i].UserName));
        printf("GetListProcess_ProcessInfo[%d]_StationName : %s\n",
            i, PversCstring(pList->Processes[i].StationName));
        printf("GetListProcess_ProcessInfo[%d]_Taskname : %s\n",
            i, PversCstring(pList->Processes[i].Taskname));
        printf("GetListProcess_ProcessInfo[%d]_TotalTimeSpent : %ld ticks\n",
            i, pList->Processes[i].TotalTimeSpent);
        printf("GetListProcess_ProcessInfo[%d]_State : %d\n",
            i, pList->Processes[i].State);
    }
    Unlock4DHandle((Handle4D)hList);
    Free4DHandle((Handle4D)hList);
}
// displays structure 
void    DisplayStructureInfo(void)
{
    FileListHandle    hList = 0L;
    FileListPtr        pList;
    FileDefHandle    hDef = 0L;
    FileDefPtr        pDef;
    int2            i, f;
    
    printf("\n INFORMATIONS SUR LES TABLES \n");
    
    Check(_4D_CountFiles(hConnect, &i),"_4D_CountFiles\0");
    printf("CountFiles : %d\n", i);
    Check(_4D_GetFileList(hConnect, &hList),"_4D_GetFileList\0");
    pList = (FileListPtr) Lock4DHandle((Handle4D) hList);
    for ( f = 1; f <= pList ->nbFiles ; f ++ ) {
        Check(_4D_GetFileDefinition(hConnect, f, &hDef),"_4D_GetFileDefinition\0");
        pDef = (FileDefPtr) Lock4DHandle((Handle4D)hDef);
        printf("GetFileList : %s\n", PversCstring(pList->fileNames[f-1]));
        printf("GetFileDefinition_NB_Fields : %d\n", pDef->NB_Fields);
        printf("GetFileDefinition_Invisible : %d\n", pDef->Invisible);
        printf("GetFileDefinition_FileNum : %d\n", pDef->FileNum);
        printf("GetFileDefinition_Frame : %d/%d/%d/%d\n", pDef->Frame.left,
            pDef->Frame.top, pDef->Frame.right, pDef->Frame.bottom);
        printf("GetFileDefinition_TrigOnSavingNew : %d\n", pDef->TrigOnSavingNew);
        printf("GetFileDefinition_TrigOnSavingExisting : %d\n", pDef->TrigOnSavingExisting);
        printf("GetFileDefinition_TrigOnDeleting : %d\n", pDef->TrigOnDeleting);
        printf("GetFileDefinition_TrigOnLoading : %d\n", pDef->TrigOnLoading);
        
        printf("\n INFORMATIONS SUR LES CHMAPS \n");
        for ( i = 0 ; i < pDef->NB_Fields ; i ++ ) {
            printf("GetFileDefinition_Fields[%d]_Name : %s\n", i,
                PversCstring(pDef->Fields[i].Name));
            printf("GetFileDefinition_Fields[%d]_Typ : %d\n", i,
                pDef->Fields[i].Typ);
            printf("GetFileDefinition_Fields[%d]_AlphaLen : %d\n", i,
                pDef->Fields[i].AlphaLen);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_RelatedFile
                : %d\n", i, pDef->Fields[i].u.SimpleField.RelatedFile);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_RelatedField
                : %d\n", i, pDef->Fields[i].u.SimpleField.RelatedField);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_Att : %X\n",
                i, pDef->Fields[i].u.SimpleField.Att);
            printf("GetFileDefinition_Fields[%d]_u_SimpleField_DiscriminantField
                : %d\n", i, pDef->Fields[i].u.SimpleField.DiscriminantField);
            printf("GetFileDefinition_Fields[%d]_u_PictField_PicAtt : %X\n", i,
                pDef->Fields[i].u.PictField.PicAtt);
            printf("GetFileDefinition_Fields[%d]_u_PictField_CompressDriver
                : %X\n", i, pDef->Fields[i].u.PictField.CompressDriver);
        }
        Unlock4DHandle((Handle4D)hDef);
        Free4DHandle((Handle4D)hDef);
        printf("\n");
    }
    Unlock4DHandle((Handle4D)hList);
    Free4DHandle((Handle4D)hList);
}

void initialisation(void)
{
    memcpy(&logRec.StationName[1], kStationName, strlen((char *)kStationName));
    logRec.StationName[0] = strlen((char *)kStationName);
    memcpy(&logRec.UserName[1], kUserName, strlen((char *)kUserName));
    logRec.UserName[0] = strlen((char *)kUserName);
    memcpy(&logRec.UserPass[1], kUserPass, strlen((char *)kUserPass));
    logRec.UserPass[0] = strlen((char *)kUserPass);
    memcpy(&logRec.TaskName[1], kUserTask, strlen((char *)kUserTask));
    logRec.TaskName[0] = strlen((char *)kUserTask);
}

void main(void)
{
    _4D_Init4DWS();

    printf("GetVersionNumber : %ld\n", ( _4D_GetVersionNumber() >> 16 ));
    printf("NB_NetworkComponent : %d\n", _4D_NB_NetworkComponent());
    
    hNetworkComponent = _4D_InitNetworkComponent(kNC);
    if ( hNetworkComponent ) {
        if ( ! StartWSConnection()) {
            initialisation();
            DisplayServerInfo();
            DisplayProcessInfo();
            DisplayStructureInfo();
            //CloseWSConnection();
        }
        _4D_DeInitNetworkComponent(kNC, hNetworkComponent);
    }
    _4D_DeInit4DWS();
}