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
Ïà¹ØÎĵµ£º
ÉÏѧÆÚ¼ä»ù±¾É϶¼ÔÚwindowsϱà³Ì£¬¾ÍÊÇѧÁËÒ»µãLINUX£¬Ò²ÊÇһЩ»ù±¾²Ù×÷£¬ÔÚLINUXϱà³Ì¼¸ºõûÓйý£¬Éϰàºó¶¼ÊÇÔÚUNIXϵĿª·¢£¬Í»È»Ö®¼äÓеã¸Ð¾õ×Ô¼ºÎÞ´¦ÏÂÊÖ£¬¸Ð¾õ²»»áÁË£¬×鳤ÈÃÎÒ±àÒ»¸ö³ÌÐò£¬ÎÒÏëÁ˰ëÌìÔÚÍøÉϲéÁ˰ëÌ죬Óеã˼·ÁË£¬ÔÚ±àÒëʱȷʵ´íÎóÁ¬Á¬£¬¸Ð¾õ¶¼ºÜÓÐѹÁ¦£¬µ«ÎÒ»áÂýÂýϰ¹ßµÄ£¬ÎÒÏàÐÅ×Ô¼º¡£
ÎÊÌ⣺
1 ......
http://www.kuqin.com/language/20090314/39862.html
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£ Òª¸ãÇåÒ»¸öÖ¸ÕëÐèÒª¸ãÇåÖ¸ÕëµÄËÄ·½ÃæµÄÄÚÈÝ£ºÖ¸ÕëµÄÀàÐÍ£¬Ö¸ÕëËùÖ¸ÏòµÄ ÀàÐÍ£¬Ö¸ÕëµÄÖµ»òÕß½ÐÖ¸ÕëËùÖ¸ÏòµÄÄÚ´æÇø£¬»¹ÓÐÖ¸Õë±¾ÉíËùÕ¼¾ÝµÄÄÚ´æÇø¡£ÈÃÎÒÃÇ·Ö±ð˵Ã÷¡£
¡¡¡¡ ÏÈÉùÃ÷¼¸¸öÖ¸Õë·Å×Å×öÀý× ......
getcharº¯ÊýÊǶ¨ÒåÔÚ stdio.h ÎļþÖеÄÒ»¸öÊäÈ뺯Êý¡£Ëü´Ó±ê×¼ÊäÈëÉ豸£¨Ò»°ãÊǼüÅÌ£©ÖжÁȡһ¸ö×Ö·û¡£
ÔÚʵ¼Ê¹¤×÷ÖУ¬ËüÊÇÕâÑùÍê³ÉµÄ£º
¼üÅÌÊäÈëµ½¼ÆËã»úÖеÄ×Ö·û²¢²»ÊÇÁ¢¿ÌË͵½ÄÚ´æÖÐÖ¸¶¨Î»Ö㬶øÊÇ»áÊ×ÏÈ»º´æµ½Ò»¸ö»º³åÇøÖС£Õâ¸öÊǼÆËã»úΪÁËÃÖ²¹²»Í¬Ó²¼þÖ®¼äËٶȲî¾à£¬¶ø¹ßÓõļ¿Á©¡£
µ±ÔÚ³ÌÐòÖеÚÒ»´Îµ÷Óà getchar ......
ͬ²½³ÌÐò°¸Àý
procedure TGetOrderThread.PostDB(webnr:WideString);
var
Err: String;
SetWebnr:WideString;
xmlDoc: IXMLDocument;
root: IXMLNode;
rowc: IXMLNode;//¼Ç¼Êý
rows: IXMLNodeList;//Ö÷¼Ç¼Áбí
row: IXMLNode;
drows: IXMLNodeList;// ......