010.htm

Delphi书籍--Delphi网上教程

{&nbsp;FTP&nbsp;example&nbsp;using&nbsp;WININET.PAS&nbsp;rather&nbsp;than&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;an&nbsp;ACTIVEX&nbsp;control.&nbsp;Requires&nbsp;WININET.PAS&nbsp;and&nbsp;&nbsp;<br>
&nbsp;&nbsp;WININET.DLL.&nbsp;WININET.DLL&nbsp;you&nbsp;can&nbsp;get&nbsp;from&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;Microsoft,&nbsp;WININET.PAS&nbsp;is&nbsp;available&nbsp;from&nbsp;&nbsp;<br>
&nbsp;&nbsp;www.borland.com,&nbsp;or&nbsp;with&nbsp;some&nbsp;versions&nbsp;of&nbsp;&nbsp;<br>
&nbsp;&nbsp;Delphi&nbsp;2.0.&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;You&nbsp;might&nbsp;Respond&nbsp;to&nbsp;OnNewDir&nbsp;events&nbsp;as&nbsp;follows:&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
&nbsp;&nbsp;procedure&nbsp;TForm1.FTP1NewDir(Sender:&nbsp;TObject);&nbsp;&nbsp;<br>
&nbsp;&nbsp;begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;ListBox1.Items&nbsp;:=&nbsp;MyFtp1.FindFiles;&nbsp;//&nbsp;Get&nbsp;the&nbsp;directory&nbsp;list&nbsp;&nbsp;<br>
&nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
}&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
interface&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
uses&nbsp;&nbsp;<br>
&nbsp;&nbsp;Windows,&nbsp;Classes,&nbsp;WinINet,&nbsp;&nbsp;<br>
&nbsp;&nbsp;SysUtils;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;<br>
type&nbsp;&nbsp;<br>
&nbsp;&nbsp;TMyFtp&nbsp;=&nbsp;class(TComponent)&nbsp;&nbsp;<br>
&nbsp;&nbsp;private&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FContext:&nbsp;Integer;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FINet:&nbsp;HInternet;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FFtpHandle:&nbsp;HInternet;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FCurFiles:&nbsp;TStringList;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FServer:&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FOnNewDir:&nbsp;TNotifyEvent;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FCurDir:&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FUserID:&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;FPassword:&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;GetCurrentDirectory:&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;SetUpNewDir;&nbsp;&nbsp;<br>
&nbsp;&nbsp;protected&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;destructor&nbsp;Destroy;&nbsp;override;&nbsp;&nbsp;<br>
&nbsp;&nbsp;public&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;constructor&nbsp;Create(AOwner:&nbsp;TComponent);&nbsp;override;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;Connect:&nbsp;Boolean;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;FindFiles:&nbsp;TStringList;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;ChangeDirExact(S:&nbsp;string):&nbsp;Boolean;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;ChangeDirCustom(S:&nbsp;string):&nbsp;Boolean;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;BackOneDir:&nbsp;Boolean;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;GetFile(FTPFile,&nbsp;NewFile:&nbsp;string):&nbsp;Boolean;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;SendFile1(FTPFile,&nbsp;NewFile:&nbsp;string):&nbsp;Boolean;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;SendFile2(FTPFile,&nbsp;NewFile:&nbsp;string):&nbsp;Boolean;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;CustomToFileName(S:&nbsp;string):&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;published&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;CurFiles:&nbsp;TStringList&nbsp;read&nbsp;FCurFiles;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;CurDir:&nbsp;string&nbsp;read&nbsp;FCurDir;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;UserID:&nbsp;string&nbsp;read&nbsp;FUserID&nbsp;write&nbsp;FUserID;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;Password:&nbsp;string&nbsp;read&nbsp;FPassword&nbsp;write&nbsp;FPassword;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;Server:&nbsp;string&nbsp;read&nbsp;FServer&nbsp;write&nbsp;FServer;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;OnNewDir:&nbsp;TNotifyEvent&nbsp;read&nbsp;FOnNewDir&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;write&nbsp;FOnNewDir;&nbsp;&nbsp;<br>
&nbsp;&nbsp;end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
procedure&nbsp;Register;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
implementation&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
uses&nbsp;&nbsp;<br>
&nbsp;&nbsp;Dialogs;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
//&nbsp;A&nbsp;few&nbsp;utility&nbsp;functions&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
function&nbsp;GetFirstToken(S:&nbsp;string;&nbsp;Token:&nbsp;Char):&nbsp;string;&nbsp;&nbsp;<br>
var&nbsp;&nbsp;<br>
&nbsp;&nbsp;Temp:&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;Index:&nbsp;INteger;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;Index&nbsp;:=&nbsp;Pos(Token,&nbsp;S);&nbsp;&nbsp;<br>
&nbsp;&nbsp;if&nbsp;Index&nbsp;&lt;&nbsp;1&nbsp;then&nbsp;begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;GetFirstToken&nbsp;:=&nbsp;'';&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Exit;&nbsp;&nbsp;<br>
&nbsp;&nbsp;end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;Dec(Index);&nbsp;&nbsp;<br>
&nbsp;&nbsp;SetLength(Temp,&nbsp;Index);&nbsp;&nbsp;<br>
&nbsp;&nbsp;Move(S[1],&nbsp;Temp[1],&nbsp;Index);&nbsp;&nbsp;<br>
&nbsp;&nbsp;GetFirstToken&nbsp;:=&nbsp;Temp;&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
function&nbsp;StripFirstToken(S:&nbsp;string;&nbsp;Ch:&nbsp;Char):&nbsp;string;&nbsp;&nbsp;<br>
var&nbsp;&nbsp;<br>
&nbsp;&nbsp;i,&nbsp;Size:&nbsp;Integer;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;i&nbsp;:=&nbsp;Pos(Ch,&nbsp;S);&nbsp;&nbsp;<br>
&nbsp;&nbsp;if&nbsp;i&nbsp;=&nbsp;0&nbsp;then&nbsp;begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;StripFirstToken&nbsp;:=&nbsp;S;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Exit;&nbsp;&nbsp;<br>
&nbsp;&nbsp;end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;Size&nbsp;:=&nbsp;(Length(S)&nbsp;-&nbsp;i);&nbsp;&nbsp;<br>
&nbsp;&nbsp;Move(S[i&nbsp;+&nbsp;1],&nbsp;S[1],&nbsp;Size);&nbsp;&nbsp;<br>
&nbsp;&nbsp;SetLength(S,&nbsp;Size);&nbsp;&nbsp;<br>
&nbsp;&nbsp;StripFirstToken&nbsp;:=&nbsp;S;&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
function&nbsp;ReverseStr(S:&nbsp;string):&nbsp;string;&nbsp;&nbsp;<br>
var&nbsp;&nbsp;<br>
&nbsp;&nbsp;Len:&nbsp;Integer;&nbsp;&nbsp;<br>
&nbsp;&nbsp;Temp:&nbsp;String;&nbsp;&nbsp;<br>
&nbsp;&nbsp;i,j:&nbsp;Integer;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;Len&nbsp;:=&nbsp;Length(S);&nbsp;&nbsp;<br>
&nbsp;&nbsp;SetLength(Temp,&nbsp;Len);&nbsp;&nbsp;<br>
&nbsp;&nbsp;j&nbsp;:=&nbsp;Len;&nbsp;&nbsp;<br>
&nbsp;&nbsp;for&nbsp;i&nbsp;:=&nbsp;1&nbsp;to&nbsp;Len&nbsp;do&nbsp;begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Temp[i]&nbsp;:=&nbsp;S[j];&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;dec(j);&nbsp;&nbsp;<br>
&nbsp;&nbsp;end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;ReverseStr&nbsp;:=&nbsp;Temp;&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
function&nbsp;StripLastToken(S:&nbsp;string;&nbsp;Token:&nbsp;Char):&nbsp;string;&nbsp;&nbsp;<br>
var&nbsp;&nbsp;<br>
&nbsp;&nbsp;Temp:&nbsp;string;&nbsp;&nbsp;<br>
&nbsp;&nbsp;Index:&nbsp;INteger;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;SetLength(Temp,&nbsp;Length(S));&nbsp;&nbsp;<br>
&nbsp;&nbsp;S&nbsp;:=&nbsp;ReverseStr(S);&nbsp;&nbsp;<br>
&nbsp;&nbsp;Index&nbsp;:=&nbsp;Pos(Token,&nbsp;S);&nbsp;&nbsp;<br>
&nbsp;&nbsp;Inc(Index);&nbsp;&nbsp;<br>
&nbsp;&nbsp;Move(S[Index],&nbsp;Temp[1],&nbsp;Length(S)&nbsp;-&nbsp;(Index&nbsp;-&nbsp;1));&nbsp;&nbsp;<br>
&nbsp;&nbsp;SetLength(Temp,&nbsp;Length(S)&nbsp;-&nbsp;(Index&nbsp;-&nbsp;1));&nbsp;&nbsp;<br>
&nbsp;&nbsp;StripLastToken&nbsp;:=&nbsp;ReverseStr(Temp);&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
procedure&nbsp;Register;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;RegisterComponents('Unleash',&nbsp;[TMyFtp]);&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
constructor&nbsp;TMyFtp.Create(AOwner:&nbsp;TComponent);&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;inherited&nbsp;Create(AOwner);&nbsp;&nbsp;<br>
&nbsp;&nbsp;FCurFiles&nbsp;:=&nbsp;TStringList.Create;&nbsp;&nbsp;<br>
&nbsp;&nbsp;FINet&nbsp;:=&nbsp;InternetOpen('WinINet1',&nbsp;0,&nbsp;nil,&nbsp;0,&nbsp;0);&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
destructor&nbsp;TMyFtp.Destroy;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;if&nbsp;FINet&nbsp;&lt;&gt;&nbsp;nil&nbsp;then&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;InternetCloseHandle(FINet);&nbsp;&nbsp;<br>
&nbsp;&nbsp;if&nbsp;FFtpHandle&nbsp;&lt;&gt;&nbsp;nil&nbsp;then&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;InternetCloseHandle(FFtpHandle);&nbsp;&nbsp;<br>
&nbsp;&nbsp;inherited&nbsp;Destroy;&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
function&nbsp;TMyFtp.Connect:&nbsp;Boolean;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;FContext&nbsp;:=&nbsp;255;&nbsp;&nbsp;<br>
&nbsp;&nbsp;FftpHandle&nbsp;:=&nbsp;InternetConnect(FINet,&nbsp;PChar(FServer),&nbsp;0,&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;PChar(FUserID),&nbsp;PChar(FPassWord),&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;Internet_Service_Ftp,&nbsp;0,&nbsp;FContext);&nbsp;&nbsp;<br>
&nbsp;&nbsp;if&nbsp;FFtpHandle&nbsp;=&nbsp;nil&nbsp;then&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;False&nbsp;&nbsp;<br>
&nbsp;&nbsp;else&nbsp;begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;SetUpNewDir;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;True;&nbsp;&nbsp;<br>
&nbsp;&nbsp;end;&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
function&nbsp;TMyFtp.GetCurrentDirectory:&nbsp;string;&nbsp;&nbsp;<br>
var&nbsp;&nbsp;<br>
&nbsp;&nbsp;Len:&nbsp;Integer;&nbsp;&nbsp;<br>
&nbsp;&nbsp;S:&nbsp;string;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>
&nbsp;&nbsp;Len&nbsp;:=&nbsp;0;&nbsp;&nbsp;<br>
&nbsp;&nbsp;ftpGetCurrentDirectory(FFTPHandle,&nbsp;PChar(S),&nbsp;Len);&nbsp;&nbsp;<br>
&nbsp;&nbsp;SetLength(S,&nbsp;Len);&nbsp;&nbsp;<br>
&nbsp;&nbsp;ftpGetCurrentDirectory(FFTPHandle,&nbsp;PChar(S),&nbsp;Len);&nbsp;&nbsp;<br>
&nbsp;&nbsp;Result&nbsp;:=&nbsp;S;&nbsp;&nbsp;<br>
end;&nbsp;&nbsp;<br>
&nbsp;&nbsp;<br>
procedure&nbsp;TMyFtp.SetUpNewDir;&nbsp;&nbsp;<br>
begin&nbsp;&nbsp;<br>