100 lines
2.0 KiB
ObjectPascal
100 lines
2.0 KiB
ObjectPascal
unit uscanresult;
|
|
|
|
interface
|
|
|
|
uses fgl;
|
|
|
|
type
|
|
TTimInfo = record
|
|
Magic: Byte;
|
|
Position: Integer;
|
|
Size: Integer;
|
|
Width: Integer;
|
|
Height: Integer;
|
|
BitMode: Byte;
|
|
Cluts: Integer;
|
|
Colors: Integer;
|
|
Good: Boolean;
|
|
end;
|
|
|
|
type
|
|
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 = specialize TFPGObjectList<TScanResult>;
|
|
PScanResultList = ^TScanResultList;
|
|
|
|
function CheckForFileOpened(ScanResults: PScanResultList; const FileName: string): boolean;
|
|
|
|
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;
|
|
|
|
function CheckForFileOpened(ScanResults: PScanResultList; const FileName: string): boolean;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Result := False;
|
|
|
|
for I := 1 to ScanResults^.Count do
|
|
if ScanResults^[I - 1].ScanFile = FileName then
|
|
begin
|
|
Result := True;
|
|
Exit;
|
|
end;
|
|
end;
|
|
|
|
end.
|