GoldMine Application Programming Interface Specification and Reference

Code Examples - GM5S32.DLL

The following C++ files have been provided as part of this package:

//////////////////////////

//

// gm5s32.h

#define __GM5S32_H

extern "C" {

#endif
// licensing structure passed to GMW_GetLicenseInfo

typedef struct

{

char szLicensee[60]; // licensee name

char szSiteName[20]; // undocked site name

long iLicUsers; // licensed users

long iSQLUsers; // licensed SQL users

long iGSSites; // license GoldSync sites

long isDemo; // is demo install

long isServerLic; // is primary license ('D' or 'E')

long isRemoteLic; // is remote license ('U' or 'S')

long isUSALicense; // is USA license (1=US,128/32

// bit, 0=nonUS, 32-bit only)

long iDLLVersion; // the DLL version (400822)
long iReserved1;

long iReserved2;

long szReserved[100];
} GMW_LicInfo;
// DLL intialization functions

int _stdcall GMW_LoadBDE( char *szSysDir, char *szGoldDir, char *szCommonDir, char *szUser =0, char *szPass =0 );

int _stdcall GMW_UnloadBDE();
int _stdcall GMW_SetSQLUserPass( char *szUserName, char *szPassword );
int _stdcall GMW_GetLicenseInfo( GMW_LicInfo *pLic );
long _stdcall GMW_IsUserGroupMember( char *szGroup, char *szUserID );
// DataStream functions

long _stdcall GMW_DS_Range( char *szTable, char *szTag, char *szTopLimit, char *szBotLimit, char *szFields, char *szFilter ="", char *szFDlm ="\r", char *szRDlm ="\n" );

long _stdcall GMW_SQLStream( char *szSQL, char *szFilter, int nStartRec, int nGetRecs, char *szBuf, int iBufSize, char *szFDlm ="\r", char *szRDlm ="\n" );

long _stdcall GMW_DB_Open( char *szTableName );

// (these are slow -- do not use in loops)

long _stdcall GMW_DB_QuickSeek( char *szTableName, char *szIndex, char *szSeekValue, char *szRecID );
long _stdcall GMW_DB_QuickRead( char *szTableName, char *szRecID, char *szField, char *szValue, int iLen );
long _stdcall GMW_DB_QuickReplace( char *szTableName, char *szRecID, char *szField, char *szValue, int iAddTo =0 );
// Sync functions

int _stdcall GMW_SyncStamp( char *szStamp, char *szOutBuf );

char *szField, char *szAction );

// misc functions

long _stdcall GMW_UserAccess( long iOption );

struct GMWnv;

typedef GMWnv *HGMNV;
// GM5S32.DLL business logic functions

long _stdcall GMW_Execute( const char *szFunc, HGMNV hgmnv );

HGMNV __stdcall GMW_NV_Create();

const char* __stdcall GMW_NV_GetValue(HGMNV hgmnv, const char* name, const char* defaultValue);

long __stdcall GMW_NV_NameExists(HGMNV hgmnv, const char* name);

void __stdcall GMW_NV_EraseName(HGMNV hgmnv, const char* name);

long __stdcall GMW_NV_Count(HGMNV hgmnv);

#ifdef __cplusplus

/* close extern "C" { */

}

#endif

The following example accesses the GM5S32.DLL functions using C++. The DLL is dynamically loaded, and its function addresses are retrieved using the GetProcAddress API.

// prototypes
typedef int (*fnGMW_LoadBDE) ( char *szSysDir, char *szGoldDir, char *szCommonDir, char *szUser );
typedef int (*fnGMW_UnloadBDE) ();
void GM5S32_DLL_Test()
{
// load the GM5S32.DLL
HMODULE hLib = LoadLibrary("GM5S32.DLL");
if( hLib )
{

// get proc addresses of GM4S32 functions

(HINSTANCE) hLib,"GMW_LoadBDE");

fnGMW_UnloadBDE GMW_UnloadBDE = (fnGMW_UnloadBDE)

GetProcAddress((HINSTANCE) hLib,"GMW_UnloadBDE");

// initilize the BDE
GMW_LoadBDE( "d:\\gm4", "d:\\gm4", "d:\\gm4\\demo", szUser, szPass );
// do whatever..............
// shut down BDE
GMW_UnloadBDE();

// unload the DLL

Creating a Contact with Business Logic

Enumerating a Name Value Container

DataStream

The following DataStream example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved. The first example retrieves a relatively small number of records into a fixed size packet buffer, while the second example retries a large number of records using 100-record packet buffers.

void DataStreamDLL_Example()

char *szBuf = new char[iBufSize];

{
// fetch 100 records and get the buffer size needed

Low-Level Work Area

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved. The example opens up the Contact1 and ContSupp tables to find a particular contact’s phone number and primary e-mail address.

//
void DB_FuncsDLL_Example()

//
// Example1:

char *szName = "JON V. FERRARA";

// tables opened ok?

// set the Contact1 index to ContName

// seek Jon's name

if( GMW_DB_Seek( iC1, szName ) == 1 ) // seek exact

// read Jon's phone number

// loop through all email records

// and find primary one
while( iOK && (iOK = GMW_DB_Skip( iCS, 1 )) )
{

// read email address from the ContSupRef field

// char of Zip

if( szBuf2[1] == '1' )
break; // found primary address!
}
}
// close the tables
iOK = GMW_DB_Close( iC1 ); iC1 = 0;
iOK = GMW_DB_Close( iCS ); iCS = 0;
}

return;
}

Visual Basic

In addition to the code examples below, the following VB files have been provided as part of this package:

Function prototypes

' Structure for License function

Public Type GMLicInfo

Licensee As String * 60

LicNo As String * 20

SiteName As String * 20

LicUsers As Long

SQLUsers As Long

GSSites As Long

IsDemo As Long

IsServerLic As Long

IsRemoteLic As Long

ISUSALic As Long

iReserved1 As Long

iReserved2 As Long

iReserved3 As Long

sReserved As String * 100

End Type
' LoadBDE Functions

Public Declare Function GMW_LoadBDE Lib "GM5S32.dll" (ByVal sSysDir As String, ByVal sGoldDir As String, ByVal sCommonDir As String, ByVal sUser As String, ByVal sPassword As String) As Long

' Name-Value parameter passing to business logic function GMW_Execute(

Public Declare Function GMW_Execute Lib "GM5S32.dll" (ByVal szFunc As String, ByVal GMPtr As Any) As Long
Public Declare Function GMW_NV_Create Lib "GM5S32.dll" () As Long
Public Declare Function GMW_NV_CreateCopy Lib "GM5S32.dll" (ByVal hgmnv As Long) As Long
Public Declare Function GMW_NV_Delete Lib "GM5S32.dll" (ByVal hgmnv As Long) As Long
Public Declare Function GMW_NV_Copy Lib "GM5S32.dll" (ByVal hgmnvDestination As Long, ByVal hgmnvSource As Long) As Long
Public Declare Function GMW_GetLicenseInfo Lib "GM5S32.dll" (ByRef LicInfo As Any) As Long
Public Declare Function GMW_NV_GetValue Lib "GM5S32.dll" (ByVal hgmnv As Long, ByVal name As String, ByVal DefaultValue As String) As Long
Public Declare Function GMW_NV_SetValue Lib "GM5S32.dll" (ByVal hgmnv As Long, ByVal name As String, ByVal Value As String) As Long
Public Declare Function GMW_NV_NameExists Lib "GM5S32.dll" (ByVal hgmnv As Long, ByVal name As String) As Long
Public Declare Function GMW_NV_EraseName Lib "GM5S32.dll" (ByVal hgmnv As Long, ByVal name As String) As Long
Public Declare Function GMW_NV_EraseAll Lib "GM5S32.dll" (ByVal hgmnv As Long) As Long
Public Declare Function GMW_NV_Count Lib "GM5S32.dll" (ByVal hgmnv As Long) As Long
Public Declare Function GMW_NV_GetNameFromIndex Lib "GM5S32.dll" (ByVal hgmnv As Long, ByVal index As Long) As Long
Public Declare Function GMW_NV_GetValueFromIndex Lib "GM5S32.dll" (ByVal hgmnv As Long, ByVal index As Long) As Long
' Low-Level DB funcs

