Форум: "Сети";
Текущий архив: 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.036 c