edit - Общие вопросы Delphi

Pearl777 · 18.02.2013, 17:11

Здравствуйте! Подскажите пожалуйста. Вот у меня есть edit, туда я вписываю прокси сервер. Программа работает только с прокси, как сделать чтобы она работала так же без них когда edit пуст?

Пробовал вот так:

Код:

if ( StrToInt(Edit1.Text) = 0) then
IdHTTP1.Post(XPEdit1.Text+'/index/sub/',LoginInfo,Response);  
else
IdHTTP1.ProxyParams.ProxyServer:=Copy(XPEdit3.Text,1,Pos(':',XPEdit3.Text)-1);
    IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(XPEdit3.Text,Pos(':',XPEdit3.Text)+1,Length(XPEdit3.Text)));
IdHTTP1.Post(XPEdit1.Text+'/index/sub/',LoginInfo,Response);

Но выдает ошибку.

Delphi_ProGer · 18.02.2013, 17:59

Код:

if ( Trim(Edit1.Text) = '') then
IdHTTP1.Post(XPEdit1.Text+'/index/sub/',LoginInfo,Response);  
else
IdHTTP1.ProxyParams.ProxyServer:=Copy(XPEdit3.Text,1,Pos(':',XPEdit3.Text)-1);
    IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(XPEdit3.Text,Pos(':',XPEdit3.Text)+1,Length(XPEdit3.Text)));
IdHTTP1.Post(XPEdit1.Text+'/index/sub/',LoginInfo,Response);

Pearl777 · 18.02.2013, 18:12

Delphi_ProGer · 18.02.2013, 19:49

Эта ошибка при введенном прокси?

Pearl777 · 18.02.2013, 19:59

это если оставить поле прокси пустым, тогда при нажатии старт выскакивает ошибка.

Pearl777 · 18.02.2013, 20:28

Все разобрался. Всем спасибо!!!

Pearl777 · 18.02.2013, 20:36

И ещё один вопрос. Как можно получить ID HDD?

Delphi_ProGer · 18.02.2013, 21:38

Цитата:

Сообщение от Pearl777

И ещё один вопрос. Как можно получить ID HDD?

вот

Pearl777 · 18.02.2013, 22:14

Delphi_ProGer, А как сделать, чтобы программа закрывалась если не найден файл? Пробовал через close; но программа не закрывается.

Delphi_ProGer · 18.02.2013, 22:37

А это уже другая опера

Создавайте на отлельный вопрос - отдельную тему.

П.С. Project->View Source. Делаете проверку перед инициализацией форм, если файла нету, тогда Halt(0);

18.02.2013, 17:11	#1
Pearl777 Форумчанин Регистрация: 04.01.2013 Сообщений: 171	edit Здравствуйте! Подскажите пожалуйста. Вот у меня есть edit, туда я вписываю прокси сервер. Программа работает только с прокси, как сделать чтобы она работала так же без них когда edit пуст? Пробовал вот так: Код: `if ( StrToInt(Edit1.Text) = 0) then IdHTTP1.Post(XPEdit1.Text+'/index/sub/',LoginInfo,Response); else IdHTTP1.ProxyParams.ProxyServer:=Copy(XPEdit3.Text,1,Pos(':',XPEdit3.Text)-1); IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(XPEdit3.Text,Pos(':',XPEdit3.Text)+1,Length(XPEdit3.Text))); IdHTTP1.Post(XPEdit1.Text+'/index/sub/',LoginInfo,Response);` Но выдает ошибку.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пустой Edit. Парсер формулы из Edit	Silverstone	Общие вопросы Delphi	3	16.12.2012 03:07
Копирование строки из Edit в другой Edit.	Ibanez Wizard	Win Api	3	29.03.2011 02:46
Edit	Simon..14	Общие вопросы C/C++	2	27.01.2009 21:25
Edit	Nikolaeva	Компоненты Delphi	3	23.05.2008 09:36
edit	moysey	Помощь студентам	2	26.11.2007 18:40

18.02.2013, 18:12	#3
Pearl777 Форумчанин Регистрация: 04.01.2013 Сообщений: 171

18.02.2013, 19:49	#4
Delphi_ProGer Форумчанин Регистрация: 30.10.2010 Сообщений: 524	Эта ошибка при введенном прокси?

18.02.2013, 19:59	#5
Pearl777 Форумчанин Регистрация: 04.01.2013 Сообщений: 171	это если оставить поле прокси пустым, тогда при нажатии старт выскакивает ошибка.

18.02.2013, 20:28	#6
Pearl777 Форумчанин Регистрация: 04.01.2013 Сообщений: 171	Все разобрался. Всем спасибо!!!

18.02.2013, 20:36	#7
Pearl777 Форумчанин Регистрация: 04.01.2013 Сообщений: 171	И ещё один вопрос. Как можно получить ID HDD?

18.02.2013, 22:14	#9
Pearl777 Форумчанин Регистрация: 04.01.2013 Сообщений: 171	Delphi_ProGer, А как сделать, чтобы программа закрывалась если не найден файл? Пробовал через close; но программа не закрывается.

18.02.2013, 22:37	#10
Delphi_ProGer Форумчанин Регистрация: 30.10.2010 Сообщений: 524	А это уже другая опера Создавайте на отлельный вопрос - отдельную тему. П.С. Project->View Source. Делаете проверку перед инициализацией форм, если файла нету, тогда Halt(0);