alexey.zablotskiy/LMS-2_ReportAPI
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

status

Browse Source
This commit is contained in:
Алексей Заблоцкий 2023-11-16 09:49:35 +03:00
parent ea0ed85bbf
commit 30f2e6e918
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
connectionsdmunit.pas
View File

@ -341,7 +341,7 @@ begin
begin begin
Answer := cmd.currentStage; Answer := cmd.currentStage;
if assigned(cmd.Results) then if assigned(cmd.Results) then
cmd.Results.AssignTo(Code,RetValue,Answer,rValues,iValues,ByteData); cmd.Results.AssignTo(Code,RetValue,Answer,rValues);
code := cmd.Status; code := cmd.Status;
if (code=StatusComplete) and assigned(cmd.Results.Data) then if (code=StatusComplete) and assigned(cmd.Results.Data) then
RetValue:=cmd.Results.Data.Size RetValue:=cmd.Results.Data.Size

19
exttypes.pas
View File

@ -72,7 +72,8 @@ type
constructor Create(ACode:DWORD;AParam:QWord; AName: string; AKeys: TStrings; AValues: TParamArray; AData: TStream); overload; constructor Create(ACode:DWORD;AParam:QWord; AName: string; AKeys: TStrings; AValues: TParamArray; AData: TStream); overload;
constructor Create(ACode:DWORD;AParam:QWord; AName: string;const AKeys: Array of string; AValues: TParamArray; AData: TStream); overload; constructor Create(ACode:DWORD;AParam:QWord; AName: string;const AKeys: Array of string; AValues: TParamArray; AData: TStream); overload;
destructor Destroy; override; destructor Destroy; override;
procedure AssignTo(out ACode:DWORD;out AParam:QWord; out AName: string; out AKeys: TStrings; out AValues: TParamArray; out AData: TStream); procedure AssignTo(out ACode:DWORD;out AParam:QWord; out AName: string; out AKeys: TStrings; out AValues: TParamArray; out AData: TStream); overload;
procedure AssignTo(out ACode:DWORD;out AParam:QWord; out AName: string; out AKeys: TStrings); overload;
end; end;
procedure CopyBytes(var Dest: PByte; const Data: byte); overload; procedure CopyBytes(var Dest: PByte; const Data: byte); overload;
procedure CopyBytes(var Dest: PByte; const Data: word); overload; procedure CopyBytes(var Dest: PByte; const Data: word); overload;
@ -463,5 +464,21 @@ begin
CopyParamArray(iValues,AValues); CopyParamArray(iValues,AValues);
end; end;
procedure TCommandData.AssignTo(out ACode: DWORD; out AParam: QWord; out
AName: string; out AKeys: TStrings);
begin
ACode := Code;
AParam := Param;
AName := Name;
if assigned(Keys) then
begin
AKeys := TStringList.Create;
AKeys.Assign(Keys);
end
else
AKeys := nil;
end;
end. end.