Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
2 / 2 / 0
Регистрация: 23.01.2012
Сообщений: 257
Delphi 6-7

Не открывается файл

08.10.2019, 20:06. Показов 3607. Ответов 59
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нарисовал мышкой круг в Bitmap из bmp перевёл в png. Прог. не может открыть файл. Спасибо.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit vic2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    img1: TImage;
    lst1:TListBox;
    btn1: TButton;
    procedure Button1Click(Sender: TObject);
  private
     b1: TBitmap;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
 
  f: TFileStream;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
 
 
 
 
begin
 
 
 
 
    img1.Picture.LoadFromFile('C:\tmp\five\Crug.png');// five2, five1, Line1  'C:\tmp\five\Line.png'
    b1:=tBitmap.Create();
    b1.Assign(Img1.Picture.Graphic);
    Img1.Picture.Graphic:=b1;
           b1.Width:=Form1.ClientWidth;
           b1.Height:=Form1.ClientHeight;
 
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.10.2019, 20:06
Ответы с готовыми решениями:

Access 2003 .mdb файл не открывается с ярлыка на него на файл сервере, но открывается если снач запус Access
Вирусов нет. Установлены все обновления Windows, Office. Есть сеть состоящая из 6 компьютеров - все подключены к одному...

Из командной строки файл вообще не открывается а если открыть через проводник, то открывается и сразу вылетает
masm model small stack 256 .data per_1 db 23 per_2 dw 9856 per_3 dd 9875645 per_4 dw 29857 .code main:

Файл: Почему файл не открывается во время выполнения программы?
Почему файл не открывается во время выполнения программы? #include <conio.h> #include <stdio.h> #include <iostream.h> ...

59
23.10.2019, 10:04
Студворк — интернет-сервис помощи студентам

Не по теме:

Цитата Сообщение от victor1963 Посмотреть сообщение
Извините. Не могу сразу ответить, по мимо этого у меня есть основная работа.
да никто от тебя не требует ни извинений, ни оправданий.
Это ведь ТЕБЕ нужно показать файл PNG на форме. Не мне, не AzAtom, не Flip, не GoodWeather...
Мы тебе просто помочь хотим.
Нужна помощь - принимай. Нет - забей.
Никто тебя ни к чему не принуждает.

0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
23.10.2019, 10:20
Цитата Сообщение от victor1963
Не могу сразу ответить
Ну вот же, сейчас было время ответить, можно было заодно прикрепить эти 2 картинки. А так, уговаривать нам 100 лет не интересно.
1
 Аватар для mr-Crocodile
3054 / 1673 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
23.10.2019, 10:57
Цитата Сообщение от AzAtom Посмотреть сообщение
Ну вот же, сейчас было время ответить, можно было заодно прикрепить эти 2 картинки. А так, уговаривать нам 100 лет не интересно.
Не горячись. Уговаривать Витю никто не собирается. Но он немного соберётся с силами, найдёт время и либо решит сам проблему (заменив картинку - может быть поможет просто её банальное пересохранение в нужный формат), либо напишет на форум. Нам торопиться некуда.
1
 Аватар для Flip
335 / 173 / 67
Регистрация: 25.02.2018
Сообщений: 616
23.10.2019, 11:12
Вообще, используя Total Commander, точнее встроенный в него плагин для просмотра изображений IMAGINE, легко определить правильное расширение у файла или нет. Нажатием кнопки F3 (просмотр) на нужном изображении, если оно не соответствует расширению, то плагин предложит его заменить на верное. Плюс ко всему используя его легко гонять изображения из одного формата в другой.
1
2 / 2 / 0
Регистрация: 23.01.2012
Сообщений: 257
23.10.2019, 19:00  [ТС]
Здравствуйте.Влаживая файлы проекта, пишет не " верное вложение". Влаживая картинку five6 PNG , при загрузке в сообщение меняеться на JPG.
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
23.10.2019, 19:20
Значит, вероятно, там внутри на самом деле не PNG, а JPEG. Поэтому и модуль PNGImage не может его декодировать. Открой это картинку хоть в том же Paint и сохрани в PNG.

Кстати, откуда взялся этот five6.png?
0
2 / 2 / 0
Регистрация: 23.01.2012
Сообщений: 257
23.10.2019, 19:31  [ТС]
Может большой размер файла five6 мешает открыть, 19.4MB. Который, работает five1 всего лишь 2.06MB. Five6 сфотографировал на телефон и перевёл с JPG на PNG. Как и все остальные файлы.
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
23.10.2019, 20:04
Я не знаю что за ерунда происходит, но этот модуль не может открывать PNG, сохраненные в ACDSee (3.0). А сохранённые в том же Paint отлично открывает. Пробовал и файл с разрешением 9900x4950 пикселей размером 77,6 МБ, нормально открыл.

Так что, попробуй сохранить в PNG с помощью другой программы. Скорее всего, откроет.
0
2 / 2 / 0
Регистрация: 23.01.2012
Сообщений: 257
23.10.2019, 20:34  [ТС]
Спасибо большое.
0
 Аватар для Flip
335 / 173 / 67
Регистрация: 25.02.2018
Сообщений: 616
23.10.2019, 21:00
Цитата Сообщение от AzAtom Посмотреть сообщение
Я не знаю что за ерунда происходит, но этот модуль не может открывать PNG, сохраненные в ACDSee (3.0).
Нужно смотреть параметры с которыми сохраняется тот самый PNG, это тоже немаловажно. В некоторых программах они могут быть жёстко зашиты по умолчанию, и наоборот в других существует возможность настройки параметров при сохранении изображения - при этом нужно учитывать: 1. Тип сжатия. 2. Метод прозрачности. 3. Битность изображения. Недавно был случай когда этот же самый модуль просто напросто отказался "кушать" чёрно-белое изображение в формате PNG только потому что оно было 1 бит/пиксель. По факту он то его декодировал, но с диким искажением. (Полчаса бился что не так, оказалось вот такая ситуация). Самый оптимальный вариант, опять же повторюсь использовать утилиту Imagine, проста в обращении как дважды два. Ну а из тяжелой артиллерии фотошоп конечно.

