Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Пересылка файла по TCP, С помощью TIdCmdTCPClient и TIdCmdTCPSer 
V
    Опции темы
Rey
Дата 21.6.2006, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Народ помогите плиз, как переслать файл по TCP с помощью TIdCmdTCPClient и TIdCmdTCPServer...  smile 

PS: Да кстати может ктото работал с компонентом TidLogEvent так и не смог понять как его заставить работать...  smile  
PM MAIL ICQ   Вверх
Snowy
Дата 21.6.2006, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Поиск!
http://forum.vingrad.ru/index.php?act=Sear...EB&skipped= 
PM MAIL   Вверх
Rey
Дата 22.6.2006, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Поиск это конечно хорошая вешь, но того что мне надо там я не нашел... smile 
Все примеры которые я нашел реализовать так и не получилось...
Если не сложно может ктонить привисти конкретный пример или дать конкретную ссылку...

PS: извеняюсь если офтопик... 
PM MAIL ICQ   Вверх
Snowy
Дата 22.6.2006, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Версия Delphi и Indy? 
PM MAIL   Вверх
Rey
Дата 22.6.2006, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Delphi 2006, Indy 10....
Большенство примеров к сожалению описывают 9-ю версию... =( 
PM MAIL ICQ   Вверх
Rey
Дата 23.6.2006, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Что никто не работал с indy10? 
PM MAIL ICQ   Вверх
_hunter
Дата 23.6.2006, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
в чем конкретно проблема? -- сокеты переносятяс без особых проблем... 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Rey
Дата 23.6.2006, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Собственно код такой:

Сервер:
Код

procedure TfmIndexed.itServerCommandHandlers3Command(ASender: TIdCommand);
var
  SendFile: TFileStream;
begin
  SendFile := TFileStream.Create( 'D:\Охота.bmp', fmOpenRead );
  ASender.Context.Connection.Socket.WriteBufferOpen;
  ASender.Context.Connection.Socket.Write( SendFile );
  ASender.Context.Connection.Socket.WriteBufferClose;
end;

При получении команды он должен посылать файл..

Клиент:
Код

  itClient.Socket.Write( 'GetResult' );

  f := TFileStream.Create('Resive.bmp', fmCreate);
  f.Seek(0, soFromBeginning);

  itClient.Socket.ReadStream( f );

  f.Free;


Но в итоге получается, при попытке получить файл все виснет...  smile  smile  
PM MAIL ICQ   Вверх
Snowy
Дата 23.6.2006, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Ну так а размер файла кто будет передавать?
Откуда принимающая сторона знает, сколько байт ты послал?
Вот и принимает, пока не надоест...
О компьютер вещь терпеливая... 
PM MAIL   Вверх
_hunter
Дата 23.6.2006, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
странный ты пример нашел...
http://forum.vingrad.ru/index.php?showtopic=42410
http://forum.vingrad.ru/index.php?showtopic=48311 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Rey
Дата 23.6.2006, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Snowy, Ну насчет терпеливости компьютера я догадывался... Особенно когда он повиснет...  smile 
А про размер файла я както не подумал, это моя первая проба програмирования для сети...  smile 

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

Еще раз спасибо, наконецто нормальный ответ...  smile  
PM MAIL ICQ   Вверх
_hunter
Дата 23.6.2006, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
на всякий пожарный... 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Rey
Дата 23.6.2006, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Понятно, спасибо, все разобрался...  smile  
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0517 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.