ip:port

@WestSide072 · Регистрация: 15.07.2010

Author24 — интернет-сервис помощи студентам

Собственно вопрос такой: "Нужно большой текстовый файл разделить на 2 таких же только в первый выводится Ip и во второй порт,
Чёрный Медведь дал мне строчку

Delphi

1	port:=Copy(Memo2.Text, Pos(':', Memo2.Text) + 1, Length(Memo2.Text));

Она находит порт, а как сделать нахождение ай пи?

@STRATEG · 21.08.2010, 13:19

Черный медведь правильно дал,почти. Дело в том что если ты загрузишь свой файл в Memo,то переменная Text у Memo будет содержать в себе весь текст,и таким образом получиться слудующее:
192.168.1.2:1000
192.168.1.3:1001
192.168.1.4:1002
192.168.1.5:1003
192.168.1.6:1004
192.168.1.7:1005
Для одной строки типа 192.168.1.4:1002 это будет порт (1002) а для большого текста,это будет все что выделенно красным.

Вот код для обработки текста

Delphi

procedure TForm1.btn1Click(Sender: TObject);
var i,p:integer;
    IP,Port,temp:string;
begin
  for i:=0 to mmo1.Lines.Count -1 do
  begin
    temp:=mmo1.Lines.Strings[i];
    p:=pos(':',temp);
    IP:=Copy(temp,1,p-1); {тут храниться IP}
    Delete(temp,1,p); 
    Port:=temp; {тут порт}
    {тут твой код который их пишет в файл}
    end;
end;

@WestSide072 · 21.08.2010, 19:23 **[ТС]**

Дабы не плодить темы, напишу тут

Delphi

ip:=Form1.ListBox2.Items[mn];
port:=Form1.ListBox3.Items[mn];
Form1.Edit3.Text:=ip;
Form1.Edit4.Text:=port;
ips:=Form1.Edit3.Text;
ports:=StrToInt(Form1.Edit4.Text);
Form1.IdHTTP1.ProxyParams.ProxyServer:=ips;
Form1.IdHTTP1.ProxyParams.ProxyPort:=ports;
Form1.IdHTTP1.Port:=ports;
  mn:=mn+1;

Что тут неправильно? При запуске программы немного ожидания я ошибка "Socket Error #10054"

@Markus_13 · 21.08.2010, 19:34

WestSide072, зачем выкладывать вырванный непойми откуда кусок? Если выложишь проект полностью - скажу где ошибка.

@STRATEG · 21.08.2010, 20:11

Markus_13 правду говорит,в этом куске кода ошибки быть не может,так как тут нет ни запросов,ни передачи данных.А ошибка это вот о чем говорит:
10054: Удаленный хост принудительно разорвал существующее подключение.

@Markus_13 · 21.08.2010, 21:17

Вот накидал простенький ПроксиЧекер на Инди:
(демонстрирует работу инди с прокси)

@WestSide072 · 21.08.2010, 22:30 **[ТС]**

Delphi

huk:=Form1.Edit1.Text;
pass:=Form1.Edit2.Text;
ip:=Form1.ListBox2.Items[mn];
port:=Form1.ListBox3.Items[mn];
Form1.Edit3.Text:=ip;
Form1.Edit4.Text:=port;
ips:=Form1.Edit3.Text;
ports:=StrToInt(Form1.Edit4.Text);
Form1.IdHTTP1.ProxyParams.ProxyServer:=ips;
Form1.IdHTTP1.ProxyParams.ProxyPort:=ports;
Form1.IdHTTP1.Port:=ports;
  mn:=mn+1;
  Form1.Label5.Caption:=IntToStr(mn);
 StrPage:=Form1.idhttp1.Get('http://***');
 ssylka:=('http://***');
 Data:=TstringList.Create;
 {... собирается пакет...}
StrPage:=Form1.idhttp1.Post(ssylka, Data);

@Markus_13 · 21.08.2010, 22:41

WestSide072, бред какой-то выложил =\

@WestSide072 · 22.08.2010, 12:18 **[ТС]**

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

WestSide072, бред какой-то выложил =\

Delphi

huk:=Form1.Edit1.Text; 
pass:=Form1.Edit2.Text;
ip:=Form1.ListBox2.Items[mn];
port:=Form1.ListBox3.Items[mn];
Form1.Edit3.Text:=ip;
Form1.Edit4.Text:=port;
ips:=Form1.Edit3.Text;
ports:=StrToInt(Form1.Edit4.Text);
Form1.IdHTTP1.ProxyParams.ProxyServer:=ips;
Form1.IdHTTP1.ProxyParams.ProxyPort:=ports;
Form1.IdHTTP1.Port:=ports;
  mn:=mn+1;
  Form1.Label5.Caption:=IntToStr(mn);
 StrPage:=Form1.idhttp1.Get('http://***');
 ssylka:=('http://***');
 Data:=TstringList.Create;
 {... собирается пакет...}
StrPage:=Form1.idhttp1.Post(ssylka, Data);

что тут непонятно? Лишние строчки, но это мой код какой никакой, криво но работает, и я рад этому

Добавлено через 11 минут

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

Delphi

huk:=Form1.Edit1.Text; 
pass:=Form1.Edit2.Text;
ip:=Form1.ListBox2.Items[mn];
port:=Form1.ListBox3.Items[mn];
Form1.Edit3.Text:=ip;
Form1.Edit4.Text:=port;
ips:=Form1.Edit3.Text;
ports:=StrToInt(Form1.Edit4.Text);
Form1.IdHTTP1.ProxyParams.ProxyServer:=ips;
Form1.IdHTTP1.ProxyParams.ProxyPort:=ports;
Form1.IdHTTP1.Port:=ports;
  mn:=mn+1;
  Form1.Label5.Caption:=IntToStr(mn);
 StrPage:=Form1.idhttp1.Get('http://***');
 ssylka:=('http://***');
 Data:=TstringList.Create;
 {... собирается пакет...}
StrPage:=Form1.idhttp1.Post(ssylka, Data);

что тут непонятно? Лишние строчки, но это мой код какой никакой, криво но работает, и я рад этому

Ладно пофиг, меня щас интерисует как сделать чтобы программа не висла при одевание бэдовой прокси.

@Markus_13 · 22.08.2010, 12:26

Ладно пофиг, меня щас интерисует как сделать чтобы программа не висла при одевание бэдовой прокси.

Я обычно для этого выставляю у IdHTTP свойство ReadTimeout, например если поставить 5000, то по истечении 5секунд сработает таймаут...
З.Ы. посмотри всетаки прогу которую я выше выложил, я ведь время потратил на эту бесполезную для меня ерунду =)

@STRATEG · 22.08.2010, 15:20

Не по теме:

Markus_13 если ты пришел на этот форум задавать вопросы,мы с удовольствием ответим,а если сам будешь отвечать,то придется делать оч много таких "бесполезных для тебя ерундень" и за эт даж бывает спасибо не говорят:)

@WestSide072 · 22.08.2010, 16:56 **[ТС]**

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

Я обычно для этого выставляю у IdHTTP свойство ReadTimeout, например если поставить 5000, то по истечении 5секунд сработает таймаут...
З.Ы. посмотри всетаки прогу которую я выше выложил, я ведь время потратил на эту бесполезную для меня ерунду =)

Да, я смотрел, уже нераз, спс примерно как происходит "чек" я понял,
PS поставил ReadTimeout 3000 и редирект 2, попробовал, и программа тупо виснет при старте =(

@STRATEG · 22.08.2010, 17:44

Давай сюда проект свой,тогда точно поставим диагноз

Новые блоги и статьи
Как скрыть клавиатуру на Android hw_wired 24.01.2025 При разработке Android-приложений часто возникает необходимость управлять видимостью экранной клавиатуры для улучшения пользовательского опыта. Одним из наиболее эффективных способов контроля. . .	Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .	Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .	Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .
Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .	Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .	Как обойтись без проверки на null, чтобы избежать NullPointerException в Java bytestream 24.01.2025 NullPointerException (NPE) является одним из самых распространенных исключений в Java, создающих серьезные проблемы при разработке программного обеспечения. Данное исключение возникает при попытке. . .	Что лучше использовать в href ссылок в JavaScript: "#" или "javascript:void(0)" bytestream 24.01.2025 При разработке веб-приложений важную роль играет правильное использование HTML-ссылок в сочетании с JavaScript. Одним из ключевых аспектов является выбор корректного значения атрибута href для. . .

@Markus_13 {c0Der} 138 / 123 / 18 Регистрация: 20.02.2009 Сообщений: 434 Записей в блоге: 4
	21.08.2010, 19:34	4
	WestSide072, зачем выкладывать вырванный непойми откуда кусок? Если выложишь проект полностью - скажу где ошибка. 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	21.08.2010, 20:11	5
	Markus_13 правду говорит,в этом куске кода ошибки быть не может,так как тут нет ни запросов,ни передачи данных.А ошибка это вот о чем говорит: 10054: Удаленный хост принудительно разорвал существующее подключение. 0

@Markus_13 {c0Der} 138 / 123 / 18 Регистрация: 20.02.2009 Сообщений: 434 Записей в блоге: 4
	21.08.2010, 22:41	8
	WestSide072, бред какой-то выложил =\ 0

@Markus_13 {c0Der} 138 / 123 / 18 Регистрация: 20.02.2009 Сообщений: 434 Записей в блоге: 4
	22.08.2010, 12:26	10
	Ладно пофиг, меня щас интерисует как сделать чтобы программа не висла при одевание бэдовой прокси. Я обычно для этого выставляю у IdHTTP свойство ReadTimeout, например если поставить 5000, то по истечении 5секунд сработает таймаут... З.Ы. посмотри всетаки прогу которую я выше выложил, я ведь время потратил на эту бесполезную для меня ерунду =) 0

@STRATEG
	22.08.2010, 15:20 #11
	Не по теме: Markus_13 если ты пришел на этот форум задавать вопросы,мы с удовольствием ответим,а если сам будешь отвечать,то придется делать оч много таких "бесполезных для тебя ерундень" и за эт даж бывает спасибо не говорят:) 0

@WestSide072 37 / 15 / 3 Регистрация: 15.07.2010 Сообщений: 326
	22.08.2010, 16:56 [ТС]	12
	Сообщение от Markus_13 Я обычно для этого выставляю у IdHTTP свойство ReadTimeout, например если поставить 5000, то по истечении 5секунд сработает таймаут... З.Ы. посмотри всетаки прогу которую я выше выложил, я ведь время потратил на эту бесполезную для меня ерунду =) Да, я смотрел, уже нераз, спс примерно как происходит "чек" я понял, PS поставил ReadTimeout 3000 и редирект 2, попробовал, и программа тупо виснет при старте =( 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	22.08.2010, 17:44	13
	Давай сюда проект свой,тогда точно поставим диагноз 0