forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - Сеть (http://forum.boolean.name/showthread.php?t=4532)

Цитата:

Как бы ни был умен бот, лучше играть с живыми людьми (с) HolyDel

;)

Цитата:

Сообщение от Tadeus

;)

это точно, но блин...эти жестокие семплы(

Цитата:

Сообщение от Fant

это точно, но блин...эти жестокие семплы(

А ты вообще насколько хорошо соображаешь в написании сети?

Средне и чуть ниже :-)

Цитата:

Сообщение от Tadeus

Средне и чуть ниже :-)

ПОнятно, а у тебя есть аська? Ты мне не поможешь с сетью?

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 10 сообщение(ий)):

У вас нет прав, чтобы видеть скрытый текст, содержащийся здесь.

;)

кто-нить может мне доступно по-русски, популярно объяснить что такое полеризация и как она юзается?

Вот ща тестили пример с Фантом. Это жОстко :-D Проверили каждый в локалке - пашет. Пробуем в Интернете. Фант запустил сервак я подключаюсь. Не вижу сеансов и с дурости ввожу 1 и нажимаю "Создать Игру". И тут :lol: На экране только ОДИН кубик, которым управляет Фант. Я пацталом... :-D :-D :-D

Простите, а я чето не понял:а где мона взять эту статью от Тудеуса почитать? Ничего в сетях не понимаю, а понять хочу..)

Цитата:

Сообщение от Nereis

В разделе FAQ

Пробую передать файл по сети, вроде все отрабатывает, но файл получается заполнен 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

передавай файл побайтово ... данные же не моментально пересылаются

Цитата:

Сообщение от jimon

передавай файл побайтово ... данные же не моментально пересылаются

Получается блитц поток не может передать целеком?
какая разница между потоком файла и сетевым потоком.
Он же из файла читает?

Темболее работаю с TCP/IP там после передачи пакета идет проверка на прием, если не дошло - снова посылается.
А если побайтно передавать, то какой смысл использовать банк?

блин, ReadBytes не будет ждать пока поток достигнет заданых размеров
и то что не доступно просто заполнит нулями

просто поток передается НЕ СРАЗУ