Public Declare Function GMW_DB_Open Lib "GM5S32.dll" (ByVal sTableName As String) As Long

Public Declare Function GMW_DB_Search Lib "GM5S32.dll" (ByVal lArea As Long, ByVal sExpr As String, ByVal sRecID As String) As Long

Public Declare Function GMW_NewRecID Lib "GM5S32.dll" (ByVal szRecid As String, ByVal szUser As String) As String

Public Declare Function GMW_DS_Query Lib "GM5S32.dll" (ByVal sSQL As String, ByVal sFilter As String, ByVal sFDlm As String, ByVal sRDlm As String) As Long

' Misc WinAPI funcs used by VB with the GM5S32.DLL

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

'

'

' NOTE! All GM5S32 Funcs that return a string pointer should be converted using

'

' sResult = PtrToStr(GMW_NV_GetValue(lGMPtr, "OutPut", ""))

Public Function PtrToStr(ByVal lpsz As Long) As String

Dim strOut As String

Dim lngStrLen As Long

lngStrLen = lstrlen(ByVal lpsz)

' If returning larger packets, you may have to

' increase this value

lngStrLen = 64000

If (lngStrLen > 0) Then

strOut = String$(lngStrLen, vbNullChar)

Call CopyMemory(ByVal strOut, ByVal lpsz, lngStrLen)

lngStrLen = lstrlen(strOut)

PtrToStr = Left(strOut, lngStrLen)

Else

End If

End Function

Logging In

Dim lResult As Long

MsgBox "Unable to Load BDE"

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved.

Dim lGMPtr As Long, _

sGMnvm As String, _

sGMvle As String, _

lResult As Long

lGMPtr = GMW_NV_Create()

sGMnvm = String$(100, Chr(0))

sGMvle = String$(100, Chr(0))
'//Set Name Values

lResult = GMW_NV_SetValue(lGMPtr, "Company", "GoldMine Software")

lResult = GMW_NV_SetValue(lGMPtr, "Contact", "Calvin Luttrell")

lResult = GMW_NV_SetValue(lGMPtr, "Phone1", "(310)555-1212")

lResult = GMW_NV_SetValue(lGMPtr, "Email", "calvin@gm.com")

lResult = GMW_NV_SetValue(lGMPtr, "WebSite", "www.gm.com")

lResult = GMW_Execute("WriteContact", lGMPtr)

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved

'//Get count from NV for loop

lCount = GMW_NV_Count(lGMPtr)

txttemp1.Text = GMW_NV_GetNameFromIndex(lGMPtr, i)

txttemp2.Text = GMW_NV_GetValueFromIndex(lGMPtr, i)

sResult = txttemp1.Text + "=" + txttemp2.Text

Next

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved

iHandle = GMW_DS_Range("ContSupp", "ContSPFD", "PE-MAIL ADDRESS", "PE-MAIL ADDRESS~", "ContSupRef;", sFilter, " ", Chr(13) + Chr(10))

If iHandle > 0 Then

Do

'buffer for a 50 record packet

'strings to the

'Add the results to a multi-line text box for display

Loop until bEOF

Else
MsgBox ("Error: Invalid DS Handle!")
End If
Low-Level WorkArea

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved. The example opens up the Contact1 and ContSupp tables to find a particular contact’s phone number and primary e-mail address. The Contact name is stored in a VB Text box.

'Initialization

'Open data files

'If all files are opened OK...

'Set the index order

'Perform the seek

'Get the AccountNo for the matching record

' Get the Phone and Company fields from Contact1

'Pre-allocate string buffer
sBuf1 = String$(100, 0)
sBuf2 = String$(100, 0)

'Get the field data

'Update the display labels

' Get the Previous result field from Contact2

'Set the index order
lRes = GMW_DB_SetOrder(lC2WA, "Contact2")

'Perform the seek

'Pre-allocate string buffer

'Get the field data

'Display the field data

End If

'Pre-allocate string buffer

'Initialize the range limits

'Set the range and go top

'Loop until a primary e-mail is found

'Pre-allocate string buffers

'Get the field data

'Check if primary e-mail address

'Update the label

Exit Do 'all done

End If

'Skip to next record

Loop

'Notify user of problem

End If

'All tables could not be opened.

'Exit program

End If
Delphi

In addition to the code examples below, the following Delphi files have been provided as part of this package:
DelphiExamples.ZIP - This archive contains two example projects and a unit (GM5S32.PAS) containing all of the GM5S32.DLL function declarations. Please note that this document only covers the Business Logic functions. More documentation can be found in the GoldMine m

anuals.

Type

Licensee: array [0..59] of char;

LicNo: array [0..19] of char;

SiteName: array [0..19] of char;

LicUsers,

SQLUsers,

GSSites,

IsDemo,

IsRemoteLic,

IsUSALic,

DLLVersion,

Reserved1,

Reserved2:longint;

Reserved: array [0..99] of char;

end;
Type

hgmnv = pointer;
// GM5S32.DLL intialization functions

function GMW_LoadBDE(sSysDir, sGoldDir, sCommonDir, sUser, sPassword: Pchar): integer; stdcall; external 'GM5S32.DLL';

function GMW_UpdateSyncLog(sTable, sRecID, sField, cAction: PChar):integer; stdcall; external 'GM5S32.DLL';

function GMW_DS_Range(sTable, sTag, sTopLimit, sBotLimit, sFields, sFilter, sFDlm, sRDlm: PChar): longint; stdcall; external 'GM5S32.DLL';

function GMW_DB_Open(sTable: Pchar): longint; stdcall; external 'GM5S32.DLL';

function GMW_DB_QuickSeek(sTableName, sIndex, sSeekValue, sRecID: PChar): longint; stdcall; external 'GM5S32.DLL';

function GMW_IsUserGroupMember( szGroup, szUserID: PChar): longint; stdcall; external 'GM5S32.DLL';

function GMW_Execute(Func: Pchar; PGMNV: hgmnv ): longint; stdcall; external 'GM5S32.DLL';

function GMW_NV_Create: pointer; stdcall; external 'GM5S32.DLL';

function GMW_NV_GetValue(PGMNV: hgmnv; Name, DefaultValue: PChar): PChar; stdcall; external 'GM5S32.DLL';

function GMW_NV_NameExists(PGMNV: hgmnv; Name: PChar): longint; stdcall;external 'GM5S32.DLL';

procedure GMW_NV_EraseName(PGMNV: hgmnv; Name: PChar); stdcall; external 'GM5S32.DLL';

function GMW_NV_Count(PGMNV: hgmnv): longint; stdcall; external 'GM5S32.DLL';

procedure GMW_NV_SetStr(PGMNV: hgmnv; dlmName, dlmVal: Char; StringVal: PChar); stdcall; external 'GM5S32.DLL';

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved

// Login to GM5

iRet := GMW_LoadBDE('C:\GM5', 'C:\GM5\GMBASE', 'C:\GM5\DEMO', 'NELSON' , '');

ShowMessage('LoadBDE Failed. Err: '+IntToStr(iRet));

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved

pGMNV := GMW_NV_Create;

If pGMNV <> nil then

begin

// Load the NVs to create the contact record

GMW_NV_SetValue(pGMNV, 'Contact', 'Nelson Fernandez');

GMW_NV_SetValue(pGMNV, 'Phone1', '(310)555-1212');

GMW_NV_SetValue(pGMNV, 'Email', 'nelson@gm.com');

GMW_NV_SetValue(pGMNV, 'WebSite', 'www.gm.com');
// Exec the WriteContact function

if GMW_Execute('WriteContact', pGMNV) > 0 then

begin

ShowMessage('Contact record was created. AccountNO=' +

GMW_NV_Delete(pGMNV);

end

else

ShowMessage('WriteContact Failed.');;

end
else

// Display Error

ShowMessage('Could not create NV container.');

Enumerating a Container

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved
// Determine the number of returned values

lCount := GMW_NV_Count(pGMNV);

If lCount > 0 then

For i := 1 to lCount do // Add to the results memo control

mResults.Text := mResults.Text +

GMW_NV_GetNameFromIndex(pGMNV,i)+'='+

GMW_NV_GetValueFromIndex(pGMNV, i)+#13+#10;

DataStream

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved

If iHandle > 0 then

//Get Buffer Size

//Allocate Buffer Memory

//Fetch Data

if lres>0 then //Fetch Successfully?

//Get results

if Copy(sHeader,1,1)<>'3' then //End of File in GM?

end;

Low-Level Work Area

The following example assumes that GM5S32.DLL has already been loaded, and the function addresses have been retrieved. The example opens up the Contact1 and ContSupp tables to find a particular contact’s phone number and primary e-mail address.
Var
lRes, lC1WA, lC2WA, lCSWA: longint;
aAccNo: array[0..20] of char;
aValue1: array[0..100] of char;
aValue2: array[0..100] of char;
begin
// Open files
lC1WA := GMW_DB_Open('Contact1');
lC2WA := GMW_DB_Open('Contact2');
lCSWA := GMW_DB_Open('Contsupp');

// Make sure all files were opened OK

// Perform the seek

// Read the AccountNo

// Get the field data

//Display the results

//Init the range limit string

// Set the range and go to Top

// Loop through records..

//Read the field data...

if aValue2[1] = '1' then

lRes := GMW_DB_Skip(lCSWA, 1);

end;

end
else

GMW_UnLoadBDE;

Code Examples - GM5 COM Object

In addition to the code examples below, the following files have been provided as part of this package:
GM5COM.ZIP - This archive contains two example projects - one in VBScript and one in JScript - and the GMCOMAPI.DLL.

C++

Logging In

IGMApplicationPtr spGoldmine;

HRX hResult = spGoldmine.CreateInstance (__uuidof (GMApplication));

spGoldmine->PutCommonFolder ("MSSQL: MSSQL_GoldMine: dbo:");

spGoldmine->PutSystemFolder ("c:\\\\Program Files\\Goldmine");

spGoldmine->PutGoldmineFolder ("c:\\\\Program Files\\Goldmine\\GMBase");

spGoldmine->PutGMUserName("NigelB");

spGoldmine->PutSQLUserName("sa");

spGoldmine->Login();

// Create a new container

IGMWContainerPtr spContainer = spGoldmine->NewContainer ();

Creating a Contact

// Add a Contact

IGMWContainerPtr spContact = spGoldmine->NewContainer ();

spContact->Add ("Contact", "Nelson");

spContact->Add ("Company", "GoldMine");

spContact->Add ("Phone1", "(310)454-6801");

spContact->Add ("Email", "nelson@gm.com");

spContact->Add ("WebSite", "www.gm.com");

spContact->Add ("Comments", "this is a contact2 field");

spGoldmine->Execute ("WriteContact", spContact);
EnumerateContainer (spContact);
// get RecID and AccountNo of new record

IGMNVPairPtr spRecId = spContact->Item ("RecID");

_bstr_t strRecId;

if (spRecId != NULL)

{

strRecId = spRecId->Item(1);

}

IGMNVPairPtr spAccountNumber = spContact->Item ("AccountNo");

_bstr_t strAccountNo;

if (spAccountNumber != NULL)

{

strAccountNo = spAccountNumber->Item (1);

}
Enumerating a Container

void EnumerateContainer (IGMWContainerPtr spContainer)

{

std::cout << "Enumerating ......\r\n---------------------"

<< std::endl;

IEnumVARIANTPtr spEnumerator = spContainer->Get_NewEnum ();

_variant_t vaPair;

while (spEnumerator->Next (1, &vaPair, NULL) == S_OK)

{

IGMNVPairPtr spPair = vaPair;

vaPair.Clear ();

_bstr_t strName = spPair->GetName ();

std::cout << "Name : " << (LPCSTR)strName << " Value(s) :";

IEnumVARIANTPtr spValueEnumerator = spPair->Get_NewEnum ();

_variant_t vaValue;

while (spValueEnumerator->Next (1, &vaValue, NULL) == S_OK)

{

_bstr_t strValue = vaValue;

std::cout << " [" << (LPCSTR)strValue << "]";

vaValue.Clear ();

}

std::cout << std::endl;

}

}

VB/VBScript

Logging In

' Assume some error handling function called HandleError:

On Error Resume Next

' Set up the database connection, and the logon stuff

Dim objGoldmine

Set objGoldmine = WScript.CreateObject ("GMComAPI.Application")

If Error.Number <> 0 Then HandleError

objGoldmine.CommonFolder = "MSSQL: MSSQL_GoldMine: dbo:"

objGoldmine.SystemFolder = "c:\\\\Program Files\\Goldmine"

objGoldmine.GoldmineFolder = "c:\\\\Program Files\\Goldmine\\GMBase"

objGoldmine.GMUserName = "NigelB"

objGoldmine.SQLUserName = "sa"

objGoldmine.Login

If Error.Number <> 0 Then HandleError

' Create a container

Dim objContainer

Set objContainer = objGoldmine.NewContainer

If Error.Number <> 0 Then HandleError

Creating a Contact

' Add a Contact

Dim objContact

Set objContact = objGoldmine.NewContainer

objContact.Add "Contact", "Nelson"

objContact.Add "Company", "GoldMine"

objContact.Add "Phone1", "310454-6801"

objContact.Add "Email", "nelson@gm.com"

objContact.Add "WebSite", "www.gm.com"

objContact.Add "Comments", "this is a contact2 field"

objGoldmine.Execute "WriteContact", objContact
EnumerateContainer objContact
' get RecID and AccountNo of new record

Dim sRecId

sRecId = objContact ("RecID")

Dim sAccountNo

sAccountNo = objContact ("AccountNo")

Enumerating a Container

Sub EnumerateContainer (objContainer)

For Each objPair in objContainer

Dim strPair

strPair = "Name : "

strPair = strPair + objPair.Name + ", Values : "

For Each strValue in objPair

strPair = strPair + " [" + strValue + "]"

Next

WScript.Echo strPair

Next

End Sub
JScript

Logging In

try

{

// Set up the database connection, and the logon stuff

var objGoldmine = WScript.CreateObject ("GMComAPI.Application");

objGoldmine.CommonFolder = "MSSQL: MSSQL_GoldMine: dbo:"

objGoldmine.SystemFolder = "c:\\\\Program Files\\Goldmine";

objGoldmine.GoldmineFolder = "c:\\\\Program Files\\Goldmine\\GMBase";

objGoldmine.GMUserName = "NigelB";

objGoldmine.SQLUserName = "sa";

objGoldmine.Login();
// Create a container

var objContainer = objGoldmine.NewContainer ();

}

catch (error)

{

WScript.Echo ("Exception Caught");

WScript.Echo (error.description);

}
Creating a Contact

// Add a Contact

var objContact = objGoldmine.NewContainer ();

objContact.Add ("Contact", “Nelson”);

objContact.Add ("Company", "GoldMine");

objContact.Add ("Phone1", "(310)454-6801");

objContact.Add ("Email", "nelson@gm.com");

objContact.Add ("WebSite", "www.gm.com");

objContact.Add ("Comments", "this is a contact2 field");

objGoldmine.Execute ("WriteContact", objContact);
EnumerateContainer (objContact);
// get RecID and AccountNo of new record

var sRecId = objContact("RecID")(1);

var sAccountNo = objContact ("AccountNo")(1);

Enumerating a Container

function EnumerateContainer (objContainer)

{

var enumNVPairs = new Enumerator(objContainer);

for (; !enumNVPairs.atEnd(); enumNVPairs.moveNext())

{

var objPair = enumNVPairs.item();

var strPair = "Name : ";

strPair = strPair + objPair.Name + ", Value(s) : ";

var enumValues = new Enumerator(objPair);

for (; !enumValues.atEnd(); enumValues.moveNext())

{

var objValue = enumValues.item();

strPair = strPair + " [" + objValue + "]";

}

WScript.Echo (strPair);

}

}
WorkArea / LicenseInfo

try

{

var objGoldmine = WScript.CreateObject ("GMComAPI.Application");

//objGoldmine.CommonFolder = "c:\\\\Program Files\\Goldmine\\Demo";

objGoldmine.CommonFolder = "MSSQL: MSSQL_GoldMine: dbo:"

objGoldmine.SystemFolder = "c:\\\\Program Files\\Goldmine";

objGoldmine.GoldmineFolder = "c:\\\\Program Files\\Goldmine\\GMBase";

objGoldmine.GMUserName = "NigelB";
objGoldmine.Login();
// Display license info.

WScript.Echo (objGoldmine.LicenseInfo.Licensee);

WScript.Echo (objGoldmine.LicenseInfo.LicenseNumber);

WScript.Echo (objGoldmine.LicenseInfo.SiteName);

WScript.Echo (objGoldmine.LicenseInfo.LicensedUsers);

WScript.Echo (objGoldmine.LicenseInfo.LicensedSQLUsers);

WScript.Echo (objGoldmine.LicenseInfo.LicensedGoldSyncSites);

WScript.Echo (objGoldmine.LicenseInfo.IsDemo);

WScript.Echo (objGoldmine.LicenseInfo.IsPrimaryLicense);

WScript.Echo (objGoldmine.LicenseInfo.IsRemoteLicense);

WScript.Echo (objGoldmine.LicenseInfo.IsUSALicense);

WScript.Echo (objGoldmine.LicenseInfo.DLLVersion);

// Find Jon's phone number and primary email address

// open contact1 and contsupp

var objContact1 = objGoldmine.NewWorkArea ("Contact1");

var objContSupp = objGoldmine.NewWorkArea ("ContSupp");

// set the Contact1 index tag to ContName

objContact1.SetOrder ("ContName");

// seek Jon's name

//

if (objContact1.Seek ("JON V. FERRARA") == 1)

{

WScript.Echo (objContact1.Read ("Contact"));

// read Jon's phone number

var strPhoneNumber = objContact1.Read ("Phone1");

WScript.Echo (strPhoneNumber);
// read Jon's AccountNo

var strAccountNo = objContact1.Read ("AccountNo");

//

// set range to all contact's email records

//

var strRange = strAccountNo + "PE-MAIL ADDRESS";

objContSupp.Range (strRange, strRange, "ContSupp");
var bNotFoundYet = true;

// loop through all the email records for primary address

while (objContSupp.Skip(1) == 1 && bNotFoundYet)

{

// read email address from the ContSupRef field

// and status from Zip

var strContSupRef = objContSupp.Read ("ContSupRef");

var strZip = objContSupp.Read ("Zip");
// show email address

WScript.Echo (strContSupRef);

// primary email has a '1' in the second char of Zip

bNotFoundYet = (strZip.charAt(1) != '1')

}
}
}

catch (error)

{

WScript.Echo ("Exception Caught");

WScript.Echo (error.description);

}
Delphi

Logging in

var

GMApp: GMApplication;

GMContact: GMWContainer;

begin

try

GMApp := coGMApplication.Create;

GMApp.SystemFolder := 'C:\GOLDMINE';

GMApp.GoldMineFolder := 'C:\GOLDMINE';

GMApp.CommonFolder := 'C:\GOLDMINE\DEMO';

GMApp.GMUserName := 'NELSON';

GMApp.GMPassword := '';

GMApp.Login;
// Create a container

GMContact := GMApp.NewContainer;

except

On E:Exception do

ShowMessage('Exception! '+E.Message);

end;

Creating a contact

// Add a contact

GMContact.Add('Contact', 'Nelson');

GMContact.Add('Company','GoldMine Software');

GMContact.Add('Phone1','(310)454-6801');

GMContact.Add('Email','nelson@gm.com');

GMContact.Add('Website','www.gm.com');

GMContact.Add('Comments','This is a contact2 field');

GMApp.Execute('WriteContact', GMContact);
EnumerateContainer(GMContact);
sRecID := GMContact.Item('RecID').Item(1);

sAccountNo := GMContact.Item('AccountNo').Item(1);

Enumerating a container

Directory: downloads
downloads -> Northern England’s set-jetting locations
downloads -> Dynatest 3031 lwd light Weight Deflectometer
downloads -> Forth coming competitive exams
downloads -> Brush High School Morning Announcements Friday, September 05, 2014 all school
downloads -> Year 9 The Arts — Music
downloads -> Years 7 and 8 standard elaborations — Australian Curriculum: Music draft
downloads -> Chris Young sets 2016 “I’m Comin’ Over” Tour headlining dates
downloads -> Slavery and Abolition: the Plymouth Connection Introduction
downloads -> Summer Assignment

Download 465.93 Kb.

Share with your friends: