VPF::как узнать к-во пользователей моей программы

s2004

Дата 7.4.2015, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет

Здравствуйте!
Интересует оптимальный способ, как узнать к-во пользователей использующих мою сетевую программу. При этом желательно не задействовать почту, а просто вероятно записывать данные в лог файл на сайте.

Это сообщение отредактировал(а) s2004 - 7.4.2015, 18:03

MotoArhangel

Дата 8.4.2015, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

Как вариант. Создать допустим таблицу в БД. С полем IDPC. В него пихать id железа ПК и соответственно подсчитывать количество записей. Ну или без БД используя текстовый файл, получил-> проверил->добавил если нет->отправил.

Это сообщение отредактировал(а) MotoArhangel - 8.4.2015, 14:28

_zorn_

Дата 8.4.2015, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1077
Регистрация: 21.8.2007

Репутация: нет
Всего: 12

Да проще некуда.
При запуске дёргает урл (например http://site.ru/check.php). Этот скрипт (check.php) пишет что куда надо (что ему передается зависит от программы).
ВСЕ.

Самое главное чтобы прога ваша не падала если интернета нет.... try...catch и все дела. А то знаю я вас.

s2004

Дата 9.4.2015, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет

с скриптами проблема я с ними не заниаслся никогда, подробней желательно. И где образец хотя бы приближённа, любопытно кто знает в опере примерно так же или там по другому отслеживают?

s2004

Дата 11.4.2015, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет

Сделал по примеру в интернете файл ини с папки программы, но всё дело, что он стандартный у всех. Оптимально, если будет ип - адрес пользователя и он бы добавлялся в файл на хостинге. Пример

Код


<?php

    $uploaddir = "tmp"; // Where you want the files to upload to - Important: Make sure this folders permissions (CHMOD) is 0777!

 

    if(is_uploaded_file($_FILES['ffile']['tmp_name']))

    {

    move_uploaded_file($_FILES['ffile']['tmp_name'],$uploaddir.'/'.$_FILES['ffile']['name']);

    print "Your file has been uploaded successfully! Yay!";

     

    } else {

    print "Your file has not been uploaded!!";}

    ?>

Код


procedure TForm2.send1Click(Sender: TObject);

//procedure TForm1.sendFileInet(filename: string);

var

 response: string;

 formData: TIdMultipartFormDataStream;

 idhttp1: TIdHTTP;

begin

    idhttp1 := TIdHTTP.Create(nil);

 

 

formData := TIdMultipartFormDataStream.Create;

 

formData.AddFile('ffile', 'хххх.ini', 'text/plain');   // ffile mst be in php-file

IdHTTP1.Request.ContentType := 'multipart/form-data';

try

 response := IdHTTP1.Post('http://ХХХХ/uploadfile.php', formData);

finally

  IdHTTP1.Free;

  formData.Free;

end;

дальше я попробовал ещё embeddedwb сделал его невидимым и чтобы он открывал сайт скрытно для прльзователя на хостинге, покажет кто заходил и ип - адрес в том числе, но к сожалению почему то пишет, как мозила. Хотя в user agent я выставил имя своей программы.
Пример

Код


EmbeddedWB3.Navigate(' http://narod.ru/ip');

изменил запрос немного создал пустой файл ip в дире и сылку в проге как кто запустит программу то соответсвенно и этот файл. Вот сейчас на хостинге посмотрел видно работает, файл пустой и на странице его нет, поэтому открываться он может скорее всего за счёт запуска программы.
Но всё равно готового решения, что- то нет в интернете, а оптимально конечно лог файл на хостинге куда записывался бы ип-адрес путём добавления в лог файл.

Это сообщение отредактировал(а) Poseidon - 16.4.2015, 13:14

Poseidon

Дата 16.4.2015, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133

1) Создай текстовый файл index.php со следующим содержанием:

Код


<?php
    $file = "test.txt";
    $f = fopen($file,"w+") or die("невозможно открыть/создать файл");
    fwrite($f, $_SERVER[‘REMOTE_ADDR’]) or die ('Не записал');
    fclose($f);
?>

2) Загрузи этот файл на хостинг в отдельный каталог (допустим это будет каталог "mydir")

3) В Delphi напиши это:

Код


procedure TForm2.send1Click(Sender: TObject);
var
  IdHttp: TIdHTTP;
begin
  IdHttp := TIdHttp.Create(nil);
  try
    IdHttp.Get('http://твойдомен.ru/mydir');
  finally
    IdHttp.Free;
  end;
end;

В итоге, при нажатии на кнопку send1 в твоей программе на хостере в каталоге mydir будет создан текстовый файл test.txt, в котором будет IP пользователя. Никаких скрытых EmbeddedWB3 и прочего не надо.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »