| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перейти по ссылке и прочитать файл [D7, XP]

elfebet ©   (2006-04-11 19:42:00) 

Подскажите пожалуйста как сделать, чтобы при переходе на ссылку (к примеру http://www.delphimaster.ru/cgi-bin/forum.pl?n=18) можно было прочитать html файл.

---

Zeqfreed   (2006-04-11 20:12:00) [1]


uses
Sockets;

. . .

procedure TForm1.Button1Click(Sender: TObject);
const
 get = 'GET http://delphimaster.ruHTTP/1.0' + CRLF +
       'Connection: Close' + CRLF + CRLF;
begin
 with TTCPClient.Create(Self) do begin
  try
   RemoteHost := 'delphimaster.ru';
   RemotePort := '80';

   if Connect() then begin
    SendLn(get, CRLF + CRLF);

    Memo1.Text := ReceiveLn(CRLF + CRLF);
    Memo1.Text := Memo1.Text + ReceiveLn(CRLF + CRLF);

    Close();
   end;
  finally
   Free;
  end;
 end;
end;

http://www.codenet.ru/webmast/php/HTTP-POST.php

---

elfebet   (2006-04-11 19:56:00) [2]

к примеру скрипт data.php
мне надо чтобы прога запускала ссылку data.php?id=2&m=3 и загрузила в memo1 текст html который сгенерировался.

---

Zeqfreed   (2006-04-11 19:50:00) [3]

Переформулируй вопрос. А то язвить нет желания, телепатировать тем более.

---

Наверх