Upload FTP несовпадения размеров исходного и полученного файлов

← →
DenKop © (2003-07-11 02:06) [0]

Заливаю файл на ftp сервер так:

const BufferSize = 1024; var Buffer: array[1..BufferSize] of Byte; ............. begin ............. FileStream:=TFileStream.Create(FileName,fmOpenRead); try repeat BufferLen:=FileStream.Read(Buffer,SizeOf(Buffer)); ( myFtp, @Buffer, SizeOf(Buffer) Заливаю файл на ftp сервер так: const BufferSize = 1024; var Buffer: array[1..BufferSize] of Byte; ............. begin ............. FileStream:=TFileStream.Create(FileName,fmOpenRead); try repeat BufferLen:=FileStream.Read(Buffer,SizeOf(Buffer)); InternetWriteFile(myFtp, @Buffer, SizeOf(Buffer), BufferLen); Application.ProcessMessages; until FileStream.Position=FileStream.Size; finally FileStream.Free; end; end; Исходный файл 73737 байт На сервере получаю 74752 байт Что я неправильно делаю?

← →
DenKop © (2003-07-11 02:08) [1]

И ещё попутный вопрос:
при BufferSize = 1024 файл качается ~45сек.
а при BufferSize = 16 файл качается ~25сек.
Чем хорошо результат на лицо. А чем плох маленький буфер?

← →
DenKop © (2003-07-16 00:53) [2]

Ну неужели никто не знает ответа на такой примитивный вопрос??

← →
nikkie © (2003-07-16 02:22) [3]

>Исходный файл 73737 байт
>На сервере получаю 74752 байт
Похоже на то, что файл посылается в текстовой моде. В InetAPI не разбирался, поэтому не могу навскидку сказать, где бы это можно было изменить. В любом случае хорошо бы помотреть лог фтп-сессии (скажем, сделать свой прокси на IdMappedPort)

> Похоже на то, что файл посылается в текстовой моде.

Не совсем так.
myFtp := FtpOpenFile(
hInt,
PChar(ExtractFileName(FileName)),
GENERIC_WRITE,
FTP_TRANSFER_TYPE_BINARY,
0);

InternetWriteFile(myFtp, @Buffer, SizeOf(Buffer), BufferLen);

Дай угадаю:

var BytesWritten : integer;
...

InternetWriteFile(myFtp, @Buffer, BufferLen, BytesWritten);

Upload FTP несовпадения размеров исходного и полученного файлов Найти похожие ветки