ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / webServer на c++ Скорость ?
10 сообщений из 10, страница 1 из 1
webServer на c++ Скорость ?
    #38113179
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Есть сервер на VB6.
По скорости загрузки/выгрузки файлов большой и средней длины - программа себя оправдовывает
А вот сравниться по скорости с Апач не может. Медлит. К примеру если б надо было открыть страницу которая подгружает много маленьких картинок - то будет видно как они подгружаются у тех в кого скоросной интернет.
Работает все на Winsock масивах с DoEvents

А на C++ как работает ?
...
Рейтинг: 0 / 0
17.01.2013, 01:31
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38113181
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
А на С++ оно не работает. Никто же этот сервер на С++ не писал, правда?
Вот напишут - тогда оно будет работать. А до тех пор - увы.
...
Рейтинг: 0 / 0
17.01.2013, 01:45
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38113209
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Да ладно шутить. Может шутите над "Web" = HTTP сервер (80 порт). Думаю кто-то точно делал с форумчан.
Вот как работает на vb6: http://stebnik.no-ip.info/
43kb прога
...
Рейтинг: 0 / 0
17.01.2013, 02:44
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38113227
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mayton
Участник
Андрей159, чтобы сравнить твоё изделие с С++ объективно - нужно
его воспроизвести с теми боками и дровами которые ты уже наломал.
Но ты конешно не расколешся и ничего не покажешь.

Если сравнивать его с чистым pure С++ веб-сервером (исходников
которого полно в opensource) то будет сравнение "жёлтого с квадратным"
и как следствие - необъективным и не нужным.
...
Рейтинг: 0 / 0
17.01.2013, 03:48
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38113251
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Все работает круглосуточно, уже почти 4-тый месяц бесперебойно.
Работает Listing. Как только клиент подседает на порт 80 создается новый Winsock который снова слушает порт 80. Многопоточность красиво работает, но затраты времени в соединении. Статус Winsock не сразу = 7 (подключено). Не пробовал через API делать, возможно будет быстрее. Также задержка может быть при расшифровки запроса. Не уверен что стринговые функции будут работать на С++ на много быстрее.
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
Private Function LeftRange(ByRef str As String, StrFrom As String, StrTo As String, Optional Compare As VbCompareMethod = 0, Optional RetError As Byte = 0) As String
  Dim K As Long, Q As Long

  K = InStr(1, str, StrFrom, Compare)
  If K > 0 Then
    Q = InStr(K + Len(StrFrom), str, StrTo, Compare)
    If Q > K Then
      LeftRange = Mid(str, K + Len(StrFrom), (Q - K) - Len(StrFrom))
    Else
      LeftRange = IIf(RetError = 0, str, "")
    End If
  Else
    LeftRange = IIf(RetError = 0, str, "")
  End If
End Function

Public Function LeftRight(ByRef str As String, LFind As String, Optional Compare As VbCompareMethod = 0, Optional RetError As Byte = 0) As String
  Dim K As Long

  K = InStr(1, str, LFind, Compare)
  If K = 0 Then
    LeftRight = IIf(RetError = 0, str, "")
  Else
    LeftRight = Right(str, (Len(str) - Len(LFind)) - K + 1)
  End If
End Function

Private Function GetIndex(ByVal Path As String) As String
  Dim Temp As String
  Dim i() As String
  Dim Lp As Integer

  If IndexHTML <> "" Then
    i = Split(IndexHTML, ";")
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    Lp = 0
    Do
      Temp = Dir(Path & i(Lp), 47)
      Lp = Lp + 1
    Loop While (Lp <= UBound(i)) And (Temp = "")
    GetIndex = Temp
  Else
    GetIndex = ""
  End If
End Function

Private Sub LogData(Meta As String)
  Dim Temp As String
 List1.AddItem Meta
 If List1.ListCount > 100 Then List1.RemoveItem 0
 List1.ListIndex = List1.ListCount - 1
  If Logging Then
    Temp = Meta
    Print #1, Temp
  End If
  If DLog Then Debug.Print Meta
End Sub

