|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.07.2007, 21:26 | #1 |
Пользователь
Регистрация: 02.07.2007
Сообщений: 11
|
передачи файлов через сокеты
Парни кто может помогите кто чем может! ДАйте плиз код или пример нормально и понятной передачи файлов через сокеты! Типа как в квипе... а не от сервера-клиенту
|
31.07.2007, 22:40 | #2 | |
Пользователь
Регистрация: 08.07.2007
Сообщений: 47
|
Цитата:
Ты для начала литературу почитай какую нибуть, а потом за дело берись. |
|
01.08.2007, 08:50 | #3 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Для данной цели можно воспользоваться компонентами TNMStrmServ и TNMStrm, которые предназначены для обмена потоками данных.
Обработчик для клиента: var MyStream: TMemoryStream; begin MyStream := TMemoryStream.Create; MyStream.LoadFromFile('c:\windows\р абочий стол\DelphiWorld.txt'); NMStrm1.PostIt(MyStream); MyStream.Free; end; Обработчик для сервера: procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: string; strm: TStream); var MyStream: TMemoryStream; begin MyStream := TMemoryStream.Create; MyStream.CopyFrom(strm, NMStrmServ1.BytesTotal); MyStream.SaveToFile('c:\windows\раб очий стол\DelphiWorld2.txt'); end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
01.08.2007, 08:50 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
ну или
Код:
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи Последний раз редактировалось Stilet; 18.12.2013 в 16:45. |
01.08.2007, 08:51 | #5 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
еще вариант
Здесь мы рассмотрим посылку файлов через сокет. Итак, как же послать файл по сокету? Очень просто! Достаточно лишь открыть этот файл как файловый поток (TFileStream) и отправить его через сокет (SendStream)! Рассмотрим это на примере: Код:
Нужно заметить, что метод SendStream используется не только сервером, но и клиентом (ClientSocket1.Socket.SendStream(sr cfile)) Если ни один из приведенных не помог, читайте матчасть )
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи Последний раз редактировалось Stilet; 18.12.2013 в 16:45. |
09.07.2010, 21:55 | #6 |
Регистрация: 12.03.2010
Сообщений: 3
|
Этот способ очень хороший для отправки файлов. Но этот пример везде в нэте есть и нигде нету примера как от сервера клиенту отправить файл? Можешь помочь с этим вопросом? Типа как в TcpClient'e пришол пакет и есть переменная Socket, за которую можно зацепиться и отослать на этот сокет инфу, а как тут такое сделать.
Поставить на клиентской программе nmStrmServ исключено потому что простые юзеры не могут делать перенаправление портов в роутере для того чтобы принять файл. Заранее спасибо |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Открытие файлов через TreeView | Xardas | Общие вопросы Delphi | 12 | 29.03.2008 11:30 |
Сокеты | ben95 | Общие вопросы Delphi | 7 | 09.03.2008 23:26 |
Пересылка нетипизированных файлов через модем (как в гипертерминале) | naumovmag | Софт | 1 | 21.09.2007 22:13 |
сокеты | cross | Работа с сетью в Delphi | 2 | 21.12.2006 18:12 |