Точно также. Только mime type указать другой.
Щас в закромах пример гляну...
Добавлено @ 11:09
Вот пример простенького http сервера:| Код | unit httpserver;
interface
uses SysUtils, Classes, IdHTTPServer, IdCustomHTTPServer, IdTCPServer;
type
THTTPServer = class
private
FPort: integer;
FActive: boolean;
http: TIdHTTPServer;
procedure State(activ: boolean);
procedure SetPort(port: integer);
procedure OnGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo;
AResponseInfo: TIdHTTPResponseInfo);
public
constructor Create;
destructor Destroy; override;
procedure StartServer;
procedure StopServer;
published
property Active: boolean read FActive write State;
property Port: integer read FPort write SetPort;
end;
implementation
procedure THTTPServer.StartServer;
begin
http.DefaultPort:=FPort;
try
http.Active:=true;
FActive:=true;
except
FActive:=false;
end;
end;
procedure THTTPServer.StopServer;
begin
http.Active:=false;
end;
procedure THTTPServer.State;
begin
if activ then
if not Active then StartServer;
if not activ then
if Active then StopServer;
end;
procedure THTTPServer.SetPort;
begin
FPort:=port;
if Active then begin
StopServer;
StartServer;
end;
end;
constructor THTTPServer.Create;
begin
Port:=80;
Active:=false;
http:=TIdHTTPServer.Create(nil);
http.ServerSoftware:='Snowy HTTP Server';
http.OnCommandGet:=OnGet;
end;
destructor THTTPServer.Destroy;
begin
http.Free;
end;
procedure THTTPServer.OnGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
s: string;
fs: TFileStream;
begin
s:='.'+ARequestInfo.Document;
fs:=nil;
try
try
fs:=TFileStream.Create(s,$40);
SetLength(s,fs.size); fs.Read(s[1],fs.Size);
AResponseInfo.ContentText:=s;
AResponseInfo.ContentType:=http.MIMETable.GetDefaultFileExt(s);
except
AResponseInfo.ResponseNo:=404;
end;
finally
fs.Free;
end;
end;
end.
|
Добавлено @ 11:10
Набросал на скорую руку.
Нужно было еще параметр для домашнего каталога сделать.
Вот тут:| Код | s:='.'+ARequestInfo.Document; |
|
)