📄 cls.ftp_service.dialhangup.htm
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="cs" lang="cs">
<head>
<title>Method DialHangUp of class FTP_SERVICE</title>
<meta content="text/html; charset=windows-1250" http-equiv="Content-Type" />
<meta name="Generator" content="Project Documenting Machine" />
<meta name="Version" content="1.2.3" />
<link rel="stylesheet" href="../../css/foxw.css" type="text/css" />
<link rel="stylesheet" href="../../css/sc.css" type="text/css" />
<link rel="stylesheet" href="../../repository/diamp_pdm_ab.css" type="text/css" />
<link rel="stylesheet" href="../../repository/pdm_ab_notes.css" type="text/css" />
<link rel="stylesheet" href="../../repository/pdm_ab.css" type="text/css" />
<link rel="stylesheet" href="../../repository/diaf_pdm_ab.css" type="text/css" />
<link rel="stylesheet" href="../../repository/diap_pdm_ab.css" type="text/css" />
<link rel="stylesheet" href="../../repository/diac_pdm_ab.css" type="text/css" />
<link rel="stylesheet" href="../../repository/ftp.css" type="text/css" />
<script src="../../js/pdm.js" language="JavaScript" type="text/javascript"></script>
<script src="../../repository/pdm_ab.js" language="JavaScript" type="text/javascript"></script>
</head>
<body>
<div class="diaxp_mhead">DialHangUp Method</div>
<div class="diaxp_mbody_class">
<table class="clear_table">
<tbody>
<tr><td>Class: </td><td><a href="cls.ftp_service.htm" title="Skip to class ftp_service">FTP_SERVICE</a></td></tr>
</tbody>
</table>
</div>
<div class="diaxp_mbody">
<!-- Created with _diamp_pdm_ab by Agnes Beste 03.09.2007 19:33 -->
<div class="PDM_AB_Descr"><!-- Descr Begin -->
Closes a dialup connection that was created from a DialInternet function call.
</div><!-- Descr End -->
<div class="DIAMP_PDM_AB_Syntax"><!-- Syntax Begin -->
<div class="SColor">
<div class="RetVal"><a href="#_26715XR6G">RetVal</a> </div> <div class="RetValEq">=</div> <div class="PEM">
Object.DialHangUp
</div>
<div class="Para">
(<a href="#_26715XR6H">lnConnectionID</a>)
</div>
<div style="clear: both"></div>
</div><!-- Colour End -->
</div><!-- Syntax End -->
<div class="DIAMP_PDM_AB_Params"><!-- Parameters Begin -->
<span class="PDM_AB_Head">
Parameter
</span>
<dl class="DIAMP_PDM_AB_Params_List">
<dt class="dt_">
<a class="DIAMP_PDM_AB_Params_ParaName" id="_26715XR6H" name="_26715XR6H">
<span class="PDMEXPR PDMNor" ><span class='PDMVar'>lnConnectionID</span></span>
</a>
</dt>
<dd class="dd_">
<span class="Params_Short">
Handle returned from the <a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.autodialinternet.htm" title="Skip to method FTP_SERVICE::AutoDialInternet()">FTP_SERVICE::AutoDialInternet()</a> Function Call.
</span>
<table class="Params_Info">
<colgroup>
<col class="ColumnValue" />
<col class="ColumnData" />
</colgroup>
<tbody>
<tr>
<td class="CellValue">Type</td>
<td class="CellData">Numeric</td>
</tr>
<tr>
<td class="CellValue">Direction</td>
<td class="CellData">Input</td>
</tr>
</tbody>
</table>
</dd>
</dl>
</div><!-- Parameters End -->
<div class="DIAMP_PDM_AB_RetVal"><!-- Returns Begin -->
<div>
<span class="PDM_AB_Head">
<a id="_26715XR6G" name="_26715XR6G">
Return value
</a>
</span> <span class="RetVal_Ttype">Boolean</span>
</div>
<div class="PDM_AB_Body">
The return value is <span class="PDMEXPR PDMNor" ><span class='PDMLit'>.T.</span></span>
if is disconnected from internet or <span class="PDMEXPR PDMNor" ><span class='PDMLit'>.F.</span></span>
is not.
</div>
</div><!-- Returns End -->
<div class="PDM_AB_Example"><!-- Example Begin -->
<span class="PDM_AB_Head">
Example
</span>
<div class="PDM_AB_Body">
<!-- Code Begin -->
<pre class="PDMCODE PDMNor" >
<span class='PDMResK'>LOCAL</span> <span class='PDMVar'>loFTP</span><span class='PDMOper'>,</span> <span class='PDMVar'>liState</span><span class='PDMOper'>,</span><span class='PDMVar'>liCID</span>
<span class='PDMResK'>SET</span> <span class='PDMResK'>PROCEDURE</span> <span class='PDMResK'>TO</span> <span class='PDMVar'>ftp</span><span class='PDMOper'>.</span><span class='PDMVar'>prg</span> <span class='PDMResK'>ADDITIVE</span>
<span class='PDMVar'>loFTP</span><span class='PDMOper'>=</span><span class='PDMResF'>CREATEOBJECT</span><span class='PDMOper'>(</span><span class='PDMStr'>'ftp_service'</span><span class='PDMOper'>)</span>
<span class='PDMVar'>liState</span><span class='PDMOper'>=</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetConnectedState</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span> <span class='PDMCom'>&& Check Connected state</span>
<span class='PDMResK'>IF</span> <span class='PDMVar'>liState</span><span class='PDMOper'>=</span><span class='PDMOper'>-</span><span class='PDMLit'>1</span>
<span class='PDMOper'>?</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetExtendedErrorCode</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span><span class='PDMOper'>,</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>GetExtendedErrorMsg</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span>
<span class='PDMResK'>RETURN</span>
<span class='PDMResK'>ENDIF</span>
<span class='PDMResK'>IF</span> <span class='PDMResF'>BITTEST</span><span class='PDMOper'>(</span><span class='PDMVar'>liState</span><span class='PDMOper'>,</span><span class='PDMLit'>0</span><span class='PDMOper'>)</span> <span class='PDMCom'>&& Use Modem?</span>
<span class='PDMVar'>liCID</span><span class='PDMOper'>=</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>DialInternet</span><span class='PDMOper'>(</span><span class='PDMStr'>"MACONNEXION"</span><span class='PDMOper'>,</span><span class='PDMLit'>1</span><span class='PDMOper'>)</span>
<span class='PDMResK'>ENDIF</span>
<span class='PDMResK'>IF</span> <span class='PDMOper'>(</span><span class='PDMResF'>BITTEST</span><span class='PDMOper'>(</span><span class='PDMVar'>liState</span><span class='PDMOper'>,</span><span class='PDMLit'>0</span><span class='PDMOper'>)</span> <span class='PDMOper'>AND</span> <span class='PDMVar'>liCID</span><span class='PDMOper'>></span><span class='PDMLit'>0</span> <span class='PDMOper'>OR</span> <span class='PDMOper'>!</span><span class='PDMResF'>BITTEST</span><span class='PDMOper'>(</span><span class='PDMVar'>liState</span><span class='PDMOper'>,</span><span class='PDMLit'>0</span><span class='PDMOper'>)</span><span class='PDMOper'>)</span> <span class='PDMOper'>AND</span> <span class='PDMOper'>;</span>
<span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>OpenInternet</span><span class='PDMOper'>(</span><span class='PDMStr'>"ABONNE"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"PWD"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"10.10.10.10"</span><span class='PDMOper'>,</span> <span class='PDMStr'>"21"</span><span class='PDMOper'>)</span>
<span class='PDMCom'> * Try to get a handle into the Internet and Connect Briefly with the FTP Site </span>
<span class='PDMCom'> * Note: Insert your USER ID, PASSWORD, FTP ADDRESS, PORT # Here </span>
<span class='PDMCom'> * Note: ("21" is the Default Port) </span>
<span class='PDMOper'>?</span><span class='PDMStr'>"Connection r閡ssie"</span>
<span class='PDMOper'>=</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>CloseInternet</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span>
<span class='PDMResK'>ENDIF</span>
<span class='PDMOper'>=</span><span class='PDMVar'>loFTP</span><span class='PDMOper'>.</span><span class='PDMVar'>DialHangUp</span><span class='PDMOper'>(</span><span class='PDMVar'>liCID</span><span class='PDMOper'>)</span>
<span class='PDMResK'>RELEASE</span> <span class='PDMResK'>PROCEDURE</span> <span class='PDMVar'>ftp</span><span class='PDMOper'>.</span><span class='PDMVar'>prg</span></pre>
<!-- Code End -->
</div>
</div><!-- Example End -->
<div class="PDM_AB_SeeAlso"><!-- SeeAlso Begin -->
<span class="PDM_AB_Head">
See also
</span>
<div class="PDM_AB_Body">
<a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.beforeautodialhangup.htm" title="Skip to method FTP_SERVICE::BeforeAutoDialHangUp()">FTP_SERVICE::BeforeAutoDialHangUp()</a> |
<a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.afterautodialhangup.htm" title="Skip to method FTP_SERVICE::AfterAutoDialHangUp()">FTP_SERVICE::AfterAutoDialHangUp()</a> |
<a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.beforeautodialinternet.htm" title="Skip to method FTP_SERVICE::BeforeAutoDialInternet()">FTP_SERVICE::BeforeAutoDialInternet()</a> |
<a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.afterautodialinternet.htm" title="Skip to method FTP_SERVICE::AfterAutoDialInternet()">FTP_SERVICE::AfterAutoDialInternet()</a> |
<a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.loadapifuncs.htm" title="Skip to method FTP_SERVICE::LoadAPIFuncs()">FTP_SERVICE::LoadAPIFuncs()</a> |
<a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.getextendederror.htm" title="Skip to method FTP_SERVICE::GetExtendedError()">FTP_SERVICE::GetExtendedError()</a> |
<a class="PDM_AB_See" href="../../code/ftp.prg/cls.ftp_service.autodialinternet.htm" title="Skip to method FTP_SERVICE::AutoDialInternet()">FTP_SERVICE::AutoDialInternet()</a>
</div><!-- Body End -->
<!--- "Applies to" need to be inserted here---->
<PlaceAppliesTo_Here />
<!--- /"Applies to" need to be inserted here---->
</div><!-- SeeAlso End -->
<!-- /Created with _diamp_pdm_ab by Agnes Beste 03.09.2007 19:33 -->
<div class="SC">
<img onclick="ExpandSC('SP_1',-1);"class="imgEC" src="../../imgs/uptab.gif" alt="Expand/Collapse source code of procedure DialHangUp" id="IMG_SP_1" />
<span ondblclick="ExpandSC('SP_1',-1);" class="SCCaption"><a name="FTP_SERVICE">Source Code</a></span>
<div ondblclick="ExpandSC('SP_1',-1);" class="SCE" id="TX_SP_1">
<!-- Code Begin -->
<pre class="PDMCODE PDMNor" > <span class='PDMResK'>LPARAMETERS</span> <span class='PDMVar'>INP</span> <span class='PDMVar'>lnConnectionID</span>
<span class='PDMResK'>LOCAL</span> <span class='PDMVar'>fResult</span>
<span class='PDMResK'>IF</span> <span class='PDMResK'>This</span><span class='PDMOper'>.</span><span class='PDMVar'>LoadAPIFuncs</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span> <span class='PDMOper'>!</span><span class='PDMOper'>=</span> <span class='PDMVar'>ERROR_SUCCESS</span>
<span class='PDMResK'>RETURN</span> <span class='PDMLit'>.F.</span>
<span class='PDMResK'>ENDIF</span>
<span class='PDMResK'>IF</span> <span class='PDMResF'>TYPE</span><span class='PDMOper'>(</span><span class='PDMStr'>"lnConnectionID"</span><span class='PDMOper'>)</span> <span class='PDMOper'>!</span><span class='PDMOper'>=</span> <span class='PDMStr'>"N"</span>
<span class='PDMResK'>RETURN</span> <span class='PDMLit'>.F.</span>
<span class='PDMResK'>ENDIF</span>
<span class='PDMOper'>=</span><span class='PDMResK'>This</span><span class='PDMOper'>.</span><span class='PDMVar'>BeforeDialHangUp</span><span class='PDMOper'>(</span><span class='PDMVar'>lnConnectionID</span><span class='PDMOper'>)</span>
<span class='PDMVar'>fResult</span> <span class='PDMOper'>=</span> <span class='PDMVar'>InternetHangUp</span><span class='PDMOper'>(</span><span class='PDMVar'>lnConnectionID</span><span class='PDMOper'>,</span> <span class='PDMLit'>0</span><span class='PDMOper'>)</span>
<span class='PDMResK'>This</span><span class='PDMOper'>.</span><span class='PDMVar'>GetExtendedError</span><span class='PDMOper'>(</span><span class='PDMOper'>)</span>
<span class='PDMOper'>=</span><span class='PDMResK'>This</span><span class='PDMOper'>.</span><span class='PDMVar'>AfterDialHangUp</span><span class='PDMOper'>(</span><span class='PDMVar'>lnConnectionID</span><span class='PDMOper'>,</span><span class='PDMVar'>fResult</span><span class='PDMOper'>)</span>
<span class='PDMResK'>RETURN</span> <span class='PDMVar'>fResult</span> <span class='PDMOper'>#</span> <span class='PDMLit'>0</span> </pre>
<!-- Code End -->
</div>
</div>
</div>
<div class="diaxp_mfoot"> <div class="PDM_AB_CopyRight"><!-- Footer Begin -->
<hr />
<div class="PDM_AB_Body">
© 2004-03-23 Robert Abram, © 24.11.2005 Martina Jindrú
</div><!-- Body End -->
</div><!-- Footer End -->
</div>
<script language="JavaScript" type="text/javascript">
lo=document.getElementById("TX_SP_1");
lo.XType="SourceCode";
lo.Dir="../../imgs/";
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -