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
Ïà¹ØÎĵµ£º
µÚÒ»Õ µ¼ÑÔ
1£¬¶¨Òå(define)ÓëÉùÃ÷(declaration)
¶¨Òå±íʾ´´½¨±äÁ¿»ò·ÖÅä´æ´¢µ¥Ôª£»¶øÉùÃ÷Ö¸µÄÊÇ˵Ã÷±äÁ¿µÄÐÔÖÊ£¬µ«²»·ÖÅä´æ´¢µ¥Ôª¡£
µÚ¶þÕ ÀàÐÍ¡¢ÔËËã·ûºÍ±í´ïʽ
1£¬Êý¾ÝÀàÐͼ°³¤¶È
CÖÐÖ»ÓÐ4ÖÖ»ù±¾Êý¾ÝÀàÐÍ£ºchar ,int ,float ......
CÓïÑÔÎļþ²Ù×÷½Ó´¥ºÜ¾ÃÁË£¬Ò»Ö±Ã»ÓÐ×ܽáÏà¹ØÄÚÈÝ£¬½ñÌìÓõ½Á˾ÍÈ¥ÕÒÁËÕÒÏà¹ØÄÚÈÝ¡£
ÔÚANSI CÖУ¬¶ÔÎļþµÄ²Ù×÷·ÖΪÁ½ÖÖ·½Ê½£¬¼´Á÷ʽÎļþ²Ù×÷ºÍI/OÎļþ²Ù×÷
typedef struct {
int level; /* fill/empty level of buffer */
unsigned flags; /* File status flags */
char fd; /* File descriptor */
unsigned char hold ......
CÓïÑÔÖÐÐí¶à·ûºÅÊDZ»“ÖØÔØ”µÄ£¬ÓÐЩ¹Ø¼ü×ÖÒ²±»ÖØÔضø¾ßÓкü¸ÖÖÒâÒ壬ֵµÃ×¢ÒâµÄ¼¸¸ö·ûºÅÈçÏ£º
·ûºÅ ÒâÒå
static ÔÚº¯ÊýÄÚ²¿£¬±íʾ¸Ã±äÁ¿µÄÖµÔÚ¸÷¸öµ÷ÓüäÒ»Ö±±£³ÖÑÓÐøÐÔ
ÔÚº¯ÊýÕâÒ»¼¶£¬±íʾ¸Ãº¯ÊýÖ»¶Ô±¾Îļþ¿É¼û
extern ÓÃÓÚ ......
ÔÚÕâ¸öÀý×ÓÀ»Øµ÷º¯Êý±È½ÏÁ½¸öÖµ¡£²éÕÒº¯ÊýÏò±È½Ïº¯Êý´«µÝÁ½¸öÖ¸ÏòÐèÒª½øÐбȽϵÄÖµµÄÖ¸Õ룬²¢¼ì²é±È½Ïº¯ÊýµÄ·µ»ØÖµ¡£ÀýÈ磺Áã±íʾÏàµÈµÄÖµ£¬ÏÖÔÚ²éÕÒº¯
Êý¾ÍÓëÀàÐÍÎ޹أ¬ÒòΪËü±¾Éí²¢²»Ö´ÐÐʵ¼ÊµÄ±È½Ï¡£È·Êµ£¬µ÷ÓÃÕß±ØÐë±àд±ØÐèµÄ±È½Ïº¯Êý£¬µ«ÕâÑù×öÊǺÜÈÝÒ׵ģ¬ÒòΪµ÷ÓÃÕßÖªµÀÁ´±íÖÐËù°üº¬µÄÖµµÄÀàÐÍ ......
Ò»¡¢ ÍøÂç²¼¾Ö
һ̨ÖÐÐÄSQL·þÎñÆ÷£¨¼ò³Æ£ºÖÐÐÄ·þÎñÆ÷£©£¬¶ą̀·Ö²¼ÔÚ²»Í¬µØÓòµÄSQL·þÎñÆ÷£¨¼ò³Æ£º±¾µØ·þÎñÆ÷£©£¬¸÷¸ö±¾µØ·þÎñÆ÷ºÍÖÐÐÄ·þÎñÆ÷¶¼ÄÜͨ¹ýinternetʵÏÖÍøÂ绥Á¬¡£
¶þ¡¢ËùÓÃÓïÑÔ¼°Êý¾Ý¿â£ºDelphi +Sql
¶þ¡¢ ͨÐÅÒªÇó
ÿ̨±¾µØ·þÎñÆ ......