ftp连接时用internetconnect()如何设置超时,连接非ftp站点速度非常慢

来源：百度文库 编辑：神马文学网 时间：2024/04/28 18:56:20
谁给把这段代码翻译成delphi先,我底子差
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#include 
#include 
DWORD WINAPI WorkerFunction( LPVOID );
HINTERNET g_hOpen, g_hConnect;
typedef struct
{
CHAR* pHost;
CHAR* pUser;
CHAR* pPass;
} PARM;
void main()
{
CHAR    szHost[] = "localhost";
CHAR    szUser[] = "JoeB";
CHAR    szPass[] = "test";
CHAR    szLocalFile[] = "localfile";
CHAR    szRemoteFile[] = "remotefile";
DWORD   dwExitCode;
DWORD   dwTimeout;
PARM    threadParm;
g_hOpen = 0;
if ( !( g_hOpen = InternetOpen ( "FTP sample",
LOCAL_INTERNET_ACCESS,
NULL,
0,
0 ) ) )
{
cerr << "Error on InternetOpen: " << GetLastError() << endl;
return ;
}
// Create a worker thread
HANDLE   hThread;
DWORD    dwThreadID;
threadParm.pHost = szHost;
threadParm.pUser = szUser;
threadParm.pPass = szPass;
hThread = CreateThread(
NULL,            // Pointer to thread security attributes
0,               // Initial thread stack size, in bytes
WorkerFunction,  // Pointer to thread function
&threadParm,     // The argument for the new thread
0,               // Creation flags
&dwThreadID      // Pointer to returned thread identifier
);
// Wait for the call to InternetConnect in worker function to complete
dwTimeout = 5000; // in milliseconds
if ( WaitForSingleObject ( hThread, dwTimeout ) == WAIT_TIMEOUT )
{
cout << "Can not connect to server in "
<< dwTimeout << " milliseconds" << endl;
if ( g_hOpen )
InternetCloseHandle ( g_hOpen );
// Wait until the worker thread exits
WaitForSingleObject ( hThread, INFINITE );
cout << "Thread has exited" << endl;
return ;
}
// The state of the specified object (thread) is signaled
dwExitCode = 0;
if ( !GetExitCodeThread( hThread, &dwExitCode ) )
{
cerr << "Error on GetExitCodeThread: " << GetLastError() << endl;
return ;
}
CloseHandle (hThread);
if ( dwExitCode )
// Worker function failed
return ;
if ( !FtpGetFile ( g_hConnect,
szRemoteFile,
szLocalFile,
FALSE,INTERNET_FLAG_RELOAD,
FTP_TRANSFER_TYPE_ASCII,
0 ) )
{
cerr << "Error on FtpGetFile: " << GetLastError() << endl;
return ;
}
if ( g_hConnect )
InternetCloseHandle( g_hConnect );
if ( g_hOpen )
InternetCloseHandle( g_hOpen );
return ;
}
/////////////////// WorkerFunction //////////////////////
DWORD WINAPI
WorkerFunction(
IN LPVOID vThreadParm
)
/*
Purpose:
Call InternetConnect to establish a FTP session
Arguments:
vThreadParm - points to PARM passed to thread
Returns:
returns 0
*/
{
PARM* pThreadParm;
// Initialize local pointer to void pointer passed to thread
pThreadParm = (PARM*)vThreadParm;
g_hConnect = 0;
if ( !( g_hConnect = InternetConnect (
g_hOpen,
pThreadParm->pHost,
INTERNET_INVALID_PORT_NUMBER,
pThreadParm->pUser,
pThreadParm->pPass,
INTERNET_SERVICE_FTP,
0,
0 ) ) )
{
cerr << "Error on InternetConnnect: " << GetLastError() << endl;
return 1; // failure
}
return 0;  // success
}
ftp连接时用internetconnect()如何设置超时,连接非ftp站点速度非常慢 从 ftp连接时227 Entering Passive Mode 到 FTP协议工作方式... 大学FTP站点 FTP FTP ftp Linux下用vsftp建立个人ftp站点(二) 引用 如何设置FTP - 成靖的日志 - 网易博客 如何设置开机时宽带自动连接(适用WindowsXP)? 如何设置开机时宽带自动连接(适用WindowsXP)? linux下设置connect连接超时的另一种方法_效果… 如何设置宽带自动连接网络1 如何设置宽带自动连接网络1 如何设置宽带自动连接网络a 如何设置宽带自动连接网络1 如何设置宽带自动连接网络a MySQL8小时连接超时断开问题 解决宽带连接连接慢的问题 如何使用FTP管理文件 FTP服务器如何实现安全性 互联网技术：连接速度和连接率 如何自动宽带连接 慢怎么解决 维修 Apache连接数设置 Proxool连接池设置