Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
У древних версий IE был глюк при размере ответа < 512 байт... 02.04.04 09:24 Число просмотров: 1471
Автор: Killer{R} <Dmitry> Статус: Elderman
Отредактировано 02.04.04 09:33 Количество правок: 1
|
Вот кусок скрипта - простейшего ХТТП сервера, правда для моей проги и на паскале. С ИЕ и оперой работает на ура. С мозиллой тоже работает тока посколько я ее не юзаю то не могу сказать с какой именно версией оно работало:
ct:='application/octet-stream';
if(pos('.gif',ts)<>0)then ct:='image/gif';
if(pos('.bmp',ts)<>0)then ct:='image/bmp';
if(pos('.jpg',ts)<>0)or(pos('.jpeg',ts)<>0) then ct:='image/jpeg';
if(pos('.htm',ts)<>0)or(pos('.txt',ts)<>0) then ct:='text/html';
while(recvln<>'')do;
ts:='http\'+ts;
f:=openfile(ts,1);
if(f<>0)then
begin
j:=getfilesize(f,g);
closefile(f);
send('HTTP/1.1 200 OK'+chr(13)+chr(10));
end else
begin
j:=19;
send('HTTP/1.1 503 Service Unavailable'+chr(13)+chr(10));
end;
send('Content-Length: '+inttostr(j)+chr(13)+chr(10));
send('CONNECTION: keep-alive'+chr(13)+chr(10));
send('Content-Type: '+ct+chr(13)+chr(10));
send('Server: NetView HTTP listener script'+chr(13)+chr(10)+chr(13)+chr(10));
if(f=0)then send('Resource not found.') else
begin
f:=openfile(ts,1);
if(f<>0)then
begin
while(readfile(f,10000,s)<>0)do begin waitme; send(s); end;
closefile(f);
end;
end;
end;
end;
end.
|
|
|
подробно о проекте
Анализ криптографических сетевых...
