Форум: "Сети";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Заход на страницу.   Найти похожие ветки 

← →
Baron Fon FasHisT   (2004-08-21 02:31) [0]

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

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

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.


---

← →
Hyboid   (2004-08-21 17:15) [1]

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

---

← →
Verg ©   (2004-08-21 17:39) [2]

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


> Socket.SendText(Request);


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

---

← →
Baron Fon FasHisT   (2004-08-21 21:15) [3]

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

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.048 c