81 lines
1.5 KiB
ObjectPascal
81 lines
1.5 KiB
ObjectPascal
unit uscanresult;
|
|
|
|
interface
|
|
|
|
uses
|
|
generics.collections;
|
|
|
|
type
|
|
TTimInfo = record
|
|
Position: Integer;
|
|
Size: Integer;
|
|
Width: Integer;
|
|
Height: Integer;
|
|
BitMode: Byte;
|
|
Cluts: Integer;
|
|
Good: Boolean;
|
|
end;
|
|
|
|
TScanResult = class(TObject)
|
|
private
|
|
pScanFile: string;
|
|
pIsImage: Boolean;
|
|
pCount: Integer;
|
|
pTims: array of TTimInfo;
|
|
|
|
procedure fSetCount(Value: Integer);
|
|
|
|
function fGetTim(Index: Integer): TTimInfo;
|
|
procedure fSetTim(Index: Integer; Value: TTimInfo);
|
|
|
|
public
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
|
|
property ScanFile: string read pScanFile write pScanFile;
|
|
property IsImage: Boolean read pIsImage write pIsImage;
|
|
property Count: Integer read pCount write fSetCount;
|
|
|
|
property ScanTim[index: Integer]: TTimInfo read fGetTim write fSetTim;
|
|
end;
|
|
TScanResultList = TList<TScanResult>;
|
|
|
|
implementation
|
|
|
|
{ TScanResult }
|
|
|
|
constructor TScanResult.Create;
|
|
begin
|
|
inherited;
|
|
|
|
pScanFile := '';
|
|
pIsImage := False;
|
|
pCount := 0;
|
|
pTims := nil;
|
|
end;
|
|
|
|
destructor TScanResult.Destroy;
|
|
begin
|
|
SetLength(pTims, 0);
|
|
pTims := nil;
|
|
inherited;
|
|
end;
|
|
|
|
function TScanResult.fGetTim(Index: Integer): TTimInfo;
|
|
begin
|
|
Result := pTims[Index];
|
|
end;
|
|
|
|
procedure TScanResult.fSetCount(Value: Integer);
|
|
begin
|
|
pCount := Value;
|
|
SetLength(pTims, Value);
|
|
end;
|
|
|
|
procedure TScanResult.fSetTim(Index: Integer; Value: TTimInfo);
|
|
begin
|
|
pTims[Index] := Value;
|
|
end;
|
|
|
|
end.
|