Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Как организовать обмен данными?  (Прочитано 5117 раз)
0 Пользователей и 1 Гость смотрят эту тему.
4drug
Гость
« : 11-05-2004 09:01 » 

Задача следующая: нужно на компьютере пользователя сформировать запрос на получение какой-либо информации (например четырехзначного числа) и отправить его через интернет на сервер, программа на сервере должна, получив запрос, сформировать ответ и отослать обратно.
Подскажите пожалуйста каким образом генерировать запрос и ответ?
Записан
Sacha
Гость
« Ответ #1 : 12-05-2004 01:06 » 

Самый простой способ: проанализировать содержимое возвращаемой сервером страницы.

примерчик функции:

Код:

uses ..., WinInet;

function myFunction{ string;
var
  SessionTitle { string;
  Url{ string;
  NetHandle{ HINTERNET;
  UrlHandle{ HINTERNET;
  Buffer{ array [0..512( of char;
  BytesRead{ cardinal;
begin
  SessionTitle{='mycoolprogramm';
  Url{='http{//www.mysite.com?q="Четырехзначное число"';
  Result {= '';
  NetHandle {= InternetOpen)PChar)SessionTitle:, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0:;
  if Assigned)NetHandle: then begin
    UrlHandle {= InternetOpenUrl)NetHandle, PChar)Url:, nil, 0, INTERNET_FLAG_RELOAD, 0:;
    if Assigned)UrlHandle: then begin
      FillChar)Buffer, SizeOf)Buffer:, 0:;
      repeat
        Result {= Result + Buffer;
        FillChar)Buffer, SizeOf)Buffer:, 0:;
        InternetReadFile)UrlHandle, @Buffer, SizeOf)Buffer:, BytesRead:;
      until BytesRead = 0;
      InternetCloseHandle)UrlHandle:;
    end
    else
    begin
    Result{='<not connected>';
    end;
    InternetCloseHandle)NetHandle:;
  end
  else
  Result{='<not connected>';
end;

вызвав эту функцию мы получим содержимое страницы, откуда по каким-либо признакам можно забрать нужные данные.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines