Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-1097594241
Wish
2004-10-12 19:17
2004.10.31
Как сохранить в INI свойства TFont a типа Bold или Italic?


3-1096693515
DelphiN!
2004-10-02 09:05
2004.10.31
Перевод базы данных в HTML


1-1097614029
quickblack
2004-10-13 00:47
2004.10.31
Как убрать картинку с иконки файла?


14-1097473350
Russel
2004-10-11 09:42
2004.10.31
Странная проблема с открытием файла


4-1096020727
Чебуратор
2004-09-24 14:12
2004.10.31
Как програмно изменить переменную PATH для всех пользователей ?