WinSock в asm

[Ulex]

Сокет у тебя уже есть.
У тебя протокол не работает.
По запросу твоего клиента я уже писал:

Во вторых - запрос клиента должен заканчиваться пустой строкой.

Ты это не исправил. У тебя запрос не закончен.

По коду - ну у тебя нет выхода из цикла приёма. И вообще, принимать в MessageBox ~ 100 Кбайт - овую страничку пачками по 256 байт, это конечно на редкостного гурмана.

[_PROGRAMM_]

У тебя протокол не работает.

Что это значит? Запрос неправильный?

запрос клиента должен заканчиваться пустой строкой.

Всмысле 13,10?

По коду - ну у тебя нет выхода из цикла приёма

А разве при завершении чтения функция не возвращает -1? Я посмотрю в вашем коде, но могу не найти

это конечно на редкостного гурмана

А у вас buffer size вроде 256, хотя была еще какая-то переменная на тысячу или 10000

[Ulex]

Что это значит? Запрос неправильный?

Да, он не закончен.

Всмысле 13,10?

Да

А разве при завершении чтения функция не возвращает -1?

При успешном завершении функция recv возвращает количество полученных байт.

А у вас buffer size вроде 256, хотя была еще какая-то переменная на тысячу или 10000

Ну я больше про сам вывод. Ожидается получить примерно стокилобайтную страничку, пакетами по 256 байт. Т.е. это примерно 400 Messagebox-ов, каждому из которых надо нажать OK. Кому как, а мне уже на четвёртом это надоело.

[_PROGRAMM_]

Спасибо огромное за помощь. Клиент наконец-то сделал. Теперь руки дошли до сервера. Все нормально, по-моему, до вызова accept'а. Он возвращает -1.

include 'F:/FASM/INCLUDE/win32ax.inc'
.data
struc   SOCKADDR
{
        .sin_family      dw      0
        .sin_port        dw      0
        .sin_addr        dd      0
        .sin_zero        db      8 dup(0)
}
wsadata          WSADATA
host             db 'localhost',0
Hello            db 'Приветствие',0
socketaddr       SOCKADDR
PORT             equ 7254
brChar           db 0Dh,0Ah
bufstr           db 80    dup(0)
ReadBuf          db 256     dup(0)
stdout           dd 0
cWritten         dd 0
stdin            dd 0
sockhandle       dd 0
sockclient       dd 0
.code
start:
             invoke  AllocConsole
             invoke  GetStdHandle,STD_OUTPUT_HANDLE
             mov     [stdout],eax
             invoke  GetStdHandle,STD_INPUT_HANDLE
             mov     [stdin], eax

             invoke  WSAStartup,101h,wsadata
             cmp     eax,0
             jnz     ErrorSock

             invoke  socket, AF_INET,SOCK_STREAM,0
             cmp     eax,-1
             jz      ErrorSock
             mov     [sockhandle],eax

             mov     [socketaddr.sin_family],AF_INET

             invoke  gethostbyname,host
             cmp     eax,0
             jz      ErrorSock
             mov     eax,DWORD [eax+12]
             mov     eax,[eax]
             mov     eax,[eax]


             mov     [socketaddr.sin_addr],eax
             invoke  htons,PORT
             mov     [socketaddr.sin_port],ax

             ;áèíäèíã ñîêåòà ê ëîêàëüíîìó ïîðòó
             invoke  bind,[sockhandle],socketaddr,sizeof.sockaddr_in
             cmp     eax,0
             jnz     ErrorSock

             invoke  listen,[sockhandle],10
             cmp     eax,0
             jnz     ErrorSock

lp:          invoke  accept,[sockhandle],socketaddr,sizeof.sockaddr_in
             cmp     eax,-1
             jz      ErrorSock
             mov     [sockclient],eax

             invoke  lstrlen,Hello
             invoke  send,[sockclient],Hello,eax,0
             jmp     lp

             jmp     EndServ
ErrorSock:   stdcall WriteConsoleRus,Failed,4; извещение об ошибке
EndServ:     invoke  WSACleanup
             invoke  ReadConsole,[stdin],ReadBuf,256,cWritten,0
             invoke  ExitProcess,0

Код очищал от лишних извещений, мог ненароком что-нибудь удалить.

[Ulex]

-Так серверу вроде зачем gethostbyname. Он же сам сервер.

-третий параметр функции accept - это адрес переменной, которая содержит размер структуры sockaddr_in, а не константа - это важная ошибка.

Вот вам примерчик консольного сервера-попугая:

[_PROGRAMM_]

Благодарю за помощь.

Так серверу вроде зачем gethostbyname. Он же сам сервер.

Мне кажется - да. Когда я в структуру запихиваю localhost, через gethostbyname, его не видно из локальной сети, а если 192.168.1.2, то видно.

[_PROGRAMM_]

Решил испытать сервер-клиент через интернет и выяснил, что он не работает, хотя через localhost функционирует.

proc    CreateSocketServer,port

        invoke  WSAStartup,101h,wsadata
        cmp     eax,0
        jnz     errorsock

        invoke  socket, AF_INET,SOCK_STREAM,0
        cmp     eax,-1
        jz      errorsock
        mov     [sockhandle],eax
        mov     [socketaddr.sin_family],AF_INET

      ;  mov     [ErrorMessage],LocHost
      ;  invoke  gethostbyname,[host]
      ;  cmp     eax,0
      ;  jz      errorsock
      ;  mov     eax,DWORD[eax+12]
      ;  mov     eax,[eax]
      ;  mov     eax,[eax]
       ; mov     [socketaddr.sin_addr],eax
        invoke  htons,[port]
        mov     [socketaddr.sin_port],ax

        invoke  bind,[sockhandle],socketaddr,sizeof.sockaddr_in
        cmp     eax,0
        jnz     errorsock

        invoke  listen,[sockhandle],10
        cmp     eax,0
        jnz     errorsock

        invoke  MessageBox,0,'Cервер начнет прослушивание клиентов','Сервер работает',0

lp:

        cmp     [sockactive],0
        jz      endcreate

        invoke  accept,[sockhandle],socketaddr,0
        cmp     eax,-1
        jz      errorsock

        invoke  CreateThread,0,0,SockClientThread,ebx,0,id
        jmp     lp

Как исправить? В чем проблема?

[Пепел Феникса]

доступ то к компу из инета есть?

[waleri]

Проверьте на какой адрес вы делаете bind.

[_PROGRAMM_]

доступ то к компу из инета есть?

Есть.

Проверьте на какой адрес вы делаете bind.

Ни на какой. Вы же видите, что я gethostbyname закомментировал. А какой адрес должен быть? Тот под которым я в интернете? А вот, например, есть такой компонент TServerSocket он не требует адреса. И в любые другие серверы не нужно вводить ip. Может они как-нибудь сами его находят?
--
Если у кто-то сможет попробовать у себя - отпишитесь. Добавил экзешники в аттач