Private Function BuildHTMLDirList(ByVal Root As String, ByVal DirToList As String, ByVal RData As String)
  Dim Dirs As New Collection
  Dim Files As New Collection
  Dim Directory As String
  Dim Path As String
  Dim HTML As String
  Dim K As Long
  Dim s As String
  Dim nfile As String
  Dim IntPthFile As String
  Dim DirCategor As String
  'Root = Replace(Root, "/", "\")
  DirToList = Replace(DirToList, "/", "\")
  If Right(Root, 1) <> "\" Then Root = Root & "\"
  If Left(DirToList, 1) = "\" Then DirToList = Mid(DirToList, 2)
  If Right(DirToList, 1) <> "\" Then DirToList = DirToList & "\"
  ''DirToList = Replace(DirToList, "%20", " ")
  
''  DirToList = KonvertWWWBkvToNormBkv(DirToList)
  If DirToList = "\" Then
    DirCategor = ""
  Else
    DirCategor = KonvertWWWBkvToNormBkv(DirToList)
  End If
  Directory = Dir(Replace(Root & DirCategor, "\\", "\") & "*.*", 49)
  Do Until Len(Directory) = 0
    If Directory <> ".." And Directory <> "." Then
      Path = Replace(Root & DirCategor, "\\", "\") & Directory
      If (GetAttr(Path) And 16) = 16 Then
        Dirs.Add Directory
      Else
        If LCase(Right(Directory, 4)) = ".mp3" Then
          Files.Add Directory
        ElseIf LCase(Right(Directory, 4)) = ".lnk" Then
          s = VznatiPathLinkWindows(Replace(Root & DirCategor, "\\", "\") & Directory)
          If LCase(Right(s, 4)) = ".mp3" Then
            Files.Add s
          End If
        End If
      End If
    End If
    Directory = Dir
  Loop
  HTML = "<html><head><title>Музичний бумбокс</title><meta http-equiv=" & Chr(34) & "Content-Type" & Chr(34) & " content=" & Chr(34) & "text/html; charset=windows-1251" & Chr(34) & "></head><body>"
  HTML = HTML & "<img src=""http://stebnik.at.ua/Stebnik/FotoStebnik_2.jpg"">"
  
  If InStr(RData, "Chrome") = 0 Then HTML = HTML & "<h3>Музика буде відтворюватись лише в бравзері <a href=""https://chrome.google.com"">Chrome</a></h3><br>"
  
  
  If Dirs.Count > 0 Then
    HTML = HTML & "<b><h2>Папки:</h2></b><br>"
    For K = 1 To Dirs.Count
      HTML = HTML & "<p><img src=" & Chr(34) & "http://stebnik.at.ua/Stebnik/DSK.jpg" & Chr(34) & " align=" & Chr(34) & "absMiddle" & Chr(34) & " alt=" & Chr(34) & Chr(34) & " width=" & Chr(34) & "null" & Chr(34) & " height=" & Chr(34) & "null" & Chr(34) & "><span style=" & Chr(34) & "font-size: 14pt" & Chr(34) & ">" & "<a href=" & Chr(34) & Replace(Replace("/" & DirToList & KonvertWWWBkvToNormBkvRever(Dirs(K)), "\", "/"), "//", "/") & Chr(34) & ">" & Dirs(K) & "</a></span></p>" & Chr(10)
    Next K
  End If
  If Files.Count > 0 Then
    HTML = HTML & "<br><b><h2>Файли:</h2></b><table width=""100%"">" & Chr(10)
    For K = 1 To Files.Count
      HTML = HTML & "<tr>" & Chr(10)
      HTML = HTML & "<td width=""100%"">"
      
      nfile = Files(K)
      If InStr(Files(K), "\") = 0 Then
        IntPthFile = Replace(Replace("/" & DirToList & KonvertWWWBkvToNormBkvRever(Files(K)), "\", "/"), "//", "/")                 '"/" & ... БУЛО
      Else
        nfile = Mid(Files(K), Len(Root))
        IntPthFile = Replace(Replace("/" & KonvertWWWBkvToNormBkvRever(nfile), "\", "/"), "//", "/")
      End If
      If InStrRev(nfile, "\") > 0 Then nfile = Mid(nfile, InStrRev(nfile, "\") + 1) & "*"
HTML = HTML & "<object type=""application/x-shockwave-flash"" data=""http://stebnik.at.ua/My/dewplayer.swf"" width=""200"" height=""20"" id=""dewplayer"" name=""dewplayer"">"
HTML = HTML & "<param name=""movie"" value=""dewplayer.swf"" />"
HTML = HTML & "<param name=""flashvars"" value=""mp3=" & IntPthFile & """ />"
HTML = HTML & "<param name=""wmode"" value=""transparent"" />"
HTML = HTML & "</object>"
      If Len(nfile) > 3 Then
        If Left(Right(nfile, 4), 1) = "." Then
          nfile = Left(nfile, Len(nfile) - 4)
        End If
      End If
      If Check1.Value <> 0 Then
        HTML = HTML & "   " & "<a href=" & Chr(34) & IntPthFile & Chr(34) & ">" & nfile & "</a>" '& nfile '
      Else
        HTML = HTML & "   " & nfile
      End If
      HTML = HTML & "</td>" & Chr(10)
      HTML = HTML & "<td nowrap></td>" & Chr(10)
      HTML = HTML & "</tr>" & Chr(10)
    Next K
    HTML = HTML & "</table>" & Chr(10)
    If Dir(Replace(Root & DirCategor, "\\", "\") & "01.jpg") <> "" Then
      HTML = HTML & "<img src=""" & Replace(Replace("/" & DirToList & "/01.jpg", "\", "/"), "//", "/") & """ style=""position: absolute; left:600; top:400"">"
    End If
  End If
  If Dirs.Count = 0 And Files.Count = 0 Then
    HTML = HTML & "This folder is empty."
  End If
  BuildHTMLDirList = HTML & "</body></html>"
  Dim sss As String
  sss = (Replace(Root & DirCategor, "\\", "\") & "Info.html")
End Function

Private Sub WSock_DataArrival(Index As Integer, ByVal BytesTotal As Long)
  Dim RData As String
  Dim Header As String
  Dim RequestedFile As String
  Dim ContentType As String
  Dim CompletePath As String
  Dim DirList As String
On Error Resume Next
  'doevents
  WSock(Index).GetData RData, 8
  If InStr(RData, ".php") > 0 Then
          CInfo(Index).DataStr = "<h1><b>Відвали нах.. лузер галімий. Цю систему так просто не взламаєш.</b></h1>"
          CInfo(Index).FileNum = -1
          Header = "HTTP/1.0 200 OK" & vbCrLf & "Server: " & "Otsosi" & vbCrLf & "Content-Type: text/html;charset=windows-1251" & vbCrLf & "Content-Length: " & Len(CInfo(Index).DataStr) & vbCrLf & vbCrLf
          CInfo(Index).TotalLength = Len(Header) + Len(CInfo(Index).DataStr)
   GoTo spam
  End If
  
  If RData Like "GET * HTTP/1.?*" Then
    RequestedFile = LeftRange(RData, "GET ", " HTTP/1.", , 1)
    If InStr(1, RequestedFile, "/../") > 0 Or InStr(1, RequestedFile, "/./") > 0 Or InStr(1, RequestedFile, "*") > 0 Or InStr(1, RequestedFile, "?") > 0 Or RequestedFile = "" Then
      Header = "HTTP/1.0 404 Not Found" & vbCrLf & "Server: " & ServerName & vbCrLf & vbCrLf
      CInfo(Index).TotalLength = Len(Header)
      WSock(Index).SendData Header
    Else
      If RequestedFile = "/" Then
        CompletePath = WebRoot & "\"
      Else
        CompletePath = WebRoot & Replace(Replace(KonvertWWWBkvToNormBkv(RequestedFile), "/", "\"), "\\", "\")
      End If
      
      If LogC Then LogData Now & ": " & WSock(Index).RemoteHostIP & ": " & CompletePath
      If Dir(CompletePath, 49) <> "" Then
        If (GetAttr(CompletePath) And 16) = 16 Then
          DirList = GetIndex(CompletePath)
          If DirList <> "" Then
            If Right(CompletePath, 1) <> "\" Then CompletePath = CompletePath & "\"
            CompletePath = CompletePath & DirList
            If Right(RequestedFile, 1) <> "/" Then RequestedFile = RequestedFile & "/"
            RequestedFile = RequestedFile & DirList
          End If
        End If
        
        If (GetAttr(CompletePath) And 16) = 16 Then
          CInfo(Index).DataStr = BuildHTMLDirList(WebRoot, RequestedFile, RData)
          CInfo(Index).FileNum = -1
          Header = "HTTP/1.0 200 OK" & vbCrLf & "Server: " & ServerName & vbCrLf & "Content-Type: text/html;charset=windows-1251" & vbCrLf & "Content-Length: " & Len(CInfo(Index).DataStr) & vbCrLf & vbCrLf
          CInfo(Index).TotalLength = Len(Header) + Len(CInfo(Index).DataStr)
        Else
          LFileProgress(Index).Caption = "Transfering: " & RequestedFile
          CInfo(Index).FileName = RequestedFile
          CInfo(Index).FileNum = FreeFile
          Open CompletePath For Binary Access Read As CInfo(Index).FileNum
          Select Case LCase(LeftRight(RequestedFile, ".", , 1))
            Case "jpg", "jpeg"
              ContentType = "Content-Type: image/jpeg"
            Case "gif"
              ContentType = "Content-Type: image/gif"
            Case "htm", "html"
              ContentType = "Content-Type: text/html"
            Case "zip"
              ContentType = "Content-Type: application/zip"
            Case "mp3"
              '"<object type="application/x-shockwave-flash" data="http://stebnik.at.ua/Stebnik/player_mp3_maxi.swf" width="200" height="20"><param name="movie" value="http://stebnik.at.ua/Stebnik/player_mp3_maxi.swf" /><param name="bgcolor" value="#ffffff" /><param name="FlashVars" value="mp3=http://m1.connect.ua/a/k9/zf/8e/bm/k9zf8ebm.mp3" /></object>"
              ContentType = "Content-Type: audio/mpeg"
            Case "m3u", "pls", "xpl"
              ContentType = "Content-Type: audio/x-mpegurl"
            Case Else
              ContentType = "Content-Type: */*"
          End Select
          Header = "HTTP/1.0 200 OK" & vbCrLf & "Server: " & ServerName & vbCrLf & ContentType & vbCrLf & "Content-Length: " & LOF(CInfo(Index).FileNum) & vbCrLf & vbCrLf
          CInfo(Index).TotalLength = Len(Header) + LOF(CInfo(Index).FileNum)
        End If
spam:
        WSock(Index).SendData Header
      Else
        Header = "HTTP/1.0 404 Not Found" & vbCrLf & "Server: " & ServerName & vbCrLf & vbCrLf
        CInfo(Index).TotalLength = Len(Header)
        WSock(Index).SendData Header
      End If
    End If
  Else
    Header = "HTTP/1.0 501 Not Implemented" & vbCrLf & "Server: " & ServerName & vbCrLf & vbCrLf
    CInfo(Index).TotalLength = Len(Header)
    WSock(Index).SendData Header
  End If
End Sub

Private Sub WSock_ConnectionRequest(Index As Integer, ByVal RequestID As Long)
  Dim K As Integer
  Dim Lp As Integer
  K = -1
  For Lp = 1 To WSock.UBound
    If (WSock(Lp).State = 0) And (K < 0) Then K = Lp
  Next Lp
  If K < 0 Then
    K = WSock.UBound + 1
    Load WSock(K)
    Load LFileProgress(K)
    LFileProgress(K).Top = 240 * K
    LFileProgress(K).Visible = True
    ReDim Preserve CInfo(K)
    Load TSendData(K)
    TSendData(K).Enabled = False
    TSendData(K).Interval = 1
  End If
  CInfo(K).FileNum = 0
  CInfo(K).FileName = ""
  CInfo(K).TotalLength = 0
  CInfo(K).TotalSent = 0
  WSock(K).Accept RequestID
End Sub

Private Sub WSock_SendComplete(Index As Integer)
  If CInfo(Index).TotalSent >= CInfo(Index).TotalLength Then
    WSock_Close Index
  Else
    TSendData(Index).Interval = 1
    TSendData(Index).Enabled = True
  End If
End Sub

Private Sub WSock_SendProgress(Index As Integer, ByVal BytesSent As Long, ByVal BytesRemaining As Long)
  CInfo(Index).TotalSent = CInfo(Index).TotalSent + BytesSent
  If CInfo(Index).FileNum > 0 Then
    On Error Resume Next
    LFileProgress(Index).Caption = "Transfering: " & Left(CInfo(Index).FileName, 30) & " - " & CStr(CInfo(Index).TotalSent) & " of " & CStr(LOF(CInfo(Index).FileNum)) & " bytes sent (" & Format(CInfo(Index).TotalSent / LOF(CInfo(Index).FileNum) * 100#, "00.00") & "% Done)."
    If Err.Number <> 0 Then
      If LogE Then LogData Now & ": (" & CStr(Index) & ") Error " & Err.Number & " - " & Err.Description
      Err.Clear
    End If
  End If
End Sub

Private Sub WSock_Close(Index As Integer)
On Error Resume Next
  TSendData(Index).Enabled = False
  Do
    WSock(Index).Close
    DoEvents
  Loop Until WSock(Index).State = 0
  Close CInfo(Index).FileNum
  CInfo(Index).FileNum = 0
  CInfo(Index).FileName = ""
  CInfo(Index).TotalLength = 0
  CInfo(Index).TotalSent = 0
  LFileProgress(Index).Caption = "Closed"
End Sub

Private Sub TSendData_Timer(Index As Integer)
  Const BufferLength As Long = 65000
  Dim Buffer As String

  If CInfo(Index).FileNum = -1 Then
    Buffer = Left(CInfo(Index).DataStr, BufferLength)
    CInfo(Index).DataStr = Mid(CInfo(Index).DataStr, BufferLength + 1)
    WSock(Index).SendData Buffer
    If Len(CInfo(Index).DataStr) = 0 Then CInfo(Index).FileNum = 0
  ElseIf CInfo(Index).FileNum > 0 Then
    If Loc(CInfo(Index).FileNum) + BufferLength > LOF(CInfo(Index).FileNum) Then
      Buffer = String(LOF(CInfo(Index).FileNum) - Loc(CInfo(Index).FileNum), 0)
    Else
      Buffer = String(BufferLength, 0)
    End If
    Get CInfo(Index).FileNum, , Buffer
    WSock(Index).SendData Buffer
    If Loc(CInfo(Index).FileNum) >= LOF(CInfo(Index).FileNum) Then
      Close CInfo(Index).FileNum
      CInfo(Index).FileNum = 0
    End If
  End If
  TSendData(Index).Enabled = False
End Sub

...
Рейтинг: 0 / 0
17.01.2013, 04:56
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38114098
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mayton
Участник
Андрей159Все работает круглосуточно, уже почти 4-тый месяц бесперебойно.
Мегакруто, чел. Но сколько у тебя посетителей? Сколько http-запросов в секунду/минуту/час ?
...
Рейтинг: 0 / 0
17.01.2013, 15:12
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38116124
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
1. Сайтец работает на no-ip.info Я не уверен что гугл индексирует также no-ip.info как .com
2. Я не пытаюсь раскучивать этот сайт, поскольку он еще не готов. Есть идея сделать файлообменник и это реально
3. Да, ведется LOG в файл и кроме роботов есть много непонятных запросов. К примеру айпи с Индии часто дает запрос на .../setup.php, swx. На сколько я понял есть наверное бесплатные сборки работоспособных сайтов, в которых есть ряд дополнительных функций которые можно активировать вот таким простым способом. Может быть так делают взлом главных паролей. Мой приятель говорил что ему на сайт сунули все время спам рекламу (на джумле)
4. я всегда думал что компилированный файл должен работать быстрее и надежней чем прямое исполнения сырого кода PHP (мне не известно компилируется он там или нет)
...
Рейтинг: 0 / 0
19.01.2013, 00:12
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38116127
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
"Сколько http-запросов в секунду/минуту/час ?'
Мне не известно. В кабинете информатики делали тест: 8 компьютеров посылались по локалке на указанный компьютер с портом 80. Им открывалась эта страница. Эксперимент делали чтоб посмотреть не вышибет ли программу. На каждом компе одновременно зажимали клавишу F5 (обновление страницы), а также скорость повторения на клавиатуре было увеличено. Некоторые запросы сначало проскакывали и 1/10 часть могло быть пропущена (код 404), но дописав DoEvents в Connect все заработало отлично и без збоев. Процессорная нагрузка не растет (одно что радует). Потом пробовали качать большие файлы и сразу несколько и в то же времья просить доступ к странице снова зажав клавишу (обновления страницы). Работает. Мне было интересно увидеть крах, создать то условие с которым программа не справится, но технически не было такой возможности
...
Рейтинг: 0 / 0
19.01.2013, 00:25
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38116130
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mayton
Участник
Вставь логгирование запросов с тоным времеменем. И пособирай статистику
в течение нескольких дней. Без этой информации невозможно дать оценку
нагрузки.
...
Рейтинг: 0 / 0
19.01.2013, 00:37
| Ответить | Цитировать | Написать  
webServer на c++ Скорость ?
    #38116161
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Есть такое. Просто фигню спорол. Open MyFile for output дал. А надо Open MyFile for append. Запустил еще раз программу и перетер файл. Потом выложу
...
Рейтинг: 0 / 0
19.01.2013, 02:03
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / webServer на c++ Скорость ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&msg=38113181&tid=1341953]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 184ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 238ms
total:  496ms
созд. / загр.: 496ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]