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

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

Заход на страницу. [D6, D7, WinXP]

Baron Fon FasHisT ©   (2004-08-21 02:31:00) 

Вообщем картина:

Нужно чтобы страница грузилась в приложение, но не отображалась.
Фактически требуеться

1. Послать запрос на сервак (Это есть...)
2. Корректно обработать его.

Вот код этой чуши. Скажите что не так? Почему не работает?
Кто РЕАЛЬНО может помочь АСЯ # 220-505-353. $$$


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ScktComp, StdCtrls;

const Request:AnsiString='GET /index.php HTTP/1.1'+#$D#$A+
'Accept: text/html'+#$D#$A+
'Accept-Language: en-us'+#$D#$A+
'Accept-Encoding: gzip, deflate'+#$D#$A+
'User-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows 98)'+#$D#$A+
'Host: some.host.ru'+#$D#$A+
'Connection: Keep-Alive'+#$D#$A+#$D#$A;

type
 TForm1 = class(TForm)
   Skt: TClientSocket;
   Button1: TButton;
   Label1: TLabel;
   Edit1: TEdit;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
procedure SktRead(Sender: TObject; Socket: TCustomWinSocket);
procedure SktConnect(Sender: TObject; Socket: TCustomWinSocket);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Skt.Host:='some.host.ru';
Skt.Port:=80;
Skt.Open;
end;

procedure TForm1.SktConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText(Request);
end;

procedure TForm1.SktRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Text:=Memo1.Lines.Text+Socket.ReceiveText;
end;
end.


---

Baron Fon FasHisT   (2004-08-21 21:15:00) [1]

Hyboid   (21.08.04 17:15) [1]
Что значит в приложение?

Это значит что приложение (которое я пишу) отсылает запрос на сервер и с сервера получаю ответ который говорит "Ну тип грузи страницу есть такое. Данные обработанны и корректны"

---

Verg   (2004-08-21 17:39:00) [2]

Перенеси вот это


> Socket.SendText(Request);


на событие OnWrite у TClientSocket для начала.

---

Hyboid   (2004-08-21 17:15:00) [3]

Что значит в приложение?

---

Наверх