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);¾ÍºÃÁË¡£
Ïà¹ØÎÊ´ð£º
[size=18px]var s,n:integer;
begin
write('ÊäÈë±ä³¤µÄÌõÊýn');
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6; //±¾ÐÐÌæ»»Îªs:=n*(n-1)*(n-2)/ ......
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë
À´´íµØ·½ÁË.
È¥DELPHI
ddd
ÖªµÀ´íÁË
ÓÐû¾ßÌå´úÂë°¡
//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
function alar ......
ÎÒ³¢ÊÔÒ»¸ö idhttp ·ÃÎÊÍøÕ¾Á´½ÓµÄ³ÌÐò
ÔÚÉèÖôúÀí¶Ë¿ÚµÄʱºò³ö´í
±àÒëûÓдíÎó
¾ÍÊÇÔÚÔËÐеÄʱºò ³öÏÖÁË
80 is not a valid integer value µÄÎÊÌâ
ÎÒÒѾ°Ñ º¯Êý·ÖÀà³öÀ´µÄ port ת»»Îª integer ÁË ......
SQL.Add('SELECT formula,val(DMAF) as i from Åä·½Õï¶Ï±í where 1=1 and formula ='''+Combobox3.Text+''' and formula ='''+Combobox4.Text+'''');
Õ ......