Скачать: CL | DM;

Image1   Найти похожие ветки 

← →
Вти   (2006-09-04 20:14) [0]

Что нужно написать, чтобы это работало:

Image1.picture.loadfromFile("C:\1.jpg"); // загружаем картинку
...

// потом нужно сделать проверку
if image1.picture... ="C:\1.jpg" then ..

Что нужно написать после image1.picture, чтобы выполнялась проверка - если в image1 загружена картинка "C:\1.jpg",
тогда то-то. ??

---

← →
Джо ©   (2006-09-04 20:17) [1]

TImage не хранит информацию о имени файла.

---

← →
Furyz ©   (2006-09-04 21:03) [2]

вроде  в ветку для начинающих

---

← →
Loginov Dmitry ©   (2006-09-04 21:14) [3]

> Что нужно написать после image1.picture, чтобы выполнялась
> проверка - если в image1 загружена картинка "C:\1.jpg",
> тогда то-то. ??


Можешь завести переменную типа String, и запоминать в ней имя файла после выполнения loadfromFile.

---

← →
oldman ©   (2006-09-04 21:50) [4]

элементарно, ватсон...
вешаешь на форму скрытую image2
пишешь:
Image1.picture.loadfromFile("C:\1.jpg");
Image2.picture.loadfromFile("C:\1.jpg");
Потом:
if image1.picture=image2.picture

:))))))))))))

---

← →
BOA_KAA ©   (2006-09-04 22:32) [5]

а еще TImage jpg не открывает...

---

← →
ppp.64.true.ru   (2006-09-04 22:36) [6]

спорим открывает ))))))))

---

← →
Furyz ©   (2006-09-04 23:40) [7]

> а еще TImage jpg не открывает...

упал са стула

---

← →
Andy BitOff ©   (2006-09-04 23:43) [8]

oldman ©   (04.09.06 21:50) [4]
Потом:
if image1.picture=image2.picture

Не, так не пойдет. Надо сравнивать попиклельно.

---

← →
ssk ©   (2006-09-04 23:52) [9]

вот когда-то давно наследника делал... вроде работало. только логику проверки придется немного поменять.


{
Потомок от TImage со свойством пути к загруженному файлу.

Загрузка файла Image.LoadPicture(FileName: string): boolean;
Путь к загруженному файлу  Image.LoadedFileName: string;

}
unit sskImage;

interface

uses
 Classes, ExtCtrls, Graphics, jpeg;

type

 TsskImage = class(TImage)
 private
   FFileName: string;
   function GetFileName: string;
 public
   function LoadPicture(FileName: string): boolean;
 published
   property LoadedFileName: string read GetFileName;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents("ssk Components", [TsskImage]);
end;

function TsskImage.GetFileName: string;
begin
 Result := FFileName;
end;

function TsskImage.LoadPicture(FileName: string): boolean;
begin
 try
   Picture.LoadFromFile(FileName);
   if FFileName <> FileName then
     FFileName := FileName;
   Result := True;
 except
   Result := False;
 end;
end;

end.



---

← →
ppp.64.true.ru   (2006-09-05 00:15) [10]

ну а Picture.Empty не подходит что ли?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.049 c