HTTP Server - HiAsm

Форумы Новые компонентыHTTP Server ← Ctrl1 2 34Ctrl →

Этот топик читают: Гость

Ответов: 563

Рейтинг: 54

#46: 2007-12-28 17:19:25 ЛС | профиль | цитата

и за одно чтоб не создавай новый топик хотел спросить как сделать что то вроде voice (переговорника).
хотелось бы замутить что то вроде радио как в WinAmp'e или JetAudio.

карма: 0

Администрация

Ответов: 15295

Рейтинг: 1519

#47: 2007-12-28 17:56:54 ЛС | профиль | цитата

bublik писал(а):

Dilma, я знаю ты умный!!! помоги плиз....

bublik, мы уже вышли из того возраста, когда берут "на слабо" или на не обоснованную лесть. Вопрос не относящийся к теме "HTTP Server" просьба вынести в отдельную тему.

карма: 26

https://hiasm.com

Ответов: 563

Рейтинг: 54

#48: 2007-12-28 18:08:25 ЛС | профиль | цитата

окей

карма: 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

Ответов: 9906

Рейтинг: 351

#50: 2007-12-28 20:18:44 ЛС | профиль | цитата

tsdima писал(а):

явно нехватает возможности перевода Stream2Str


#sha
Add(Convertor,14444031,161,126)
{
 Mode=11
}

карма: 9

Ответов: 2125

Рейтинг: 159

#51: 2007-12-28 21:09:30 ЛС | профиль | цитата

Молодец! Щас схемку поправлю

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

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

карма: 1

Ответов: 563

Рейтинг: 54

#52: 2007-12-28 21:50:14 ЛС | профиль | цитата

tsdima, да былобы неплохо поправить и в примеры! весч!

карма: 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

Администрация

Ответов: 15295

Рейтинг: 1519

#54: 2007-12-30 17:27:45 ЛС | профиль | цитата

добавлено в примеры

карма: 26

https://hiasm.com

Разработчик

Ответов: 26322

Рейтинг: 2147

#55: 2007-12-30 17:34:50 ЛС | профиль | цитата

Dilma, вопрос о примерах, кстати, так и остался открытым (помнишь наш разговор?)

карма: 22

Администрация

Ответов: 15295

Рейтинг: 1519

#56: 2007-12-30 18:32:40 ЛС | профиль | цитата

пока открыт

карма: 26

https://hiasm.com

Форумы Новые компонентыHTTP Server ← Ctrl1 2 34Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)