Welcome, guest | Sign In | My Account | Store | Cart
# PROGRAM NAME : HLLAPI interface - ctypes version
# Author: Stefano Spinucci
# Written: 2002/02/16
# DESCRIPTION
# This program interface the 3270 HLLAPI library of an Italian 3270 emulator using 
# the ctypes library (home page : http://starship.python.net/crew/theller/ctypes.html
# or on sourceforge : http://sourceforge.net/projects/ctypes)
# The calling scheme for the function is :
# void FAR PASCAL hllapi(int FAR *, char FAR *, int FAR *, int FAR *);
# NOTE : 
# <from ctypes docs> Internally ctypes makes heavy use of the new type system introduced 
# in Python 2.2, so it will not work in earlier versions.

from ctypes import windll, c_int, c_string, c_char_p, byref

# ------------------------------------------------------------------------------------------------
# dll initialization
# ------------------------------------------------------------------------------------------------
#Load the dll 'Ehllapi.dll' (the file .py is in the same directory of the dll)
Ehllap32 = windll.ehllap32
#Load the function 'hllapi' from the dll
hllapi = Ehllap32.hllapi

# ------------------------------------------------------------------------------------------------
# variables setting and function calling
# ------------------------------------------------------------------------------------------------
#Set the variables
h_func = c_int(1)
h_text = c_string('A')
#alternatively to "h_text = c_string('A')" you can use "h_text = c_char_p('A')"
h_len = c_int(1)
h_ret = c_int(999)

#Function calling
hllapi(byref(h_func), h_text, byref(h_len), byref(h_ret))

#Print the value returned
print h_func.value
print h_text.value
print h_len.value
print h_ret.value






# PROGRAM NAME : HLLAPI interface - calldll version
# Author: Stefano Spinucci
# Written: 2002/02/16
# DESCRIPTION
# This program interface the 3270 HLLAPI library of an Italian 3270 emulator using 
# the calldll library (from Sam Rushing http://www.nightmare.com/software.html)
# I've found very useful also edll.py from http://pages.ccapcable.com/lac/undergroundPython.html
# The calling scheme for the function is :
# void FAR PASCAL hllapi(int FAR *, char FAR *, int FAR *, int FAR *);

# ------------------------------------------------------------------------------------------------
# Function defining : 
# - myPrintLong : given a membuf with a long inside, print the long
# - myPrintString : given a membuf with a string inside, print the string
# - mySetLong : given a membuf with len = 4, set his value with the long passed
# - mySetString : given a membuf, set his value with the string passed (adding the character \0)
# ------------------------------------------------------------------------------------------------

def myPrintLong(vVar):
	#Print the long (first way)
	a= struct.unpack('I', vVar.read())[0]
	print a

	#Print the long (second way)
	print calldll.read_long(vVar.address())

def myPrintString(vVar):
	#Print the string (first way)
	a = vVar.read()
	print a[:len(a)-1]
	print len(a)

	#Print the string (second way)
	a = calldll.read_string(vVar.address())
	print a
	print len(a)

def mySetLong(vMemBuf, vValueToSet):
	string_packed = struct.pack("L",vValueToSet) # packed as unsigned long
	vMemBuf.write(string_packed)

def mySetString(vMemBuf, vValueToSet):
	data_len = len(vValueToSet) 
	pack_format = str(data_len+1)+"s" # add one for \0 at the end. 
	string_packed = struct.pack(pack_format, vValueToSet) # pack() will add \0 for us
	vMemBuf.write(string_packed)

# ------------------------------------------------------------------------------------------------
# Import the required library
# ------------------------------------------------------------------------------------------------

#Import the calldll module
import calldll
#Import the struct module (a standard python module)
import struct

# ------------------------------------------------------------------------------------------------
# Get the handle of the dll and the address of the function
# ------------------------------------------------------------------------------------------------

#Get the handle of the Dll
handle = calldll.load_library ('C:\Tee3270\Ehllap32')

#Get the address of the function
address = calldll.get_proc_address (handle, 'HLLAPI')

# ------------------------------------------------------------------------------------------------
# Initialization
# ------------------------------------------------------------------------------------------------
# vFunction, vTextLen and vResult are defined as a membuf with lenght = 4, because 4 is the lenght 
# of an unsigned long packed with struct.pack("L", NumberToPack)
vFunction = calldll.membuf(4)
vTextLen = calldll.membuf(4)
vResult = calldll.membuf(4)
# vFunction is defined as a membuf with lenght = 1921 because the dll needs a buffer of 
# 1920 char + 1 for \0 at the end
# You can here define a membuf of the lenght you need + 1 for the last \0 character
vText = calldll.membuf(1921)

# ------------------------------------------------------------------------------------------------
# Function calling
# ------------------------------------------------------------------------------------------------

# Vars setting
#1
mySetLong(vFunction, 1)
#2
string_value_to_write = 'A'
mySetString(vText, string_value_to_write)
#3
mySetLong(vTextLen, len(string_value_to_write))
#4
mySetLong(vResult, 1)

#Call the function
calldll.call_foreign_function (
			address,
			'llll',
			'l',
			(vFunction.address(), vText.address(), vTextLen.address(), vResult.address())
			)


myPrintLong(vResult)
myPrintString(vText)

# ------------------------------------------------------------------------------------------------
# Dll unloading
# ------------------------------------------------------------------------------------------------

#Unload the dll
calldll.free_library (handle)

History

  • revision 3 (19 years ago)
  • previous revisions are not available