Цитата Сообщение от victor1963 Посмотреть сообщение
Может большой размер файла five6 мешает открыть, 19.4MB. Который, работает five1 всего лишь 2.06MB.
Всё верно, на форуме ограничение по объёму файлов, которые можно загрузить.
0
 Аватар для GoodWeather
886 / 588 / 179
Регистрация: 28.02.2017
Сообщений: 2,359
Записей в блоге: 1
24.10.2019, 01:54
Цитата Сообщение от AzAtom Посмотреть сообщение
не может открывать PNG, сохраненные в ACDSee (3.0)
Любой пример файла не могли бы загрузить..?

Добавлено через 2 часа 19 минут
EPngUnexpectedEnd :: This "Portable Network Graphics" image is invalid because the decoder found an unexpected end of the file.
хмм...

Добавлено через 9 минут
XnView делает читающиеся модулем файлы PNG, и файлы даже чуть меньше размером выходят (чем у этого ACDSee). Но это не дело, надо разобраться.

Добавлено через 25 минут
По поводу проблемы с расширениями файлов - решение: не использовать метод TImage.Picture.LoadFromFile().
А как-то так вот:
Delphi
1
2
3
4
5
6
7
8
9
Var
  FileStream: TFileStream;
Begin
FileStream := TFileStream.Create('C:\...\blabla.ololo', fmOpenRead); // картинку в поток, расширение уже не важно
Try
  Image1.Picture.LoadFromStream(FileStream);
Finally
  FreeAndNil(FileStream);
End;
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
24.10.2019, 06:39
Цитата Сообщение от GoodWeather Посмотреть сообщение
Любой пример файла не могли бы загрузить..?
Вот один и тот же рисунок, этот сжал Paint.
Изображения
 
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
24.10.2019, 06:42
А этот в архиве сжал ACDSee 3.0. Почему в архиве? Да потому, что он как картинка просто не прикрепляется к сообщению!
Вложения
Тип файла: rar Круг - acdsee.rar (1.0 Кб, 2 просмотров)
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
24.10.2019, 06:44
Вообще странно, я уже давно пользуюсь ACDSee, чтобы сжать в PNG. Загружал их на разные сайты, в том числе и на форумы, проблем раньше не было. Из настроек при сохранении там только галка "Interlaced", которую я не включаю. Но и со включённой пробовал, то же самое.
0
 Аватар для Flip
335 / 173 / 67
Регистрация: 25.02.2018
Сообщений: 616
24.10.2019, 08:39
Вот ещё один пример PNG изображения, который PNG - модуль не осилил. Mono.zip
Изображения
 
1
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
24.10.2019, 09:17
Картинки от ACDSee модуль pngimage не открывает потому, что в них нет закрывающего тэга IEND. Отсюда и ошибка "Неожиданный конец файла". Я отсутствие этого тэга заметил, когда начал ковырять PNG, но не придал значения, потому, что другие программы тогда открывали эти файлы нормально.

Попробую приделать к картинке этот тэг.
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
24.10.2019, 09:36
Получилось. Если к картинке от ACDSee приделать чанк IEND, то модуль эту картинку нормально открывает. И сюда на форум тоже загружается нормально.
Изображения
 
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
24.10.2019, 09:38
Цитата Сообщение от Flip
ещё один пример PNG изображения, который PNG - модуль не осилил.
А ведь его и форум тоже не осилил.

Добавлено через 45 секунд
Здесь уже в чём-то другом дело, не в IEND, он здесь есть.
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,495
24.10.2019, 16:39
Цитата Сообщение от Flip
Вот ещё один пример PNG изображения, который PNG - модуль не осилил.
Оказывается, осилил! Нужно после загрузки и до вывода на канвас сделать PNG.RemoveTransparency;
1
2 / 2 / 0
Регистрация: 23.01.2012
Сообщений: 257
25.10.2019, 20:27  [ТС]
Здравствуйте. Получилось, сменил ковертр. Спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.10.2019, 20:27

Не открывается файл Документ Office Open XML (docx) - файл поврежден, поэтому его нельзя открыть
Посмотрите, пожалуйста кто может! очень важно:cry: документ , который не отрывается. помогите возобновить...плиз

неодин браузер не открывается,скайп не открывается, фильмы не показываются,не один антивирус не открывается и не устанавливается
здравствуйте ,ребята помогите,такая ситуация,я на ноутбуке хотел скачать какой то торрент...скачал..)) неодин браузер не...

Не открывается файл
Помогите, почему выдает ошибку на fin.open(path)?#include <iostream> #include <fstream> using namespace std; int main() { ...

Не открывается файл
Не могу открыть файл TFileStream*fs=new TFileStream("12345.bin", fmOpenRead); не открывает даже если имя целиком указываю...

Файл не открывается
Выводит ошибку файла...Я создала в одной папке с кодом документ под названием in, но все равно выдает ошибку... #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
60
Ответ Создать тему
Новые блоги и статьи
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники).
Hrethgir 04.08.2026
Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701
Argus19 03.08.2026
Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа
Maks 03.08.2026
Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .
Задача предоставления скидок покупателям
Maks 03.08.2026
Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .
Почему SEO не начинается с ключевых слов: что проверить до написания текстов
Neotwalker 01.08.2026
Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .
Знание — сила: Доктрина интенциональности знаний, углубление в формулу
Hrethgir 01.08.2026
https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru