Тема: Image адрес

Як дізнатися імя або адрес загруженой картінки в Image.

2 Востаннє редагувалося koala (06.10.2014 21:46:46)

Re: Image адрес

Прихований текст

-Скажіть будь-ласка, де у Вас тут останівка, ой! ..зупинівка!
-Зупинка за рогом. Та ти, москалику, вже приїхав...

Треба подивитися, як її завантажували. Після того TImage існує окремо від файлу з малюнком.

Подякували: Torbins, Діма2

3

Re: Image адрес

Я загрузив катінку

img1.Picture.LoadFromFile('C:\1.png')

Потім мені треба дізнатися адрес або імя  'C:\1.png' картінки.

img1.Picture.????

4

Re: Image адрес

imho, ніяк. Чому не можна одразу нормально зберегти шлях до картинки?

Подякували: koala, Torbins, leofun013

5

Re: Image адрес

Я би вам порадив завантажувати зображення через OpenPictureDialog

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if(OpenPictureDialog1.Execute) then
    begin
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    end;
end;

Тоді можна шлях до зображення отримати із власивості FileName

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Edit1.Text:=OpenPictureDialog1.FileName;
end

Або так:

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Edit1.Text:=ExtractFilePath(OpenPictureDialog1.FileName);
end

Назву зображення отримуємо так:

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Edit1.Text:=ExtractFileName(OpenPictureDialog1.FileName);
end

6

Re: Image адрес

Romanvolja
Навіщо кидати на форму цілий діалог, коли достатньо однієї змінної?

LastLoadedImage: string;
Подякували: Romanvolja1

7

Re: Image адрес

Torbins написав:

Romanvolja
Навіщо кидати на форму цілий діалог, коли достатньо однієї змінної?

LastLoadedImage: string;

Мову Delphi вивчаю самостійно, без репетиторів тому багато чого ще не знаю, і роблю багато чого не правильно.
Тому перепрошую.

8

Re: Image адрес

Нічого страшного, я тут не тільки для вас пишу. Багато хто вчитиметься по цьому форуму. Тому я намагаюся казати не лише як правильно, але і як краще.