delphiÁ¬½ÓftpµÄÎÊÌâ
ÎÒÓÃftpÉÏ´«Ò»¸öÎļþµ½ftp·þÎñÆ÷ÉÏ£¬Ç°¼¸Ìì¶¼Óõĺúõģ¬ºóÃæÒ»Ö±µ½ÏÖÔÚÁ¬²»ÉÏftpÁË
-------------------------------------
IdHTTP1:=TIdHTTP.Create(GetIP); //Ϊ·ÀÖ¹¶ÏÍøºóidhttpÎÞ·¨Æô¶¯ÆðÀ´,ËùÒÔÿ´Î¶¼´´½¨Ò»¸öеÄ
IdHTTP1.AllowCookies:=True;
IdHTTP1.ReadTimeout:=3000;
flag4:=0;
//ÒÔftp¸ñʽÉÏ´«ÉÏÈ¥
if idFTP1.Connected then
try
IdFTP1.Quit;
finally
end
else
with IdFTP1 do try
Username:='hztfdt';
Password:='20080512';
Host:='www.hztianfu.com.cn';
Connect(True,5);
finally
end;
flag4:=1;//flag4=1˵Ã÷ÉÏ´«µ½·þÎñÆ÷³É¹¦
-------------------------
²âÊÔÏÔʾflag4Ò»Ö±ÊÇ0ûÓбä³É¹ý1£»µØÖ·ÃÜÂ붼ûÓиĹý£¬²»ÖªµÀÊÇÄÄÀï³öÀ´ÎÊÌâÊÇÔÚÕÒ²»µ½£¬Çë´óÏÀ°ï棡£¡£¡
°Ñ Connect(True,5); µ÷³É Connect(True,3000);¾ÍºÃÁË¡£
Ïà¹ØÎÊ´ð£º
'Select * into '+TempTableName+' from OpenDataSource(''Microsoft.JET.OLEDB.4.0'',''Data Source='
+ExcelFilePath+';Mode=Read;Extended Properties=Ex ......
´ÓÊý¾ÝÀï¶Á³öһЩÊý¾Ý·Åµ½Ò»¸ölistviewÀï È»ºóÓû§ÒªËÑË÷¡®Åܳµ¡¯ ÎÒ¾ÍÒª°ÑÖ»ÒªÓÐÅܳµ×ÖÑÛµÄÊý¾Ý¶¼È¡³öÀ´±ÈÈ硯·¨ÀÀûÅܳµ¡® ÇëÎÊ Õâ¸ö×Ö·û´®Ôõô±È½Ïѽ£¿ ²»ÄÜÔÚÊý¾Ý¿âÀïд´æ´¢¹ý³ÌÀ´È¡£¬Ö»ÄÜÔÚµ±Ç°µÄlistvie ......
±ÈÈçÔÚdelphi´úÂëÀ¶Ôij¸ö·½·¨»òÕßform²»Á˽⣬°´ÏÂctrl¼ü£¬ÓÃÊó±êµãһϣ¬¾Í»áÌøµ½Õâ¸öform»ò·½·¨µÄ´úÂëÄÄÀïÈ¥¡£
ÎÒ¸Õѧc#£¬ÏÈÏÂÁËÒ»¸öϵͳµÄÔ´´úÂë¿´£¬ÀïÃæºÜ¶à¿Ø¼þ¡¢·½·¨²»ÖªµÀÊÇÄÄÀïÀ´µÄ£¬Ò²Ã»·¨È¥ÕÒ¡£ ......
ÎÒ´ÓÊý¾Ý¿âÖÐÈ¡³öÀ´Öµ°ÑËü´æ´¢ÔÚÁ˶¯Ì¬Êý×éÖУ¬Êý×éÒѾµÃµ½Á˸ÃÖµ£¬ÎÒÏÖÔÚÒª°Ñ¸Ã¶¯Ì¬Êý×éÖеÄֵȡ³öÀ´¸ú²Ëµ¥¶ÔÓ¦ÆðÀ´¡£
×î¼òµ¥µÄ£¬Ñ»·°¡¡£
ÓÃMAP·½Ê½,ѹÈë,µ¯³ö.ºÇºÇ
û̫Ã÷°×
²Ëµ¥ÏîµÄtag¶ÔÓ¦Êý×éµÄÏ ......