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

* Patch method contribution

Browse Source 
git-svn-id: trunk@48992 -
(cherry picked from commit b9b08f37fe)
This commit is contained in:
michael 2021-03-16 22:15:37 +00:00 committed by Florian Klämpfl
parent 1f7e265a9e
commit 7349164ed7
1 changed files with 108 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -231,6 +231,17 @@ Type
Class Procedure SimpleDelete(const URL: string; Response : TStrings);
Class Procedure SimpleDelete(const URL: string; const LocalFileName: String);
Class function SimpleDelete(const URL: string) : RawByteString;
// Simple Patch
// Put URL, and Requestbody. Return response in Stream, File, TstringList or String;
Procedure Patch(const URL: string; const Response: TStream);
Procedure Patch(const URL: string; Response : TStrings);
Procedure Patch(const URL: string; const LocalFileName: String);
function Patch(const URL: string) : RawByteString;
// Simple class methods.
Class Procedure SimplePatch(const URL: string; const Response: TStream);
Class Procedure SimplePatch(const URL: string; Response : TStrings);
Class Procedure SimplePatch(const URL: string; const LocalFileName: String);
Class function SimplePatch(const URL: string) : RawByteString;
// Simple Options
// Options from URL, and Requestbody. Return response in Stream, File, TstringList or String;
Procedure Options(const URL: string; const Response: TStream);
@ -1846,6 +1857,103 @@ begin
end;
end;
procedure TFPCustomHTTPClient.Patch(const URL: string; const Response: TStream);
begin
HTTPMethod('PATCH',URL,Response,[]);
end;
procedure TFPCustomHTTPClient.Patch(const URL: string; Response: TStrings);
begin
Response.Text:=Patch(URL);
end;
procedure TFPCustomHTTPClient.Patch(const URL: string; const LocalFileName: String
);
Var
F : TFileStream;
begin
F:=TFileStream.Create(LocalFileName,fmCreate);
try
Patch(URL,F);
finally
F.Free;
end;
end;
function TFPCustomHTTPClient.Patch(const URL: string): RawByteString;
Var
SS : TRawByteStringStream;
begin
SS:=TRawByteStringStream.Create();
try
Patch(URL,SS);
Result:=SS.Datastring;
finally
SS.Free;
end;
end;
class procedure TFPCustomHTTPClient.SimplePatch(const URL: string;
const Response: TStream);
begin
With Self.Create(nil) do
try
KeepConnection := False;
Patch(URL,Response);
finally
Free;
end;
end;
class procedure TFPCustomHTTPClient.SimplePatch(const URL: string;
Response: TStrings);
begin
With Self.Create(nil) do
try
KeepConnection := False;
Patch(URL,Response);
finally
Free;
end;
end;
class procedure TFPCustomHTTPClient.SimplePatch(const URL: string;
const LocalFileName: String);
begin
With Self.Create(nil) do
try
KeepConnection := False;
Patch(URL,LocalFileName);
finally
Free;
end;
end;
class function TFPCustomHTTPClient.SimplePatch(const URL: string): RawByteString;
begin
With Self.Create(nil) do
try
KeepConnection := False;
Result:=Patch(URL);
finally
Free;
end;
end;
procedure TFPCustomHTTPClient.Options(const URL: string; const Response: TStream
);
begin