首页 美食 育儿 手工 生活 美妆 美容 设计 电脑 综合
首页 相关文章 [Delphi]一个解析FTP地址的小函数

[Delphi]一个解析FTP地址的小函数

　　procedure TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);
　　var
　　 i,j:integer;
　　 strAuthorization,strAddr,strDirFile:string;//授权信息
　　begin
　　 UserName:= 'anonymous';
　　 Password:= 'test@test.com';
　　 IP := '';
　　 strAddr := Copy(S,7,length(S)-6);//取得ftp://之后的部分[ 查看全文 ]

2016-02-19 标签:
编程语言 网络编程

[Delphi]一个解析FTP地址的小函数的相关文章

  • 一个高ai的分页函数和一个url函数
    标签：PHP
      这个分页函数非常高只能的 看看就知道了 function ppage($total, $page, $e_page = 15, $e_block = 10, $url = '', $color = '') { if(!strpos($url,'?'))    $url.='?'; else    $url.='&'; if($color<'') {    $color   ='<font color='.$color.'';    $colore  = '</font'; } ...[ 查看全文 ]
    埋在大众的洋芋
    21
  • 编写一个JAVA小程序取得IP地址
    标签：编程语言 网络编程
    在TCP/IP 互联网时，经常会需要查询自己主机的IP地址和www服务器的IP地址。虽然，我们可以使用IPCONFIG 和PING 进行IP地址查询，但是如果在应用程序或APPLET中使用此命令会破坏我们应用程序界面。 为此本人使用JAVA 做了一个简单的程序可以直接查询自己主机的IP地址和www服务器的IP地址： // 文件名为 NetTool.java （注意：在JAVA 语言中大小写敏感） import java.net.*; public class ...[ 查看全文 ]
    不完美的句号8
    51
  • 一个目录遍历函数
    标签：Web开发
    一个目录遍历函数?php function dirtree($path="./test") {   echo "dl";   $d = dir($path);   while(false !== ($v = $d-read())) {     if($v == "." $v == "..")       continue;     $file = $d-path."/".$v;     echo "dt$v";     if(is_dir($file))       dirtree($file); &nbs...[ 查看全文 ]
    了棑百叶
    31
  • 一个ftp类（ini.php）
    标签：Web开发
    ?php $mymode            = FTP_ASCII; $delete            = 0; $local_dir         = "/my_local_download_directory"; $host             = "ftp.yahoo.de...[ 查看全文 ]
    勇勇703
    01
  • 一个好用的分页函数
    标签：Web开发
    代码如下： 本人原创的代码,高手看来,也许流程笨拙点,但是很实用.看者要顶啊     /*---------------------------------------------------------------//   * 函数说明：分页函数 page($sql,$pagesize="30")   * $sql 查询语句(除limit外，可带排序或者条件限制)    * 如 select * from stu ...[ 查看全文 ]
    神经小破孩
    21
  • 一个不错的随机函数
    标签：ASP
    <% Dim myarr For i = 0 To 100 Randomize no = Int((1000-1+1)*Rnd+1) For j = 0 To i If no < myarr(j) And no < "" Then j = j + 1 Else Exit For End If myarr(i) = no Next If i = 21 Then Exit For End If Next %[ 查看全文 ]
    xf15254864230
    21
  • 一个查看session内容的函数
    标签：PHP
      之所以是能写出来这个函数，主要是对该网站的session结构清楚，如：name|s:4:"tasm";passwd|s:6:"111111";mode|s:1:"1"，也知道该session存放的位置，而且可以上传文件，所以嘛，当时就做了一次小小的黑客，在线的朋友的密码可以一览无余，呵呵： <? function submit1(){ global $username; print "<title论坛监听器</title"; $i=0; if($usern...[ 查看全文 ]
    天帝之剑_龍域
    31
  • 一个不用onmouseup的拖动函数
    标签：Web开发
    ff下onmousemove鼠标按不按都是1所以就不能这样用了 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行][ 查看全文 ]
    生活很奇葩
    41
  • 一个ubbcode的函数 速度很快.
    标签：PHP
      前面见到有人发表 但是速度比较慢，也非常长 这里给出一种 function ubb($str) {   $color=Array('red','blue','green'); $str=eregi_replace('\[url\]([a-zA-Z0-9@:%_.~#-\?&]+)\[\/url\]','<a href=http://\\1\\1</a',$str);//url $str=eregi_replace('\[url=http://([a-zA-Z0-9@:%_.~#-\?&]+)\](.+)\[\/url\]','<a href=\\1 target=_blank\\2</a',$str); ...[ 查看全文 ]
    终极至尊粉1326
    21
  • split 函数的一个问题 - PHPchina
    标签：PHP
    我的目标是去掉字符串中的空格，句号和逗号。 $str="hello baby,nice to meet you.hehe";//这样可以正确显示 $str="hello baby,nice to meet you . hehe";//如果在句号前面或后面多了个空格就会出现数组里某个键的值为空，也就是说当需要去掉的字符一起出现时，就会出现空值，这是为何，该如何解决？ //我的一个方法是判断值是否为空，是的话则继续循环，但感觉还是不太好 $mystr=split('[ ,\. ...[ 查看全文 ]
    wanlong2046
    01
  • asp中的一个奇怪的函数
    标签：ASP
      asp中有很多的文章在研究如何提高asp程序的执行效率,我们 得出结论 在<% 和 % 之间的代码执行的速度要高于 在这个 标签之外的代码,我们有没有想过 如何重复的利用这些在标签之外的代码呢？ 有的人可能觉得 这个没有什么意义！但是我们可以 怀着 一种很轻松的心态来看看下面这个例子，看看 我们得到了什么有趣的现象！在这个例子中，我们用到了 MSDN 中没有介绍的 WriteBlock 函数: test.asp <h...[ 查看全文 ]
    yytk5456
    11
  • 一个FTP客户端的C#代码
    using System; using System.Net; using System.IO; using System.Text; using System.Net.Sockets; namespace zhangyuk.net.csdn.blog.ftpclient {  /// <summary  /// FTP Client  /// </summary  public class FTPClient  {   #region 构造函数   /// <summary   /// 缺省构造函数   /// </summary   public FTPClient()   {  ...[ 查看全文 ]
    缘雨5
    61
  • JavaScript 一个日期选择函数
    标签：Web开发
    ｓｅｌｅｃｔ id="Year" name="Year"option value=""/option/ｓｅｌｅｃｔ年 ｓｅｌｅｃｔ id="Month" name="Month"/ｓｅｌｅｃｔ月 ｓｅｌｅｃｔ id="Day" name="Day"/ｓｅｌｅｃｔ日br / ｓｅｌｅｃｔ id="iYear" name="iYear"option value=""/option/ｓｅｌｅｃｔ年 ｓｅｌｅｃｔ id="iMonth" name="iMonth"/ｓｅｌｅｃｔ月ｓｅｌｅｃｔ id="iDay" name="iDay"/ｓｅｌｅｃｔ日 script language="javascr...[ 查看全文 ]
    寮犲畤馃崚
    21
  • 用JS实现的一个include函数
    标签：Web开发
    很多语言都有类似php中的include和require功能的函数，而唯独javascript没有。  很早就想在js中实现类似的功能，尝试了很多次都没有成功，那天在google上搜索一些关于动态加载css文件的关键词时，发现一个blog（地址找不到了）上的一个为网页的head标签增加link元素的函数，于是就改了一下，写了这个函数。  用法：  include_js(src,[reload]);  src: js文件的路径名  re...[ 查看全文 ]
    wokao2008wh
    351
  • 一个asp函数 解决SQL Injection漏洞
    标签：Web开发
    /** 作者：慈勤强 Email： cqq1978@Gmail.com */ 函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 字符类型的 strUsername = CheckInput(Request(“username“),“s“) 数字类型的 ID = CheckInput(Request(“id“),“i“) 下面是函数 Function CheckInput(str,strType)    '函数功能：过滤字符参数中...[ 查看全文 ]
    秋秋冉
    11
  • 一个asp函数 解决SQL Injection漏洞
    标签：ASP
      /** 作者：慈勤强 Email： cqq1978@Gmail.com */ 函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 字符类型的 strUsername = CheckInput(Request(“username“),“s“) 数字类型的 ID = CheckInput(Request(“id“),“i“) 下面是函数 Function CheckInput(str,strType)    '函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值...[ 查看全文 ]
    星空の月如
    51
  • 一个用于网络的工具函数库
    标签：PHP
      <?PHP /* PHP Net Toolpack v0.1 08.05.2000, by waddler(@netlife.fi) phpnettoolpack.sourceforge.net To be distributed under GNU GPL */ // whois(hostname [,username, [port]]) Function whois ($a_server, $a_query="", $a_port=43) { $sock = fsockopen($a_server, $a_port, &$errno, &$errstr, 10); if (!$sock) { echo "$errstr ($errno)<BRn&...[ 查看全文 ]
    FHJKVFXHKMBVDL
    51
  • 在SQLSERVER里写了一个Split函数
    标签：编程语言 网络编程
    因查询统计需要，今天早上在SQLSERVER里写了一个类似于Split的函数，如下 create function f_split(@SourceSql varchar(8000),@StrSeprate varchar(10)) returns @temp table(a varchar(100)) --实现split功能 的函数 --date    :2005-4-20 --Author :Domino as begin     declare @i int     set @SourceSql=rtrim(ltrim(@SourceSql))   &nbs...[ 查看全文 ]
    风声呼啸人
    91
  • 完美解决一个事件激活多个函数
      如果你的网页中一个“OnLoad”事件要激活两个以上的JavaScript函数，那怎么办呢？小阳曾查阅了不少资料，结果都不尽如人意，无非是程序员根据情况，把要激活的函数统一放在一个函数里激活。 但作为一个程序员，编写的代码的适用性是很重要的。请看下面一个例子： 运行后你会发现，它只跳出一个“这是JS脚本调用的函数”的警告框。< BODY标签中要求激活的函数被“忽略”了。当...[ 查看全文 ]
    多情汉子丶
    391
  • 一个取得文件扩展名的函数
    标签：PHP
      一个取得文件扩展名的函数 <?   /* GetFileType   用法：GetFiletype($filename) */   function GetFiletype($Filename) {       if (substr_count($Filename, ".") == 0) {        // 检查文件名中是否有.号。          &nb...[ 查看全文 ]
    仅此一人流氓
    201
手机页面
收藏网站 回到头部