[norfolk23]

Всем привет..Подскажите как реализовать следующее:
клиентская часть,установленная на компьютере,собирает инфо и записывает его в лог..Вот что не могу релизовать-в случае доступности сервера нужно каждые 10 минут скидывать свой ip-адрес и инфо из лога в лог на сервере,при этом очищая полностью клиентский лог,а через 10 минут снова скидывать на сервер таким же образом инфо которая там к этому времени накопится(это уже реализовано)...

[Marvel]

опять троянописатели )))

P.S.: стукни в аську, которая в подписи, как зайду в неё (часа через 4-6), помогу сделать, даж много-поточный сервер замутим ))

[norfolk23]

есть умные мысли по этому поводу?

[T-dayne]

На самом деле все очень просто, особенно с IP , смотрим:

Сначала определяем Ip адрес на машине клиента:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function address: string; var ip: string; p: integer; begin ip:=idhttp1.get('http://www.myip.ru/get_ip.php?loc=');     P := Pos('<TABLE',ip);    P := PosEx('<TABLE',ip,P+1);   P := PosEx('<TABLE',ip,P+1);   P := PosEx('<TD',ip,P+1);   P := PosEx('<TD',ip,P+1);   P := PosEx('>',ip,P+1);   Delete(ip,1,P);    ip := Copy(ip,1,Pos('<',ip)-1);   result:=ip;  end;

Далее отсылаем его серверу:

Код:

1	clientsocket1.sendtext('#IP'+address);

На сервере ловим так:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm.ServerSocket1ClientRead(Sender: TObject;   Socket: TCustomWinSocket); var smessage: string; begin smessage:=socket.ReceiveText;  if copy(smessage,1,3)='#IP' then  begin   delete(smessage,1,3);   //все! адрес находится в переменной smessage, делаем че хотим.  end; end;

Для того чтобы сбор статистики выполнялся через каждые 10 минут, ставим таймер со значением interval = 6000000 и помещаем 1й код в обработчик срабатывания.
Если есть вопросы обращайся!

[Marvel]

T-dayne, а не проще на стороне сервера использовать ClientSocket.RemoteHost (Socket.RemoteHost - это кто через что делает), чем клиентом отсылать его IP? К тому же если это работает в локалке, где нет инета, то Ваш способ не подходит

Код:

1 2 3 4 5 6 7 8

<b>procedure </b>TForm.ServerSocket1ClientRead(Sender: TObject;   Socket: TCustomWinSocket); <b>var</b>   smessage: <b>string</b>; <b>begin</b>   smessage := Socket.RemoteHost;   <font color="Navy">// все! адрес находится в переменной smessage, делаем че хотим.</font> <b>end;</b>

norfolk23, в аську бросил ссылку на исходник, который и обещал

[T-dayne]

Marvel
Аха, действительно. Маловато опыта...

[norfolk23]

всем пасиб за помощь