paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Client support of HTTP over unix socket

Browse Source
This commit is contained in:
Ionut Stoica 2022-01-25 17:38:35 +01:00
parent 88959bdda7
commit 54efcc4bbb
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -92,7 +92,8 @@ Type
FResponseStatusCode: Integer;
FResponseStatusText: String;
FServerHTTPVersion: String;
FSocket : TInetSocket;
FUnixSocketPath: String;
FSocket : TSocketStream;
FBuffer : Ansistring;
FTerminated: Boolean;
FUserName: String;
@ -180,6 +181,8 @@ Type
Public
Constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
// Disk path to the unix socket file
Property UnixSocketPath : String Read FUnixSocketPath Write FUnixSocketPath;
// Add header Aheader with value AValue to HTTPHeaders, replacing exiting values
Class Procedure AddHeader(HTTPHeaders : TStrings; Const AHeader,AValue : String);
// Index of header AHeader in httpheaders.
@ -300,7 +303,7 @@ Type
Property Terminated : Boolean Read FTerminated;
Protected
// Socket
Property Socket : TInetSocket read FSocket;
Property Socket : TSocketStream read FSocket;
// Timeouts
Property IOTimeout : Integer read FIOTimeout write SetIOTimeout;
Property ConnectTimeout : Integer read FConnectTimeout write SetConnectTimeout;
@ -661,6 +664,9 @@ procedure TFPCustomHTTPClient.ConnectToServer(const AHost: String;
Var
G : TSocketHandler;
{$ifdef Unix}
IsUnixSocketConnection: Boolean = False;
{$endif}
begin
@ -672,13 +678,28 @@ begin
else
Aport:=80;
G:=GetSocketHandler(UseSSL);
FSocket:=TInetSocket.Create(AHost,APort,G);
{$ifdef Unix}
IsUnixSocketConnection := UnixSocketPath <> '';
if IsUnixSocketConnection then
FSocket:=TUnixSocket.Create(UnixSocketPath)
else
FSocket:=TInetSocket.Create(AHost,APort,G);
{$endif}
{$ifdef windows}
FSocket:=TInetSocket.Create(AHost,APort,G);
{$endif}
try
if FIOTimeout<>0 then
FSocket.IOTimeout:=FIOTimeout;
if FConnectTimeout<>0 then
FSocket.ConnectTimeout:=FConnectTimeout;
FSocket.Connect;
{$ifdef Unix}
if not IsUnixSocketConnection then
(FSocket as TInetSocket).Connect;
{$endif}
{$ifdef windows}
(FSocket as TInetSocket).Connect;
{$endif}
except
FreeAndNil(FSocket);
Raise;