Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.04.2019, 12:16
Коржик Коржик вне форума
Прохожий
 
Регистрация: 03.04.2019
Сообщения: 8
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Многоуровневая проверка

Здравствуйте!
Делаю программку, в которой изображение скачивается с интернета, и потом выгружается в Image в BMP формате, соответственно перед загрузкой в image проверяю если скачан jpg, png, или gif то преобразую изображение в BMP. Всё получается за исключением проверки, начал уже тупить, поэтому и решил спросить у Вас.
Её смысл таков - если в ComboBox вводится текст, то проверям является ли он вэб-адресом, тут все просто в строке нужно найти (http) как я понял, если нет программа на якорь. Если в сроке есть http, то проверям, если в ней ссылки на изображения (они как правило заканчиваются расширением изображения), поэтому я ищу в строке jpg или png. Если не найдены то останавливаю приложение, если есть то работает дальше.
Написал это таким образом:
Код:
var
 Webad: string;
 .....
 // Проверяем является ли введенная в ComboBox строка корректным вэб-адресом
  // Указываем откуда берется строка на проверку
  Webad := ComboBox1.text;
  // Если в строке присутствует текст "HTTP", то...
  if Pos('http', Webad) > 0 then
		begin
			// Проверяем является ли введенная в ComboBox строка вэб-адресом с изображением
				// Если строка содержит текст ".JPG", то ...
				if Pos('.jpg', Webad) > 0 then
				begin
				// Продолжаем выполнение программы
				end
				
				// Если строка содержит текст ".PNG", то ...
				else if Pos('.png', Webad) > 0 then
				begin
				// Продолжаем выполнение программы
				end
				
				// Если в строке нет текста ни ".JPG", ни ".PNG", то...
				else
				// Предупреждаем об этом пользователя,
				ShowMessage('Данный вэб-адрес не является адресом изображения. Действие отменено.');
				// отменяем выполнение процедуры.
				Exit;
		end
    
  // Если в строке нет текста "HTTP", то...
  else
  begin
      // Предупреждаем об этом пользователя,
    ShowMessage('Данный текст не является вэб-адресом. Действие отменено.');
    // отменяем выполнение процедуры.
    Exit
  end;

Проблема в том что если после всей проверки, т.е. если всё корректно и ссылка подходит по всем параметрам, то ничего не происходит... Если ошибки то все показывает правильно и останавливает выполнение программы. А если все верно, то ничего не происходит. Помогите пожалуйста разобраться, где я протупил?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:41.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter