var conn        : http; 
    htmlBody    : string; 
    contentType : string; 

begin 
  // try to open a HTTP connection to www.google.com 
  if not OpenHttp(conn, 'http://www.google.com') then Halt; 

  // set the HTTP method (other supported methods are HEAD and POST) 
  SetHttpMethod(conn, GET); 

  // insert a User-agent header field 
  AddHttpHeader(conn, 'User-agent', 'MIDletPascal browser'); 

  // send HTTP request and check if the reply code is 200 (200 = OK) 
  if SendHttpMessage(conn) <> 200 then Halt; 

  // read the HTTP response body 
  htmlBody := GetHttpResponse(conn); 

  // read Content-type response header field 
  contentType := GetHttpHeader(conn, 'Content-type'); 

  // close the open connection 
  CloseHttp(conn); 
end.

program SportMobile;
var conn        : http; 
    htmlBody    : string; 
    contentType : string;
		zag: string;
		text: string;
		label_id: integer;
begin 
  /////////////////////////   берём заголовок новости   ///////////////////// 
  // пытаемся подключиться к заданному URL
  if not OpenHttp(conn, 'http://sportmobile.net//news_p.php?type=world&num=1&t=0') then Halt; 
  // выбираем метод поключения (GET, HEAD и POST) 
  SetHttpMethod(conn, GET); 
  // вставляем User-agent заголовочное поле 
  AddHttpHeader(conn, 'User-agent', 'MIDletPascal browser'); 
  // посылаем HTTP запрос и проверяем ответ (200 = OK) 
  if SendHttpMessage(conn) <> 200 then Halt; 
  // читаем тело HTTP ответа 
  htmlBody := GetHttpResponse(conn);
  zag:= htmlBody; // присваеваем его значение созданной ранее переменной
  // читаем заголовок ответа Content-type
  contentType := getHttpHeader(conn, 'Content-type');   
  // закрываем соединение
  CloseHttp(conn);
  
  //////////////////////////   берём основной текст новости    ////////////////
  // пытаемся подключиться к заданному URL
  if not OpenHttp(conn, 'http://sportmobile.net//news_p.php?type=world&num=1&t=1') then Halt; 
  // выбираем метод поключения (GET, HEAD и POST)
  SetHttpMethod(conn, GET); 
  // вставляем User-agent заголовочное поле  
  AddHttpHeader(conn, 'User-agent', 'MIDletPascal browser'); 
  // посылаем HTTP запрос и проверяем ответ (200 = OK) 
  if SendHttpMessage(conn) <> 200 then Halt; 
  // читаем тело HTTP ответа 
  htmlBody := GetHttpResponse(conn);
  text:= htmlBody + zag; // присваеваем его значение созданной ранее переменной
  // читаем заголовок ответа Content-type
  contentType := GetHttpHeader(conn, 'Content-type'); 
  // закрываем соединение 
  CloseHttp(conn);
  
  
  
  //////////////////////    выводим новость на экран   /////////////////////
  label_id := formAddString(zag);
  label_id := formAddString(text);
  showForm;  
  setTicker('Last football news'); //показываем заголовок программы
  delay(-1);   //безпрерывное выполнение проги
 
end.