VFP 愛用者社區

[jp215]

我用CLIREG32.EXE注册完DLS.TLB控件后，用对象浏览器在VFP中可以看见DLS控件及其方法，但不知如何调用，请高手以实例指教，不甚感激！！！！

[jp215]

GARFIELD老弟,控件使用,你也没招吗

[garfield]

我沒聽說有 DLS ,
且 clipreg32.exe 是什麼東西我也不知道.
無招..

[jp215]

GARFIELD 老弟,注册后的DLS对象在VFP9.0下浏览如下

[jp215]

接上幅图

[jp215]

对象我已注册成功,我只是不知道怎样调用对象下的方法,我用调用类的方法调用不成功.我用VFP9的实例（COM篇）的方法调用可读出DLS的方法、接口，成员，但不知如何调用其方法，请那位大虾指教，非常感谢。

[jp215]

调用TYPE LIBRARY VIEWER表单读出的结果如下
Type Library = E:\LJPVFP4DLS\DLS.TLB
Class: DataPipe {BE166DBB-82A4-4A6F-93E5-C35981526776}

GetMDepthIDX() AS integer
Type: Function

GetVDepthIDX() AS integer
Type: Function

GetMWINIDX() AS integer
Type: Function

GetPumpPrIDX() AS integer
Type: Function

GetSPMIDX( PumpNo AS integer @) AS integer
Type: Function

GetBDepthIDX() AS integer
Type: Function

GetDrillModeIDX() AS integer
Type: Function

GetROPIDX() AS integer
Type: Function

GetSampleDepthIDX() AS integer
Type: Function

GetCalcimetryIDX() AS integer
Type: Function

GetPumpAssignments() AS variant
Type: Function

GetChromData() AS variant
Type: Function

GetChromHeader() AS variant
Type: Function

GetProfile() AS variant
Type: Function

GetDLSChData() AS variant
Type: Function

GetDLSChDataOrd( Ord AS integer @) AS variant
Type: Function

GetModeInfo() AS variant
Type: Function

GetDLSMDepth() AS variant
Type: Function

GetDLSChMDBMap() AS variant
Type: Function

GetDlsChFormatArray() AS variant
Type: Function

GetDLSModeNames() AS variant
Type: Function

GetDLSTotCh() AS integer
Type: Function
Returns the number of data channels available from DLS. This function should be called first to initialize the datapipe. The returned integer may be saved by the calling program so the called need not be repeated by the program.

GetFastData() AS variant
Type: Function

GetHistDepthData( SDepth AS single @", " EDepth AS single @", " DBOrds AS variant @) AS variant
Type: Function

GetTotFastDataCh() AS integer
Type: Function

SetDigiPort( StateStr AS string @) AS VOID
Type: Function

SetDLSCommandStr( DLSCmdStr AS string @) AS VOID
Type: Function

GetDLSMessage() AS variant
Type: Function

SetDLSMessage( msg AS variant @) AS VOID
Type: Function

SetDLSPumpDataArray( v AS variant @) AS VOID
Type: Function

NumDLSExtData() AS long
Type: Function

SetDLSExtData( DataArray AS variant @", " idx AS long @) AS VOID
Type: Function

GetCalcimetryPr() AS VOID
Type: Function


Class: DLSMDB {393624C9-B812-4B7A-8731-F0D91E0F5838}

GetDLSDBName() AS variant
Type: Function

GetHydData( MDepth AS single @) AS variant
Type: Function

GetLastUnits() AS variant
Type: Function

GetWellInfo() AS variant
Type: Function

GetTVDDepth( MDepth AS single @) AS variant
Type: Function

GetBitData( MDepth AS single @) AS variant
Type: Function

GetBitTable() AS variant
Type: Function

GetPressureTable() AS variant
Type: Function

GetAvgParams( SDepth AS single @", " EDepth AS single @) AS variant
Type: Function

GetAvgParam( SDepth AS single @", " EDepth AS single @", " FldName AS string @) AS variant
Type: Function

GetLOTData() AS variant
Type: Function

GetSPRData( MDepth AS single @) AS variant
Type: Function

GetDepthData( SRecord AS variant @", " ERecord AS variant @", " vFieldList AS variant @", " MaxRecs AS integer @", " TableName AS string @) AS variant
Type: Function

GetTimeData( STime AS variant @", " ETime AS variant @", " vFieldList AS variant @", " MaxRecs AS integer @) AS variant
Type: Function

GetQueryData( SqlStr AS string @) AS variant
Type: Function

GetQueryDataExtents( SqlStr AS string @", " RetPos AS integer @) AS variant
Type: Function

GetDepthIntvl() AS variant
Type: Function

GetTimeIntvl() AS variant
Type: Function