Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 как забрать файл с удаленной машины, известен ее IP  [new]
knik
Guest
как забрать Фоксом файл с удаленной машины, известен ее IP. не лкальная сеть

есть большая проблема!!!
Нужно фоксом забирать файл (фоксовая таблица)!
Вопрос: как можно соединиться с той машиной и взять его, почта не подходит.
что можно предпринять и как это сделать?

Как вариант, есть мнение закачивать через FTP. как из фокса это сделать?

буду бесконечно признателен за любую помощь!!!
24 мар 03, 17:32    [155111]     Ответить | Цитировать Сообщить модератору
 Re: как забрать файл с удаленной машины, известен ее IP  [new]
1024
Member

Откуда: Нижний Новгород
Сообщений: 14267
А в чём проблемы? Можно тупо через ftp.exe, можно какой-нить компонент поискать.
24 мар 03, 17:55    [155159]     Ответить | Цитировать Сообщить модератору
 Re: как забрать файл с удаленной машины, известен ее IP  [new]
Crip
Member

Откуда:
Сообщений: 2490
Думаю здесь ты найдешь все что нужно
24 мар 03, 18:32    [155204]     Ответить | Цитировать Сообщить модератору
 Re: как забрать файл с удаленной машины, известен ее IP  [new]
Samir
Member

Откуда: Азербайджан, г. Баку
Сообщений: 1382
Укажи e-mail, пришлю небольшой пример с использованием функций API. Если нужно и с использованием FTP.EXE.
25 мар 03, 09:55    [155514]     Ответить | Цитировать Сообщить модератору
 Re: как забрать файл с удаленной машины, известен ее IP  [new]
mahoune
Member

Откуда: Moscow
Сообщений: 5653
А так:

\\127.0.0.1\share_folder\file_name.dbf
25 мар 03, 15:55    [156067]     Ответить | Цитировать Сообщить модератору
 Re: как забрать файл с удаленной машины, известен ее IP  [new]
Sergey Ch
Member

Откуда: Благовещенск
Сообщений: 8873
Для передачи на сервер данных (записи таблиц FoxPro) с удаленной машины я использую на сервере web services. Все это очень просто и довольно элегантное решение от Microsoft, но пока я не решу проблему с корректной кодовой таблицей (1251), рекомендовать пока никому не могу...
2 май 03, 06:15    [189228]     Ответить | Цитировать Сообщить модератору
Между сообщениями интервал более 1 года.
 Re: как забрать файл с удаленной машины, известен ее IP  [new]
IT_Developer
Member

Откуда:
Сообщений: 12
PROCEDURE ftp_download
LPARAMETERS cDirOut

#DEFINE INTERNET_INVALID_PORT_NUMBER 0
#DEFINE INTERNET_SERVICE_FTP 1
#DEFINE INTERNET_FLAG_PASSIVE 0x08000000
#DEFINE INTERNET_OPEN_TYPE_DIRECT 1
#DEFINE FTP_TRANSFER_TYPE_BINARY 2
#DEFINE FILE_ATTRIBUTE_NORMAL 128

DECLARE INTEGER FtpGetCurrentDirectory IN wininet.DLL;
INTEGER hFtpSession,;
STRING @ lpszDirectory,;
INTEGER @ lpdwCurrentDirectory

DECLARE INTEGER FtpSetCurrentDirectory IN wininet.DLL;
INTEGER hFtpSession,;
STRING @ lpszDirectory

DECLARE INTEGER InternetOpen IN wininet.DLL;
STRING sAgent, INTEGER lAccessType,;
STRING sProxyName, STRING sProxyBypass,;
INTEGER lFlags


DECLARE INTEGER FtpDeleteFile IN wininet.DLL;
INTEGER hConnect,;
STRING lpszFileName

DECLARE INTEGER FtpFindFirstFile IN WinInet.DLL;
INTEGER nConnect_Handle, STRING @lpcSearchStr, ;
STRING @lpcWIN32_FIND_DATA, ;
INTEGER nFlags, INTEGER nContext

DECLARE INTEGER InternetConnect IN wininet.DLL;
INTEGER hInternetSession,;
STRING sServerName,;
INTEGER nServerPort,;
STRING sUsername,;
STRING sPassword,;
INTEGER lService,;
INTEGER lFlags,;
INTEGER lContext

DECLARE INTEGER InternetCloseHandle IN wininet.DLL;
LONG hInet


DECLARE INTEGER InternetFindNextFile IN WinInet.DLL ;
INTEGER nConnect_Handle, STRING @lpcWIN32_FIND_DATA


DECLARE INTEGER FtpGetFile IN WinInet.DLL ;
INTEGER nConnect_Handle, STRING @lpcRemoteFile, STRING @lpcNewFile, ;
INTEGER nFailIfExists, INTEGER nAttributes, INTEGER nFlags, ;
INTEGER nContext

DECLARE INTEGER FtpDeleteFile IN wininet.DLL;
INTEGER hConnect,;
STRING lpszFileName


PRIVATE hInternet

hInternet = InternetOpen("FoxFtp",INTERNET_OPEN_TYPE_DIRECT, 0,0,0)

hConnection = InternetConnect(hInternet,'АДРЕС ФТП',INTERNET_INVALID_PORT_NUMBER,;
'ЛОГИН','ПАРОЛЬ', INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
IF hConnection=0

msguser("Не удалось соединиться с FTP-сервером.Обратитесь в отдел IT")

RETURN .F.
ELSE

FtpSetCurrentDirectory(hConnection, 'ваша папка на ФТП')
LOCAL cStruct
lcMask='*.*'

cStruct = SPACE(319)
nRes=FtpFindFirstFile(hConnection, @lcMask, @cStruct, 0, 0)
cRemFile=SUBSTR(cStruct, 45,17)


cNewFile=cDirOut+cRemFile

fRes=FtpGetFile(hConnection, @cRemFile, @cNewFile,1,FILE_ATTRIBUTE_NORMAL,FTP_TRANSFER_TYPE_BINARY,1)



lcStruct = SPACE(319)

DO WHILE InternetFindNextFile(nRes,@cStruct)!=0
cRemFile=SUBSTR(cStruct, 45,17)
cNewFile=cDirOut+cRemFile

fRes=FtpGetFile(hConnection, @cRemFile, @cNewFile,;
1,FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY, 0)


ENDDO


InternetCloseHandle(hConnection)


как то так....

процедура получает список файлов на FTP-серванте и скачивает их на диск (в папку) переданную в качестве параметра

папка должна существовать
25 мар 13, 18:05    [14093754]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить