Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26714
X11
Сделал так, надеюсь и для Линукса в будущем прокатит
function GetFileSize(const FileName: String): Int64;
var
  f: file of Byte;
begin
  try
    AssignFile(f, FileName);
    Reset(f);
    result := FileSize(f);
  finally
    CloseFile(f);
  end;
end;

Надежнее открыть поток "для чтения" у самого TFile. Там и размер будет.
22 июл 20, 12:40    [22171630]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
X11
Member

Откуда: Kharkiv, Ukraine
Сообщений: 14272
Если поток, то вопрос другой.
Картинки уже загружены в "карусель" для прокрутки. Т.е. они уже есть в памяти. Но ни TPicture, ни TGraphic не имеют свойства Size или чего-то такого.
Я пытался скопировать TPicture в TMemoryStream и получить его размер и тут засада. Для jpg вроде размер совпадает с размером, который показывает Проводник Винды, а вот для PNG размер TMemoryStream из TPicture примерно раз в 10 меньше. Т.е. для PNG размер файла 374кб, а размер TMemoryStream из TPicture - 32кб.

Сообщение было отредактировано: 22 июл 20, 12:52
22 июл 20, 12:53    [22171641]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26714
X11,

зачем узнавать размер файла для уже загруженной картинки? Почему во время загрузки этот момент не уточнить?
22 июл 20, 13:06    [22171650]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
X11
Member

Откуда: Kharkiv, Ukraine
Сообщений: 14272
1. Я ручками НИЧЕГО не загружаю, т.к. это делает стандартный метод LoadFtomFile().
2. Можно, конечно, самому ручками загружать через TFileStream. Но на момент загрузки размер не нужен. Характеристики картинки нужно показать только по нажатию на кнопку. При загрузке, получается, нужно создавать какой-то отдельный массив рекордов для хранения размеров и идентификаторов картинок? Но пользователь может удалять/добавлять картинки в карусель, тогда придется и этот массив редактировать. Уж слишком сложно получается и в памяти придется постоянно держать, возможно и никому не нужный массив рекордов. Почему "возможно и никому не нужный"? Потому что пользователь по своему желанию смотрит характеристики картинки.
22 июл 20, 13:22    [22171661]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26714
Под потоком я имел в виду у TFile
class function OpenRead(const Path: string): TFileStream; static;

А у потока есть свойство Size
http://docwiki.embarcadero.com/Libraries/Rio/en/System.Classes.TFileStream_Properties

Такой подход выглядит более пригодным для разных платформ.
22 июл 20, 13:39    [22171670]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
X11
Member

Откуда: Kharkiv, Ukraine
Сообщений: 14272
спасибо:

 result := TFile.OpenRead(FileName).Size
22 июл 20, 13:44    [22171671]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26714
X11
спасибо:

 result := TFile.OpenRead(FileName).Size

А Free?
22 июл 20, 13:52    [22171684]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
X11
Member

Откуда: Kharkiv, Ukraine
Сообщений: 14272
function GetFileSize(const FileName: String): Int64;
var
 FileStream: TFileStream;
begin
  if TFile.Exists(FileName) then
  try
    FileStream := TFile.OpenRead(FileName);
    result := FileStream.Size
  finally
    FileStream.Free;
  end
  else
    result := -1;

end;
22 июл 20, 14:03    [22171692]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
X11
Member

Откуда: Kharkiv, Ukraine
Сообщений: 14272
wadman
А Free?


странно, вот у меня в приложении включено
ReportMemoryLeaksOnShutdown := True;


но по завершении приложения тишина
22 июл 20, 14:04    [22171693]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
Fr0sT-Brutal
Member

Откуда:
Сообщений: 343
FileSeek еще можно применить. Либо реализовать самому, выдрав текст функции _FileSize из System (которая почему-то сделана приватной)
22 июл 20, 14:24    [22171718]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
misha mike
Member

Откуда:
Сообщений: 718
X11
Сделал так, надеюсь и для Линукса в будущем прокатит

А если файл монопольно занят другим процессом, то его размер нам уже не нужен?
Размер файла есть в оглавлении и извлекается теми же FindFirst/FindNext без открытия даже для наглухо заблокированных файлов.
22 июл 20, 17:56    [22171896]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
X11
Member

Откуда: Kharkiv, Ukraine
Сообщений: 14272
Это, конечно, круто и правильно, но это слишком сложно для меня

скажите, это оно?
https://delphidabbler.github.io/delphi-tips/tips/201.html
23 июл 20, 08:15    [22172086]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
misha mike
Member

Откуда:
Сообщений: 718
X11
Я ручками НИЧЕГО не загружаю, т.к. это делает стандартный метод LoadFtomFile().

Предлагаю вместо LoadFromFile делать сначала TFileStream.Create, а потом LoadFromStream. А между этими действиями прочитать TFileStream.Size. Так и руками ничего считывать не нужно, и размер файла получите из первых рук.
23 июл 20, 13:26    [22172311]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
DarkMaster
Member

Откуда: Donetsk,Ukraine
Сообщений: 6347
X11
Это, конечно, круто и правильно, но это слишком сложно для меня

скажите, это оно?
https://delphidabbler.github.io/delphi-tips/tips/201.html


function ImageType(Fname: String): Smallint;
  if ImgExt = '.BMP' then
    Itype := 1
  else
  if (ImgExt = '.JPEG') or (ImgExt='.JPG') then
    Itype := 2


Ну во всяком случае функция определения типа изображения по расширению файла - от лукавого. Где еще .jfif, .jpe расширения (в ее контексте)? Лучше читать сигнатуры.
23 июл 20, 16:05    [22172496]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
X11
Member

Откуда: Kharkiv, Ukraine
Сообщений: 14272
по идее, хватит только jpg, т.к. почти все фотокамеры на смарфтонах делают фото в формате jpg
23 июл 20, 16:07    [22172499]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
Fr0sT-Brutal
Member

Откуда:
Сообщений: 343
Как интересно от размера файла перетекли к размерам изображения при заявленных в топике Find*
24 июл 20, 15:15    [22173227]     Ответить | Цитировать Сообщить модератору
 Re: Аналог TSearchRec, FindFirst, FindNext под Линукс  [new]
misha mike
Member

Откуда:
Сообщений: 718
Fr0sT-Brutal, то-ли еще бывает!
26 июл 20, 06:17    [22173718]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
Все форумы / Delphi Ответить