Да по примеру и пользовал,но там на рид райт мудруно как то,надо просто скачать файл с фтп.

Локшин МаркZmiterДа по примеру и пользовал,но там на рид райт мудруно как то,надо просто скачать файл с фтп.
вызвать функцию of_getfile - муторно?
смотрю отладчиком, download file к ней не обращается даже.

pathname =D:\Flashka\УСТАНОВКА утб_2009.doc
ls_filename=УСТАНОВКА утб_2009.doc

iul_session уже есть
lul_mode=1
lb=FtpGetFile( iul_session,ls_pathname, ls_filename, FALSE, 0, lul_mode, 0),фалсе
в чем косяк ?

Не кати мне тот ,надо свое, потаму что надо интегрировать в готовую прогу.

Тут извращенный способ.Создать пустышку,блобом перенести двнные в него.А что просто скачать файл как есть нельзя.

Такой способ упирается в размер файла,заднный на размер буфера блоб.А если файл будет больше чем буфер,то не прокатит.

Этот америкос который делал зип,видно попробовал через гет.Не прокатило и сделал через создание пустого файла,ридом в блоб ,потом райтом в новый файл.

Отладчиком гляньте,он не пользуетFtpGetFile вообще,делает как я описал выше.

вот при том блоб
2 мега ограничение.

Constant ULong GENERIC_READ = 2147483648
Integer li_fnum
Boolean lb_rtn, lb_loop
ULong lul_hFile, lul_bytesread, lul_bufsize
ULong lul_sizelow, lul_sizehigh, lul_totalread
String ls_result, ls_response, ls_buffer
Blob lblob_buffer

lul_bufsize = 2048
lb_loop = True

// open the remote file
lul_hFile = FtpOpenFile(iul_session, as_source, &
GENERIC_READ, FTP_TRANSFER_TYPE_BINARY, 0)
If lul_hFile > 0 Then
// get the file size
lul_SizeLow = FtpGetFileSize(lul_hFile, lul_SizeHigh)
// open the local file
li_fnum = FileOpen(as_target, StreamMode!, &
Write!, LockReadWrite!, Replace!)
do while lb_loop
lblob_buffer = Blob(Space(lul_bufsize))
lb_loop = InternetReadFile(lul_hFile, lblob_buffer, &
lul_bufsize, lul_bytesread)
If lul_bytesread = 0 Then
lb_loop = False
Else
If al_window > 0 Then
lul_totalread += lul_bytesread
Send(al_window, al_event, lul_totalread, lul_SizeLow)
End If
FileWrite(li_fnum, BlobMid(lblob_buffer, 1, lul_bytesread))
End If
loop
InternetCloseHandle(lul_hFile)
FileClose(li_fnum)
Else
ls_result = this.of_GetLastError()
End If

Return ls_result

у меня видно не тот зип чтоли буквы А в функциях нету.На dm@nod.gomel.by можно его

я качал версию для 10-го билдера а у вас для 9ки видимо,юникодов нету.

и аск и бинари результат тот же,не копирует

Задвинул свой велосипед.Переделал на компоненты америкоса.гоняет файлы в обе стороны как надо.