Передача файлов, TCPServer & Client, Indy 10

[Killbrum]

Доброго времени суток! Собственно понадобилась прямая передача данных. Думал сделать на сокетах (мне бы проще было) но увы надо использовать один порт, а вся программа уже построена на Инди 10. Так что надо дописывать на Инди 10. Передавать надо файлы. Как это сделать я уже видел =). Только мне надо отображать ход передачи файла хотя бы на клиентской части. Собственно с горем пополам написал нечто. Но оно передает только маленькие файлики (текстовые) причем как понимаю до 1кб. Дальше рид таймаут и т.д. Собственно гугля и юзая справку от РАД Студио 2011 не нашел как правильно работать с TFileStream (предполагаю что баг в том что я криво перемещаюсь по файлу). Собственно...

Сервер:

                const int send_len=1024;
                unsigned long seek = 0;
                __int64 b = 0;
                UnicodeString FileName = AContext->Connection->IOHandler->ReadLn();
                TFileStream *File=new TFileStream(FileName,fmOpenRead);
                //File->LoadFromFile(FileName);
                File->Position=0;
 
                char *buf=new char[send_len];
 
                while (1)
                {
 
                        __int64 a = File->Read(buf,send_len);
                        if (a == 0) {
 
                                AContext->Connection->IOHandler->Write( a );
                                break;
                        }
                        seek+=send_len;
                        b = File->Seek(seek,0);
                        File->Position=seek;
 
                        AContext->Connection->IOHandler->Write( a );
                        AContext->Connection->IOHandler->Write(buf);
 
 
                }
                delete[] buf;

Клиент:

        TC->IOHandler->WriteLn(L"file");
        TC->IOHandler->WriteLn(L"log.txt");
 
        DWORD Written = 0;
        HANDLE hDestFile = CreateFile(L"log.txt", GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
        while (1)
        {
                __int64 a = TC->IOHandler->ReadInt64();
                if (a == 0) {
                        CloseHandle(hDestFile);
                        break;
                }
                AnsiString str =  TC->IOHandler->ReadString(a).w_str();
 
                WriteFile(hDestFile, str.c_str(), str.Length(), &Written, NULL);
 
 
        }

[Killbrum]

Неужели никто не передавал файлы по сети и выводом прогресса? Можно даже на Делфях ... переведу потом код

[EUGY]

Извините, не знаком с классом TFileStream, но взглядом зацепился за:

File->Read(buf,send_len);
 seek+=send_len;
 b = File->Seek(seek,0);
 File->Position=seek;

Разве его функция Read не перемещает текущую позицию в файле и нужно еще Seek и вдогонку Position? Сомневаюсь.

[Killbrum]

Да да, я о этом не знал. Но уже всё сделал как надо. Всё работает. Спасибо