Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

C£«£«ÈçºÎµ÷ÓÃdelphiÖÆ×÷µÄdll


Ò»¡¢¸ÅÊö¼°Ê¾Àý´úÂë
DelphiÖаüÀ¨Ðí¶àÒѾ­·â×°ºÃµÄÀ༰¿Ø¼þ£¬ÆäÖеķǿÉÊÓ»¯¿Ø¼þ¿âÒÔ¹¦ÄÜ·½Ê½»®·Ö¿É´¦ÀíÖî¶àÓ¦ÓÃÐèÇó¡£ÈôʹÓÃC£«£«ÊµÏÖϵͳʱ¶ÔijЩ¹¦Äܼòµ¥µ÷ÓÃdelphiÖÐÏֳɵĿâʱ¼´¿É¡£Òò´Ë½«delphiÖеĿâÒÔDLLÐÎʽ·â×°ºÃÖ®ºóÈçºÎ½«·½·¨µ¼³ö¿É¹©C£«£«µ÷ÓÃÊDZ¾ÎļǼµÄÖØµã¡£C£«£«µ÷Óõķ½Ê½ÓжàÖÖ£¬ÔÚÕâÀïÖ»ÌÖÂÛÒ»ÖÖ¾²Ì¬±àÒ뷽ʽ£¬Ò»ÊÇΪÁË´úÂëµÄ¹æ·¶¿É¶ÁÐÔ£¬¶þÊÇ·ÀÖ¹½Ó¿Ú±ä»¯´øÀ´µÄά»¤ÎÊÌâ¡£
Delphi¶ÔÍâ½Ó¿Úµ¥Ôª£º
library ftpUpload;
uses
  SysUtils,
  Classes,
dialogs,
  FileUpLuo in
'FileUpLuo.pas';
 
var
  mTask :
TFtpUpFileLuo;
  taskParam :
SUpTask;
{$R *.res}
 
function SendFile_luo(szSrcFile: pchar; szDesFile:
pchar;
                     
szFtpServer: pchar; strUsername: pchar;
                      strPassword: pchar): Integer;
export; stdcall;
begin
    mTask :=
TFtpUpFileLuo.Create(true);
   
    with
taskParam do
      begin
        szSrc :=
szSrcFile;
        szDes :=
szDesFile;
        szServer
:= szFtpServer;
       
szUsername := strUsername;
       
szPassword := strPassword;
      end;
 
    result :=
mTask.TransFile(taskParam);
   
mTask.Resume;
end;
 
function GetUpPercent(nCmd: Integer) : Integer;
export; stdcall;
begin
 
mTask.SetCommand(nCmd);
  result :=
mTask.GetUpStatus;
end;
 
exports
SendFile_luo index 1,
GetUpPercent index 2;
 
begin
 
end.
 
¶þ¡¢±àÒë¼°Éú³ÉLIBÎļþ
1£©µ÷ÊÔ¡¢±àÒëÉú³ÉftpUpload.dllÎļþ£»
2£©Impdef.exe ftpUpload


Ïà¹ØÎĵµ£º

UNIXÏÂC±à³ÌÎÊÌâ

ÉÏѧÆÚ¼ä»ù±¾É϶¼ÔÚwindowsϱà³Ì£¬¾ÍÊÇѧÁËÒ»µãLINUX£¬Ò²ÊÇһЩ»ù±¾²Ù×÷£¬ÔÚLINUXϱà³Ì¼¸ºõûÓйý£¬Éϰàºó¶¼ÊÇÔÚUNIXϵĿª·¢£¬Í»È»Ö®¼äÓеã¸Ð¾õ×Ô¼ºÎÞ´¦ÏÂÊÖ£¬¸Ð¾õ²»»áÁË£¬×鳤ÈÃÎÒ±àÒ»¸ö³ÌÐò£¬ÎÒÏëÁ˰ëÌìÔÚÍøÉϲéÁ˰ëÌ죬Óеã˼·ÁË£¬ÔÚ±àÒëʱȷʵ´íÎóÁ¬Á¬£¬¸Ð¾õ¶¼ºÜÓÐѹÁ¦£¬µ«ÎÒ»áÂýÂýϰ¹ßµÄ£¬ÎÒÏàÐÅ×Ô¼º¡£
ÎÊÌ⣺
1 ......

¡¶Cר¼Ò±à³Ì¡·2.3CÓïÑÔÖеķûºÅÖØÔØ

CÓïÑÔÖÐÐí¶à·ûºÅÊDZ»“ÖØÔØ”µÄ£¬ÓÐЩ¹Ø¼ü×ÖÒ²±»ÖØÔضø¾ßÓкü¸ÖÖÒâÒ壬ֵµÃ×¢ÒâµÄ¼¸¸ö·ûºÅÈçÏ£º
·ûºÅ      ÒâÒå
static   ÔÚº¯ÊýÄÚ²¿£¬±íʾ¸Ã±äÁ¿µÄÖµÔÚ¸÷¸öµ÷ÓüäÒ»Ö±±£³ÖÑÓÐøÐÔ
            ÔÚº¯ÊýÕâÒ»¼¶£¬±íʾ¸Ãº¯ÊýÖ»¶Ô±¾Îļþ¿É¼û
extern ÓÃÓÚ ......

¡¶CÓïÑÔÉî¶ÈÆÊÎö¡·Ñ§Ï°±Ê¼ÇÈý

1.10.3£¬voidÖ¸Õë
¡¾¹æÔò 1-35¡¿Ç§ÍòСÐÄÓÖСÐÄʹÓÃvoidÖ¸ÕëÀàÐÍ¡£
°´ÕÕ ANSI(American National Standards Institute)±ê×¼£¬²»ÄÜ¶Ô voidÖ¸Õë½øÐÐËã·¨²Ù×÷£¬¼´ÏÂÁвÙ×÷¶¼ÊDz»ºÏ·¨µÄ£º
void * pvoid;
pvoid++; //ANSI£º´íÎó
pvoid += 1; //ANSI£º´íÎó
ANSI ±ê×¼Ö®ËùÒÔÕâÑùÈ϶¨£¬ÊÇÒòΪËü¼á³Ö£º½øÐÐËã·¨²Ù×÷µÄÖ¸Õë±ØÐëÊ ......

DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷

Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖÐ,ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀà,ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£ TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏÂ: 1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£ 2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖᣠTstreamÖж¨ÒåµÄÐé·½·¨ÓÐËĸö: 1¡¢Read:´Ë·½·¨ÊµÏÖ½«Êý¾Ý´ÓÁ÷ÖжÁ³ö¡£º¯ÊýÔ­ÐÎΪ: ......

DelphiÓëXMLÎĵµ

ͬ²½³ÌÐò°¸Àý
procedure TGetOrderThread.PostDB(webnr:WideString);
var
  Err: String;
  SetWebnr:WideString;
  xmlDoc: IXMLDocument;
  root: IXMLNode;
  rowc: IXMLNode;//¼Ç¼Êý
  rows: IXMLNodeList;//Ö÷¼Ç¼Áбí
  row: IXMLNode;
  drows: IXMLNodeList;// ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