ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Аналог TSearchRec, FindFirst, FindNext под Линукс
17 сообщений из 42, страница 2 из 2
  2  все
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982649
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
X11
Сделал так, надеюсь и для Линукса в будущем прокатит
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
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. Там и размер будет.
...
Рейтинг: 0 / 0
22.07.2020, 12:40
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982659
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Если поток, то вопрос другой.
Картинки уже загружены в "карусель" для прокрутки. Т.е. они уже есть в памяти. Но ни TPicture, ни TGraphic не имеют свойства Size или чего-то такого.
Я пытался скопировать TPicture в TMemoryStream и получить его размер и тут засада. Для jpg вроде размер совпадает с размером, который показывает Проводник Винды, а вот для PNG размер TMemoryStream из TPicture примерно раз в 10 меньше. Т.е. для PNG размер файла 374кб, а размер TMemoryStream из TPicture - 32кб.
...
Рейтинг: 0 / 0
22.07.2020, 12:53
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982666
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
X11,

зачем узнавать размер файла для уже загруженной картинки? Почему во время загрузки этот момент не уточнить?
...
Рейтинг: 0 / 0
22.07.2020, 13:06
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982676
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
1. Я ручками НИЧЕГО не загружаю, т.к. это делает стандартный метод LoadFtomFile().
2. Можно, конечно, самому ручками загружать через TFileStream. Но на момент загрузки размер не нужен. Характеристики картинки нужно показать только по нажатию на кнопку. При загрузке, получается, нужно создавать какой-то отдельный массив рекордов для хранения размеров и идентификаторов картинок? Но пользователь может удалять/добавлять картинки в карусель, тогда придется и этот массив редактировать. Уж слишком сложно получается и в памяти придется постоянно держать, возможно и никому не нужный массив рекордов. Почему "возможно и никому не нужный"? Потому что пользователь по своему желанию смотрит характеристики картинки.
...
Рейтинг: 0 / 0
22.07.2020, 13:22
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982683
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Под потоком я имел в виду у TFile
Код: pascal
1.
class function OpenRead(const Path: string): TFileStream; static;


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

Такой подход выглядит более пригодным для разных платформ.
...
Рейтинг: 0 / 0
22.07.2020, 13:39
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982684
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
спасибо:

Код: pascal
1.
 result := TFile.OpenRead(FileName).Size
...
Рейтинг: 0 / 0
22.07.2020, 13:44
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982692
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
X11
спасибо:

Код: pascal
1.
 result := TFile.OpenRead(FileName).Size


А Free?
...
Рейтинг: 0 / 0
22.07.2020, 13:52
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982699
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
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;
...
Рейтинг: 0 / 0
22.07.2020, 14:03
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982700
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
wadman
А Free?


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



но по завершении приложения тишина
...
Рейтинг: 0 / 0
22.07.2020, 14:04
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982721
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
FileSeek еще можно применить. Либо реализовать самому, выдрав текст функции _FileSize из System (которая почему-то сделана приватной)
...
Рейтинг: 0 / 0
22.07.2020, 14:24
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982806
misha mike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
misha mike
Участник
X11Сделал так, надеюсь и для Линукса в будущем прокатит
А если файл монопольно занят другим процессом, то его размер нам уже не нужен?
Размер файла есть в оглавлении и извлекается теми же FindFirst/FindNext без открытия даже для наглухо заблокированных файлов.
...
Рейтинг: 0 / 0
22.07.2020, 17:56
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39982916
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Это, конечно, круто и правильно, но это слишком сложно для меня

скажите, это оно?
https://delphidabbler.github.io/delphi-tips/tips/201.html
...
Рейтинг: 0 / 0
23.07.2020, 08:15
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39983082
misha mike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
misha mike
Участник
X11Я ручками НИЧЕГО не загружаю, т.к. это делает стандартный метод LoadFtomFile().
Предлагаю вместо LoadFromFile делать сначала TFileStream.Create, а потом LoadFromStream. А между этими действиями прочитать TFileStream.Size. Так и руками ничего считывать не нужно, и размер файла получите из первых рук.
...
Рейтинг: 0 / 0
23.07.2020, 13:26
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39983208
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
X11
Это, конечно, круто и правильно, но это слишком сложно для меня

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


Код: pascal
1.
2.
3.
4.
5.
6.
function ImageType(Fname: String): Smallint;
  if ImgExt = '.BMP' then
    Itype := 1
  else
  if (ImgExt = '.JPEG') or (ImgExt='.JPG') then
    Itype := 2



Ну во всяком случае функция определения типа изображения по расширению файла - от лукавого. Где еще .jfif, .jpe расширения (в ее контексте)? Лучше читать сигнатуры.
...
Рейтинг: 0 / 0
23.07.2020, 16:05
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39983209
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
по идее, хватит только jpg, т.к. почти все фотокамеры на смарфтонах делают фото в формате jpg
...
Рейтинг: 0 / 0
23.07.2020, 16:07
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39983686
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
Как интересно от размера файла перетекли к размерам изображения при заявленных в топике Find*
...
Рейтинг: 0 / 0
24.07.2020, 15:15
| Ответить | Цитировать | Написать  
Аналог TSearchRec, FindFirst, FindNext под Линукс
    #39984017
misha mike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
misha mike
Участник
Fr0sT-Brutal, то-ли еще бывает!
...
Рейтинг: 0 / 0
26.07.2020, 06:17
| Ответить | Цитировать | Написать  
17 сообщений из 42, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Аналог TSearchRec, FindFirst, FindNext под Линукс
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39982676&tid=2038127]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 68ms
get tp. blocked users:
 1ms
others: 216ms
total:  369ms
созд. / загр.: 369ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]