PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » сижу туплю не понимаю, что не так...

сижу туплю не понимаю, что не так...

Страница: 1

Сообщений 1 страница 4 из 4

1

  • Автор: amer
  • Участник
  • Зарегистрирован: 26.02.2016
  • Приглашений: 0
  • Сообщений: 27
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    2 дня 3 часа
  • Последний визит:
    31.01.2025 14:20:39

вот куски из проги:

Код:
......

Structure ForClient
  ClientID.l
  TXT.s
EndStructure
Global ToClient.ForClient

......

Procedure PrepData(ClientID)
  *Buffer = AllocateMemory(1000)
  ......
  тут из бд получаем строку txt.s
  ......
  FreeMemory(*Buffer)
  ToClient/ClientID = ClientID     >>>>   Comparisons (=, <, >, =< And >=) are only supported With keywords like If, While, Until Or within Bool().
  ToClient/TXT = txt.s
EndProcedure

Procedure SendData(*Param)  ;работает в отдельном потоке
    SendNetworkString(*Param/ClientID, *Param/TXT)
  EndProcedure
  
Procedure Server_Events(SEvent)
  ClientID = EventClient()
  Select SEvent
  Case #PB_NetworkEvent_Connect
    addClient(ClientID)
  Case #PB_NetworkEvent_Data
    PrepData(ClientID)
    Thread = CreateThread(@SendData(), @ForClient)
  Case #PB_NetworkEvent_Disconnect
    delClient(ClientID)
  EndSelect
EndProcedure

подскажите плиз, что не так...

Доперло... :)
ToClient/ClientID = ClientID   надо в другую сторону ToClient\ClientID = ClientID

теперь вот такая хрень: The following variable doesn't have a 'Structure': *Param.
вот здесь:  SendNetworkString(*Param/ClientID, *Param/TXT)

Отредактировано amer (26.02.2016 20:55:17)

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3033
  • Уважение: [+99/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 01:24:13
Код:
SendNetworkString(*Param\ClientID, *Param\TXT)

0

3

  • Автор: amer
  • Участник
  • Зарегистрирован: 26.02.2016
  • Приглашений: 0
  • Сообщений: 27
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    2 дня 3 часа
  • Последний визит:
    31.01.2025 14:20:39

/ переправил на \ когда первую ошибку нашел.
это уже видимо по другому поводу :(
The following variable doesn't have a 'Structure': *ForClient.

Спасибо, Петр. Я смотрю Вы с завидным терпением всем отвечаете...

0

4

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3033
  • Уважение: [+99/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 01:24:13

Должно быть.

Код:
Procedure SendData(*Param.ForClient)  ;работает в отдельном потоке
  SendNetworkString(*Param\ClientID, *Param\TXT)
EndProcedure

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » сижу туплю не понимаю, что не так...