Главная страница
    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.033 c
1-1097584420
Aleksandr.
2004-10-12 16:33
2004.10.31
Что случилось с Excel.Application?


14-1097671607
Vlad Oshin
2004-10-13 16:46
2004.10.31
А Ваши знакомые кодировались от алкоголя? Что говорят?


1-1098166443
jenbond
2004-10-19 10:14
2004.10.31
подсветку подставленных переменных в FastReport


4-1096103320
X-Disa
2004-09-25 13:08
2004.10.31
Самоудаляущаяся прога


1-1098164309
Pashkerton
2004-10-19 09:38
2004.10.31
Сложение TTime





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский