Вопрос Как получить размер изображения (длина, ширина в пикселях) средствами Инно?

[nik1967]

Нужно получить размер изображения (файла) рядом с сетапником в пикселях - длина, ширина.

 

[sergey3695]

Нужно получить размер изображения

Изображение любого расширения?

 

[nik1967]

В принципе - да, но можно конкретно .bmp и .png, если это критично.

 

[Edison007]

Как вариант. С помощью ботвы загрузить изображение на форму с Stretch:=False (Width:=0; Height:=0), использовать функцию ImgGetPosition для получения координат и размера (записывая в переменные), удалить изображение.

 

[Хамик]

Если кто разберется, тоже буду благодарен.
http://stackoverflow.com/questions/15209076/how-to-get-dimensions-of-image-file-in-delphi

 

[Snoopak96]

nik1967,
Дальше сам

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
function GetFileProperties(FilePath:String):String;
var
Properties,ADir,AFile:Variant;
begin
Properties := CreateOleObject('shell.application');
ADir:= Properties.NameSpace(ExtractFilePath(FilePath)) ;
AFile := ADir.Parsename (ExtractFileName(FilePath));
Result:= ADir.GetDetailsOf(AFile,31);
end;

procedure InitializeWizard;
begin
  MsgBox(GetFileProperties('X:\2015-05-31_160201.png'), mbInformation, MB_OK);
end;

 

[nik1967]

Snoopak96, спасибо! Но. Как из выше приведённого кода получить именно Width:= и Height:= для дальнейшего использования?

Дальше сам

- Что-то не выходит каменный цветок...
- Нефиг было его туда запихивать...

 

[Snoopak96]

nik1967, это свойства файла, формат возвращаемых значений примерно такой: ?400х500? - думаю сам то сможешь от сюда выделить Width и Height. Мне лень дальше допиливать, тк не интересно. Форматы изображений - все которые знает винда по умолчанию.

 

[nik1967]

Допилил пример Snoopak96'а - за что ему ещё раз большое спасибо! Если кому надо:

Спойлер

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
   Sw,Sh: String;

function GetFileProperties(FilePath: String): String;
var
   Properties,ADir,AFile: Variant;
begin
   Properties:= CreateOleObject('shell.application');
   ADir:= Properties.NameSpace(ExtractFilePath(FilePath)) ;
   AFile:= ADir.Parsename (ExtractFileName(FilePath));
   Sw:= ADir.GetDetailsOf(AFile,31);
   Sh:= Sw;
   Delete(Sw,Pos(' ',Sw),Length(Sw));
   Delete(Sh,1,Pos(' ',Sh)+2);
end;

function InitializeSetup: Boolean;
begin
  GetFileProperties(ExpandConstant('{src}\11.png'));
  MsgBox('Width  = '+Sw+' pix.'+#13#10+'Height = '+Sh+' pix.', mbInformation, MB_OK);
  Result:= false;
end;

Для дальнейшей передачи длины и ширины картинки в код ещё немного допилил:

Спойлер

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
   Wp,Hp: Longint;

function GetFileProperties(FilePath: String): String;
var
   Properties,ADir,AFile: Variant;
   Sw,Sh: String;
begin
   Properties:= CreateOleObject('shell.application');
   ADir:= Properties.NameSpace(ExtractFilePath(FilePath)) ;
   AFile:= ADir.Parsename (ExtractFileName(FilePath));
   Sw:= ADir.GetDetailsOf(AFile,31);
   Sh:= Sw;
   Delete(Sw,Pos(' ',Sw),Length(Sw));
   Delete(Sw,1,1);
   Delete(Sh,1,Pos(' ',Sh)+2);
   Delete(Sh,Length(Sh),1);
   Wp:= StrToInt(Sw); //длина картинки в пикселях
   Hp:= StrToInt(Sh); //ширина картинки в пикселях
end;

function InitializeSetup: Boolean;
begin
   GetFileProperties(ExpandConstant('{src}\14.png'));
   MsgBox('Width  = '+IntToStr(Wp)+' pix.'+#13#10+'Height = '+IntToStr(Hp)+' pix.', mbInformation, MB_OK);
   //SaveStringToFile(ExpandConstant('{src}\14.txt'), 'Width  = '+IntToStr(Wp)+' pix.'+#13#10+'Height = '+IntToStr(Hp)+' pix.', false); //для проверки - запись в файл
   Result:= false;
end;

 

[Krinkels]

nik1967, Если не сложно, добавь в FAQ