Kapcsolat visszaállítása a szakértői

előző ◈ a következő

Kapcsolat visszaállítása a szakértői

Kedves Mester!
problémái a lényeg a következő:
Régebben Indy9, majd postvil 10 - még mindig nem segít!
Azt yuzayu TIdHttpServer
Minden szép rabotet - csak akkor, ha van egy csomó olyan sok időt Eksploree kattintással frissítés gombra - azaz Sok kéréseket a szerver - a program összeomlik hiba
Kapcsolat visszaállítása a szakértői # 10054
Mit kell tenni? Tudomásul veszem, hogy ha a servku Konekt lesz egy csomó ember -, hogy repül?

10054 - távoli gép erőszakkal letépték meglévő kapcsolatot.

Szeretném tudni, hogy mi (valaki) csatlakozni?

Ie Böngésző konekttsya a TIdHttpServer

Che akkor azt hittem.
Vagy ha gyakran hívják frissítse a böngésző, nem a szerver megszakítja Konekt így TIdHttpServer azt mondja róla?

LOL. Nos, értem. Melyik Compiegne (LAN, WLAN, DSL, MODEM), milyen eszközökkel és részletes, ha azt szeretnénk, hogy kimerítő választ - ad átfogó tájékoztatást!

A Windows XP, van egy határ, 10 egyidejű kapcsolat.

apa Kondraty # XA0; (12.08.06 20,31) [5]
A Windows XP, van egy határ, 10 egyidejű kapcsolat.
E. 10 kapcsolatokat, ahol?

felület
felhasználások
# XA0, a Windows, az Üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
# XA0; Párbeszédpanelek, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer,
# XA0; IdHTTPServer. MaskUtils, Winsock, SyncObjs, IdContext;

típus
TSamHTTPServer = osztály (TIdHTTPServer)
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0, köz-
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; fname: String;
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; kivitelező létrehozása (AOwner: TComponent);
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; destructor megsemmisíti; felülbírálhatja;
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; eljárással _CommandGet (AContext: TIdContext;
# XA0; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; end;

VAR
# XA0; # XA0; SamHTTPServer: # XA0; TSamHTTPServer;
végrehajtás

destructor TSamHttpServer.Destroy;
kezdődik
# XA0; # XA0; örökölt;
végén;

eljárás # XA0; TSamHttpServer._CommandGet;
kezdődik
# XA0; # XA0;
# XA0; # XA0; ha FileExists (ExtractFileDir (Application.ExeName) + ARequestInfo.Document), majd
# XA0; # XA0; AResponseInfo.ContentStream: = TFileStream.Create (ExtractFileDir (Application.ExeNa Me) + ARequestInfo.Document, fmOpenRead);
végén;

kivitelező TSamHttpServer.Create;
kezdődik
# XA0; # XA0; örökölt létrehozása (AOwner);
# XA0; # XA0; DefaultPort: = 4444;
# XA0; # XA0; AutoStartSession: = true;
# XA0; # XA0; Aktív: = true;
# XA0; # XA0; OnCommandGet: = _ CommandGet;
végén;

én telepator nevez három opció:
a) határérték túllépése kiszolgáló kapcsolat;
b) kódja a görbe;
a) a + b.
% -)

> [5] Apa Kondraty # XA0; (12.08.06 20,31)
mit. hol? Ki? "Beaver, kilégzés!" (Q)

Próbálja ReuseSocket - rsTrue egyébként tényleg kód görbét.

Nakidal naskoryak - Van minden működik. -)

Lásd AResponseInfo.ContentStream: = TFileStream.Create hol és hogyan aztán megjelent?

A tiszta formájában - megállapodtak abban, hogy a munka!
Csak tényleg az oldalt kódot generál a program - elég időigényes és vremyaomky folyamat, azaz, Oldal betöltve 3-4 másodperc alatt!

Nos, akkor egyedileg - ajtófélfa a kódot. Ne lusta járni F7.

Kód szép és tiszta! minden szépen működik! probléma akkor jelentkezik, amikor sok Konekt!

„A motor nagyon hasonló volt a mai, de nem működik” (p)

Nos ka helyezze a felvezető eljárás # XA0; TSamHttpServer._CommandGet;
Sleep (10000);
És fuss, és kattintson a frissítés gombra # XA0; :-)))), hogy Dokdo oborzhotes!

Memória: 0,75 MB
Idő: 0,03 c

előző ◈ a következő