📄 010.htm
字号:
这个指针扮演一个您正在使用的不同的因特网服务的句柄的角色。获得了这个句柄之 后，你应当把它作为第一个参数传递给在这个进程周期[注：指FTP的整个存在时间（译者 ）]中调用的其他WININET函数。 <br>
<br>
您要记住的适当您在使用它的时间内要把句柄返回给系统，通常是通过调用 WININET 函数InternetCloseHandle 来实现： <br>
<br>
<br>
function InternetCloseHandle(hInet: HINTERNET): BOOL; stdcall; <br>
<br>
为了让一个WININET进程开始，您调用 InternetOpen : <br>
<br>
function InternetOpen(lpszCallerName: PChar; dwAccessType: DWORD; <br>
lpszServerName: PChar; nServerPort: INTERNET_PORT; <br>
dwFlags: DWORD): HINTERNET; stdcall; <br>
<br>
<br>
第一个参数时打开这个进程的应用程序的名字。您可以在这个参数中传递任何您所要 的任意符串。微软公司的文献声称"这个名字作为HTTP协议中的用户代理器的名字而被使 用"。这个保留的参数可以设为0或空。 <br>
<br>
<br>
var <br>
MyHandle: HINTERNET; <br>
… <br>
begin <br>
MyHandle := InternetOpen('MyApp', 0, nil, 0, 0); <br>
end; <br>
<br>
如果您想要关于这个函数的更多信息，从 www.microsoft.com 那里下载 WININET.HLP 。 <br>
<br>
打开了这这个进程之后，下一步是通过 InternetConnect 函数来连接到服务器上。 <br>
<br>
<br>
function InternetConnect( <br>
hInet: HINTERNET; // Handle from InternetOpen <br>
lpszServerName: PChar; // Server: i.e., www.borland.com <br>
nServerPort: INTERNET_PORT; // Usually 0 <br>
lpszUsername: PChar; // usually anonymous <br>
lpszPassword: PChar; // usually your email address <br>
dwService: DWORD; // FTP, HTTP, or Gopher? <br>
dwFlags: DWORD; // Usually 0 <br>
dwContext: DWORD): // User defined number for callback <br>
HINTERNET; stdcall; <br>
<br>
这里有三个可能的可以通过 dwService 参数传递的自说明旗标，它们是互斥的： <br>
<br>
<br>
INTERNET_SERVICE_FTP <br>
INTERNET_SERVICE_GOPHER <br>
INTERNET_SERVICE_HTTP <br>
<br>
下面是 dwFlags 参数的选择： <br>
<br>
<br>
INTERNET_CONNECT_FLAG_PASSIVE <br>
<br>
这个选项仅当您在前一个参数中传递了 INTERNET_SERVER_FTP 才有效。这时候这个 参数没有其他有效的选项。 <br>
<br>
<br>
如果这个进程成功的话会返回一个有效的指针，否则它返回空。 <br>
<br>
<br>
连接上之后 <br>
<br>
当您连接上之后，您可以调用来 GetCurrentDirectory 获得当前的路径的名字： <br>
<br>
<br>
function TMyFtp.GetCurrentDirectory: string; <br>
var <br>
Len: Integer; <br>
S: string; <br>
begin <br>
Len := 0; <br>
ftpGetCurrentDirectory(FFTPHandle, PChar(S), Len); <br>
SetLength(S, Len); <br>
ftpGetCurrentDirectory(FFTPHandle, PChar(S), Len); <br>
Result := S; <br>
end; <br>
<br>
这个函数声明如下： <br>
<br>
<br>
function FtpGetCurrentDirectory( <br>
hFtpSession: HINTERNET; // handle from InternetConnect <br>
lpszCurrentDirectory: PChar; // directory returned here <br>
var lpdwCurrentDirectory: DWORD): // buf size of 2nd parameter <br>
BOOL; stdcall; // True on success <br>
<br>
如果您把最后一个参数设为0，那么WININET会使用这个参数来返回路径字符串的长度 。接着您可以为您的字符串分配内存，也可以在调用一次这个函数来获得路径的名字。这 个过程在上面的方法中已经演示过了。（注意到*设定长度*的那个调用，Delphi 要求您在类似这样的情况下为新的长字符串分配内存！这是因为这个字符串必须在操作系 统中指定值，而不是在 Delphi 应用程序中指定。结果就是Delphi 不能在类似的情况下 像它通常那样悄悄地为字符串分配内存） <br>
下面是返回在特定路径下当前可用的文件的一系列函数： <br>
<br>
<br>
function GetFindDataStr(FindData: TWin32FindData): string; <br>
var <br>
S: string; <br>
Temp: string; <br>
begin <br>
case FindData.dwFileAttributes of <br>
FILE_ATTRIBUTE_ARCHIVE: S := 'A'; <br>
// FILE_ATTRIBUTE_COMPRESSED: S := 'C'; <br>
FILE_ATTRIBUTE_DIRECTORY: S := 'D'; <br>
FILE_ATTRIBUTE_HIDDEN: S := 'H'; <br>
FILE_ATTRIBUTE_NORMAL: S := 'N'; <br>
FILE_ATTRIBUTE_READONLY: S := 'R'; <br>
FILE_ATTRIBUTE_SYSTEM: S := 'S'; <br>
FILE_ATTRIBUTE_TEMPORARY: S := 'T'; <br>
else <br>
S := IntToStr(FindData.dwFileAttributes); <br>
end; <br>
S := S + GetDots(75); <br>
Move(FindData.CFilename[0], S[6], StrLen(FindData.CFileName)); <br>
Temp := IntToStr(FindData.nFileSizeLow); <br>
Move(Temp[1], S[25], Length(Temp)); <br>
Result := S; <br>
end; <br>
<br>
function TMyFtp.FindFiles: TStringList; <br>
var <br>
FindData: TWin32FindData; <br>
FindHandle: HInternet; <br>
begin <br>
FindHandle := FtpFindFirstFile(FFtphandle, '*.*', <br>
FindData, 0, 0); <br>
if FindHandle = nil then begin <br>
Result := nil; <br>
Exit; <br>
end; <br>
FCurFiles.Clear; <br>
FCurFiles.Add(GetFindDataStr(FindData)); <br>
while InternetFindnextFile(FindHandle, @FindData) do <br>
FCurFiles.Add(GetFindDataStr(FindData)); <br>
InternetCloseHandle(Findhandle); <br>
GetCurrentDirectory; <br>
Result := FCurFiles; <br>
end; <br>
<br>
这里需要注意的关键函数是 ftpFindFirstFile, InternetFindNextFile & InternetCloseHandle 。您可以像调用 Delphi 函数 FindFirst、FindNext & FinClose 一样调用这些函数。特别的是，您使用函数ftpFindFirstFile 来取得这个路径下的第一 个函数。您可以不断地调用 InternetFindNextFile ，直到函数返回"False"为止。当这个进程结束时，调用 InternetCloseHandle 来通知操作系统回收与这个进程相关的内存。 <br>
<br>
I'm not going to explain this process further in this newsletter. <br>
If you want more information, you might look up FindFirst <br>
in the Delphi help. One final note: Unlike the functions <br>
mentioned in the previous paragraph,TWin32FindData is<br>
not defined in WININET.PAS, but instead can be found<br>
in the WIN32 help file that ships with Delphi. It is declared<br>
in the WINDOWS.PAS file that ships with Delphi. <br>
<br>
我不准备在这里进一步解析这个进程。如果您想要更多的信息，您可以在 Delphi 帮助中查找 FindFirst 。最后提醒一句：并不向前文提及的函数，TWin32FindData 并不 是在 WININET.PAS 中定义的， 但可以在随 Delphi 分发的 WIN32 帮助文件中找到它。 它在随 Delphi 分发的 WINDOWS.PAS 文件中被定义。 <br>
<br>
接受一个文件 <br>
<br>
您可以使用 WININET.PAS 文件中的 ftpGetFile 函数来从FTP取回一个文件: <br>
<br>
function FtpGetFile( <br>
hFtpSession: HINTERNET; // Returned by InternetConnect <br>
lpszRemoteFile: PChar; // File to get <br>
lpszNewFile: PChar; // Where to put it on your PC <br>
fFailIfExists: BOOL; // Overwrite existing files? <br>
dwFlagsAndAttributes: DWORD; // File attribute-See CreateFile. <br>
dwFlags: DWORD; // Binary or ASCII transfer <br>
dwContext: DWORD): // Usually zero <br>
BOOL stdcall; // True on success <br>
<br>
下面是一个如何使用该函数的例子： <br>
<br>
<br>
function TMyFtp.GetFile(FTPFile, NewFile: string): Boolean; <br>
begin <br>
Result := FtpGetFile(FFTPHandle, PChar(FTPFile), PChar(NewFile), <br>
False, File_Attribute_Normal, <br>
Ftp_Transfer_Type_Binary, 0); <br>
end; <br>
<br>
如果要知道 dwFlagsAndAttributes 参数中的变量是怎样传递的，请查阅随 Delphi 附送的 WIN32 帮助文件。 <br>
<br>
<br>
典型控制 <br>
<br>
下面的 Delphi 控制给了你一个通过 WININET FTP 部分建立可视工具的起点。只是因 为，这个控制可以让您是用 Object Inspector 来定义远程服务器(RemoteServer)、用户 身份(UserID)和密码(Password)。 <br>
<br>
<br>
unit Ftp1; <br>
<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -