|
30.03.2012, 21:58
|
#1
|
|
|
|
Разведчик
|
Регистрация: 30.03.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Количество людей в программе
Во общем накатал небольшой примерчик
Нам потребуется такие компоненты:
2 формы;
поле для ввода;
кнопка;
список;
HTTP клиент;
таймер;
функция;
первую форму назовем nik
вторую форму назовем Form1
на первой форме (nik) создаем такие компоненты:
поле для ввода;
кнопка;
HTTP клиент;
на кнопку кидаем код:
PHP код:
$text = c("edit1")->text;
$post = c("httpClient1");
$post->url = 'http://сайт/vxod.php';
$post->setData('on', $text);
$post->submit();
LoadForm(c("Form1"), LD_NONE);
c("listBox1")->text = file_get_contents("http://сайт/online.txt");
c("Form1->timer1")->enable = true;
на второй форме (Form1) создаем такие компоненты:
список;
HTTP клиент;
таймер;
Интервал таймера ставим 100.
Код в таймере:
Код функции:
PHP код:
c("listBox1")->text = file_get_contents("http://сайт/online.txt");
делаем событие (Form1) запрос за закрытие, код:
PHP код:
$text = c("nik->edit1")->text;
$post = c("httpClient1");
$post->url = 'http://сайт/vixod.php';
$post->setData('off', $text);
$post->submit();
С программой разобрались! Теперь приступаем к серверу.
Создаем файл у себя на компьютере vxod.php, в нём пишем такое:
PHP код:
<?php
$text = $_POST['on'];
$fh = fopen('online.txt','a');
$str = $text;
fwrite($fh, $str."\r\n");
fclose($fh);
?>
Кидаем этот файл к себе на сервер!
Создаем файл у себя на компьютере vixod.php, в нём пишем такое:
PHP код:
<?php
$text = $_POST['off'];
$fopen=@file("online.txt");
$what=$text;
foreach($fopen as $key=>$value)
{
if(substr_count($value,$what))
{
array_splice($fopen, $key, 1);
}
}
$f=fopen("online.txt", "w");
for($i=0;$i<count($fopen);$i++)
{
fwrite($f,$fopen[$i]);
}
fclose($f);
?>
Кидаем этот файл к себе на сервер!
p.s у функции ставим галю работать в фоне
Автор malish
________________
Тыкни спасибку пожалуйстаааааааааааааа
Последний раз редактировалось Nevius; 30.03.2012 в 22:18.
Причина: Изменил Текст
|
|
|
30.03.2012, 22:12
|
#2
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Количество людей в программе
Советую вам поменять цвет текста на более читабельный
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
04.04.2012, 19:45
|
#3
|
|
|
|
Пехотинец
|
Регистрация: 28.01.2012
Сообщений: 74
Популярность: 274
Сказал(а) спасибо: 33
Поблагодарили 14 раз(а) в 14 сообщениях
|
Re: Количество людей в программе
Автор, скажи какой у тебя HTTP клиент ?
|
|
|
04.04.2012, 22:17
|
#4
|
|
|
|
Разведчик
|
Регистрация: 30.03.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Количество людей в программе
________________
Тыкни спасибку пожалуйстаааааааааааааа
|
|
|
05.04.2012, 11:57
|
#5
|
|
|
|
Разведчик
|
Регистрация: 04.03.2012
Сообщений: 12
Популярность: 177
Сказал(а) спасибо: 11
Поблагодарили 13 раз(а) в 12 сообщениях
|
Re: Количество людей в программе
|
|
|
05.04.2012, 17:40
|
#6
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Количество людей в программе
Уважаемый L1nc0ln,
Данный пункт дополнительных правил не актуален на данное время.
С уважением, VeTaL_UA.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
06.04.2012, 12:11
|
#7
|
|
|
|
Разведчик
|
Регистрация: 04.03.2012
Сообщений: 12
Популярность: 177
Сказал(а) спасибо: 11
Поблагодарили 13 раз(а) в 12 сообщениях
|
Re: Количество людей в программе
|
|
|
06.04.2012, 22:19
|
#8
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Количество людей в программе
Уважаемый L1nc0ln,
Причиной удаления тем стали дополнительные правила раздела "Программирование", а именно пункт 2 третьего дополнения:
|
Цитата: |
|
|
|
|
|
|
|
|
|
Запрещено создание тем, которые являются полной копией других тем, как на Zhyk.Ru, так и на других сайтах.
|
|
|
|
|
|
Если вы имеете претензии по поводу моих модераторских действий, прошу создать соответствующую тему в разделе PVP Room или же обсудить причину конфликта в ICQ, Skype или Личных Сообщениях.
С уважением, VeTaL_UA.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
19.04.2012, 00:18
|
#9
|
|
|
|
Рыцарь-капитан
|
Регистрация: 28.11.2010
Сообщений: 529
Популярность: 6125
Сказал(а) спасибо: 59
Поблагодарили 679 раз(а) в 227 сообщениях
|
Re: Количество людей в программе
Я делал по другому, по нубски так сказать, не хотелось заводить/искать сервер с поддержкой php и мучатся со всем этим, по этому тупо сделал на uCoz сайт пустышку, на форме невидимый браузер с переходом на пустышку при запуске программы, а дальше парсер счетчика с сайта в таймере=)
________________
Дух из прошлого...
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 10:01.
|
|