|
teodelfix
|
Дата: Пятница, 06.05.2011, 08:39 | Сообщение # 1
|
Частый гость
Зарегистрирован: 25.04.2011
Группа: Пользователи
Сообщений: 25
Статус: Offline
|
Необходимо что бы программа с домашнего компьютера добавляла на сайт IP адрес компьютера или мо mail отправляла.
Вот полное описание проблемы:
Есть 2 компа: домашний и рабочий.
Есть клиент-серверное ПО, которое с рабочего компа на домашний отправляет команду. Серверная часть получая команду закрывает определенное окно. На домашнем компе статический IP. Необходимо что бы сервер отправлял этот ИП на мой личный сайт undo.ucoz.ru а клиент брал этот ИП с сайта и в последствии на него отправлял команду. Как это реализовать? |
| |
|
|
|
gravitas
|
Дата: Пятница, 06.05.2011, 12:36 | Сообщение # 2
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
С юкозом все трудно, ибо там запрещены PHP скрипты заерещены. По поводу первой части - https://delfcode.ru/forum/30-459-1
По поводу второй:
//uses wininet;
Code
function GetIP(szPath :String) :String;
var
hSock :HINTERNET;
hFile :HINTERNET;
lpdwNumberOfBytesRead :DWORD;
Command :array [0..500] of Char;
begin
hSock := InternetOpen(PChar(UserAgent[5]), 0, nil, nil, 0);
hFile := InternetOpenUrl(hSock, PChar(szPath), nil, 0, INTERNET_FLAG_EXISTING_CONNECT, 0);
InternetReadFile(hFile, @Command, Length(Command), lpdwNumberOfBytesRead);
Result := Copy(Command,1,lpdwNumberOfBytesRead);
InternetCloseHandle(hSock);
end;
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
