|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.08.2007, 10:32 | #1 |
Регистрация: 08.08.2007
Сообщений: 4
|
Проблема с TClientSocket, TServerSocket
Есть переменная типа
Код:
Код:
Т.Е. что писать здесь : Код:
Последний раз редактировалось PLOT_HD; 11.08.2007 в 10:37. |
11.08.2007, 12:28 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Сервер
TFileStream* str = new TFileStream("M:\\MyFile.jpg",fmOpen Read); //ИЛИ, если мы работаем без сохранения (тогда не создается файл) TMemoryStream* str = new TMemoryStream (); str->Position = 0; Image1->Picture->Bitmap->SaveToStream(str); //и, наконец, шлем на сервер битмап str->Position = 0; ClientSocket1->Socket->SendStream(str); Клиент int ibLen = ServerSocket1->Socket->ReceiveLength(); char* buf= new char[ibLen+1]; TMemoryStream* str = new TMemoryStream(); str->Position = 0; ServerSocket1->Socket->ReceiveBuf((void*)buf,ibLen); str->WriteBuffer((void*)buf,ibLen); str->Position = 0; Image1->Picture->Bitmap->LoadFromStream(str); //или str->SaveToFile("M:\\MyFile.jpg");
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
11.08.2007, 12:43 | #3 |
Пользователь
Регистрация: 10.08.2007
Сообщений: 43
|
это ты из ФАКа скопировал, где на Борланд сях писанно...
Если не ошибаюсь, надо принимать примерно так: Код:
Комьютер не поддаётся законам физики:
Глюки появляются из неоткуда, файлы пропадают в никуда... Объём диска называется весом и измеряется в метрах... --------------------------------------------------- Дрова для модема находятся на диске, а дрова для дисковода - в интернете... |
11.08.2007, 15:39 | #4 |
Регистрация: 08.08.2007
Сообщений: 4
|
Переписал исходник чтобы ни кто не думал что я за ним к Borland'u ходил..
А косяк никуда не делся Пожалуйста помогите разобраться. Пробовал тоже самое со строками все нормально работает, а вот для Bitmapa моя квалификация явно не дотягивает. Мой Х..ен его знает СЕРВЕР : Код:
Код:
Как бы там не было, все равно всем спасибо. |
11.08.2007, 17:03 | #5 | |
Пользователь
Регистрация: 10.08.2007
Сообщений: 43
|
Так тебе с сервера передавать, а клиенут принимать, так что ли?
Ща пойду поиграюсь с виртуалкой через сеть, если что выйдет, напишу Кстати, Цитата:
PS Сокеты обязательны? Я люблю всё передавать либо через Strm от NetMasters либо через Indy TCP или UPD (быстрее но файл может прийти не весь).
Комьютер не поддаётся законам физики:
Глюки появляются из неоткуда, файлы пропадают в никуда... Объём диска называется весом и измеряется в метрах... --------------------------------------------------- Дрова для модема находятся на диске, а дрова для дисковода - в интернете... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Компоненты TServerSocket и TClientSocket | Vadim | Компоненты Delphi | 5 | 15.03.2010 20:34 |
TClientSocket - сохранение | JRcoker | Общие вопросы Delphi | 4 | 03.08.2008 00:37 |
Передача файла через TServerSocket и TClientSocket | Vanya | Работа с сетью в Delphi | 10 | 08.04.2008 18:12 |
проблема с TServerSocket и с TClientSocket | DOLBY | Работа с сетью в Delphi | 56 | 14.01.2008 16:12 |
Компонент TServerSocket в Delphi 7 | dfmb | Компоненты Delphi | 9 | 03.08.2007 19:09 |