Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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
1-1097676709
AlexanderSK
2004-10-13 18:11
2004.10.31
TTreeView принудительное обновление TTreeNode.


3-1096970244
funtik123
2004-10-05 13:57
2004.10.31
Количсетво записей


14-1097723477
Новенький
2004-10-14 07:11
2004.10.31
Помогите с установкой винды


1-1097670469
sergg
2004-10-13 16:27
2004.10.31
Ошибка при закрытиии динамического массива


1-1097737737
Senti
2004-10-14 11:08
2004.10.31
Как принудительно убрать HScrollBar в ListView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский