求助：Adonix的Callocx应该怎么调用别的语言开发的控件，附语法说明

问题： 求助：Adonix 的Callocx应该怎么调用别的语言开发的控件，附语法说明
描述:

本帖最后由 lwfengzi 于 2011-07-07 11:24:31 编辑

开发语言是法国sage公司出的，4GL 语言，希望能用Callocx来调用开发好的控件，不知道那2个IO接口怎么用，求教
-------------------------------------------------以下是说明
Callocx makes it possible to use COM OBJects (OLE, ActiveX,...).
Prerequisites
Beside the standard interfaces, the OBJects called by the Callocx instruction MUST absolutely implement the following interfaces: 
IOleObject 
IOleInPlaceActiveObject 
 
Syntax
   Callocx return=""with param_list
Parameters
Element 
 Description
 Restrictions
 
return
 returns the information in the form of a table of character strings
 
 
list_param
 List of id_param separated by the character ','.
 The expressions must be alphanumeric and are limited to 255. 
 
 
Examples
############################################################
#--- Creation of the graphical OBJect
Local Char RETOUR(20)
Callocx RETOUR="" With 
& "X3Action=" +chr$(1)+ "1",
& "X3Identification=" +chr$(1)+ "VtChartLib.VtChart",
& "X3Window=" +chr$(1)+ "0",
& "X3Left=" +chr$(1)+ "1",
& "X3Top=" +chr$(1)+ "1",
& "X3Right=" +chr$(1)+ "340",
& "X3Bottom=" +chr$(1)+ "200",
& "X3GetFile=" +chr$(1)+ filpath("GRAPH","Chart_line_1","vtc"),
& "Repaint=" +chr$(1)+ '10"%d"' + "0"
#--- Retrieval of the identification number of the OBJect
If (left$(RETOUR,9) = "X3Number=") Then
    GOCXID = mid$(RETOUR,11,1)
Endif
############################################################
#--- Modification of the OBJect with
# - title and footnote text
# - number of columns and rows
# - number of column and row labelsLocal Char WCLI(255)
WCLI = "$ADXDIR\Report\GX3APP_gailf50_1801\Chart_line_1.vtc"
Callocx "" With
& "X3Action=" +chr$(1)+ "2",
& "X3Number=" +chr$(1)+ GOCXID,
& "ReadFromFile=" +chr$(1)+ '30"%z"' + WCLI,
& "FootnoteText=" +chr$(1)+ '10"%s"' + "graph footer",
& "TitleText=" +chr$(1)+ '10"%s"' + "graph title",
& "ColumnCount=" +chr$(1)+ '10"%d"' + "1",
& "RowCount=" +chr$(1)+ '10"%d"' + "6",
& "ColumnLabelCount=" +chr$(1)+ '10"%d"' + "1",
& "RowLabelCount=" +chr$(1)+ '10"%d"' + "6"
############################################################
#--- Loading of data
Local Decimal WDAT(6)
WDAT(0)=20
WDAT(1)=40
WDAT(2)=65
WDAT(3)=15
WDAT(4)=10
WDAT(5)=10
For WROW = 1 To 6
    Callocx "" With
    & "X3Action=" +chr$(1)+ "2",
    & "X3Number=" +chr$(1)+ GOCXID,
    & "Column=" +chr$(1)+ '10"%d"' + "1",
    & "Row=" +chr$(1)+ '10"%d"' + num$(WROW),
    & "Data=" +chr$(1)+ '10".s"' + num$(WDAT(WROW-1))
Next WROW
############################################################
# Loading the x-axis labels
For WROW = 1 To 6
Callocx "" With 
    & "X3Action=" +chr$(1)+ "2",
    & "X3Number=" +chr$(1)+ GOCXID,
    & "RowLabelIndex=" +chr$(1)+ '10"%d"' + "1",
    & "Row=" +chr$(1)+ '10"%d"' + num$(WROW),
    & "RowLabel=" +chr$(1)+ '10"%s"' + month$(WROW)
Next WROW
############################################################
# The OCX is repainted and the window is activated
Callocx "" With
& "X3Action=" +chr$(1)+ "2",
& "X3Number=" +chr$(1)+ GOCXID,
& "X3Activation=" +chr$(1)+ "1",
& "Repaint=" +chr$(1)+ '10"%d"' + "1"
End
 
Description and comments
The Callocx statement makes it possible to use COM OBJects (OLE, ActiveX,...) in order to submit results in graphical form, for instance. 
For the graphs, a standard structure of the graph must be previously generated in Visual Basic on PC. It is then stored on the server in the GRAPH directory of the folder with the extensin *.vtc. When used, it is transferred and stored on the client in the x3\report\folder_server_port directory. If such a structure is present on the client workstation, there are no transfers from the server. 
This structure defines the initial presentation, such as: 
presence, colors and header presentation, caption and footnote text 
type of display by column (forms, colors etc.) 
Automatic calculation of the y-values. 
etc. 
This initial presentation can be modified upon execution at client workstation level. The modifiable data are: 
Title and footnote text 
Labels of columns and x-values 
Size and position of the window 
Number of columns and rows 
 
There are standard parameters (starting with X3) and parameters specific to the OCX.
 
Standard parameters 
Parameters are passed under the form:
Parameter=Index+Value
Value must be alphanumerical and limitted to 255. This value is preceded by an inde