Вторник, 24.11.2020, 23:55 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » Отправка данных на сайт (Помогите новичку)
Отправка данных на сайт
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 скрипты заерещены. По поводу первой части - http://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

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
delphicode » Delphi » Вопросы по Delphi » Отправка данных на сайт (Помогите новичку)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2020 Хостинг от uCoz