Hello world/Web server: Difference between revisions
Content added Content deleted
Line 683: | Line 683: | ||
end program http_example |
end program http_example |
||
</lang> |
</lang> |
||
=={{header|Free Pascal}}== |
|||
<lang pascal>program HelloWorldServer; |
|||
{$mode objfpc}{$H+} |
|||
uses |
|||
Classes, fphttpserver; |
|||
Type |
|||
TTestHTTPServer = Class(TFPHTTPServer) |
|||
public |
|||
procedure HandleRequest(Var ARequest: TFPHTTPConnectionRequest; |
|||
Var AResponse : TFPHTTPConnectionResponse); override; |
|||
end; |
|||
Var |
|||
Serv : TTestHTTPServer; |
|||
procedure TTestHTTPServer.HandleRequest(var ARequest: TFPHTTPConnectionRequest; |
|||
var AResponse: TFPHTTPConnectionResponse); |
|||
Var |
|||
F : TStringStream; |
|||
begin |
|||
F:=TStringStream.Create('Hello,World!'); |
|||
try |
|||
AResponse.ContentLength:=F.Size; |
|||
AResponse.ContentStream:=F; |
|||
AResponse.SendContent; |
|||
AResponse.ContentStream:=Nil; |
|||
finally |
|||
F.Free; |
|||
end; |
|||
end; |
|||
begin |
|||
Serv:=TTestHTTPServer.Create(Nil); |
|||
try |
|||
Serv.Threaded:=False; |
|||
Serv.Port:=8080; |
|||
Serv.AcceptIdleTimeout:=1000; |
|||
Serv.Active:=True; |
|||
finally |
|||
Serv.Free; |
|||
end; |
|||
end.</lang> |
|||
=={{header|FunL}}== |
=={{header|FunL}}== |