|
3D-программирование Вопросы, касающиеся программирования 3D мира |
01.10.2007, 23:12
|
#31
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Re: Сеть
Как бы ни был умен бот, лучше играть с живыми людьми (с) HolyDel
|
|
(Offline)
|
|
01.10.2007, 23:29
|
#32
|
Бывалый
Регистрация: 05.09.2005
Сообщений: 623
Написано 4 полезных сообщений (для 5 пользователей)
|
Re: Сеть
это точно, но блин...эти жестокие семплы(
|
(Offline)
|
|
01.10.2007, 23:31
|
#33
|
Бывалый
Регистрация: 05.09.2005
Сообщений: 623
Написано 4 полезных сообщений (для 5 пользователей)
|
Re: Сеть
Сообщение от Fant
это точно, но блин...эти жестокие семплы(
|
А ты вообще насколько хорошо соображаешь в написании сети?
|
(Offline)
|
|
01.10.2007, 23:38
|
#34
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Re: Сеть
Средне и чуть ниже
Чет я все теорией, да теорией..Надо бы попробовать протоколы на практике блин. И все лень даже начать писать либу для работы с HTTP. А надо...
|
(Offline)
|
|
01.10.2007, 23:41
|
#35
|
Бывалый
Регистрация: 05.09.2005
Сообщений: 623
Написано 4 полезных сообщений (для 5 пользователей)
|
Re: Сеть
Сообщение от Tadeus
Средне и чуть ниже
Чет я все теорией, да теорией..Надо бы попробовать протоколы на практике блин. И все лень даже начать писать либу для работы с HTTP. А надо...
|
ПОнятно, а у тебя есть аська? Ты мне не поможешь с сетью?
|
(Offline)
|
|
02.10.2007, 01:06
|
#36
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Re: Сеть
Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 10 сообщение(ий)):
У вас нет прав, чтобы видеть скрытый текст, содержащийся здесь.
|
|
(Offline)
|
|
03.10.2007, 14:21
|
#37
|
Бывалый
Регистрация: 05.09.2005
Сообщений: 623
Написано 4 полезных сообщений (для 5 пользователей)
|
Re: Сеть
кто-нить может мне доступно по-русски, популярно объяснить что такое полеризация и как она юзается?
|
(Offline)
|
|
04.10.2007, 22:37
|
#38
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Re: Сеть
|
(Offline)
|
|
05.10.2007, 02:22
|
#39
|
Нуждающийся
Регистрация: 01.07.2007
Сообщений: 58
Написано 15 полезных сообщений (для 49 пользователей)
|
Re: Сеть
Простите, а я чето не понял:а где мона взять эту статью от Тудеуса почитать? Ничего в сетях не понимаю, а понять хочу..)
|
(Offline)
|
|
05.10.2007, 11:08
|
#40
|
Бывалый
Регистрация: 05.09.2005
Сообщений: 623
Написано 4 полезных сообщений (для 5 пользователей)
|
Re: Сеть
Сообщение от Nereis
Простите, а я чето не понял:а где мона взять эту статью от Тудеуса почитать? Ничего в сетях не понимаю, а понять хочу..)
|
В разделе FAQ
|
(Offline)
|
|
05.10.2007, 12:33
|
#41
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Re: Сеть
|
(Offline)
|
|
05.10.2007, 16:07
|
#42
|
Оператор ЭВМ
Регистрация: 09.04.2007
Сообщений: 28
Написано 2 полезных сообщений (для 2 пользователей)
|
Re: Сеть
Пробую передать файл по сети, вроде все отрабатывает, но файл получается заполнен 0
ниже код, может что подскажите?
Сервер
; Создаем сервер для передачи файла
FileServer = CreateTCPServer (1313)
If FileServer <>0 Then
n = CountHostIPs("")
ip = HostIP(1)
ipaddress$ = DottedIP$(ip)
Print "Сервер запущен удачно. IP: "+ ipaddress$
Else
Print "Ошибка создания сервера."
End
End If
;WaitKey
; ========================
While Not KeyHit(1)
strStream=AcceptTCPStream(FileServer)
; обработка команд
If strStream Then
s$=ReadString$(strStream)
location = Instr( s$,"GET",1)
If location <>0 Then
f$ = Mid$(s$,location+4, Len (s$)-location+4)
Print "Файл "+f$
; Работа с файлом
fileOut = OpenFile (f$)
If fileOut = 0 Then
Print "Файл "+f$+" не найден!"
Else
flSize = FileSize (f$)
bank = CreateBank (flSize)
; Передача файла
WriteInt StrStream, flSize
; Считать из файла в банк памяти
ReadBytes bank,fileOut,0, flSize
; Закрыть файл
CloseFile fileOut
WriteBytes bank, strStream, 0, flSize
EndIf
End If
End If
Wend
End
Клиент
fileStrim = OpenTCPStream ("10.9.26.7",1313)
If fileStrim <> 0 Then
Print "Клиент соединился с сервером."
Else
Print "Сервер не отвечает."
WaitKey
End
End If
WriteString fileStrim, "GET Test.exe"
size = ReadInt (fileStrim)
bank = CreateBank (size)
Print size
ReadBytes (bank, fileStrim,0,fileStrim)
fileout = WriteFile("Test1.exe")
WriteBytes (bank, fileout,0, BankSize (bank))
CloseFile (fileout)
Print "OK"
WaitKey
End
|
(Offline)
|
|
05.10.2007, 16:31
|
#43
|
|
Re: Сеть
передавай файл побайтово ... данные же не моментально пересылаются
|
|
|
05.10.2007, 16:36
|
#44
|
Оператор ЭВМ
Регистрация: 09.04.2007
Сообщений: 28
Написано 2 полезных сообщений (для 2 пользователей)
|
Re: Сеть
Сообщение от jimon
передавай файл побайтово ... данные же не моментально пересылаются
|
Получается блитц поток не может передать целеком?
какая разница между потоком файла и сетевым потоком.
Он же из файла читает?
Темболее работаю с TCP/IP там после передачи пакета идет проверка на прием, если не дошло - снова посылается.
А если побайтно передавать, то какой смысл использовать банк?
|
(Offline)
|
|
05.10.2007, 17:48
|
#45
|
|
Re: Сеть
блин, ReadBytes не будет ждать пока поток достигнет заданых размеров
и то что не доступно просто заполнит нулями
просто поток передается НЕ СРАЗУ
|
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
Сеть? |
elmortem |
2D-программирование |
15 |
30.12.2009 03:38 |
Сеть |
dector |
Стихотворения |
5 |
05.01.2008 19:28 |
MFC & сеть |
impersonalis |
C++ |
2 |
22.11.2007 17:09 |
СЕТЬ...СЕТЬ...СЕТЬ... |
ЛысыЙ_Чук-Иванчук |
3D-программирование |
8 |
19.03.2007 22:18 |
Сеть. |
HolyDel |
Blitz3D |
3 |
13.03.2007 05:29 |
Часовой пояс GMT +4, время: 23:43.
|