Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/danieleteti/delphimvcframework

Browse Source
This commit is contained in:
Daniele Teti 2022-01-21 18:33:14 +01:00
commit 7a2b6458fd
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sources/MVCFramework.RESTClient.pas
View File

@ -81,7 +81,7 @@ type
fResource: string;
fProxySettings: TProxySettings;
fParameters: TList<TMVCRESTParam>;
fRawBody: TStringStream;
fRawBody: TMemoryStream;
fBodyFormData: TMultipartFormData;
fSerializer: IMVCSerializer;
fRttiContext: TRttiContext;
@ -594,16 +594,13 @@ begin
if aBodyStream = nil then
raise EMVCRESTClientException.Create('You need a valid body!');
if aBodyStream is TStringStream then
raise EMVCRESTClientException.Create('aBodyStream must be of type TStringStream!');
SetContentType(aContentType);
fRawBody.Clear;
fRawBody.CopyFrom(aBodyStream, 0);
if aOwnsStream then
aBodyStream.Free;
FreeAndNil(aBodyStream);
end;
function TMVCRESTClient.AddBody(aBodyObject: TObject; const aOwnsObject: Boolean): IMVCRESTClient;
@ -903,7 +900,7 @@ begin
fRequestCompletedProc := nil;
fResponseCompletedProc := nil;
fParameters := TList<TMVCRESTParam>.Create;
fRawBody := TStringStream.Create;
fRawBody := TMemoryStream.Create;
fBodyFormData := nil;
fSerializer := nil;
fRttiContext := TRttiContext.Create;