IdHTTP Unknown Protocol

[Drugnir]

Идет обычная закачка файла, правда по локальной сети

try {
UnicodeString URL_Download = "\\\\192.168.5.99\\share\\1.exe";
UnicodeString File_Name = "D:\\1.exe";
TMemoryStream* File_Stream = new TMemoryStream;
IdHTTP1->Get(URL_Download, File_Stream);
File_Stream->SaveToFile(File_Name);
delete File_Stream;
} catch (...) {
}

IdHTTP не поддерживает протоколы локальной сети?
Может как-то по другому лучше загружать файл?
Использовал IdHTTP, т.к. нужно к закачке progressbar и докачка файла при разрывах.
Прошу вашей помощи.

[microbit]

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

[Пепел Феникса]

у вас протокол то не HTTP.
а так можно простыми файлами.

[Drugnir]

Сообщение от Пепел Феникса

у вас протокол то не HTTP.
а так можно простыми файлами.

Я тоже так подумал. Но дело в том, что хотят видеть прогресс загрузки и скорость. Сеть пробита тунелями, да и провайдеры не надежные, возможны разрывы.

Сообщение от microbit

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

Что вы имеете ввиду? Если можно объясните.

[Пепел Феникса]

у вас расшарены папки как я полагаю?
то есть можно их посмотреть в проводнике?

если да, то два TFileStream и копирование блоками(размер файла узнать можно, размер блока известен, все есть что надо)

[Drugnir]

Спасибо, Пепел Феникса и microbit понял.

[Drugnir]

Сделал через буфер, но тут все сразу в буфер и невозможно определить прогресс и скорость закачки.

TFileStream* FileDownload = new TFileStream(FormFile->FileDownload, fmOpenRead);
TFileStream* FileUpdate = new TFileStream(FormFile->FileUpd, fmCreate | fmOpenWrite);
FileDownload->Seek(0,0);
char *buff;
if ((buff = (char *) malloc(FileDownload->Size)) == NULL)
{
ShowMessage("Ошибка выделения памяти");
return;
}
int Size = FileDownload->Size;
FileDownload->Read(buff,Size);
AnsiString buf = buff;
buf.SetLength(Size);
FileUpdate->Write(buff,buf.Length());
FileUpdate->Free();
FileDownload->Free();
free(buff);

Попробовал разбить буфер, но получилось так, что либо копируются в буфер лишние байты или наоборот не хватает. Не знаю что делать даже. Да и докачку пока не трогал.
Лучше постоянно проверять Size от файла загрузки? если он null, то делать sleep?

TFileStream* FileDownload = new TFileStream(FormFile->FileDownload, fmOpenRead);
TFileStream* FileUpdate = new TFileStream(FormFile->FileUpd, fmCreate | fmOpenWrite);
char buff[1024];
unsigned long seek = 0;
AnsiString buf;
int Size = FileDownload->Size;
while (Size >= seek)
{
FileDownload->Seek(seek, soFromEnd);
FileDownload->Position = seek;
FileDownload->Read(buff,Size);
FileUpdate->Position = seek;
FileUpdate->Write(buff,Size);
seek += sizeof(buff);
}
FileUpdate->Free();
FileDownload->Free();
free(buff);

[microbit]

Примерно так

TFileStream* FileDownload = new TFileStream(FormFile->FileDownload, fmOpenRead);
TFileStream* FileUpdate = new TFileStream(FormFile->FileUpd, fmCreate | fmOpenWrite);
char buff[1024];
INT64	iPoz = 0;
while(FileDownload->Position != FileDownload->Size)
{
	 iPoz = FileDownload->Read(&buff,1024);
	 FileUpdate->Write(&buff,iPoz);
}
delete  FileDownload,FileUpdate;

Скорость измерить, нужно узнать время до и после цикла копирования, размер буфера известен, делим размер на время получаем скорость .

[Drugnir]

Ага, понятно. А при разрыве &buff будет NULL?

[microbit]

Не знаю, скорее всего сработает исключение.