HiAsm
HiAsm
Вверх ↑
ФорумыНовые компонентыHTTP Server ← Ctrl1234Ctrl →
Этот топик читают: Гость
Ответов: 563
Рейтинг: 54
#46: 2007-12-28 17:19:25 ЛС | профиль | цитата
и за одно чтоб не создавай новый топик хотел спросить как сделать что то вроде voice (переговорника).
хотелось бы замутить что то вроде радио как в WinAmp'e или JetAudio.
карма: 0

0
Администрация
Ответов: 15294
Рейтинг: 1518
#47: 2007-12-28 17:56:54 ЛС | профиль | цитата
bublik писал(а):
Dilma, я знаю ты умный!!! помоги плиз....

bublik, мы уже вышли из того возраста, когда берут "на слабо" или на не обоснованную лесть. Вопрос не относящийся к теме "HTTP Server" просьба вынести в отдельную тему.
карма: 26
https://hiasm.com
0
Ответов: 563
Рейтинг: 54
#48: 2007-12-28 18:08:25 ЛС | профиль | цитата
окей
карма: 0

0
Ответов: 2125
Рейтинг: 159
#49: 2007-12-28 20:03:05 ЛС | профиль | цитата
Galkov писал(а):
не помню точно

HWND_MESSAGE
Надо бы проверить...
------------ Дoбавленo:

Гость писал(а):
как загружать страцицы, которые используют bmp, jpg, gif


Вот схема простейшего web-сервера: 


Add(MainForm,3006772,105,112)
{
 Left=20
 Top=105
 link(onCreate,4557003:##open,[])
}
Add(TCP_ServerEx,4557003,168,147)
{
}
BEGIN_SDK
  Add(EditMultiEx,9971778,3,3)
  {
   WorkCount=#6:##open|
   Width=650
   Height=333
  }
  Add(TCP_Connection,916654,42,56)
  {
   link(onRead,6091776:doSearch,[])
  }
  Add(FormatStr,14028257,557,231)
  {
   Mask="%2Content-Length: %1

"
   link(onFString,5832223:doWork2,[])
   link(Str1,6544603:Size,[(563,216)(524,216)])
   link(Str2,2893471:Text,[])
  }
  Add(Convertor,8776093,511,273)
  {
   Mode=11
   link(onResult,5832223:doWork3,[(613,279)])
   link(Data,6544603:Stream,[])
  }
  Add(StrList,2893471,564,162)
  {
   Strings=#15:HTTP/1.1 200 OK|32:Server: mywebserver/1.0.0(Win32)|
  }
  Add(BlockFind,6091776,91,56)
  {
   IncludeBlock=1
   StartBlock="GET "
   EndBlock=" HTTP"
   link(onSearch,12312877:doReplace,[])
  }
  Add(Hub,2110309,427,168)
  {
   OutCount=4
   link(onEvent1,6544603:doOpen,[])
   link(onEvent2,14028257:doString,[(492,181)(492,237)])
   link(onEvent3,8776093:doConvert,[(485,188)(485,279)])
   link(onEvent4,6544603:doClose,[(500,195)(500,181)])
  }
  Add(HubEx,2954087,609,105)
  {
   Angle=3
   link(onEvent,916654:doSend,[(613,37)(30,37)(30,69)])
  }
  Add(Replace,12312877,154,56)
  {
   SubStr="/"
   DestStr="\"
   link(onReplace,8984929:doStrCat,[])
  }
  Add(StrCat,8984929,203,56)
  {
   Str1="www"
   link(onStrCat,14307555:doValue,[])
  }
  Add(Memory,14307555,252,56)
  {
   link(onData,2500498:doFileExists,[(296,62)(296,83)])
  }
  Add(FileStream,6544603,511,168)
  {
   link(FileName,14307555:Value,[(517,153)(258,153)])
  }
  Add(HubEx,5832223,609,224)
  {
   Angle=3
   link(onEvent,2954087:doWork3,[])
  }
  Add(FileTools,2500498,308,56)
  {
   link(onEnd,12755746:doEvent,[])
  }
  Add(IndexToChanel,12755746,357,56)
  {
   link(onEvent1,10876968:doData,[(450,62)(450,118)])
   link(onEvent2,2110309:doEvent1,[(408,69)(408,174)])
  }
  Add(StrList,8702102,511,49)
  {
   Strings=#22:HTTP/1.1 404 Not found|32:Server: mywebserver/1.0.0(Win32)|18:Content-Length: 48|0:|46:<html><body><h1>Not found !</h1></body></html>|
  }
  Add(DoData,10876968,511,112)
  {
   link(onEventData,2954087:doWork2,[])
   link(Data,8702102:Text,[])
  }
END_SDK

Он не выдаёт тип содержимого, только длинну, но браузерам это по барабану.
Кстати, конвертору Stream2Hex явно нехватает возможности перевода Stream2Str Так, как тут сделано - извращение.

------------ Дoбавленo:

Тут, однако, не поддерживается такая важная фича, как Referer, т.е. когда пути к другим файлам запрашиваются относительно пути к странице.
карма: 1

0
Ответов: 9906
Рейтинг: 351
#50: 2007-12-28 20:18:44 ЛС | профиль | цитата
tsdima писал(а):
явно нехватает возможности перевода Stream2Str


#sha
Add(Convertor,14444031,161,126)
{
 Mode=11
}
карма: 9

0
Ответов: 2125
Рейтинг: 159
#51: 2007-12-28 21:09:30 ЛС | профиль | цитата
Молодец! Щас схемку поправлю
------------ Дoбавленo:

Dilma, в примеры можно поместить схему двумя постами выше. Или как альтернативу.
карма: 1

0
Ответов: 563
Рейтинг: 54
#52: 2007-12-28 21:50:14 ЛС | профиль | цитата
tsdima, да былобы неплохо поправить и в примеры! весч!
карма: 0

0
Ответов: 1328
Рейтинг: 69
#53: 2007-12-30 02:19:36 ЛС | профиль | цитата
bublik писал(а):
как преобразовать картинку в бинарные данные?


Add(BitmapStream,23496,259,238)
{
 link(Stream,93822:Stream,[])
}
Add(Button,5301608,182,245)
{
 Left=30
 Top=65
 Caption="Write"
 link(onClick,23496:doWrite,[])
}
Add(MemoryStream,93822,259,175)
{
}
карма: 2

0
Администрация
Ответов: 15294
Рейтинг: 1518
#54: 2007-12-30 17:27:45 ЛС | профиль | цитата
добавлено в примеры
карма: 26
https://hiasm.com
0
Разработчик
Ответов: 26066
Рейтинг: 2121
#55: 2007-12-30 17:34:50 ЛС | профиль | цитата
Dilma, вопрос о примерах, кстати, так и остался открытым (помнишь наш разговор?)
карма: 22

0
Администрация
Ответов: 15294
Рейтинг: 1518
#56: 2007-12-30 18:32:40 ЛС | профиль | цитата
пока открыт
карма: 26
https://hiasm.com
0
56
ФорумыНовые компонентыHTTP Server ← Ctrl1234Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика