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

[raxp]

...не припомню, чтобы на народе пых-пых поддерживался. Или юкоз включил?

Цитата

9 посте я написал, что использовал idhtt.

TIdMultipartFormDataStream там и даром не впал для скрипта. Привел же вам готовый пример вызова скрипта и передачи параметра во втором посту "http://host/my.php?id=чегонибудь". Что до аттрибутов, 644.

[s2004]

procedure TForm2.s1Click(Sender: TObject);
begin
idHTTP1.Get('http://i-.16mb.com//script.php?recieve=' +(IEAddress1.text)+':'+(IEAddress2.text));
end;

записывает в лог файл с помощью скрипта

<?php
$recieve = $_GET['recieve'];
$file = fopen("logs.txt", "a+");
fwrite($file, "$recieve\r\n");
fclose($file);
?>

всё работает
но мне то надо што бы гарантировано был ип-адрес в программе проверка ип

var
 HostN,HostIP,Err : string;
begin
if EmbeddedWB1.GetIPAndHostName(HostN, HostIP, Err) then
      MessageDlg('PC Host Name: '+HostN + #10+#13+'Your Internal IP: ' + HostIP, mtInformation, [mbOk], 0)
 else MessageDlg(Err, mtError, [mbOk], 0);

определение ип-адреса никак не могу подставить в строку

idHTTP1.Get('http://i-.16mb.com//script.php?recieve='

Сообщение отредактировано: s2004 - 12.04.15, 17:26

[s2004]

проверку ип по другому сделал

procedure TForm2.Button2Click(Sender: TObject);
type
  TaPInAddr = Array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: Array[0..63] of ansiChar;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I := 0;
  while pPtr^[I] <> nil do
   begin
    TEdit(FindComponent('Edit'+IntToStr(i+1))).Text:=inet_ntoa(pptr^[I]^);
    Inc(I);
   end;
  WSACleanup;
end;

код с книжки Флёнова, в код пересылки на сервер легко встал

type
  TaPInAddr = Array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: Array[0..63] of ansiChar;
  I: Integer;
  GInitData: TWSAData;
 
begin
idHTTP1.Get('http://i.16mb.com//script.php?recieve=' +(Edit1.Text)+':'+(edit2.Text)+':'+(edit3.Text));
//idHTTP1.Get('http:
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
button2.click;
end;

как выяснилось с таймером удобней всего отрегулировал их по последовательности да и код одна строка в отличие от других.

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

[raxp]

1- вторые два слеша лишние, вы в браузере так же набираете? Не надо самодеятельности, когда дан готовый вызов.
2- вам никто не мешает определение IP вынести в отдельную функцию, возвращающую текст.