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);¾ÍºÃÁË¡£
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ÔÎĵØÖ·£ºhttp://hi.baidu.com/sqldebug/blog/item/8e2749213082c0589922ed61.html
Ö±½ÓÌù¹ýÀ´µÄ£¬ÓеãÂÒ£¬´ó¼Ò´ÕºÏ¿´¡£
Ò»¡¢·þÎñ³ÌÐòºÍ×ÀÃæ³ÌÐòµÄÇø±ð
Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö¡° ......
ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë
À´´íµØ·½ÁË.
È¥DELPHI
ddd
ÖªµÀ´íÁË
ÓÐû¾ßÌå´úÂë°¡
//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
function alar ......
project project3.exe raised exception class ERemotableException with message 'access violation at address 004037B in module'project2.exe'.read of address 00000003'.process stopped.use ......
ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£
¾ßÌåÈçÏ£º
Delphi7 ÖеIJâÊÔÔ´Â룺
//********************************************************* ......