|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.05.2011, 00:23 | #1 |
Пользователь
Регистрация: 17.09.2010
Сообщений: 44
|
Как сделать простейшую передать файл через Сокет
Устал искать примеры думаю мне помогут. Нужно простейшая передача файла. У меня сервер который должен передать всем подключившимся вордовский докумен. На сервере я писал. Пример перебивал с делфи на делфе он не пашет или криво.
OpenDialog1->Execute(); TFileStream *fs = new TFileStream(OpenDialog1->FileName,fmOpenRead); for (int i = 0; i < ServerSocket2->Socket->ActiveConnections; i++){ ServerSocket2->Socket->SendStream(fs); } Memo1->Lines->Insert(0,"Âñåì ïîäêëþ÷åííûì áûë îòîñëàí ôàéë"+OpenDialog1->FileName); fs->Free(); Обработка не могу выделить память методом GetMem и освободить FreeMem. Но на делфе он как уже говорил работает криво. На клиенте в он ред писал обработку. int l; PChar buf; l=Socket->ReceiveLength(); GetMem(buf,l+1); Socket->ReceiveBuf(buf,l); TFileStream *src= new TFileStream("C:\1temp.tmp",fmOpenWr ite); src->Seek(0,soFromEnd); src->WriteBuffer(buf,l); src->Free(); FreeMem(buf); помогите сделать простейшую передачу файла через сокет. Желательно на Builder C++ |
25.05.2011, 13:55 | #2 |
Пользователь
Регистрация: 17.09.2010
Сообщений: 44
|
Кому интересно обсолютно рабочий программный когд -> http://www.sources.ru/magazine/1204/tsocket.html . Переделал под себя как нужно Респект челу который написал этот пример))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как передать структуру через socket | moiav | Общие вопросы C/C++ | 6 | 18.05.2011 16:27 |
Передать двумерный массив через сокет (Debian) | Phaeleh | Qt и кроссплатформенное программирование С/С++ | 1 | 29.11.2010 07:08 |
Как передать заголовки в php через CURL | sergeiqwe | PHP | 1 | 07.11.2010 21:08 |
Передавать файл через сокет частями | NieL | Работа с сетью в Delphi | 0 | 08.12.2009 16:42 |