МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ
РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Факультет Кибернетики
Кафедра Интеллектуальных
технологий и систем
Лабораторная работа № 4
Тема: «Создание простого FTP-клиента»
Дисциплина: «Сетевые технологии»
Выполнили: Губин М.О.
Комаров А.И.
Группа: ИИ-11-03
Проверил: Торхова Н.А.
МОСКВА 2007
Создание простого FTP-клиента
В этой главе будет написана программа, которая может считывать файлы из Internet по FTP
протоколу и записывать их на диск.
Для связи с Internet в Visual C++ существует так называемый WinInet Class. В него входят
несколько подклассов.
Далее представлены ксассы WinInet:
Классы
Описание
CInternetSession
Создаёт Internet сессию. Все MFC WinInet приложения должны
создавать CInternetSession объект перед использрванием других WinInet
классов.
CInternetConnection
Создаёт коннект с Internet. Это базовый класс для классов
CFtpConnection, CGopherConnection, и CHttpConnection.
CFtpConnection
Устанавливает соединение по FTP протоколу.
CGopherConnection Создаёт Gopher коннект.
CHttpConnection
Устанавливает соединение по HTTP протоколу.
CInternetFile
Разрешает удалённый доступ к файлам на Internet серверах. Это базовый
класс для классов CGopherFile and CHttpFile.
CGopherFile
Разрешает удалённый доступ к файлам на Gopher серверах.
CHttpFile
Разрешает удалённый доступ к файлам на HTTP серверах.
CFileFind
Разрешает поиск файлов в Internet. Это базовый класс для классов
CFtpFileFind and CGopherFileFind.
CFtpFileFind
Разрешает поиск файлов на FTP серверах.
CGopherFileFind
Разрешает поиск файлов на Gopher серверах.
CGopherLocator
Отыскивает Gopher устройство ввода позиций от gopher сервера.
CInternetException Управляет исключениями, сгенерированными WinInet классом.
Наша программа будет использовать три класса WinInet: CInternetSession, CFtpFileFind и
CFtpConnection
Далее будут описаны методы( функции ) этих классов:
Методы ( функции ) класса CInternetSession
Функции
Описание
Close()
Закрывает Internet сессию.
EnableStatusCallback()
Разрешает использование функции повторного вызова, которая
используется для асинхронных действий.
GetContext()
Получает значение контекста Internet сессии.
GetFtpConnection()
Устанавливает подключение по FTP протоколу.
GetGopherConnection()
Устанавливает подключение с Gopher серверами.
GetHttpConnection()
Устанавливает подключение по HTTP протоклолу.
OnStatusCallback()
Модифицирует состояние операции.
OpenURL()
Соединяется с данным URL.
QueryOption()
Сервис проверки ошибки провайдера.
ServiceTypeFromHandle() Получает тип сервиса от Internet дескриптора.
SetOption()
Устанавливает опции Internet сессии.
Методы ( функции ) класса CFtpConnection
Функции
Описание
BOOL SetCurrentDirectory( LPCTSTR pstrDirName )
Устанавливает
текущую FTP
директорию.
BOOL GetCurrentDirectory( CString& strDirName ) const
Записывает в
strDirName текущую
FTP директорию .
BOOL RemoveDirectory( LPCTSTR pstrDirName )
Удаляет директорию на
сервере.
BOOL CreateDirectory( LPCTSTR pstrDirName )
Создаёт директорию на
сервере.
BOOL Rename( LPCTSTR pstrExisting, LPCTSTR pstrNew )
Переименовывает файл
на сервере.
BOOL Remove( LPCTSTR pstrFileName )
Удаляет файл на
сервере.
BOOL PutFile( LPCTSTR pstrLocalFile, LPCTSTR pstrRemoteFile,
DWORD dwFlags = FTP_TRANSFER_TYPE_BINARY, DWORD
dwContext = 1 )
Кладёт локальный файл
на сервер.
BOOL GetFile( LPCTSTR pstrRemoteFile, LPCTSTR pstrLocalFile,
BOOL bFailIfExists = TRUE, DWORD dwAttributes =
FILE_ATTRIBUTE_NORMAL, DWORD dwFlags =
FTP_TRANSFER_TYPE_BINARY, DWORD dwContext = 1 )
Записывает файл с
сервера на локальный
диск.
CInternetFile* OpenFile( LPCTSTR pstrFileName, DWORD dwAccess
Открывает файл по FTP
= GENERIC_READ, DWORD dwFlags =
протоколу.
FTP_TRANSFER_TYPE_BINARY, DWORD dwContext = 1 )
Закрывает коннект с
FTP сервером.
virtual void Close( )
Функции
Методы ( функции ) класса CFtpFileFind
Описание
virtual BOOL FindFile( LPCTSTR pstrName = NULL,
DWORD dwFlags = INTERNET_FLAG_RELOAD )
Включает функцию поиска файла,
если pstrName = NULL, то ишет все
файлы(*.*) .
virtual BOOL FindNextFile( )
Ишет следующий файл. До вызова
этой функции должна быть вызвана
ф-я FindFile()
CString GetFileURL( ) const
Возвращает URL найденного файла.
CString GetFileName( VOID )
Возвращает имя файла.
unsigned long GetLength( VOID ) const
Возвращает длину файла.
Далее напишем код программы и разберём каждую строчку:
#include "afxinet.h"
#define NUM 1000 // максимальное количество файлов
char *szColumn[2]; // будет две колонки
char *Files[NUM]; // имена файлов
char *Leng[NUM]; // размеры файлов
CString m_curDirectory;
// текущая директория
unsigned long m_fileLengths[NUM]; // размеры файлов
int Sel_files[NUM];
// выделенные файлы
int m_numFiles;
// номер файла
INTERNET_PORT nPort = 21;
// интернет порт
CString temp;
char *temp2;
char temp3[100];
CInternetSession internetSession; // переменная класса CInternetSession
CFtpConnection* ftpConnection; // переменная класса CFtpConnection
BOOLEAN gotFile;
BOOL ConnFlag = FALSE;
LV_ITEM lvi; // переменная для List Control
m_url = _T("");
m_temp = _T("");
m_user = _T("anonymous");
m_pass = _T("");
m_edit = _T("");
m_save = _T("c:\\save_to\\");
// TODO: Add extra initialization here
szColumn[0] = "File names:"; // имя первой колонки
szColumn[1] = "Lenght:";
// имя второй колонки
// далее создаётся List Control с двумя колонками
LV_COLUMN lvc;
lvc.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;
lvc.fmt = LVCFMT_LEFT;
for (int j = 0; j < 2; j++)
{
if( j == 0 ) lvc.cx = 200;
else lvc.cx = 80;
lvc.pszText = szColumn[j];
if ((j == 1)) lvc.fmt = LVCFMT_RIGHT;
lvc.iSubItem = j;
m_ListView.InsertColumn(j, &lvc);
}
// ------------------------------------------------------------------------m_numFiles = 0;
m_url = "ftp://mark5.dhtp.kiae.ru/"; // URL для коннекта
// ------------------------------------------------------------------------void CFTP_ClientDlg::OnButtonConnect()
{
// TODO: Add your control notification handler code here
// вызываем ф-ю MyConnect
BOOL flag = MyConnect( MyGetURL(m_url), MyGetPath(m_url) );
if( flag == FALSE ) return;
MyPrintFiles(); // печатаем список файлов в List Control
}
// -------------------------------------------------------------------------
// функция коннектится к URL : url с текущей директорий : path
BOOL CFTP_ClientDlg::MyConnect(CString url, CString path)
{
if( ConnFlag == TRUE ) MyEndConnect();
try
{
if( (m_user == "anonymous") || (m_user == "") )
ftpConnection = internetSession.GetFtpConnection(url,
NULL, NULL, nPort, FALSE
);
else
ftpConnection = internetSession.GetFtpConnection(url,
m_user, m_pass, nPort,
FALSE );
ftpConnection->SetCurrentDirectory( path );
ConnFlag = TRUE;
m_ListView.SetFocus();
return TRUE;
}
catch (CInternetException* pException)
{
// если была ошибка
pException->ReportError();
return FALSE;
}
}
..
// ------------------------------------------------------------------------Функция возвращает URL сервера, например, если было введено
"ftp://www.site.ru/path/" , то будет возвращено "www.site.ru"
CString CFTP_ClientDlg::MyGetURL(CString url)
{
char *pre = "";
char *first="";
char *ftp = "ftp://";
char sl = '/';
int len;
CString null = "";
len = url.GetLength();
if( len <= 5 )
{
for( int i = 0; i < len; i++ )
{
if( char(url.GetAt(i)) != sl )
pre[i] = (char)url.GetAt( i );
else { pre[i] = 0; return (CString)&pre[0]; }
}
}
for( int i=0; i<6; i++ ) first[i] = (char)url.GetAt( i );
first[6] = 0;
if( (strcmp(first, ftp) == 0) && (len == 6) ) { return null; }
if( strcmp(first, ftp) == 0 )
{
for( i = 6; i < len; i++ )
{
if( char(url.GetAt(i)) != sl )
pre[i-6] = (char)url.GetAt( i );
else { pre[i-6] = 0; i = (len - 1); }
}
return (CString)&pre[0];
}
if( strcmp(first, ftp) == 1 )
{
for( i = 0; i < len; i++ )
{
if( char(url.GetAt(i)) != sl )
pre[i] = (char)url.GetAt( i );
else { pre[i] = 0; i = (len - 1); }
}
return (CString)&pre[0];
}
return null;
}
// -----------------------------------------------------------------------Функция возвращает PATH, например, если было введено
"ftp://www.site.ru/path/" , то будет возвращено "/path/"
CString CFTP_ClientDlg::MyGetPath(CString url)
{
char *pre = "";
char *first="";
char *ftp = "ftp://";
char sl = '/';
CString null = "";
int len, num;
len = url.GetLength();
if( len <= 5 )
{
num = -1; pre = "";
for( int i = 0; i < len; i++ ) if( char(url.GetAt(i)) == sl )
{ num = i; i = len-1; }
if( (char(url.GetAt(num+1)) == 0) || num < 0)
{ return CString("/"); }
for( i = (num); i < len; i++ )
pre[i-num] = (char)url.GetAt( i );
pre[len - num] = 0;
return (CString)&pre[0];
}
for( int i=0; i<6; i++ ) first[i] = (char)url.GetAt( i );
first[6] = 0;
if( (strcmp(first, ftp) == 0) && (len == 6) )
{ MessageBeep(65535); return null; }
if( strcmp(first, ftp) == 0 )
{
num = -1; pre = "";
for( int i = 6; i < len; i++ ) if( char(url.GetAt(i)) == sl )
{ num = i; i = len-1; }
if( (char(url.GetAt(num+1)) == 0) || num < 0)
{ return (CString)"/"; }
for( i = (num); i < len; i++ ) {
pre[i-num] = (char)url.GetAt( i );}
pre[len-num] = 0;
return (CString)&pre[0];
}
if( strcmp(first, ftp) == 1 )
{
num = -1; pre = "";
for( int i = 0; i < len; i++ ) if( char(url.GetAt(i)) == sl )
{ num = i; i = len-1; }
if( (char(url.GetAt(num+1)) == 0) || num < 0)
{ return (CString)"/"; }
for( i = (num); i < len; i++ )
pre[i-num] = (char)url.GetAt( i );
pre[len-num] = 0;
return (CString)&pre[0];
}
return null;
}
// -----------------------------------------------------------------------// вукция выводит список файлов в List Control
void CFTP_ClientDlg::MyPrintFiles()
{
MyEraseList(); // очистка
ftpConnection->GetCurrentDirectory(m_curDirectory);
// в m_curDirectory записываем текущую директорию
CFtpFileFind ftpFileFind(ftpConnection);
// создаём переменную класса CFtpFileFind
ftpFileFind.FindFile(); // ищем все файлы
m_temp = "Current directory = " + m_curDirectory ;
int x = 1;
int len = 0;
CTime tim;
lvi.mask = LVIF_TEXT | LVIF_IMAGE;
lvi.iSubItem = 0;
Files[0] = ".."; Leng[0] = "-";
m_ListView.SetTextColor( RGB(150,0,0 ) );
lvi.iItem = 0;
lvi.pszText = Files[0];
lvi.cchTextMax = 0;
lvi.iImage = 0;
m_ListView.InsertItem(&lvi);
m_ListView.SetItemText(0, 1, Leng[0]);
do
{
temp = "";
temp2 = "";
len=0;
gotFile = ftpFileFind.FindNextFile();
// ищем следующие файлы
temp = (CString)ftpFileFind.GetFileName();
// в temp заносится имя файла
len = temp.GetLength();
// в len заносится длина файла
for( int a = 0; a < len; a++ )
{temp2[a] = (char)temp.GetAt(a);}
temp2[len] = 0;
Files[x] = temp2;
if( ftpFileFind.IsDirectory() )
// проверка на директорию
{
Leng[x] = "< Dir >";
}
else
{
itoa( (int)ftpFileFind.GetLength(),
temp3, 10 );
Leng[x] = temp3;
}
lvi.iItem = x;
lvi.pszText = Files[x];
lvi.cchTextMax = x;
lvi.iImage = x;
m_ListView.InsertItem(&lvi);
m_ListView.SetItemText(x, 1, Leng[x]);
++x;
}while ((x < NUM) && (gotFile)); // цикл пока не кончатся файлы
m_numFiles = x;
m_ListView.SetFocus();
m_ListView.SetHotItem( 0 );
m_ListView.UpdateData( FALSE );
m_enter.EnableWindow( TRUE );
UpdateData( FALSE );
}
// ------------------------------------------------------------------------// функция очистки List Control
void CFTP_ClientDlg::MyEraseList()
{
for( int i = 0; i < m_numFiles; i++ ) { Leng[i]=""; Files[i]="";}
m_ListView.DeleteAllItems();
m_numFiles = 0;
UpdateData( FALSE );
}
// ------------------------------------------------------------------------// функция окончания сеанса
void CFTP_ClientDlg::MyEndConnect()
{
delete ftpConnection;
ConnFlag = FALSE;
}
// функция позволяет перемещаться по каталогам сервера
void CFTP_ClientDlg::OnButtonEnter()
{
// TODO: Add your control notification handler code here
POSITION pos;
CString new_url, dir;
pos = m_ListView.GetFirstSelectedItemPosition();
(int)pos--;
CString name = m_ListView.GetItemText( (int)pos, 0 );
CString len = m_ListView.GetItemText( (int)pos, 1 );
if( ((int)pos == 0) && (m_curDirectory != "/" ) )
{
int slashPosition = m_curDirectory.ReverseFind('/');
dir = m_curDirectory.Left(slashPosition);
m_curDirectory = dir;
ConnFlag = TRUE;
BOOL flag = MyConnect( MyGetURL(m_url), m_curDirectory );
MyPrintFiles();
UpdateData( FALSE );
return;
}
if( len == "< Dir >" )
{
if( m_curDirectory == "/" ) {dir = m_curDirectory + name;}
else { dir = m_curDirectory + '/' + name;}
m_curDirectory = dir;
ConnFlag = TRUE;
BOOL flag = MyConnect( MyGetURL(m_url), m_curDirectory );
MyPrintFiles();
UpdateData( FALSE );
return;
}
}
// функция копирует выделенные файлы в выбранную директорию
void CFTP_ClientDlg::OnCopy()
{
// TODO: Add your control notification handler code here
POSITION cur_pos;
int flag_pos;
int count=0;
CString file,len;
CString new_url, dir;
// здесь можно дописать создание директории если она не создана
//char *d = "c:\\temp\\files\\a\\b\\";
//CreateDirectoryW( &d[0], NULL );
m_edit = "";
cur_pos = m_ListView.GetFirstSelectedItemPosition(); // первый выбранный файл
if( (int)cur_pos <= 1 ) { MessageBox( "Not write file(s)", "Error" ); return; }
len = m_ListView.GetItemText( (int)cur_pos-1, 1 );
if( len != "< Dir >" ) { Sel_files[ 0 ] = (int)cur_pos-1; count++;}
itoa( (int)cur_pos-1, temp3, 10 );
m_edit += "start = "; m_edit += &temp3[0]; m_edit += "\r\n";
do
{
flag_pos = m_ListView.GetNextSelectedItem( cur_pos );
// следующий файл
itoa( (int)cur_pos-1, temp3, 10 );
m_edit += "next = "; m_edit += &temp3[0]; m_edit += "\r\n";
len = m_ListView.GetItemText( (int)cur_pos-1, 1 );
if( len != "< Dir >" ) { Sel_files[ count++ ] = (int)cur_pos-1;}
}while( (int)cur_pos >= 1 );
count--;
itoa( count, temp3, 10 );
m_edit += " Selected files = ";
m_edit += &temp3[0];
m_edit += "\r\n";
m_edit += "\r\n";
if( count == 0 ) { MessageBox( "No selected file(s)", "Error" ); return; };
for( int i = 0; i <= (count-1); i++ )
{
len = m_ListView.GetItemText( Sel_files[i], 1 );
file = m_ListView.GetItemText( Sel_files[i], 0 );
m_edit += "Copy file = ";
m_edit += file;
m_edit += " len = ";
m_edit += len;
m_edit += "\r\n";
int down = ftpConnection->GetFile(file, m_save+file, FALSE);
// копируем файлы
if( down == 0 )
{
// если нет директории
MessageBeep( 65535 );
m_edit += "Error save file. Not create directory !!!";
UpdateData( FALSE );
m_ListView.SetFocus();
return;
}
}
UpdateData( FALSE );
m_ListView.SetFocus();
}
Создание простого HTTP-клиента
В этой главе будет написана программа, которая может считывать файлы из Internet по HTTP
протоколу и записывать их на диск.
Для связи с Internet в Visual C++ существует так называемый WinInet Class. В него входят
несколько подклассов.
Далее представлены ксассы WinInet:
Классы
Описание
CInternetSession
Создаёт Internet сессию. Все MFC WinInet приложения должны
создавать CInternetSession объект перед использрванием других WinInet
классов.
CInternetConnection
Создаёт коннект с Internet. Это базовый класс для классов
CFtpConnection, CGopherConnection, и CHttpConnection.
CFtpConnection
Устанавливает соединение по FTP протоколу.
CGopherConnection Создаёт Gopher коннект.
CHttpConnection
Устанавливает соединение по HTTP протоколу.
CInternetFile
Разрешает удалённый доступ к файлам на Internet серверах. Это базовый
класс для классов CGopherFile and CHttpFile.
CGopherFile
Разрешает удалённый доступ к файлам на Gopher серверах.
CHttpFile
Разрешает удалённый доступ к файлам на HTTP серверах.
CFileFind
Разрешает поиск файлов в Internet. Это базовый класс для классов
CFtpFileFind and CGopherFileFind.
CFtpFileFind
Разрешает поиск файлов на FTP серверах.
CGopherFileFind
Разрешает поиск файлов на Gopher серверах.
CGopherLocator
Отыскивает Gopher устройство ввода позиций от gopher сервера.
CInternetException Управляет исключениями, сгенерированными WinInet классом.
Наша программа будет использовать четыре класса WinInet: CInternetSession, CInternetFile,
CHttpFile и CHttpConnection
Далее будут описаны методы( функции ) этих классов:
Методы ( функции ) класса CInternetSession
Функции
Описание
Close()
Закрывает Internet сессию.
EnableStatusCallback()
Разрешает использование функции повторного вызова, которая
используется для асинхронных действий.
GetContext()
Получает значение контекста Internet сессии.
GetFtpConnection()
Устанавливает подключение по FTP протоколу.
GetGopherConnection()
Устанавливает подключение с Gopher серверами.
GetHttpConnection()
Устанавливает подключение по HTTP протоклолу.
OnStatusCallback()
Модифицирует состояние операции.
OpenURL()
Соединяется с данным URL.
QueryOption()
Сервис проверки ошибки провайдера.
ServiceTypeFromHandle() Получает тип сервиса от Internet дескриптора.
SetOption()
Устанавливает опции Internet сессии.
Функции
Методы ( функции ) класса CInternetFile
Описание
Abort()
Закрывает файл и игнорирует все ошибки.
Close()
Закрывает файл.
Flush()
Сбрасывает файл на диск.
Read()
Счатывает байт из файла.
ReadString()
Считывает строку символов из файла.
Seek()
Переустанавливает указатель внутри файла.
SetReadBufferSize() Устанавливает размер буфера для чтения.
SetWriteBufferSize() Устанавливает размер буфера для записи.
Write()
Записывает байт в файл.
WriteString()
Записывает строку с нулевым символом в конце в файл.
Функции
Методы ( функции ) класса CHttpFile
Описание
AddRequestHeaders() Добавляет заголовок к HTTP запросу.
Close()
Закрывает CHttpFile объект.
GetFileURL()
Получает URL файла.
GetObject()
Получает объект по HTTP запросу.
GetVerb()
Получает заголовок запроса.
QueryInfo()
Получает ответ или заголовок запроса.
QueryInfoStatusCode() Получает код состояния HTTP запроса.
SendRequest()
Посылает HTTP запрос.
Далее напишем код программы и разберём каждую строчку:
...
CString m_url = "mark5.dhtp.kiae.ru"; // имя URL
CString m_mes;
// переменная в которой будут хранится сообщения
char temp[100];
// промежуточная переменная для перевода
// данных из Int в char
CString m_path;
// имя файла для записи
char strBody[1024];
// буфер из 1024 байт
...
int CHTTP_ClientDlg::OnButtonConnect()
{
// создаём переменную session и открываем сессию ANDY
CInternetSession session( _T( "ANDY" ), PRE_CONFIG_INTERNET_ACCESS );
// создаём переменную pServer класса CHttpConnection
CHttpConnection* pServer = NULL;
// создаём переменную pFile класса CHttpFile
CHttpFile* pFile = NULL;
/*
Обратите внимание, что все запросы к функциям членам
WinInet классов включены в блок программы TRY.
Это сделано так, потому что при соединении с каким
либо URL есть риск неправильной ссылки, особенно,
когда Вы полагаете, что пользователь сам печатает URL.
Другая проблема - времена ожидания, которые возникают,
когда требуемый URL в настоящее время неспособен
обслужить подключение. Так же обработка WinInet исключений,
которые представлены в классе CInternetException, является
важной частью создания Internet приложения под MFC.
*/
try
{
CString strServerName; // имя сервера
CString strObject; // имя объекта
INTERNET_PORT nPort; // номер порта для связи
DWORD dwServiceType; // тип сервиса
// функция AfxParseURL получает данные с указанного
// URL ( у нас m_url ) об сервере, объекте, типе сервиса и порте
if (AfxParseURL(m_url, dwServiceType, strServerName, strObject, nPort)==0)
{
return 1; // выход из функции OnButtonConnect()
}
// вывод данных о сервере
m_mes = "";
m_mes += "Server Name = ";
m_mes += (CString)strServerName; m_mes += "\r\n";
m_mes += "Object Name = ";
m_mes += (CString)strObject; m_mes += "\r\n";
m_mes += "Port = ";
itoa( nPort, temp, 10 );
m_mes += (CString)&temp[0]; m_mes += "\r\n";
UpdateData( FALSE );
// Устанавливаем подключение по HTTP протоклолу.
pServer = session.GetHttpConnection( strServerName, nPort );
// посылаем запрос об объекте ( strObject )
pFile = pServer->OpenRequest(
CHttpConnection::HTTP_VERB_GET, strObject, NULL, 1, NULL, NULL,
INTERNET_FLAG_EXISTING_CONNECT |
INTERNET_FLAG_NO_AUTO_REDIRECT
);
// Добавляем заголовок к HTTP запросу
pFile->AddRequestHeaders( _T( "Accept: */*\r\nUser-Agent: ANDY\r\n" ) );
// посылаем запрос
pFile->SendRequest( );
DWORD dwRet; // переменная для хранения кода состояния
pFile->QueryInfoStatusCode( dwRet ); // записываем код состояния в dwRet
// вывод данных
m_mes += "The HTTP GET returned a status code of ";
itoa( dwRet, temp, 10 );
m_mes += (CString)&temp[0]; m_mes += "\r\n";
CString strHeader; // переменная для хранения полученного заголовока запроса
pFile->QueryInfo(HTTP_QUERY_RAW_HEADERS_CRLF, strHeader);
// записываем заголовок в strHeader
// вывод данных
m_mes += "Header = ";
m_mes += strHeader;
UpdateData( FALSE );
// если код состояния не равен 200, то выходим из функции
if( dwRet != 200 ) { m_mes += "Program terminate!"; UpdateData( FALSE ); return 1; }
// ---------------------------------------------------------// проверка выбора файла для записи
m_mes += "Starting download the file."; m_mes += "\r\n";
if( m_path == "" )
{
m_mes += "Error! No file to save. Choese the file.";
m_mes += "\r\n"; UpdateData( FALSE ); return 1; }
else
{
m_mes += "File name to save : ";
m_mes += m_path; m_mes += "\r\n"; UpdateData( FALSE );
}
CFile file2; // объявляем переменную file2 класса CFile
// открываем файл для записи в двоичном формате ( CFile::typeBinary ) !!!
file2.Open((LPCTSTR)m_path,
CFile::modeCreate|CFile::modeWrite|CFile::typeBinary);
int allRead = 0; // переменная для хранения общего числи считанных байт
int nRead = pFile->Read( strBody, 1024 );
// считываем первые 1024 байта в буфер.
// переменная nRead хранит количество
// считанных байт
allRead += nRead; // обновляем общее число считанных байт
// вывод данных
m_mes += "Loading ";
itoa( nRead, temp, 10 );
m_mes += (CString)&temp[0]; m_mes += " bytes"; m_mes += "\r\n";
UpdateData( FALSE );
// записываем буфер из nRead байт в файл
file2.Write( strBody, nRead );
// цикл считывания, пока nRead не будет равняться нулю
while ( nRead > 0 )
{
nRead = pFile->Read( strBody, 1024 );
if( nRead != 0 )
{
m_mes += "Loading ";
itoa( nRead, temp, 10 );
m_mes += (CString)&temp[0]; m_mes += " bytes"; m_mes
+= "\r\n";
file2.Write( strBody, nRead );
allRead += nRead;
UpdateData( FALSE );
}
}
// вывод данных
m_mes += "\r\n";
m_mes += "Total bytes = ";
itoa( allRead, temp, 10 );
m_mes += &temp[0]; m_mes += "\r\n"; UpdateData( FALSE );
file2.Close(); // закрываем файл
pFile->Close(); // закрываем Internet файл
pServer->Close(); // закрываем сервер
m_mes += "Download is complete !!!"; m_mes += "\r\n";UpdateData( FALSE );
}
catch ( CInternetException* pEx )
{
// Если произошла ошибка в WinInet
// вывод ошибки
char szErr[1024];
pEx->GetErrorMessage( szErr, 1024 );
m_mes += "Error: ( ";
itoa( int(pEx->m_dwError), temp ,10 );
m_mes += (CString)&temp[0];
m_mes += " ) ";
m_mes += (CString)&szErr[0]; m_mes += "\r\n";
UpdateData( FALSE );
pEx->Delete( ); // удаление переменной класса CInternetException
if ( pFile != NULL )
delete pFile; // закрываем Internet файл
if ( pServer != NULL )
delete pServer; // закрываем сервер
session.Close( ); // закрываем сессию
return 1;
}
if ( pFile != NULL )
delete pFile; // закрываем Internet файл
if ( pServer != NULL )
delete pServer; // закрываем сервер
session.Close( ); // закрываем сессию
return 0;
}
#include <afxinet.h>Включаемый
файл для классов WinInet
Объявление переменных
CInternetSession internetSession; // переменная класса
CInternetSession
CFtpConnection* ftpConnection; // переменная класса
CFtpConnection
LV_ITEM lvi; // переменная для List Control
создаётся List Control с двумя колонками
int j = 0;
формирование
колонок
Создание двух колонок
m_numFiles = 0//значение номера
файла
m_url = "ftp://mark5.dhtp.kiae.ru/"; //
URL для коннекта
void CFTP_ClientDlg::OnButtonConnect()
вызываем ф-ю MyConnect
BOOL flag = MyConnect( MyGetURL(m_url),
MyGetPath(m_url) )//задаются значения переменной
flag,получениеURL, получениеPATH
flag == FALSE
MyPrintFiles(); // печатаем
список файлов в List Control
return
BOOL CFTP_ClientDlg::MyConnect(CString url, CString path)
// функция коннектится к URL : url с текущей директорий : path
(m_user == "anonymous") ||
(m_user == "")
ftpConnection = internetSession.GetFtpConnection(url,NULL,
NULL, nPort, FALSE );//переменной класса FtpConnection
задаются значения
ftpConnection =internetSession.GetFtpConnection(url,m_user,
m_pass, nPort, FALSE )//переменной класса FtpConnection
задаются значения
Установка текущей
директории
// если была ошибка
pException->ReportError();
return FALSE;
Функция возвращает URL сервераCString
CFTP_ClientDlg::MyGetURL(CString url)
Получение URL
return (CString)&pre[0]
Функция возвращает PATH
CString CFTP_ClientDlg::MyGetPath(CString url)
Получение URL
return (CString)&pre[0]
Фукция выводит список файлов в List Control
void CFTP_ClientDlg::MyPrintFiles()
MyEraseList(); // очистка
в m_curDirectory записываем текущую директорию
return TRUE;
CFtpFileFind ftpFileFind(ftpConnection);
// создаём переменную класса CFtpFileFind
ftpFileFind.FindFile(); // ищем все файлы
цикл пока не кончатся файлы
gotFile = ftpFileFind.FindNextFile();
// ищем следующие файлы
temp = (CString)ftpFileFind.GetFileName();
// в temp заносится имя файла
len = temp.GetLength();
// в len заносится длина файла
Проверка на
директорию
Leng[x] = "< Dir >";
UpdateData( FALSE )
функция очистки List Control
void CFTP_ClientDlg::MyEraseList()
Значение номера файла = 0
функция окончания сеанса
voidCFTP_ClientDlg::MyEndConnect()
Удаление ftpConnection
ConnFlag = FALSE
функция позволяет перемещаться по
каталогам сервера
voidCFTP_ClientDlg::OnButtonEnter()
позиция== 0) &&
(m_curDirectory != "/"
Печатаем список
файлов
Переменной flag задаем значение с помощью
функцииMyConnect(задаем URL,директорию)
Печатаем список
файлов
длина== "< Dir >"
Переменной flag задаем значение с помощью
функцииMyConnect(задаем URL,директорию)
// функция копирует выделенные файлы в выбранную директорию
void CFTP_ClientDlg::OnCopy()
CString new_url, dir;
// здесь можно дописать создание директории если она не создана
cur_pos = m_ListView.GetFirstSelectedItemPosition(); // первый выбранный файл
cur_pos <= 1
"Not write file(s)", "Error"
Определяется длина выбранного файла
Перебираются все файлы пока cur_pos >= 1
Выбирается следующий фаыйл
Определяется длина выбранного файла
count == 0
"No selected file(s)", "Error"
down // копируем файлы
down == 0 // если нет директории
UpdateData( FALSE );
m_ListView.SetFocus();
"Error save file. Not create
directory !!!";
// создаём переменную session и открываем сессию ANDY
CInternetSession session( _T( "ANDY" ),
PRE_CONFIG_INTERNET_ACCESS );
// создаём переменную pServer класса
CHttpConnection
CHttpConnection* pServer = NULL;
// создаём переменную pFile класса
CHttpFile
CHttpFile* pFile = NULL;
// функция AfxParseURL получает данные с
указанного
// URL ( у нас m_url ) об сервере, объекте, типе
сервиса и порте
return 1; // выход из функции OnButtonConnect()
// вывод данных о сервере
// Устанавливаем подключение по HTTP
протоклолу.
pServer = session.GetHttpConnection(
strServerName, nPort );
// посылаем запрос об объекте ( strObject )
// Добавляем заголовок к HTTP запросу
pFile->AddRequestHeaders( _T( "Accept: */*\
r\nUser-Agent: ANDY\r\n" )
// посылаем запрос
pFile->SendRequest( );
pFile->QueryInfoStatusCode( dwRet
); // записываем код состояния в dwRet
// вывод данных
// записываем заголовок в strHeader
// вывод данных
если код состояния не равен 200, то
выходим из функции
return 1
// проверка выбора файла для записи
m_path == ""
_mes += "Error! No file to save. Choese the file."
m_mes += "File name to save : ";
// открываем файл для записи в
двоичном формате ( CFile::typeBinary ) !!!
file2.Open((LPCTSTR)m_path,
CFile::modeCreate|CFile::modeWrit
e|CFile::typeBinary);
int nRead = pFile->Read( strBody, 1024 );
// считываем первые 1024 байта в
буфер.
// переменная nRead хранит
количество
// считанных байт
allRead += nRead; // обновляем
общее число считанных байт
// вывод данных
// записываем буфер из nRead байт в файл
file2.Write( strBody, nRead );
// цикл считывания, пока nRead не будет
равняться нулю
// вывод данных
file2.Close(); // закрываем файл
pFile->Close(); // закрываем Internet файл
pServer->Close(); // закрываем сервер
// Если произошла ошибка в WinInet
// вывод ошибки
char szErr[1024];
pEx->Delete( ); // удаление переменной класса CInternetException
pFile != NULL
delete pFile; // закрываем Internet файл
if ( pServer != NULL )
delete pServer; // закрываем сервер
session.Close( ); // закрываем сессию
pFile != NULL
delete pFile; // закрываем Internet файл
if ( pServer != NULL )
delete pServer; // закрываем сервер
session.Close( ); // закрываем сессию