Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

получение кода страницы [D6]

PUMA © (2004-07-22 17:21:00)
обьясните почему кода я получаю код страницы www.icq.com он приходит а когда
www.icq.com/whitepages/about_me.php?Uin=123123 нет

получаю страницу через сокеты

unit Unit1;

interface

uses
Windows, WinSock2, SysUtils, Classes, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
wsd :TWSAData;
sClient : TSOCKET;
Serv : TSockAddr;
Buffer : array [0..1024] of char;
begin
Buffer := 'GET / HTTP/1.1'+#13+#10+
'Host: www.icq.com'+#13#10#13#10;
// 'Accept: text/html, image/gif, image/jpeg'+#13#10+
// 'Accept-Language: ru'+#13#10+
// 'Accept-Charset: win - 1251'+#13#10+
// 'ACCEPT-ENCODING gzip, deflate'+#13#10+
// 'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'+#13#10+//
// 'Proxy-Connection: Keep-Alive'+#13#10+
// 'Referer: http://www.agcoders.myrunet.com'+#13#10+
// 'Pragma: no-cache'+#13#10#13#10;
// 'COOKIE Satchmo=0; UIMS2954=7DECB06078A502C';}
//Buffer := 'GET / HTTP/1.0'+#13+#10+#13+#10+#0;
memo2.Lines.Add(Buffer);
WsaStartup (MAKEWORD (2,2), wsd);
sClient := socket (AF_INET, SOCK_STREAM, IPPROTO_IP);
ZeroMemory(@Serv, SizeOf(Serv));
with Serv do
begin
sin_family := AF_INET;

и т.д. этот пример есть везде

Reindeer Moss Eater (2004-07-22 19:14:00) [1]
Маму спроси, мальчик.

PUMA (2004-07-22 19:11:00) [2]
да хорошая помошь...
луче подскажи где реально помочь могут

PUMA (2004-07-22 18:12:00) [3]
И как правильно сделать ?
www.icq.com/whitepages/about_me.php?Uin=123123

Reindeer Moss Eater (2004-07-22 18:12:00) [4]
Прочитай ответ номер один

Reindeer Moss Eater (2004-07-22 17:57:00) [5]
О чем и толкую тебе

PUMA (2004-07-22 17:56:00) [6]
во второй раз приходит ответ типа неправильно сформирован запрос

Reindeer Moss Eater (2004-07-22 17:52:00) [7]
Посмотри заголовок запроса посылаемого браузером на этот урл.
Сравни со своим.
Найди 10 отличий.
Исправь.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »